openbsd/OpenBSDTorrents/CurrentTorrents.pl - diff

Return to CurrentTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

version 1.31, 2010/02/26 22:58:20

version 1.34, 2010/03/03 18:31:57

Line 1

#!/usr/bin/perl -T

#$RedRiver: CurrentTorrents.pl,v 1.30 2010/02/25 18:03:01 andrew Exp $

#$RedRiver: CurrentTorrents.pl,v 1.33 2010/03/03 18:15:31 andrew Exp $

use strict;

use warnings;

use diagnostics;

Line 194

my $name = $keep{$hash}{name};

my $epoch = $keep{$hash}{epoch};

my $reason = $keep{$hash}{reason};

my $reason = $keep{$hash}{reason} ? $keep{$hash}{reason} . q{ } : q{};

if ($reason && $reason ne 'only') {

#if ($reason && $reason ne 'only') {

print "Keeping $reason instance of [$name] [$hash]\n",

# print "Keeping $reason instance of [$file] [$hash]\n",

"\t", $file, "\n";

# "\t", $file, "\n";

}

if ( $dir eq $OBT->{DIR_NEW_TORRENT} ) {

print "Moving $file to current torrents\n";

Line 217

}

if ( !$seeding{$hash} ) {

print "Starting seed of [$file] [$hash]\n";

print 'Starting seed of ' . $reason . "[$file] [$hash]\n";

if (!$client->add(

filename => "$dir/$file",

download_dir => $OBT->{DIR_FTP},