![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to chronicles.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
Return to chronicles.pl CVS log | Up to [Local Repository] / db / prgsrc |
| version 1.3, 2003/03/17 15:47:22 | 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) { |
| if ($name =~ /boris/) { | if ($dbtochronicles{$name} =~ /boris/) { |
| print "$name -> $dbtochronicles{$name}\n"; | print "$name -> $dbtochronicles{$name}\n"; |
| } | } |
| } | } |