Logfile::EPrints::Filter::Period - Logfile::EPrints::Filter::Period documentation

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

Index

Code Index:

NAME

Top

Logfile::EPrints::Filter::Period

DESCRIPTION

Top

Filter hits for a given time period (given as yyyymmddHHMMSS).

METHODS

Top

new(%opts)
	after=>20040320145959
		only include records I<after> this datetime
	before=>20040320160000
		only include records I<before> this datetime
Logfile-EPrints documentation Contained in the Logfile-EPrints distribution. 
package Logfile::EPrints::Filter::Period;

use vars qw( $AUTOLOAD );

sub new {
	my ($class,%self) = @_;
	bless \%self, ref($class) || $class;
}

sub AUTOLOAD
{
	$AUTOLOAD =~ s/^.*:://;
	return if $AUTOLOAD =~ /[A-Z]$/;
	my ($self,$hit) = @_;
	return if defined($self->{after}) && $hit->datetime <= $self->{after};
	return if defined($self->{before}) && $hit->datetime >= $self->{before};
	$self->{handler}->$AUTOLOAD($hit);
}

1;