+ if ( ! @queue ) {
+ print "QUEUE EMPTY - printing finished\n";
+ close($log);
+ print "$log_path ", -s $log_path, " bytes created\n";
+ exit;
+ }
+
+ my @data = @{$queue[0]};
+ print "XXX print_card @data\n";
+
+ if ( $test ) {
+
+ my $p = Printer::EVOLIS::Parallel->new( '/dev/usb/lp0' );
+ print "insert card ", $p->command( 'Si' ),$/;
+ sleep 1;
+ print "eject card ", $p->command( 'Ser' ),$/;
+
+ } else {
+
+ system "$evolis_dir/scripts/inkscape-render.pl", "$evolis_dir/card/ffzg-2010.svg", @data;
+ my $nr = $data[0];
+ system "$evolis_dir/scripts/evolis-driver.pl out/$nr.front.pbm out/$nr.back.pbm > /dev/usb/lp0";
+
+ }