# -*-perl-*-

# $Id: Nagios.pm,v 1.6 2008/06/10 20:20:51 craft Exp $

# Provide all necessary functions for creating and running Nagios confs

=head1 NAME

Nagios - Generic nagios perl module

=cut

package Nagios;

use strict;

BEGIN {
    use Exporter    ();
    use vars        qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $runtimedir);

    $VERSION        = do { my @r = (q$Revision: 1.6 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
    @ISA            = qw(Exporter);
    @EXPORT         = qw();
    %EXPORT_TAGS    = ();

    @EXPORT_OK      = qw($TIMEOUT %ERRORS $csldir $nagioscfg);

    $0 =~ m/^(.*?)[\/\\][^\/\\]+$/;
    $runtimedir = $1;
}

use vars @EXPORT_OK;

#use lib $main::runtimedir;
use lib "/s/nagios/perl5";
use csl_utils qw($TIMEOUT %ERRORS);

$csldir = "/s/nagios-csl-0.3";
$nagioscfg = "$csldir/config/cslhosts.cfg";

1;

