First page Back Continue Last page Overview Graphics
package AnyData::Format::ReaperLogs;
use base qw[AnyData::Format::Base];
sub new {
my $class = shift;
my $self = { %{+shift},
record_sep => "\n",
key => 'datestamp',
keep_first_line => 0
colnames => 'string,date,reason,action,action_value,user,cmd' };
return bless $self, $class;
}
Notes:
This is the top-half of the perl module that we wrote to get AnyData to read our logs.
It sets up a blessed hash with some useful information that AnyData will use when parsing the data file.