File Coverage

blib/lib/WE_Frontend/Logger.pm

Criterion	Covered	Total	%
statement	9	27	33.3
branch	0	12	0.0
condition	0	2	0.0
subroutine	3	5	60.0
pod	2	2	100.0
total	14	48	29.1

# -*- perl -*-

#
# $Id: Logger.pm,v 1.5 2004/03/08 10:43:58 eserte Exp $
# Author: Slaven Rezic
#
# Copyright (C) 2002 Slaven Rezic. All rights reserved.
#
# Mail: [e-mail]
#

package WE_Frontend::Logger;

use strict;
use vars qw($logfile);
use vars qw($VERSION);
$VERSION = sprintf("%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/);

sub setup {
    my(%args) = @_;
    if (exists $args{-logfile}) {
	$logfile = delete $args{-logfile};
    }
    if (keys %args) {
	die "Unrecognized " . __PACKAGE__ . "::setup switches: " . join(", ", keys %args);
    }
}

sub user {
    my($we, $type) = @_;
    $type = "login" if !defined $type;
    my $user = (ref $we ? $we->CurrentUser : $we);
    my $date = scalar localtime time;
    my $host = $ENV{REMOTE_ADDR} || "unknwon";
    my $line = "$0: $type user " . $user . " at $date from $host\n";
 TRY: {
	last if !defined $logfile;
	last if !open(LOG, ">>$logfile");
	print LOG $line;
	close LOG;
	return;
    }

    print STDERR $line;
}

1;

__END__