Example register-initMachine-default

From LaneWiki

Project:Documentation > Ticket printer testing and configuration > Example register-initMachine-default

---

Contents 1 This didn't quite work 2 Another test (also not correct but continues to work with existing printer) 3 Test without reset code (also not working) 4 Original

This didn't quite work

#-*-Perl-*-
#printer init first, as many other devices are chained off of it
# 20050617 - added print function for printing only when requested
# 
items with # after them were added to default code
# items with ## at the beginning were original
local *PrinterDev;
use IO::File;
$PrinterDev = IO::File->new;
$printer2 = IO::File->new; # new print receipt function
$PrinterDev->autoflush(1);
$printer2->autoflush(1); # new print receipt function
##$PrinterDev->open(">/dev/loonie_printer");
$PrinterDev->open(">/dev/null");
$printer2->open(">/dev/loonie_printer"); # new print receipt function
require LanePOS::Devices::Epson::TMU200;
$printer = TMU200->new($PrinterDev);
$printer2 = TMU200->new($printer2); # new print receipt function
##*printer2 = *printer;
*pole = *printer2;
##*drawer = *printer;
*drawer = *printer2; # new print receipt function
#endorse is a printer alias
*endorse = *printer2;
$useResetCode = 1;
$resetCode = '$main::lastTicketNumber = $me->{"sale"}{"id"};';

Another test (also not correct but continues to work with existing printer)

Just not getting anything out of the button...

#-*-Perl-*-
#printer init first, as many other devices are chained off of it
local *PrinterDev;
use IO::File;
$PrinterDev = IO::File->new;
$PrinterDev2 = IO::File->new;
$PrinterDev->autoflush(1);
$PrinterDev2->autoflush(1);
$PrinterDev->open(">/dev/loonie_printer");
$PrinterDev2->open(">/dev/loonie_printer");
require LanePOS::Devices::Epson::TMU200;
$printer = TMU200->new($PrinterDev);
$printer2 = TMU200->new($PrinterDev2);
##*printer2 = *printer;
*pole = *printer2;
*drawer = *printer;
#endorse is a printer alias
*endorse = *printer2;
$useResetCode = 1;
$resetCode = '$main::lastTicketNumber = $me->{"sale"}{"id"};';

Test without reset code (also not working)

#-*-Perl-*-
#printer init first, as many other devices are chained off of it
local *PrinterDev;
use IO::File;
$PrinterDev = IO::File->new;
$PrinterDev2 = IO::File->new;
$PrinterDev->autoflush(1);
$PrinterDev2->autoflush(1);
$PrinterDev->open(">/dev/loonie_printer");
$PrinterDev2->open(">/dev/loonie_printer");
require LanePOS::Devices::Epson::TMU200;
$printer = TMU200->new($PrinterDev);
$printer2 = TMU200->new($PrinterDev2);
##*printer2 = *printer;
*pole = *printer2;
*drawer = *printer;
#endorse is a printer alias
*endorse = *printer2;

Original

#-*-Perl-*-
#printer init first, as many other devices are chained off of it
local *PrinterDev;
use IO::File;
$PrinterDev = IO::File->new;
$PrinterDev->autoflush(1);
$PrinterDev->open(">/dev/loonie_printer");
require LanePOS::Devices::Epson::TMU200;
$printer = TMU200->new($PrinterDev);
*printer2 = *printer;
*pole = *printer2;
*drawer = *printer;
#endorse is a printer alias
*endorse = *printer2;