wpscripts/ztransfer/log.pm - diff - 1.5

Return to log.pm CVS log

Up to [local] / wpscripts / ztransfer

Diff for /wpscripts/ztransfer/log.pm between version 1.3 and 1.5

version 1.3, 2011/07/22 09:44:40

version 1.5, 2011/12/21 10:19:26

Line 9

Line 9

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

Line 57

Line 57

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($)

{

{