Nagios::Interface 0.01

Nagios::Interface is a Perl module for basic run-time interaction with Nagios 3 instances. There are no functions to parse or write configuration files (yet?), but it can parse most logfile messages, as well as write control messages and parse the status file for receipts of actions that did not log anything useful.<br /><br />SYNOPSIS<br /><br /> use Nagios::Interface;<br /><br /> # set up a logfile reader which uses File::Tail<br /> my $logfile = Nagios::Interface::Logfile->new(<br /> tail => File::Tail->new(<br /> name => "/var/log/nagios3/nagios.log",<br /> maxinterval => 5,<br /> interval => 2,<br /> tail => 10,<br /> ),<br /> );<br /><br /> # read a message, parse it and return it<br /> my $log_message = $logfile->get_message;<br /><br /> # or if you get loglines from somewhere else, pass to parse_logline<br /> $log_message = $logfile->parse_logline($_);<br /><br /> # returned messages have roles for commonality and classes for type.<br /> print $log_message->host . " is " .<br /> ($log_message->up ? "UP" : "DOWN");<br /> if $log_message->does("Nagios::Interface::Alert::Host");<br /><br /> # controlling via the nagios control file<br /> my $control = Nagios::Interface::Control->new(<br /> filename => "/var/lib/nagios3/rw/nagios.cmd",<br /> );<br /><br /> # make any kind of log message to issue as a command...<br /> # see Nagios::Interface::ConcreteTypes for a list<br /> my $svc_downtime = Nagios::Interface::ScheduleServiceDowntime->new(<br /> begin => time,<br /> end => time + 15 * 60,<br /> fixed => 1,<br /> author => ($ENV{LOGNAME}||$ENV{USER}||(getpwuid($ "here's a comment",<br /> );<br /> my $entry_time = $control->issue($svc_downtime);<br /><br /> # reading the status log<br /> my $status = Nagios::Interface::Status->new(<br /> filename => "/var/cache/nagios3/status.dat",<br /> );<br /><br /> sleep 1 while ( (stat $status->filename)[9] < $issue_time );<br /> $status->parse_file;<br /><br /> my @blocks = grep {<br /> $_->{entry_time} == $entry_time &&<br /> $_->{comment} eq "here's a comment",<br /> } $status->get_blocks("servicedowntime");<br /><br /> use Set::Object qw(set);<br /> my $downtime_ids = set( map { $_->{downtime_id} } @blocks) );<br /> print "Downtime IDs: $downtime_ids\n";<br /><br /> # now cancel the downtime, to complete the example<br /> $control->issue(<br /> map {<br /> Nagios::Interface::DeleteServiceDowntime->new(<br /> downtime_id => $_<br /> )<br /> } $downtime_ids->members<br /> );[left][/left]

Requirements:	No special requirements
Platforms:	*nix, Linux
Keyword:	Blocks,  Commentquot,  Control,  Controlgtissuesvc Downtime,  Entry Time,  Filename,  Issue,  Log Message,  Logfile,  Message,  Messages,  Nagiosinterface,  Nagiosinterfacestatusgtnew,  Parse,  Print,  Quothere,  Quotvarcachenagios Statusdatquot,  Reading,  Status,  Write
Users rating:	0/10