===================================================================
RCS file: /cvs/wpscripts/ztransfer/log.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- wpscripts/ztransfer/log.pm	2011/07/22 09:44:40	1.3
+++ wpscripts/ztransfer/log.pm	2011/08/30 08:30:42	1.4
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: log.pm,v 1.3 2011/07/22 09:44:40 yason Exp $
+# $Id: log.pm,v 1.4 2011/08/30 08:30:42 yason Exp $
 package log;
 
 my $DEBUG = 1;
@@ -9,7 +9,7 @@
 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 $TPPS_LOG = "/var/log/wpscripts/ztransfer/tpps.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";
@@ -51,6 +51,15 @@
 sub probas($)
 {
     open(FILE, ">>$PROBAS_LOG") or return();
+    $_ = shift();
+    print FILE scalar( localtime() ) . "| $_\n";
+    print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);
+    close(FILE);
+}
+
+sub tt($)
+{
+    open(FILE, ">>$TT_LOG") or return();
     $_ = shift();
     print FILE scalar( localtime() ) . "| $_\n";
     print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);