comment out output more
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 14 Aug 2010 19:19:34 +0000 (21:19 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 14 Aug 2010 19:19:34 +0000 (21:19 +0200)
evolis-driver.pl

index 2eb0834..6d81d44 100755 (executable)
@@ -38,5 +38,13 @@ print "\x1BPc;k;=;10\r";
 print "\x1BDbc;k;2;31744;"; # bitmap data
 print "\r";
 
 print "\x1BDbc;k;2;31744;"; # bitmap data
 print "\r";
 
-print "\x1BSe\r";
+# print "\033Ste\015"; # keep card after encoding
+print "\x1BSe\r"; # eject card
 print "\x00" x 64; # FIXME some padding?
 print "\x00" x 64; # FIXME some padding?
+
+sub encoding {
+my $data = "1234567890"; # data for track
+print "\033Ss\015", $data;
+print "\033Smw\015"; # write?
+}
+