version 1.1, 2005/03/22 01:14:11 |
version 1.2, 2005/03/22 04:19:03 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
|
#$Id$ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use diagnostics; |
use diagnostics; |
|
|
|
|
my $BaseDir = '/home/ftp/pub'; |
my $BaseDir = '/home/ftp/pub'; |
my $BaseName = 'OpenBSD'; |
my $BaseName = 'OpenBSD'; |
my $OutDir = '/home/andrew'; |
my $OutDir = '/home/andrew/torrents'; |
my $BTMake = '/usr/local/bin/btmake'; |
my $BTMake = '/usr/local/bin/btmake'; |
my $Tracker = 'http://OpenBSD.somedomain.net/announce.php'; |
my $Tracker = 'http://OpenBSD.somedomain.net/announce.php'; |
|
|
|
|
} |
} |
|
|
foreach (@$files) { |
foreach (@$files) { |
if (/^([\w\.-]+)$/) { |
if (/^([^\/]+)$/) { |
$_ = "$basedir/$1"; |
$_ = "$basedir/$1"; |
} else { |
} else { |
die "Invalid characters in file '$_' in '$basedir'"; |
die "Invalid characters in file '$_' in '$basedir'"; |
|
|
print "Creating $torrent\n"; |
print "Creating $torrent\n"; |
|
|
system($BTMake, |
system($BTMake, |
|
'-C', |
|
'-c', "Created by andrew fresh <andrew\@mad-techies.org>\n" . |
|
"See http://OpenBSD.somedomain.net/", |
'-n', $BaseName, |
'-n', $BaseName, |
'-o', "$OutDir/$torrent", |
'-o', "$OutDir/$torrent", |
'-a', $Tracker, |
'-a', $Tracker, |