version 1.23, 2010/02/25 17:54:13 |
version 1.24, 2010/03/08 20:19:37 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# -T |
# -T |
#$RedRiver: MakeTorrents.pl,v 1.22 2007/11/02 02:36:01 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; |
|
|
#} |
#} |
$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 |