File Coverage

blib/lib/OpenInteract2/Log.pm

Criterion	Covered	Total	%
statement	12	38	31.5
branch	0	6	0.0
condition	0	3	0.0
subroutine	4	10	40.0
pod	0	4	0.0
total	16	61	26.2

package OpenInteract2::Log;

# $Id: Log.pm,v 1.8 2005/03/18 04:09:48 lachoy Exp $

use strict;
use base qw( Exporter );
use Log::Log4perl qw( :levels get_logger );
use Log::Log4perl::Appender;

@OpenInteract2::Log::EXPORT_OK = qw( uchk );
$OpenInteract2::Log::VERSION = sprintf("%d.%02d", q$Revision: 1.8 $ =~ /(\d+)\.(\d+)/);


# Create a logging message by treating the first argument as a sprintf
# string and the remainder of the arguments as the parameters to set,
# each of which will be undef-tested before processing

sub uchk {
    my ( $msg, @args ) = @_;
    return sprintf( $msg, map { ( defined $_ ) ? $_ : '' } @args );
}

my $DEFAULT_LEVEL     = $WARN;
my $DEFAULT_CONF_FILE = 'log4perl.conf';

sub init_from_website {
    my ( $class, $website_dir ) = @_;
    if ( -d $website_dir ) {
        my $conf_file = File::Spec->catfile(
                              $website_dir, 'conf', $DEFAULT_CONF_FILE );
        Log::Log4perl::init( $conf_file );
        return get_logger();
    }
    else {
        return $class->init_screen;
    }
}

sub init_file {
    my ( $class, $file, $level ) = @_;
    unless ( $file ) {
        return $class->init_screen( $level );
    }
    my $appender = Log::Log4perl::Appender->new(
                         'Log::Log4perl::Appender::File',
                         filename  => $file,
                         mode      => 'append',
                         autoflush => 1 );
    return $class->_create_with_appender( $appender, $level );
}

sub init_screen {
    my ( $class, $level ) = @_;
    my $appender = Log::Log4perl::Appender->new(
                         'Log::Log4perl::Appender::Screen' );
    return $class->_create_with_appender( $appender, $level );
}


sub _create_with_appender {
    my ( $class, $appender, $level ) = @_;
    $level ||= $DEFAULT_LEVEL;
    $appender->layout( $class->_get_default_layout() );
    my $log = Log::Log4perl->get_logger( '' );
    $log->level( $level );
    $log->add_appender( $appender );
    return $log;
}

sub _get_default_layout {
    require Log::Log4perl::Layout::PatternLayout;
    return Log::Log4perl::Layout::PatternLayout->new( "%d{HH:mm:ss} %p %c %C (%L) %m %n");
}

1;

__END__