openbsd/OpenBSDTorrents/MakeTorrents.pl - diff

Return to MakeTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

version 1.6, 2005/03/23 00:14:48

version 1.9, 2005/03/30 17:03:30

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 74

Line 76

"Created by andrew fresh (andrew\@mad-techies.org)\n" .

"http://OpenBSD.somedomain.net/";

btmake($torrent, $comment, $files);

eval { btmake($torrent, $comment, $files); };

if ($@) {

print "Error creating $torrent\n";

}

# system($BTMake,

# '-C',

Line 117

Line 122

$t->piece_length($piece_len);

$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);

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);