version 1.2, 2011/06/03 11:03:41 |
version 1.5, 2011/08/30 08:30:42 |
|
|
use log; # we need to critical log if remote host is down |
use log; # we need to critical log if remote host is down |
use hash; |
use hash; |
|
|
our $ZFILESERVER_IP = '192.168.12.2'; |
our $ZFILESERVER_IP = '192.168.16.1'; |
our @ZMPOINTS = ('rmt_maket'); |
our @ZMPOINTS = ('/mnt/rmt_maket'); |
our $mpoint; |
our $mpoint; |
|
|
# according to manual of Perl's function system(), |
# according to manual of Perl's function system(), |
|
|
fileops::cleanup(); |
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 ;) |
# 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 |
# Check mount table for remote mounts |
foreach $mpoint (@ZMPOINTS) |
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"); |
log::critical("$mpoint not mounted. I can't run without that one! EXITING"); |
# NOTREACHED |
# NOTREACHED |
|
|
# XXX maybe not to keep connection while rar & copy ? |
# XXX maybe not to keep connection while rar & copy ? |
db::connect(); |
db::connect(); |
|
|
send::jpegs(); |
|
send::zayavki(); |
send::zayavki(); |
send::probas(); |
send::probas(); |
send::tpps(); |
send::tt(); |
|
|
db::disconnect(); |
db::disconnect(); |
|
|