version 1.3, 2011/07/22 09:44:40 |
version 1.5, 2011/12/21 10:19:26 |
|
|
my $ZAYAVKI_LOG = "/var/log/wpscripts/ztransfer/zayavki.log"; |
my $ZAYAVKI_LOG = "/var/log/wpscripts/ztransfer/zayavki.log"; |
my $JPEGS_LOG = "/var/log/wpscripts/ztransfer/jpegs.log"; |
my $JPEGS_LOG = "/var/log/wpscripts/ztransfer/jpegs.log"; |
my $PROBAS_LOG = "/var/log/wpscripts/ztransfer/probas.log"; |
my $PROBAS_LOG = "/var/log/wpscripts/ztransfer/probas.log"; |
my $TPPS_LOG = "/var/log/wpscripts/ztransfer/tpps.log"; |
my $TT_LOG = "/var/log/wpscripts/ztransfer/tt.log"; |
my $CRITICAL_LOG = "/var/log/wpscripts/ztransfer/critical.log"; |
my $CRITICAL_LOG = "/var/log/wpscripts/ztransfer/critical.log"; |
my $FILE_LIST = "/var/log/wpscripts/ztransfer/FILES"; |
my $FILE_LIST = "/var/log/wpscripts/ztransfer/FILES"; |
my $DIFFS_FILE = "/var/log/wpscripts/ztransfer/size_diffs.log"; |
my $DIFFS_FILE = "/var/log/wpscripts/ztransfer/size_diffs.log"; |
|
|
close(FILE); |
close(FILE); |
} |
} |
|
|
|
sub tt($) |
|
{ |
|
open(FILE, ">>$TT_LOG") or return(); |
|
$_ = shift(); |
|
print FILE scalar( localtime() ) . "| $_\n"; |
|
print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG); |
|
close(FILE); |
|
} |
|
|
|
sub jpeg($) |
|
{ |
|
open(FILE, ">>$JPEGS_LOG") or return(); |
|
$_ = shift(); |
|
print FILE scalar( localtime() ) . "| $_\n"; |
|
print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG); |
|
close(FILE); |
|
} |
|
|
sub critical($) |
sub critical($) |
{ |
{ |