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

Diff for /openbsd/OpenBSDTorrents/ServerTorrents.pl between version 1.5 and 1.7

version 1.5, 2005/03/25 03:12:33 version 1.7, 2005/03/31 01:14:48
Line 65 
Line 65 
         my ($name, $year, $mon, $mday, $hour, $min) =          my ($name, $year, $mon, $mday, $hour, $min) =
            /^(.*)-(\d{4})-(\d{2})-(\d{2})-(\d{2})(\d{2})/;             /^(.*)-(\d{4})-(\d{2})-(\d{2})-(\d{2})(\d{2})/;
   
           $mon--;
   
         my $epoch = timegm(0,$min,$hour,$mday,$mon,$year);          my $epoch = timegm(0,$min,$hour,$mday,$mon,$year);
   
         $files{$name}{$epoch} = {          $files{$name}{$epoch} = {
Line 158 
Line 160 
         }, Content_Type => 'form-data');          }, Content_Type => 'form-data');
   
         if ($response->is_success) {          if ($response->is_success) {
                 print "Uploaded  $file\n";                  print STDERR "Uploaded  $file\n";
                 #print $response->content;                  #print $response->content;
         } else {          } else {
                 die $response->status_line;                  die $response->status_line;
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>