===================================================================
RCS file: /cvs/wpscripts/ztransfer/main.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- wpscripts/ztransfer/main.pl	2011/06/03 11:03:41	1.2
+++ wpscripts/ztransfer/main.pl	2011/07/20 07:44:51	1.3
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: main.pl,v 1.2 2011/06/03 11:03:41 yason Exp $
+# $Id: main.pl,v 1.3 2011/07/20 07:44:51 yason Exp $
 use db;
 use send;
 use fileops;
@@ -7,7 +7,7 @@
 use log;  # we need to critical log if remote host is down
 use hash;
 
-our $ZFILESERVER_IP = '192.168.12.2';
+our $ZFILESERVER_IP = '192.168.16.1';
 our @ZMPOINTS	    = ('rmt_maket');
 our $mpoint;
 
@@ -22,20 +22,20 @@
 fileops::cleanup();
 
 
-if( ! network::alive( $ZFILESERVER_IP ) )
-{
-    log::critical("$ZFILESERVER_IP is not reached by ICMP, considering host is down, EXITING");
-    # NOTREACHED
-}
+#if( ! network::alive( $ZFILESERVER_IP ) )
+#{
+#    log::critical("$ZFILESERVER_IP is not reached by ICMP, considering host is down, EXITING");
+#    # NOTREACHED
+#}
 
 # it seems like remote host is up and running ;)
-log::stdout("$ZFILESERVER_IP is alive, this is good.");
+#log::stdout("$ZFILESERVER_IP is alive, this is good.");
 
 
 # Check mount table for remote mounts
 foreach $mpoint (@ZMPOINTS)
 {
-    if ( ! `/bin/mount | /usr/bin/grep $mpoint`)
+    if ( ! `/bin/mount | /bin/grep $mpoint`)
     {
 		log::critical("$mpoint not mounted. I can't run without that one! EXITING");
 		# NOTREACHED
@@ -61,10 +61,8 @@
 # XXX maybe not to keep connection while rar & copy ?
 db::connect();
 
-send::jpegs();
 send::zayavki();
 send::probas();
-send::tpps();
 
 db::disconnect();