===================================================================
RCS file: /cvs/wpscripts/ztransfer/log.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- wpscripts/ztransfer/log.pm	2011/12/21 10:19:26	1.5
+++ wpscripts/ztransfer/log.pm	2012/04/01 06:52:10	1.6
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: log.pm,v 1.5 2011/12/21 10:19:26 yason Exp $
+# $Id: log.pm,v 1.6 2012/04/01 06:52:10 yason Exp $
 package log;
 
 my $DEBUG = 1;
@@ -7,7 +7,8 @@
 my $MAIN_LOG = "/var/log/wpscripts/ztransfer/main.log";
 my $ERROR_LOG = "/var/log/wpscripts/ztransfer/error.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 $TT_LOG = "/var/log/wpscripts/ztransfer/tt.log";
 my $CRITICAL_LOG = "/var/log/wpscripts/ztransfer/critical.log";
@@ -66,13 +67,22 @@
     close(FILE);
 }
 
- sub jpeg($) 	 
+ sub zjpeg($) 	 
  { 	 
-     open(FILE, ">>$JPEGS_LOG") or return(); 	 
+     open(FILE, ">>$ZJPEGS_LOG") or return(); 	 
      $_ = shift(); 	 
      print FILE scalar( localtime() ) . "| $_\n"; 	 
      print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG); 	 
      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($)