Return to MakeTorrents.pl CVS log | Up to [local] / openbsd / OpenBSDTorrents |
version 1.14, 2005/05/05 22:45:03 | version 1.15, 2005/05/06 21:03:55 | ||
---|---|---|---|
|
|
||
my $torrent_with_path = $OBT->{DIR_NEW_TORRENT} . "/$torrent"; | my $torrent_with_path = $OBT->{DIR_NEW_TORRENT} . "/$torrent"; | ||
my $t = BT::MetaInfo::Cached->new(); | $t = BT::MetaInfo::Cached->new( | ||
$torrent, | |||
{ | |||
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) { |