Annotation of wpscripts/epickup/log.pm, Revision 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);
CVSweb