version 1.5, 2011/12/21 10:19:26 |
version 1.6, 2012/04/01 06:52:10 |
|
|
my $MAIN_LOG = "/var/log/wpscripts/ztransfer/main.log"; |
my $MAIN_LOG = "/var/log/wpscripts/ztransfer/main.log"; |
my $ERROR_LOG = "/var/log/wpscripts/ztransfer/error.log"; |
my $ERROR_LOG = "/var/log/wpscripts/ztransfer/error.log"; |
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 $ZJPEGS_LOG = "/var/log/wpscripts/ztransfer/z_jpegs.log"; |
|
my $PJPEGS_LOG = "/var/log/wpscripts/ztransfer/p_jpegs.log"; |
my $PROBAS_LOG = "/var/log/wpscripts/ztransfer/probas.log"; |
my $PROBAS_LOG = "/var/log/wpscripts/ztransfer/probas.log"; |
my $TT_LOG = "/var/log/wpscripts/ztransfer/tt.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"; |
|
|
close(FILE); |
close(FILE); |
} |
} |
|
|
sub jpeg($) |
sub zjpeg($) |
{ |
{ |
open(FILE, ">>$JPEGS_LOG") or return(); |
open(FILE, ">>$ZJPEGS_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 pjpeg($) |
|
{ |
|
open(FILE, ">>$PJPEGS_LOG") or return(); |
|
$_ = shift(); |
|
print FILE scalar( localtime() ) . "| $_\n"; |
|
print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG); |
|
close(FILE); |
} |
} |
|
|
sub critical($) |
sub critical($) |