Return to main.pl CVS log

Up to [local] / wpscripts / ztransfer

Initial revision

#!/usr/bin/perl
# $Id: main.pl,v 1.1 2011/06/03 09:28:47 yason Exp $
use db;
use send;
use fileops;
use network;
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 $mpoint;

# according to manual of Perl's function system(),
# it is safer to autoflushing all out file disciptors
# cause of main process attempts to forcebly flush ones
# before any functions that may fork()
$| = 1;

fileops::check_lock();
fileops::take_lock();
fileops::cleanup();


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.");


# Check mount table for remote mounts
foreach $mpoint (@ZMPOINTS)
{
    if ( ! `/sbin/mount | /usr/bin/grep $mpoint`)
    {
		log::critical("$mpoint not mounted. I can't run without that one! EXITING");
		# NOTREACHED
    }
}
log::stdout("Remote filesystems are mounted. All checks passed.");


# load directory map and print some debug
$_ = hash::loadtable();
if ( $_ == -1)
{
    # error opening file
    
    log::stdout("Error opening $hash::HASHFILE (maps will not be used)");
}
else
{
    log::stdout("Using directory map file $hash::HASHFILE ($_ records)");
}


# XXX maybe not to keep connection while rar & copy ?
db::connect();

send::jpegs();
send::zayavki();
send::probas();
send::tpps();

db::disconnect();

fileops::release_lock();

#EOF