version 1.1, 2005/03/24 05:28:08 |
version 1.2, 2005/03/24 05:32:49 |
|
|
my ($dir, $file) = $file =~ m#^(.*)/([^/]+)#; |
my ($dir, $file) = $file =~ m#^(.*)/([^/]+)#; |
#print "$dir - $file\n"; |
#print "$dir - $file\n"; |
if ($last_dir && $last_dir ne $dir) { |
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; |
$last_dir = $dir; |
} else { |
} else { |
#print $_; |
#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"; |
} |
} |