===================================================================
RCS file: /cvs/wpscripts/ztransfer/log.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- wpscripts/ztransfer/log.pm	2011/07/20 07:44:51	1.2
+++ wpscripts/ztransfer/log.pm	2011/07/22 09:44:40	1.3
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: log.pm,v 1.2 2011/07/20 07:44:51 yason Exp $
+# $Id: log.pm,v 1.3 2011/07/22 09:44:40 yason Exp $
 package log;
 
 my $DEBUG = 1;
@@ -41,25 +41,6 @@
 sub zayavki($)
 {
     open(FILE, ">>$ZAYAVKI_LOG") or return();
-    $_ = shift();
-    print FILE scalar( localtime() ) . "| $_\n";
-    print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);
-    close(FILE);
-}
-
-
-sub jpegs($)
-{
-    open(FILE, ">>$JPEGS_LOG") or return();
-    $_ = shift();
-    print FILE scalar( localtime() ) . "| $_\n";
-    print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);
-    close(FILE);
-}
-
-sub tpps($)
-{
-    open(FILE, ">>$TPPS_LOG") or return();
     $_ = shift();
     print FILE scalar( localtime() ) . "| $_\n";
     print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);