Return to CurrentTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

added checks as to whether the files in the torrent exist.

#!/usr/bin/perl -T
#$Id: CurrentTorrents.pl,v 1.4 2005/03/24 00:20:33 andrew Exp $
use strict;
use warnings;
use diagnostics;

use BT::MetaInfo;
use Time::Local;

use lib 'lib';
use OpenBSDTorrents;

%ENV = ();

#use YAML;

my %files;
opendir DIR, $TorrentDir or die "Couldn't opendir $TorrentDir: $!";
foreach (readdir DIR) {
	if (/^([^\/]+)$/) {
		$_ = $1;
	} else {
		die "Invalid character in $_: $!";
	}
	next unless /\.torrent$/;
	my ($name, $year, $mon, $mday, $hour, $min) = 
	   /^(.*)-(\d{4})-(\d{2})-(\d{2})-(\d{2})(\d{2})/;

	my $epoch = timegm(0,$min,$hour,$mday,$mon,$year);

	print "Adding $_\n";

	$files{$name}{$epoch} = {
		file      => $_,
		year      => $year,
		mon       => $mon,
		mday      => $mday,
		hour      => $hour,
		min       => $min,
		epoch     => $epoch,
	};

}
closedir DIR;

my %keep;
my @delete;
foreach my $name (keys %files) {
	#print "$name\n";

	foreach my $epoch ( sort { $b <=> $a } keys %{ $files{$name} } ) {
		#print "\t$epoch\n";
		my $torrent = $files{$name}{$epoch}{file};

		my $t;
		eval { $t = BT::MetaInfo->new("$TorrentDir/$torrent"); };
		if ($@) {
			warn "Error reading torrent $torrent\n";
			next;
		}

		$files{$name}{$epoch}{comment}   = $t->{comment};
		my ($path) = $t->{comment} =~ /Files from ([^\n]+)\n/s;

		unless (-d "$TorrentDir/$path") {
			print "Deleting $files{$name}{$epoch}{file} the path doesn't exist.\n"; 
			push @delete, $files{$name}{$epoch}{file};
		}

		if (keys %{ $files{$name} } == 1) {
			print "Skipping torrent for $name there is only one.\n";
			next;
		}

		my $hash = $t->info_hash;
		$hash = unpack("H*", $hash);

		$files{$name}{$epoch}{info_hash} = $hash;

		undef $t;

		if (exists $keep{$name}) {
			if (exists $keep{$name}{$hash}) {
				push @delete, $keep{$name}{$hash};
				$keep{$name}{$hash} = 
					$files{$name}{$epoch}{file};
			} else {
				push @delete, $files{$name}{$epoch}{file};
			}
		} else { 
			$keep{$name}{$hash} = 
				$files{$name}{$epoch}{file};

		}
	}
}

#print Dump \%files, \%keep, \@delete;

foreach (@delete) {
	print "Deleting '$_'\n";
	unlink "$TorrentDir/$_" or die "Couldn't unlink $_";
}