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

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

version 1.4, 2005/03/24 20:59:07 version 1.7, 2005/03/31 01:14:48
Line 13 
Line 13 
   
 %ENV = ();  %ENV = ();
   
   #use YAML;
   
 use YAML;  justme();
   
 my $url_torrents = 'http://openbsd.somedomain.net/dumptorrents.php';  my $url_torrents = 'http://openbsd.somedomain.net/dumptorrents.php';
 my $url_upload   = 'http://openbsd.somedomain.net/newtorrents.php';  my $url_upload   = 'http://openbsd.somedomain.net/newtorrents.php';
Line 64 
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 157 
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.4  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>