NAME
epylog - Perl5 module for writing perl modules for epylog.
SYNOPSIS
use epylog;# create a new epylog objectmy $du = new epylog;# initialize the object$du->init('modulename');# get a username from a userid$du->getuname(500);# get a hostname from an IP address$du->gethost('127.0.0.1');# find the system name in a standard syslog line$du->getsystem($syslogline);# get the value of an environment variable# first parameter is the name of the variable, second one is# the default value to return if the variable is undefined.$du->option('TMPDIR', '/tmp');# return the next available syslog line from the logs (LOGCAT)$du->nextline();# check if the logfile is EOF'd. Returns 0 if not yet.$du->islogeof();# add a string or an array of strings to the report (LOGREPORT)$du->pushrep('Report line');# add a syslog line entry to the list of analyzed and filtered# lines (LOGFILTER)$du->pushfilt($syslog_line);# intelligently output some debug information.# first parameter is level, second parameter is the string to output.# level 0 -- critical errors, always output# level 1 -- standard epylog execution, without "--quiet"# level 2> -- additional levels of verbosity.$du->mlog(1, 'Processing data');# return how many lines were added to the filter file (LOGFILTER)$du->filtsize();# return how many lines were added to the report file (LOGREPORT)$du->repsize();# make a pretty report header.$du->mkrephdr('NOTICED REBOOTS');# call this at the end of your module! It closes the filehandles and# writes out the report.$du->finalize();
AUTHORS
Konstantin Ryabitsev <[email protected]>Michael Stenner <[email protected]>Duke University Physics
REVISION
$Revision$
SEE ALSO
epylog(8), epylog_modules(5)