[BACK]Return to ServerTorrents.pl CVS log [TXT][DIR] Up to [local] / openbsd / OpenBSDTorrents

Diff for /openbsd/OpenBSDTorrents/ServerTorrents.pl between version 1.28 and 1.29

version 1.28, 2010/01/07 18:50:02 version 1.29, 2010/03/08 20:19:37
Line 1 
Line 1 
 #!/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;
Line 122 
Line 122 
     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 )
Line 190 
Line 190 
     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'},
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>