wpscripts/ztransfer/log.pm - diff

Return to log.pm CVS log

Up to [local] / wpscripts / ztransfer

Diff for /wpscripts/ztransfer/log.pm between version 1.1 and 1.6

version 1.1, 2011/06/03 09:28:47

version 1.6, 2012/04/01 06:52:10

Line 4

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 $ZJPEGS_LOG = "/var/log/wpscripts/ztransfer/z_jpegs.log";

my $PROBAS_LOG = "/var/log/ztransfer/probas.log";

my $PJPEGS_LOG = "/var/log/wpscripts/ztransfer/p_jpegs.log";

my $TPPS_LOG = "/var/log/ztransfer/tpps.log";

my $PROBAS_LOG = "/var/log/wpscripts/ztransfer/probas.log";

my $CRITICAL_LOG = "/var/log/ztransfer/critical.log";

my $TT_LOG = "/var/log/wpscripts/ztransfer/tt.log";

my $FILE_LIST = "/var/log/ztransfer/FILES";

my $CRITICAL_LOG = "/var/log/wpscripts/ztransfer/critical.log";

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

my $FILE_LIST = "/var/log/wpscripts/ztransfer/FILES";

my $CURRENT_FILE = "/var/log/ztransfer/FILE";

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

my $CURRENT_ACTION = "/var/log/ztransfer/ACTION";

my $CURRENT_FILE = "/var/log/wpscripts/ztransfer/FILE";

my $CURRENT_ACTION = "/var/log/wpscripts/ztransfer/ACTION";

# functions

Line 48

Line 49

}

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

{

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

$_ = shift();

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

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

close(FILE);

}

sub probas($)

sub pjpeg($)

{

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

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

$_ = shift();

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

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

close(FILE);

}

sub critical($)

{

CVSweb