version 1.28, 2010/01/07 18:50:02 |
version 1.29, 2010/03/08 20:19:37 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
#$RedRiver: ServerTorrents.pl,v 1.27 2008/12/29 22:04:00 andrew Exp $ |
#$RedRiver: ServerTorrents.pl,v 1.28 2010/01/07 18:50:02 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use diagnostics; |
use diagnostics; |
|
|
my $t = $torrent->{'details'}; |
my $t = $torrent->{'details'}; |
|
|
my $file = $torrent->{'file'}; |
my $file = $torrent->{'file'}; |
print "Uploading $file\n"; |
#print "Uploading $file\n"; |
|
|
my $size = $t->total_size; |
my $size = $t->total_size; |
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday ) |
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday ) |
|
|
my $hash = shift; |
my $hash = shift; |
die "No hash passed!" unless $hash; |
die "No hash passed!" unless $hash; |
|
|
print "Removing $filename [$hash]\n"; |
#print "Removing $filename [$hash]\n"; |
|
|
my $response = $ua->post( |
my $response = $ua->post( |
$OBT->{'URL_DELETE'}, |
$OBT->{'URL_DELETE'}, |