Logfile::EPrints::Parser - Parse Web server logs that are formatted as one hit per line (e.g. Apache)

Logfile-EPrints documentation Contained in the Logfile-EPrints distribution.

Index

Code Index:

NAME

Top

Logfile::EPrints::Parser - Parse Web server logs that are formatted as one hit per line (e.g. Apache)

SYNOPSIS

Top

	use Logfile::EPrints::Parser;

	$p = Logfile::EPrints::Parser->new(
	  type=>'Logfile::EPrints::Hit::Combined',
	  handler=>$Handler
	);

	open my $fh, "<access_log" or die $!;
	$p->parse_fh($fh);
	close($fh);

METHODS

Top

new()

Create a new Logfile::Parser object with the following options:

	type - Optionally specify a class to parse log file lines with (defaults to ::CombinedLog)
	handler - Handler to call (see HANDLER CALLBACKS)

HANDLER CALLBACKS

Top

hit()
Logfile-EPrints documentation Contained in the Logfile-EPrints distribution. 
package Logfile::EPrints::Parser;

use Logfile::EPrints::Hit;
use POSIX qw/strftime/;

use strict;

sub new
{
	my ($class,%args) = @_;
	$args{type} ||= $args{parser};
	$args{type} ||= 'Logfile::EPrints::Hit::Combined';
	bless \%args, $class;
}

sub parse_fh
{
	my ($self,$fh) = @_;
	return unless my $handler = $self->{handler};

	my $hit;
	my $hit_class = $self->{type};
	while(<$fh>)
	{
		chomp($_);
		if( defined($hit = $hit_class->new($_)) ) {
			$handler->hit($hit);
		}
		else {
			Carp::carp("Error parsing: $_");
		}
	}
}

1;