Jak wydrukować Procent Nagios Usługa Czas od Nagios raporcie Perl

Question

mogę wydrukować Host Czas odsetek od Nagios-Report Perl Module z następującego kodu:

#!/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 ; 

ale jak tylko mogę wydrukować usługi Procentowy udział czasu? Mam na myśli tylko wyprowadzanie wartości procentowej.

Próbowałem wielu opcji, ale nie mogłem tego naprawić.

Answer 1

Spowoduje to wygenerowanie raportu o czasie usługi, ale w jaki sposób mogę pobrać wartość procentową czasu w górę zamiast pełnego raportu?

#!/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() ;