[BACK]Return to log.pm CVS log [TXT][DIR] Up to [local] / wpscripts / ztransfer

Diff for /wpscripts/ztransfer/log.pm between version 1.5 and 1.6

version 1.5, 2011/12/21 10:19:26 version 1.6, 2012/04/01 06:52:10
Line 7 
Line 7 
 my $MAIN_LOG = "/var/log/wpscripts/ztransfer/main.log";  my $MAIN_LOG = "/var/log/wpscripts/ztransfer/main.log";
 my $ERROR_LOG = "/var/log/wpscripts/ztransfer/error.log";  my $ERROR_LOG = "/var/log/wpscripts/ztransfer/error.log";
 my $ZAYAVKI_LOG = "/var/log/wpscripts/ztransfer/zayavki.log";  my $ZAYAVKI_LOG = "/var/log/wpscripts/ztransfer/zayavki.log";
 my $JPEGS_LOG = "/var/log/wpscripts/ztransfer/jpegs.log";  my $ZJPEGS_LOG = "/var/log/wpscripts/ztransfer/z_jpegs.log";
   my $PJPEGS_LOG = "/var/log/wpscripts/ztransfer/p_jpegs.log";
 my $PROBAS_LOG = "/var/log/wpscripts/ztransfer/probas.log";  my $PROBAS_LOG = "/var/log/wpscripts/ztransfer/probas.log";
 my $TT_LOG = "/var/log/wpscripts/ztransfer/tt.log";  my $TT_LOG = "/var/log/wpscripts/ztransfer/tt.log";
 my $CRITICAL_LOG = "/var/log/wpscripts/ztransfer/critical.log";  my $CRITICAL_LOG = "/var/log/wpscripts/ztransfer/critical.log";
Line 66 
Line 67 
     close(FILE);      close(FILE);
 }  }
   
  sub jpeg($)   sub zjpeg($)
  {   {
      open(FILE, ">>$JPEGS_LOG") or return();       open(FILE, ">>$ZJPEGS_LOG") or return();
      $_ = shift();       $_ = shift();
      print FILE scalar( localtime() ) . "| $_\n";       print FILE scalar( localtime() ) . "| $_\n";
      print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);       print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);
      close(FILE);       close(FILE);
    }
   
    sub pjpeg($)
    {
        open(FILE, ">>$PJPEGS_LOG") or return();
        $_ = shift();
        print FILE scalar( localtime() ) . "| $_\n";
        print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);
        close(FILE);
  }   }
   
 sub critical($)  sub critical($)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

CVSweb