File Coverage

blib/lib/Eidolon/Driver/Log/Basic.pm

Criterion	Covered	Total	%
statement	15	44	34.0
branch	0	10	0.0
condition	0	4	0.0
subroutine	5	12	41.6
pod	6	6	100.0
total	26	76	34.2

package Eidolon::Driver::Log::Basic;
# ==============================================================================
#
#   Eidolon
#   Copyright (c) 2009, Atma 7
#   ---
#   Eidolon/Driver/Log/Basic.pm - basic log driver
#
# ==============================================================================

use base qw/Eidolon::Driver::Log/;
use POSIX "strftime";
use Fcntl ":flock";
use warnings;
use strict;

our $VERSION = "0.01"; # 2008-09-26 23:21:32

# ------------------------------------------------------------------------------
# \% new($logs_dir, $file)
# constructor
# ------------------------------------------------------------------------------
sub new
{
    my ($class, $dir, $file, $self);

    ($class, $dir, $file) = @_;

    $self = $class->SUPER::new;

    # class attributes
    $self->{"dir"}    = $dir;
    $self->{"file"}   = $file || "system.log";
    $self->{"handle"} = undef;

    # check if log directory exists
    throw DriverError::Log::Directory($self->{"dir"}) if (!-d $self->{"dir"});

    return $self;
}

# ------------------------------------------------------------------------------
# open()
# open log
# ------------------------------------------------------------------------------
sub open
{
    my $self = shift;

    $self->close if ($self->{"handle"});

    open $self->{"handle"}, ">>$self->{'dir'}$self->{'file'}" or
        throw DriverError::Log::Open($self->{"dir"}.$self->{"file"});

    flock $self->{"handle"}, LOCK_EX;
}

# ------------------------------------------------------------------------------
# close()
# close log
# ------------------------------------------------------------------------------
sub close
{
    my $self = shift;

    if ($self->{"handle"})
    {
        flock $self->{"handle"}, LOCK_UN;
        close $self->{"handle"};
    }
}

# ------------------------------------------------------------------------------
# _write($level, $msg)
# write log
# ------------------------------------------------------------------------------
sub _write
{
    my ($self, $level, $msg, $r, $fh);

    ($self, $level, $msg) = @_;
    $r = Eidolon::Core::Registry->get_instance;

    $self->open;
    $fh = $self->{"handle"};

    printf $fh
    (
        "[ %s ]\t%s\t%s\t%s\n",
        strftime("%Y-%m-%d %H:%M:%S", localtime),
        $r->cgi->get_query || "/",
        $level,
        $msg ? $msg : "-"
    );

    $self->close;
}

# ------------------------------------------------------------------------------
# notice($msg)
# notice
# ------------------------------------------------------------------------------
sub notice
{
    my ($self, $msg) = @_;

    $self->_write("notice", $msg);
}

# ------------------------------------------------------------------------------
# warning($msg)
# warning
# ------------------------------------------------------------------------------
sub warning
{
    my ($self, $msg) = @_;

    $self->_write("warning", $msg);
}

# ------------------------------------------------------------------------------
# error($msg)
# error
# ------------------------------------------------------------------------------
sub error
{
    my ($self, $msg) = @_;

    $self->_write("error", $msg);
}

1;

__END__