Return to log.pm CVS log

Up to [local] / wpscripts / epickup

Initial revision

#!/usr/bin/perl

package log;

our $DEBUG = 1;

our $OPS_LOGFILE = "/var/log/epickup/epickup.log";
our $ERR_LOGFILE = "/var/log/epickup/errors.log";

sub stdout($)
{
    my $mesg = shift;

    print scalar(localtime()) . "| $mesg";
}

sub put($)
{
    my $mesg = shift;


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

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

    print STDOUT scalar( localtime() ) . "| $mesg\n" if($DEBUG);
}
return(1);


sub err($)
{
    my $mesg = shift;


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

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

    print STDOUT scalar( localtime() ) . "| $mesg\n" if($DEBUG);
}
return(1);