version 1.1, 2011/06/03 09:28:47 |
version 1.4, 2011/08/30 08:30:42 |
|
|
|
|
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 $TT_LOG = "/var/log/wpscripts/ztransfer/tt.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 jpegs($) |
sub probas($) |
{ |
{ |
open(FILE, ">>$JPEGS_LOG") or return(); |
open(FILE, ">>$PROBAS_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); |
close(FILE); |
close(FILE); |
} |
} |
|
|
sub tpps($) |
sub tt($) |
{ |
{ |
open(FILE, ">>$TPPS_LOG") or return(); |
open(FILE, ">>$TT_LOG") or return(); |
$_ = shift(); |
|
print FILE scalar( localtime() ) . "| $_\n"; |
|
print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG); |
|
close(FILE); |
|
} |
|
|
|
|
|
sub probas($) |
|
{ |
|
open(FILE, ">>$PROBAS_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); |