openbsd/OpenBSDTorrents/MakeTorrents.pl - diff

Return to MakeTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

version 1.7, 2005/03/24 00:21:43

version 1.8, 2005/03/24 19:49:09

Line 14

use YAML;

my $Piece_Length = 18;

my $MinFiles = 5;

my $MinSize = 50 * 1024 * 1024; # 50 MiB

my $StartDir = shift || $BaseName;

$StartDir =~ s#/$##;

Line 122

Line 124

$t->creation_date(time);

warn "Checksumming files. This may take a little while...\n";

$t->set_files(@$files);

if ($t->total_size < $MinSize) {

print "Skipping smaller than minimum size\n";

return 0;

}

$t->save("$torrent");

print "Created: $torrent\n";

#system("btinfo $torrent") if ($::opt_I);