openbsd/OpenBSDTorrents/NewTorrents.pl - diff

Return to NewTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

version 1.1, 2005/03/24 05:28:08

version 1.2, 2005/03/24 05:32:49

Line 20

my ($dir, $file) = $file =~ m#^(.*)/([^/]+)#;

#print "$dir - $file\n";

if ($last_dir && $last_dir ne $dir) {

# This actually needs to be a sub that forks off

StartTorrent($last_dir);

# the generation of this, and the running of the update script.

print "MakeTorrent.pl $BaseName/$dir\n";

}

$last_dir = $dir;

} else {

#print $_;

}

StartTorrent($last_dir);

sub StartTorrent

{

my $dir = shift;

# This actually needs to be a sub that forks off

# the generation of this, and the running of the update script.

print "MakeTorrents.pl $BaseName/$dir\n";

}