![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ServerTorrents.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / openbsd / OpenBSDTorrents|
Return to ServerTorrents.pl CVS log | Up to [local] / openbsd / OpenBSDTorrents |
| version 1.14, 2005/05/05 21:33:42 | version 1.15, 2005/05/06 21:05:00 | ||
|---|---|---|---|
|
|
||
| print "Uploading $file\n"; | print "Uploading $file\n"; | ||
| my $t; | my $t; | ||
| eval { $t = BT::MetaInfo::Cached->new("$OBT->{DIR_TORRENT}/$file"); }; | eval { | ||
| $t = BT::MetaInfo::Cached->new( | |||
| $torrent, | |||
| { | |||
| cache_root => | |||
| $OBT->{DIR_HOME} . '/FileCache' | |||
| } | |||
| ); | |||
| }; | |||
| if ($@) { | if ($@) { | ||
| warn "Error reading torrent $file\n"; | warn "Error reading torrent $file\n"; | ||
| return undef; | return undef; |