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

Diff for /openbsd/OpenBSDTorrents/CurrentTorrents.pl between version 1.11 and 1.12

version 1.11, 2005/04/07 00:04:40 version 1.12, 2005/05/02 21:27:00
Line 16 
Line 16 
   
 justme();  justme();
   
   my $Name_Filter = shift || '';
   if ($Name_Filter =~ /^(\w*)$/) {
           $Name_Filter = $1;
   } else {
           die "Invalid filter: $Name_Filter";
   }
   
 my %files;  my %files;
 opendir DIR, $OBT->{DIR_TORRENT}  opendir DIR, $OBT->{DIR_TORRENT}
         or die "Couldn't opendir $OBT->{DIR_TORRENT}: $!";          or die "Couldn't opendir $OBT->{DIR_TORRENT}: $!";
Line 50 
Line 57 
 my %keep;  my %keep;
 my @delete;  my @delete;
 foreach my $name (keys %files) {  foreach my $name (keys %files) {
         #print "$name\n";          next unless $name =~ /^$Name_Filter/;
           print "Checking $name\n";
   
         foreach my $epoch ( sort { $b <=> $a } keys %{ $files{$name} } ) {          foreach my $epoch ( sort { $b <=> $a } keys %{ $files{$name} } ) {
                 #print "\t$epoch\n";                  #print "\t$epoch\n";

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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