===================================================================
RCS file: /cvs/wpscripts/ztransfer/log.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- wpscripts/ztransfer/log.pm	2011/08/30 08:30:42	1.4
+++ wpscripts/ztransfer/log.pm	2011/12/21 10:19:26	1.5
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: log.pm,v 1.4 2011/08/30 08:30:42 yason Exp $
+# $Id: log.pm,v 1.5 2011/12/21 10:19:26 yason Exp $
 package log;
 
 my $DEBUG = 1;
@@ -66,6 +66,14 @@
     close(FILE);
 }
 
+ sub jpeg($) 	 
+ { 	 
+     open(FILE, ">>$JPEGS_LOG") or return(); 	 
+     $_ = shift(); 	 
+     print FILE scalar( localtime() ) . "| $_\n"; 	 
+     print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG); 	 
+     close(FILE); 	 
+ }
 
 sub critical($)
 {