version 1.1.1.1, 2011/06/03 09:28:47 |
version 1.3, 2011/07/22 09:44:40 |
|
|
|
|
my $DEBUG = 1; |
my $DEBUG = 1; |
|
|
my $MAIN_LOG = "/var/log/ztransfer/main.log"; |
my $MAIN_LOG = "/var/log/wpscripts/ztransfer/main.log"; |
my $ERROR_LOG = "/var/log/ztransfer/error.log"; |
my $ERROR_LOG = "/var/log/wpscripts/ztransfer/error.log"; |
my $ZAYAVKI_LOG = "/var/log/ztransfer/zayavki.log"; |
my $ZAYAVKI_LOG = "/var/log/wpscripts/ztransfer/zayavki.log"; |
my $JPEGS_LOG = "/var/log/ztransfer/jpegs.log"; |
my $JPEGS_LOG = "/var/log/wpscripts/ztransfer/jpegs.log"; |
my $PROBAS_LOG = "/var/log/ztransfer/probas.log"; |
my $PROBAS_LOG = "/var/log/wpscripts/ztransfer/probas.log"; |
my $TPPS_LOG = "/var/log/ztransfer/tpps.log"; |
my $TPPS_LOG = "/var/log/wpscripts/ztransfer/tpps.log"; |
my $CRITICAL_LOG = "/var/log/ztransfer/critical.log"; |
my $CRITICAL_LOG = "/var/log/wpscripts/ztransfer/critical.log"; |
my $FILE_LIST = "/var/log/ztransfer/FILES"; |
my $FILE_LIST = "/var/log/wpscripts/ztransfer/FILES"; |
my $DIFFS_FILE = "/var/log/ztransfer/size_diffs.log"; |
my $DIFFS_FILE = "/var/log/wpscripts/ztransfer/size_diffs.log"; |
my $CURRENT_FILE = "/var/log/ztransfer/FILE"; |
my $CURRENT_FILE = "/var/log/wpscripts/ztransfer/FILE"; |
my $CURRENT_ACTION = "/var/log/ztransfer/ACTION"; |
my $CURRENT_ACTION = "/var/log/wpscripts/ztransfer/ACTION"; |
|
|
|
|
# functions |
# functions |
|
|
sub zayavki($) |
sub zayavki($) |
{ |
{ |
open(FILE, ">>$ZAYAVKI_LOG") or return(); |
open(FILE, ">>$ZAYAVKI_LOG") or return(); |
$_ = shift(); |
|
print FILE scalar( localtime() ) . "| $_\n"; |
|
print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG); |
|
close(FILE); |
|
} |
|
|
|
|
|
sub jpegs($) |
|
{ |
|
open(FILE, ">>$JPEGS_LOG") or return(); |
|
$_ = shift(); |
|
print FILE scalar( localtime() ) . "| $_\n"; |
|
print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG); |
|
close(FILE); |
|
} |
|
|
|
sub tpps($) |
|
{ |
|
open(FILE, ">>$TPPS_LOG") or return(); |
|
$_ = shift(); |
$_ = shift(); |
print FILE scalar( localtime() ) . "| $_\n"; |
print FILE scalar( localtime() ) . "| $_\n"; |
print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG); |
print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG); |