| version 1.35, 2010/03/08 20:19:35 |
version 1.36, 2010/03/16 23:37:32 |
|
|
| #!/usr/bin/perl -T |
#!/usr/bin/perl -T |
| #$RedRiver: CurrentTorrents.pl,v 1.34 2010/03/03 18:31:57 andrew Exp $ |
#$RedRiver: CurrentTorrents.pl,v 1.35 2010/03/08 20:19:35 andrew Exp $ |
| use strict; |
use strict; |
| use warnings; |
use warnings; |
| use diagnostics; |
use diagnostics; |
|
|
| $name = $base; |
$name = $base; |
| } |
} |
| |
|
| #print "Adding $_\n"; |
#print "Adding $DIR/$_\n"; |
| |
|
| |
if (exists $files{$ext}{$name}{$epoch}) { |
| |
warn "Multiple torrents with $name and epoch $epoch\n"; |
| |
} |
| |
|
| $files{$ext}{$name}{$epoch} = { |
$files{$ext}{$name}{$epoch} = { |
| file => $_, |
file => $_, |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to CurrentTorrents.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / openbsd / OpenBSDTorrents