wpscripts/ztransfer/main.pl - diff

Return to main.pl CVS log

Up to [local] / wpscripts / ztransfer

version 1.2, 2011/06/03 11:03:41

version 1.3, 2011/07/20 07:44:51

Line 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;

Line 22

fileops::cleanup();

if( ! network::alive( $ZFILESERVER_IP ) )

#if( ! network::alive( $ZFILESERVER_IP ) )

{

log::critical("$ZFILESERVER_IP is not reached by ICMP, considering host is down, EXITING");

# log::critical("$ZFILESERVER_IP is not reached by ICMP, considering host is down, EXITING");

# NOTREACHED

# # 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

Line 61

# XXX maybe not to keep connection while rar & copy ?

db::connect();

send::jpegs();

send::zayavki();

send::probas();

send::tpps();

db::disconnect();