version 1.7, 2005/03/24 00:21:43 |
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#/$##; |
|
|
#} |
#} |
$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); |