Nagios :: Interfaccia Interazione runtime con Nagios
Scarica ora

Nagios :: Interfaccia Classifica e riepilogo

Nagios :: Interfaccia Tag

modulo Perl interfaccia perl Nagios interfaccia Nagios

Nagios :: Interfaccia Descrizione

Interazione di runtime con Nagios Nagios :: Interfaccia è un modulo perl per l'interazione di base con runtime di base con le istanze di Nagios 3. Non ci sono funzioni per analizzare o scrivere file di configurazione (ancora?), Ma può analizzare la maggior parte dei messaggi di file di file, oltre a scrivere messaggi di controllo e analizzare il file di stato per le ricevute di azioni che non hanno registrato nulla di utile.Synopsis usa Nagios :: Interfaccia; # Impostare un lettore di logfile che utilizza il file :: coda my $ logfile = nagios :: interfaccia :: logfile-> nuovo (coda => file :: coda-> nuovo (nome => "/ var / log / nagios3 / nagios .log ", maxinterval => 5, intervallo => 2, coda => 10,); # Leggi un messaggio, analizzalo e restituiscilo il mio $ log_message = $ $ logfile-> get_message; # o se ricevi le linee di file da qualche altra parte, passare a parse_logline $ log_message = $ $ logfile-> parse_logline ($ _); # I messaggi restituiti hanno ruoli per la comunione e le classi per il tipo. Stampa $ log_message-> host. " è " . ($ log_message-> su? "su": "giù"); Se $ log_message-> fa ("nagios :: interfaccia :: Alert :: host"); # Controllo tramite il file di controllo Nagios My $ Control = Nagios :: Interfaccia :: Control-> Nuovo (file filename => "/var/lib/nagios3/rw/nagios.cmd",); # Crea qualsiasi tipo di messaggio di registro da emettere come comando ... # Vedi Nagios :: Interfaccia :: Concretetipes per un elenco My $ svc_downtime = nagios :: interfaccia :: programservicedOwntime-> Nuovo (Begin => Time, End => tempo + 15 * 60, fisso => 1, autore => ($ env {logname} || $ env {utente} || (getpwuid ($ "Ecco un commento",); my $ entry_time = $ controllo-> ($ svc_downtime); # Lettura del registro di stato My $ Stato = Nagios :: Interfaccia :: Stato-> Nuovo (file filename => "/var/cache/nagios3/status.dat",); Sleep 1 while ((Stat $ stato-> nomefile) <$ issume_time); $ status-> Parse_File; My @blocks = grep {$ _--> {entry_time} == $ entry_time $ _-> {commento} eq "Ecco un commento", } $ Status-> get_blocks ("serviziowowntime"); Utilizzare Set :: Object QW (Set); My $ Downtime_ids = Set (mappa {$ _-> {Downtime_id}} @blocks)); Stampa "ID temporizzati: $ Downtime_ids \ n "; # ora annulla i tempi di fermo, per completare l'esempio $ Control-> Problema (Mappa {Nagios :: Interfaccia :: DeleteServiceDownTime-> Nuovo (Downtime_id => $ _)} $ Downtime_ids-> Membri); Requisiti: · Perl.

Nagios :: Interfaccia Software correlato