![[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|
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) { |