wpscripts/ztransfer/log.pm - diff

Return to log.pm CVS log

Up to [local] / wpscripts / ztransfer

version 1.2, 2011/07/20 07:44:51

version 1.4, 2011/08/30 08:30:42

Line 9

my $ZAYAVKI_LOG = "/var/log/wpscripts/ztransfer/zayavki.log";

my $JPEGS_LOG = "/var/log/wpscripts/ztransfer/jpegs.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 $FILE_LIST = "/var/log/wpscripts/ztransfer/FILES";

my $DIFFS_FILE = "/var/log/wpscripts/ztransfer/size_diffs.log";

Line 48

}

sub jpegs($)

sub probas($)

{

open(FILE, ">>$JPEGS_LOG") or return();

open(FILE, ">>$PROBAS_LOG") or return();

$_ = shift();

print FILE scalar( localtime() ) . "| $_\n";

print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);

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

print FILE scalar( localtime() ) . "| $_\n";

print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);