MMAgic/Log/Parser/Apache.pm

Go to the documentation of this file.

package MMAgic::Log::Parser::Apache;
#
# MMAgic/Log/Parser/Apache.pm
#
#   Parser for normal Apache log files.
#

use     UNIVERSAL   qw(isa);

use     MMAgic::Log;
use     MMAgic::Log::Parser;
use     MMAgic::Trace;

@ISA    = qw(MMAgic::Log::Parser);

#!# Log->trace('Loading class ', __PACKAGE__);

###########################################################################
###########################################################################
sub parse   # $self, $line [, $unrec ]
#
    {
    my  $self = shift;
#!# my  $auto = Log->method(@_)->block;
    my  $line = shift;
    my  $flag = '?';
    my  $date = undef;
    
    if ($line =~ /^\s*\[([^\[\]]*)\]\s*\[([a-zA-Z]*)\]\s*(.*)$/)
        {
        $date = $1;
        $flag = $2 eq 'notice' ? 'I' :
                $2 eq 'warn'   ? 'W' :
                $2 eq 'error'  ? 'E' : '?';
        $line = $3;
        
        if ($date =~ m|[\S]+\s+(\S+)\s+(\d+)\s+(\d+):(\d+):(\d+)\s+(\d+)|)
            {
            # Try to avoid using the Date::Manip functions (they're slow):
            $date = $self->makeTime($date, $5, $4, $3, $2, $1, $6);
            }
        
        else
            {
            # Oh, well, better to go for it slowly than not at all:
            $date = $self->makeTime($date);
            }
        
        Log->warning('Unknown flag on Apache line:  ', $2) if $flag eq '?';
        }
    
    elsif ($line =~ /Apache server shutdown initiated.../)
        {
        $date = $self->lastDate;
        $flag = 'C';
        }
    
    elsif ($line =~ /Failed loading.*No such file or directory/)
        {
        $date = $self->lastDate;
        $flag = 'E';
        }
    
    else
        {
        if (my $unrec = shift())
            {
            $unrec->warning('Unrecognizable Apache ', $self->name,
                           " line:\n  ", $line);
            }
        
        return $self->SUPER::parse($line, $unrec);
        }
    
#   Log->warning('No Apache date from ', $self->name),
    $date = $self->lastDate
        unless int($date);
    
    $flag = 'I'
        if $line =~ /FastCGI.*started/
        or $line =~ /FastCGI.*terminated/;
    
    ( $date, $flag, $line )
    }

1