version 1.6, 2005/03/23 00:14:48 |
version 1.9, 2005/03/30 17:03:30 |
|
|
use YAML; |
use YAML; |
|
|
my $Piece_Length = 18; |
my $Piece_Length = 18; |
|
|
my $MinFiles = 5; |
my $MinFiles = 5; |
|
my $MinSize = 50 * 1024 * 1024; # 50 MiB |
|
|
my $StartDir = shift || $BaseName; |
my $StartDir = shift || $BaseName; |
$StartDir =~ s#/$##; |
$StartDir =~ s#/$##; |
|
|
"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', |
|
|
#} |
#} |
$t->piece_length($piece_len); |
$t->piece_length($piece_len); |
$t->creation_date(time); |
$t->creation_date(time); |
warn "Checksumming files. This may take a little while...\n"; |
print "Checksumming files. This may take a little while...\n"; |
$t->set_files(@$files); |
$t->set_files(@$files); |
|
|
|
if ($t->total_size < $MinSize) { |
|
print "Skipping smaller than minimum size\n"; |
|
return 0; |
|
} |
|
|
$t->save("$torrent"); |
$t->save("$torrent"); |
print "Created: $torrent\n"; |
print "Created: $torrent\n"; |
#system("btinfo $torrent") if ($::opt_I); |
#system("btinfo $torrent") if ($::opt_I); |