![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ServerTorrents.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / openbsd / OpenBSDTorrents|
Return to ServerTorrents.pl CVS log | Up to [local] / openbsd / OpenBSDTorrents |
| version 1.1, 2005/03/24 00:22:09 | version 1.2, 2005/03/24 00:42:07 | ||
|---|---|---|---|
|
|
||
| } | } | ||
| foreach my $file (keys %server_torrents) { | foreach my $file (keys %server_torrents) { | ||
| unless (exists $files{$file}) { | my ($name, $year, $mon, $mday, $hour, $min) = | ||
| $file =~ | |||
| /^(.*)-(\d{4})-(\d{2})-(\d{2})-(\d{2})(\d{2})/; | |||
| unless (exists $files{$name}) { | |||
| Delete_Torrent($file); | Delete_Torrent($file); | ||
| } | } | ||
| } | } |