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