Return to chronicles.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.2, 2003/03/17 15:38:55 | version 1.4, 2003/03/17 15:49:27 |
---|---|
Line 69 while (my $file=readdir(DIR)) { | Line 69 while (my $file=readdir(DIR)) { |
} | } |
closedir DIR; | closedir DIR; |
foreach my $name (keys %dbtochronicles) { | foreach my $name (keys %dbtochronicles) { |
print "$name -> $dbtochronicles{$name}\n"; | if ($dbtochronicles{$name} =~ /boris/) { |
print "$name -> $dbtochronicles{$name}\n"; | |
} | |
} | } |
exit 0; | exit 0; |