Return to log.pm CVS log

Up to [local] / wpscripts / epickup

Annotation of wpscripts/epickup/log.pm, Revision 1.1.1.1

1.1       yason       1: #!/usr/bin/perl
                      2:
                      3: package log;
                      4:
                      5: our $DEBUG = 1;
                      6:
                      7: our $OPS_LOGFILE = "/var/log/epickup/epickup.log";
                      8: our $ERR_LOGFILE = "/var/log/epickup/errors.log";
                      9:
                     10: sub stdout($)
                     11: {
                     12:     my $mesg = shift;
                     13:
                     14:     print scalar(localtime()) . "| $mesg";
                     15: }
                     16:
                     17: sub put($)
                     18: {
                     19:     my $mesg = shift;
                     20:
                     21:
                     22:     open(FILE, ">>$OPS_LOGFILE") or return();
                     23:
                     24:     print FILE scalar( localtime() ) . "| $mesg\n";
                     25:     close(FILE);
                     26:
                     27:     print STDOUT scalar( localtime() ) . "| $mesg\n" if($DEBUG);
                     28: }
                     29: return(1);
                     30:
                     31:
                     32: sub err($)
                     33: {
                     34:     my $mesg = shift;
                     35:
                     36:
                     37:     open(FILE, ">>$ERR_LOGFILE") or return();
                     38:
                     39:     print FILE scalar( localtime() ) . "| $mesg\n";
                     40:     close(FILE);
                     41:
                     42:     print STDOUT scalar( localtime() ) . "| $mesg\n" if($DEBUG);
                     43: }
                     44: return(1);