version 1.25, 2008/09/23 17:35:45 |
version 1.27, 2008/12/29 22:04:00 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
#$RedRiver: ServerTorrents.pl,v 1.24 2007/11/02 02:36:01 andrew Exp $ |
#$RedRiver: ServerTorrents.pl,v 1.26 2008/12/29 22:02:14 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use diagnostics; |
use diagnostics; |
|
|
foreach my $hash (keys %{ $server_torrents{$torrent} }) { |
foreach my $hash (keys %{ $server_torrents{$torrent} }) { |
#printf "SERVER: [%s] [%s]\n", $hash, $torrent; |
#printf "SERVER: [%s] [%s]\n", $hash, $torrent; |
if ((! exists $torrents{$torrent}{$hash}) && |
if ((! exists $torrents{$torrent}{$hash}) && |
|
( |
|
(! defined $server_torrents{$torrent}{$hash}) || |
$server_torrents{$torrent}{$hash} != 1 |
$server_torrents{$torrent}{$hash} != 1 |
|
) |
) { |
) { |
Delete_Torrent($torrent, $hash); |
Delete_Torrent($torrent, $hash); |
} |
} |