- print "insert card ", $p->command( 'Si' ),$/;
- print "eject card ", $p->command( 'Ser' ),$/;
+
+ my $before = _counters $p;
+
+ if ( $test ) {
+
+ print "insert card ", $p->command( 'Si' ),$/;
+ sleep 1;
+ print "eject card ", $p->command( 'Ser' ),$/;
+
+ } else {
+
+ render_card;
+ system "$evolis_dir/scripts/evolis-driver.pl out/$nr.front.pbm out/$nr.back.pbm > /dev/usb/lp0";
+
+ }
+
+ my $after = _counters $p;
+
+ if ( $before->{p} = $after->{p} - 2 ) {
+ print "OK printerd card $nr\n";
+ } else {
+ die "ERROR printing card $nr\n";
+ }
+
+ warn "# counters ", dump( $before, $after );
+