46 lines
1006 B
Perl
46 lines
1006 B
Perl
package My::parser::apache;
|
|
use strict;
|
|
use warnings;
|
|
use File::Tail 0.91;
|
|
use My::parser::apache_parser;
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
my $config = shift;
|
|
my $self = {};
|
|
bless ($self, $class);
|
|
|
|
$self->{'config'} = $config;
|
|
$self->{'parser'} = My::parser::apache_parser->new();
|
|
return $self;
|
|
}
|
|
|
|
sub parse {
|
|
my $self = shift;
|
|
my @result;
|
|
while(my $string = $self->fetch) {
|
|
last unless($string);
|
|
if (my $line = $self->{'parser'}->parser($string)) {
|
|
push(@result,$line);
|
|
}
|
|
}
|
|
return { retval => 0 } unless(scalar(@result)); # nothing to say, nothing to report
|
|
return { retval => 1, retmsg => 'Here comes the results', lines => \@result };
|
|
}
|
|
|
|
sub fetch {
|
|
my $self = shift;
|
|
my $fetcher = $self->{'config'}->get_fetcher('apache');
|
|
die "Fetcher for apache went away?" unless($fetcher);
|
|
my $line;
|
|
my ($nfound,$timeleft,@pending) = File::Tail::select(undef,undef,undef,1,$fetcher);
|
|
foreach (@pending) {
|
|
$line = $_->read;
|
|
chomp($line);
|
|
}
|
|
return 0 unless($line);
|
|
return $line;
|
|
}
|
|
|
|
1;
|