openbsd/OpenBSDTorrents/MakeTorrents.pl - diff

Return to MakeTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

version 1.12, 2005/05/02 22:49:54

version 1.16, 2005/05/06 21:07:22

Line 5

use diagnostics;

use lib 'lib';

use BT::OBTMetaInfo;

use BT::MetaInfo::Cached;

use OpenBSDTorrents;

%ENV = ();

Line 29

{

my $basedir = shift;

return undef if $basedir =~ /packages/;

#return undef if $basedir =~ /packages/;

my ($dirs, $files) = Get_Files_and_Dirs($basedir);

if (@$files) {

Line 110

my $torrent_with_path = $OBT->{DIR_NEW_TORRENT} . "/$torrent";

my $t = BT::OBTMetaInfo->new();

my $t = BT::MetaInfo::Cached->new(

{

cache_root =>

$OBT->{DIR_HOME} . '/FileCache'

}

);

$t->name($name);

$t->announce($announce);

unless ($announce =~ m!^http://[^/]+/!i) {

Line 132

Line 138

return 0;

}

my $hash = $t->info_hash_cached($torrent_with_path);

my $hash = $t->info_hash;

$hash = unpack("H*", $hash);

$t->save($torrent_with_path);