version 1.5, 2005/03/23 00:08:18 |
version 1.7, 2005/03/24 00:21:43 |
|
|
|
|
use YAML; |
use YAML; |
|
|
my $BTMake = '/usr/local/bin/btmake'; |
|
my $Piece_Length = 18; |
my $Piece_Length = 18; |
my $MinFiles = 5; |
my $MinFiles = 5; |
|
|
|
|
"Created by andrew fresh (andrew\@mad-techies.org)\n" . |
"Created by andrew fresh (andrew\@mad-techies.org)\n" . |
"http://OpenBSD.somedomain.net/"; |
"http://OpenBSD.somedomain.net/"; |
|
|
btmake($torrent, $comment, $files); |
eval { btmake($torrent, $comment, $files); }; |
|
if ($@) { |
|
print "Error creating $torrent\n"; |
|
} |
|
|
# system($BTMake, |
# system($BTMake, |
# '-C', |
# '-C', |