===================================================================
RCS file: /cvs/wpscripts/ztransfer/main.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.6
diff -u -r1.1.1.1 -r1.6
--- wpscripts/ztransfer/main.pl	2011/06/03 09:28:47	1.1.1.1
+++ wpscripts/ztransfer/main.pl	2011/12/21 10:19:26	1.6
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: main.pl,v 1.1.1.1 2011/06/03 09:28:47 yason Exp $
+# $Id: main.pl,v 1.6 2011/12/21 10:19:26 yason Exp $
 use db;
 use send;
 use fileops;
@@ -7,8 +7,8 @@
 use log;  # we need to critical log if remote host is down
 use hash;
 
-our $ZFILESERVER_IP = '192.168.12.2';
-our @ZMPOINTS	    = ('zV6', 'zV7', 'zV8');
+our $ZFILESERVER_IP = '192.168.16.1';
+our @ZMPOINTS	    = ('/mnt/rmt_maket');
 our $mpoint;
 
 # according to manual of Perl's function system(),
@@ -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 ( ! `/sbin/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,10 @@
 # XXX maybe not to keep connection while rar & copy ?
 db::connect();
 
-send::jpegs();
 send::zayavki();
 send::probas();
-send::tpps();
+send::tt();
+send::jpeg();
 
 db::disconnect();