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

Diff for /openbsd/OpenBSDTorrents/CurrentTorrents.pl between version 1.17 and 1.19

version 1.17, 2005/05/05 22:52:45 version 1.19, 2005/06/01 18:52:14
Line 89 
Line 89 
                 }                  }
   
                 my $t;                  my $t;
                 eval { $t = BT::MetaInfo::Cached->new( $torrent ); };                  eval {
                           $t = BT::MetaInfo::Cached->new(
                                   $torrent,
                                   {
                                           cache_root =>
                                           $OBT->{DIR_HOME} . '/FileCache'
                                   }
                           );
                   };
   
                 if ($@) {                  if ($@) {
                         warn "Error reading torrent $torrent\n";                          warn "Error reading torrent $torrent\n";
Line 154 
Line 162 
 }  }
   
   
 #print Dump \%keep;  ##print Dump \%keep;
 foreach my $name (keys %keep) {  #foreach my $name (keys %keep) {
         foreach my $hash (keys %{ $keep{$name} }) {  #       foreach my $hash (keys %{ $keep{$name} }) {
                 my $file = $keep{$name}{$hash}{file};  #               my $file = $keep{$name}{$hash}{file};
                 my $dir  = $keep{$name}{$hash}{dir };  #               my $dir  = $keep{$name}{$hash}{dir };
                 if ($dir eq $OBT->{DIR_NEW_TORRENT}) {  #               if ($dir eq $OBT->{DIR_NEW_TORRENT}) {
                         print "Moving $file to current torrents\n";  #                       print "Moving $file to current torrents\n";
                         rename("$dir/$file", $OBT->{DIR_TORRENT} . "/" . $file)  #                       rename("$dir/$file", $OBT->{DIR_TORRENT} . "/" . $file)
                                 or die "Couldn't rename '$file': $!";  #                               or die "Couldn't rename '$file': $!";
   #
                         my $name = $keep{$name}{$hash}{name};  #                       my $name = $keep{$name}{$hash}{name};
                         my $epoch = $keep{$name}{$hash}{epoch};  #                       my $epoch = $keep{$name}{$hash}{epoch};
   #
                         if (exists $files{txt}{$name}{$epoch}) {  #                       if (exists $files{txt}{$name}{$epoch}) {
                                 my $m_file = $files{txt}{$name}{$epoch}{file};  #                               my $m_file = $files{txt}{$name}{$epoch}{file};
                                 my $m_dir  = $files{txt}{$name}{$epoch}{dir };  #                               my $m_dir  = $files{txt}{$name}{$epoch}{dir };
                                 rename(  #                               rename(
                                         "$m_dir/$m_file",  #                                       "$m_dir/$m_file",
                                         $OBT->{DIR_TORRENT} . "/" . $m_file  #                                       $OBT->{DIR_TORRENT} . "/" . $m_file
                                 ) or die "Couldn't rename '$m_file': $!";  #                               ) or die "Couldn't rename '$m_file': $!";
                         }  #                       }
                 }  #               }
         }  #       }
 }  #}
   
 sub Process_Dir  sub Process_Dir
 {  {

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.19

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>