openbsd/OpenBSDTorrents/MakeTorrents.pl - diff

Return to MakeTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

version 1.17, 2005/05/20 01:18:24

version 1.20, 2006/07/24 19:03:53

Line 1

#!/usr/bin/perl -T

#!/usr/bin/perl

#$Id$

# -T

#$RedRiver: MakeTorrents.pl,v 1.19 2006/05/15 18:47:04 andrew Exp $

use strict;

use warnings;

use diagnostics;

Line 112

Line 113

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

{

cache_root =>

cache_root => '/tmp/OBTFileCache'

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

}

);

Line 129

# }

$t->piece_length($piece_len);

$t->creation_date(gmtime);

$t->creation_date(time);

print "Checksumming files. This may take a little while...\n";

$t->set_files(@$files);