lib/Nagios.pm
changeset 1 56ae2cc9eea9
child 2 bc2f76c0908a
equal deleted inserted replaced
0:1913267b812b 1:56ae2cc9eea9
       
     1 package Nagios;
       
     2 
       
     3 use strict;
       
     4 use warnings;
       
     5 
       
     6 sub UNKNOWN { 3 }
       
     7 sub CRITICAL { 2 }
       
     8 sub WARNING { 1 }
       
     9 sub OK { 0 }
       
    10 
       
    11 1;
       
    12 
       
    13 __END__
       
    14 
       
    15 =head1 NAME
       
    16 
       
    17     Nagios - nagios support perl module
       
    18 
       
    19 =head1 SYNOPSIS
       
    20 
       
    21     use Nagios;
       
    22 
       
    23     return NAGIOS::UNKNOWN;
       
    24     return NAGIOS::CRITICAL;
       
    25     return NAGIOS::WARNING;
       
    26     return NAGIOS::OK;
       
    27 
       
    28 =head1 CONSTANTS
       
    29 
       
    30 =head2 UNKNOWN()
       
    31 
       
    32 Returns the "unknown" status (3).
       
    33 
       
    34 =head2 CRITICAL()
       
    35 
       
    36 Returns the "critical" status (2).
       
    37 
       
    38 =head2 WARNING()
       
    39 
       
    40 Returns the "warning" status (1).
       
    41 
       
    42 =head2 OK()
       
    43 
       
    44 Returns the "OK" status (0).
       
    45 
       
    46 =cut