version 1.14, 2005/05/05 22:45:03 |
version 1.19, 2006/05/15 19:47:04 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
#$Id$ |
#$RedRiver: MakeTorrents.pl,v 1.18 2005/05/20 16:25:35 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use diagnostics; |
use diagnostics; |
|
|
|
|
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) { |