-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;
+foreach my $log_path ( glob( "$log_print/*.txt" ) ) {
+ warn "# loading $log_path";
+ open( my $in, '<', $log_path ) || die $!;
+ while(<$in>) {
+ chomp;
+ my ( $date, $sid, $nr ) = split(/,/,$_,3);
+ $programmed->{ $sid } = $nr;
+ $numbers->{ $nr } = $sid;