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

Diff for /openbsd/OpenBSDTorrents/NewTorrents.pl between version 1.3 and 1.4

version 1.3, 2005/03/25 03:13:45 version 1.4, 2005/03/28 23:36:44
Line 33 
Line 33 
 }  }
 StartTorrent($last_dir);  StartTorrent($last_dir);
   
 sleep(90);  sleep(300);
   
 StartTorrent('skip');  StartTorrent('skip');
   
Line 45 
Line 45 
   
         if ($dir ne 'skip') {          if ($dir ne 'skip') {
                 $dir = "$BaseName/$dir";                  $dir = "$BaseName/$dir";
           } else {
                   $dir = '';
         }          }
   
         # This actually needs to be a sub that forks off          # This actually needs to be a sub that forks off
         # the generation of this, and the running of the update script.          # the generation of this, and the running of the update script.
         print "MakeTorrents.pl $BaseName/$dir\n";  
   
         defined(my $pid = fork) or die "Can't fork: $!";          defined(my $pid = fork) or die "Can't fork: $!";
   
Line 63 
Line 64 
         #                        or die "Can't write /dev/null: $!";          #                        or die "Can't write /dev/null: $!";
         #open STDERR, '>&STDOUT'        or die "Can't dup stdout: $!";          #open STDERR, '>&STDOUT'        or die "Can't dup stdout: $!";
   
         exec('/home/andrew/OpenBSDTorrents/regen.sh', "$dir");          print "Making torrents for $dir\n";
           exec($HomeDir . '/regen.sh', "$dir");
 }  }
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>