Return to MakeTorrents.pl CVS log | Up to [local] / openbsd / OpenBSDTorrents |
version 1.14, 2005/05/05 22:45:03 | version 1.18, 2005/05/20 17:25:35 | ||
---|---|---|---|
|
|
||
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) { |