version 1.2, 2011/07/20 07:44:51 |
version 1.3, 2011/07/22 09:44:40 |
|
|
} |
} |
|
|
|
|
sub jpegs($) |
|
{ |
|
open(FILE, ">>$JPEGS_LOG") or return(); |
|
$_ = shift(); |
|
print FILE scalar( localtime() ) . "| $_\n"; |
|
print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG); |
|
close(FILE); |
|
} |
|
|
|
sub tpps($) |
|
{ |
|
open(FILE, ">>$TPPS_LOG") or return(); |
|
$_ = shift(); |
|
print FILE scalar( localtime() ) . "| $_\n"; |
|
print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG); |
|
close(FILE); |
|
} |
|
|
|
|
|
sub probas($) |
sub probas($) |
{ |
{ |
open(FILE, ">>$PROBAS_LOG") or return(); |
open(FILE, ">>$PROBAS_LOG") or return(); |