MMAgic/Log/Parser/Apache/Transfer.pm

Go to the documentation of this file.

package MMAgic::Log::Parser::Apache::Transfer;
#
# MMAgic/Log/Parser/Apache/Transfer.pm
#
#   Parser for normal Apache transfer 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  $date = undef;
    
    if ($line =~ /^\s*([^\[\]]*)\s*\[([^\[\]]*)\]\s*(.*)$/)
        {
        $date = $2;
        $line = "$1 $3";
        
        if ($date =~ m|(\d{1,2})/([^/]+)/(\d{2,4}):(\d{1,2}):(\d{1,2}):(\d{1,2})|)
            {
            # Try to avoid using the Date::Manip functions (they're slow):
            $date = $self->makeTime($date, $6, $5, $4, $1, $2, $3);
            }
        
        else
            {
            # Oh, well, better to go for it slowly than not at all:
            $date = $self->makeTime($date);
            }
        }
    
    else
        {
        if (my $unrec = shift())
            {
            $unrec->warning
                ('Unrecognizable Apache Transfer ', $self->name,
                " line:\n  ", $line);
            }
        
        return $self->SUPER::parse($line, $unrec);
        }
    
#   Log->warning('No Apache Transfer date from ', $self->name),
    $date = $self->lastDate
        unless int($date);
    
    ( $date, 'X', $line )
    }

1