| version 1.14, 2005/05/05 22:45:03 |
version 1.17, 2005/05/20 01:18:24 |
|
|
| |
|
| my $torrent_with_path = $OBT->{DIR_NEW_TORRENT} . "/$torrent"; |
my $torrent_with_path = $OBT->{DIR_NEW_TORRENT} . "/$torrent"; |
| |
|
| my $t = BT::MetaInfo::Cached->new(); |
my $t = BT::MetaInfo::Cached->new( |
| |
{ |
| |
cache_root => |
| |
$OBT->{DIR_HOME} . '/FileCache' |
| |
} |
| |
); |
| |
|
| $t->name($name); |
$t->name($name); |
| $t->announce($announce); |
$t->announce($announce); |
| unless ($announce =~ m!^http://[^/]+/!i) { |
unless ($announce =~ m!^http://[^/]+/!i) { |
|
|
| # } |
# } |
| #} |
#} |
| $t->piece_length($piece_len); |
$t->piece_length($piece_len); |
| $t->creation_date(time); |
$t->creation_date(gmtime); |
| 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); |
| |
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to MakeTorrents.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / openbsd / OpenBSDTorrents