version 1.22, 2007/11/02 03:36:01 |
version 1.24, 2010/03/08 20:19:37 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# -T |
# -T |
#$RedRiver: MakeTorrents.pl,v 1.21 2006/11/06 23:17:59 andrew Exp $ |
#$RedRiver: MakeTorrents.pl,v 1.23 2010/02/25 17:54:13 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use diagnostics; |
use diagnostics; |
|
|
|
|
print "Creating $torrent\n"; |
print "Creating $torrent\n"; |
|
|
$comment .= "Created by andrew fresh (andrew\@mad-techies.org)\n" . |
$comment .= "Created by andrew fresh (andrew\@afresh1.com)\n" . |
"http://OpenBSD.somedomain.net/"; |
"http://OpenBSD.somedomain.net/"; |
|
|
eval { btmake($torrent, $comment, \@good_files); }; |
eval { btmake($torrent, $comment, \@good_files); }; |
|
|
#} |
#} |
$t->piece_length($piece_len); |
$t->piece_length($piece_len); |
$t->creation_date(time); |
$t->creation_date(time); |
print "Checksumming files. This may take a little while...\n"; |
#print "Checksumming files. This may take a little while...\n"; |
|
|
# Can't use this, have to do this manually because |
# Can't use this, have to do this manually because |
# we need to have the multi-file type of torrent |
# we need to have the multi-file type of torrent |