Nagios Support Forum

Code: Select all

#!/usr/bin/perl
use strict ;
use Nagios::Report ;
my $x = Nagios::Report->new(q<local_cgi localhost nagiosadmin>)
  or die "Can't construct Nagios::Report object." ;
$x->mkreport(
                [ qw(HOST_NAME PERCENT_TOTAL_TIME_UP) ],

                sub {
                        my %F = @_; my $u = $F{PERCENT_TOTAL_TIME_UP}; $u =~ s/%//;
                    },
                        0,

                sub {
                        my $F = shift @_ ;
                }
) ;
$x->debug_dump ;

Code: Select all

  #!/usr/bin/perl
    use strict ;
   
    use Nagios::Report ;
   
    my $x = Nagios::Report->new(
                         # Data source
                q<local_cgi localhost nagiosadmin>,
                         # Report period
                [ qw(24x7) ],
                         # Time period
                'last7days',
                         # Service report
                1,
                         # Pre-filter
                sub { my %F = @_; my $u = $F{PERCENT_TOTAL_TIME_OK}; $u =~ s/%//; $u < 100 }
                )
      or die "Can't construct Nagios::Report object." ;
   
    $x->mkreport(
          [
          qw(
              HOST_NAME
              PERCENT_TOTAL_TIME_OK
              DOWN
              UP
              OUTAGE
            )
          ],
   
          sub { my %F = @_; my $u = $F{PERCENT_TOTAL_TIME_OK}; $u =~ s/%//; $u < 100 },
   
          undef,
   
          undef,
   
          1,
   
    ) ;
   
    $x->debug_dump() ;