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

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

version 1.19, 2005/06/01 18:52:14 version 1.21, 2006/05/15 19:47:04
Line 1 
Line 1 
 #!/usr/bin/perl -T  #!/usr/bin/perl -T
 #$Id$  #$RedRiver: CurrentTorrents.pl,v 1.20 2005/06/01 18:01:46 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
 use diagnostics;  use diagnostics;
Line 162 
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.19  
changed lines
  Added in v.1.21
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>