From 588733c6bd25795c95619cab52baad4f01895fdc Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 17 Aug 2010 16:11:51 +0200
Subject: [PATCH] don't re-print cards if allready programmed

---
 scripts/print.pl | 23 ++++++++++++++---------
 1 file changed, 14 insertions(+), 9 deletions(-)

diff --git a/scripts/print.pl b/scripts/print.pl
index 3457531..fe6e5b8 100755
--- a/scripts/print.pl
+++ b/scripts/print.pl
@@ -29,13 +29,25 @@ GetOptions(
 
 die "Usage: $0 print.txt\n" unless @ARGV;
 
+my $persistant_path = '/tmp/programmed.storable';
+my $programmed;
+my $numbers;
+if ( -e $persistant_path ) {
+	$programmed = retrieve($persistant_path);
+	warn "# loaded ", scalar keys %$programmed, " programmed cards\n";
+	foreach my $tag ( keys %$programmed ) {
+		$numbers->{ $programmed->{$tag} } = $tag;
+	}
+}
+
 my @queue;
 my @done;
-warn "# reading tab-delimited input\n";
+warn "# reading tab-delimited input: number login\@domain name surname\n";
 while(<>) {
 	chomp;
 	my @a = split(/\t/,$_);
-	push @queue, [ @a ];
+	die "invalid: @a in line $_" if $a[0] !~ m/\d{12}/ && $a[1] !~ m/\@/;
+	push @queue, [ @a ] if ! $numbers->{ $a[0] };
 }
 
 print "# queue ", dump @queue;
@@ -63,13 +75,6 @@ while ( $rfid->tags ) {
 
 print_card;
 
-my $persistant_path = '/tmp/programmed.storable';
-my $programmed;
-if ( -e $persistant_path ) {
-	$programmed = retrieve($persistant_path);
-	warn "# loaded ", scalar keys %$programmed, " programmed cards\n";
-}
-
 do {
 	my @visible = $rfid->tags(
 		enter => sub {
-- 
2.20.1