[BACK]Return to ServerTorrents.pl CVS log [TXT][DIR] Up to [local] / openbsd / OpenBSDTorrents

Diff for /openbsd/OpenBSDTorrents/ServerTorrents.pl between version 1.26 and 1.27

version 1.26, 2008/12/29 22:02:14 version 1.27, 2008/12/29 22:04:00
Line 1 
Line 1 
 #!/usr/bin/perl -T  #!/usr/bin/perl -T
 #$RedRiver: ServerTorrents.pl,v 1.25 2008/09/23 16:35:45 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;
Line 114 
Line 114 
         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} &&                      (
                        (! defined $server_torrents{$torrent}{$hash}) ||
                      $server_torrents{$torrent}{$hash} != 1                       $server_torrents{$torrent}{$hash} != 1
                       )
                 ) {                  ) {
                         Delete_Torrent($torrent, $hash);                          Delete_Torrent($torrent, $hash);
                 }                  }
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>