===================================================================
RCS file: /cvs/wpscripts/ztransfer/log.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.4
diff -u -r1.1.1.1 -r1.4
--- wpscripts/ztransfer/log.pm	2011/06/03 09:28:47	1.1.1.1
+++ wpscripts/ztransfer/log.pm	2011/08/30 08:30:42	1.4
@@ -1,20 +1,20 @@
 #!/usr/bin/perl
-# $Id: log.pm,v 1.1.1.1 2011/06/03 09:28:47 yason Exp $
+# $Id: log.pm,v 1.4 2011/08/30 08:30:42 yason Exp $
 package log;
 
 my $DEBUG = 1;
 
-my $MAIN_LOG = "/var/log/ztransfer/main.log";
-my $ERROR_LOG = "/var/log/ztransfer/error.log";
-my $ZAYAVKI_LOG = "/var/log/ztransfer/zayavki.log";
-my $JPEGS_LOG = "/var/log/ztransfer/jpegs.log";
-my $PROBAS_LOG = "/var/log/ztransfer/probas.log";
-my $TPPS_LOG = "/var/log/ztransfer/tpps.log";
-my $CRITICAL_LOG = "/var/log/ztransfer/critical.log";
-my $FILE_LIST = "/var/log/ztransfer/FILES";
-my $DIFFS_FILE = "/var/log/ztransfer/size_diffs.log";
-my $CURRENT_FILE = "/var/log/ztransfer/FILE";
-my $CURRENT_ACTION = "/var/log/ztransfer/ACTION";
+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 $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";
+my $FILE_LIST = "/var/log/wpscripts/ztransfer/FILES";
+my $DIFFS_FILE = "/var/log/wpscripts/ztransfer/size_diffs.log";
+my $CURRENT_FILE = "/var/log/wpscripts/ztransfer/FILE";
+my $CURRENT_ACTION = "/var/log/wpscripts/ztransfer/ACTION";
 
 
 # functions
@@ -48,28 +48,18 @@
 }
 
 
-sub jpegs($)
+sub probas($)
 {
-    open(FILE, ">>$JPEGS_LOG") or return();
+    open(FILE, ">>$PROBAS_LOG") or return();
     $_ = shift();
     print FILE scalar( localtime() ) . "| $_\n";
     print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);
     close(FILE);
 }
 
-sub tpps($)
+sub tt($)
 {
-    open(FILE, ">>$TPPS_LOG") or return();
-    $_ = shift();
-    print FILE scalar( localtime() ) . "| $_\n";
-    print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);
-    close(FILE);
-}
-
-
-sub probas($)
-{
-    open(FILE, ">>$PROBAS_LOG") or return();
+    open(FILE, ">>$TT_LOG") or return();
     $_ = shift();
     print FILE scalar( localtime() ) . "| $_\n";
     print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);