version 1.17, 2005/05/20 01:18:24 |
version 1.19, 2006/05/15 19:47:04 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
#$Id$ |
#$RedRiver: MakeTorrents.pl,v 1.18 2005/05/20 16:25:35 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(gmtime); |
$t->creation_date(time); |
print "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); |
|
|