I've been working on Nagios::Object, a set of perl modules for parsing and working with Nagios objects in perl. The first cut of this module is available at
http://www.tobert.org/perl/Nagios-Object-0.01.tar.gz.
If you don't know what Nagios is, visit http://www.nagios.org.
There are three modules in the distribution (for now):
Nagios::Object - represent Nagios objects as perl objects
Nagios::Object::Config - parse Nagios object configs
Nagios::StatusLog - parse Nagios status logs
Some possible modules in the future:
Nagios::Default - parse files like nagios.cfg (this one will be in version 0.02)
DBD::Nagios - DBI/SQL interface to the Nagios configuration
Nagios::HTML - HTML widgets for Nagios configuration & statuses
My hope is that as time goes by, these modules make it possible to rewrite the Nagios CGIs in perl. I also plan on looking at making the backend of Nagios::Object be able to read Nagios v2's DBM cache or even get it directly from Nagios via SHM or something crazy like that.
All (451) of my tests succeed on my Linux laptop, but I'd like for some of you out there to beat on it and let me know what you think. I'm planning on posting version 0.02 to CPAN this weekend if I get some feedback.