Nagios :: Interface Runtime-interactie met Nagios
Download nu

Nagios :: Interface Rangschikking & Samenvatting

Nagios :: Interface Tags

Perl-module koppel perl Nagios Nagios-interface

Nagios :: Interface Beschrijving

Runtime-interactie met Nagios Nagios :: Interface is een Perl-module voor basisrun-time-interactie met Nagios 3-exemplaren. Er zijn geen functies om te ontleden of configuratiebestanden (al te schrijven (al), maar het kan de meeste logfile-berichten parseren, evenals schrijfbesturingsberichten en het parse van het statusbestand voor acties van acties die niets nuttigs zijn. Synopsis Gebruik Nagios :: Koppel; # Stel een logfile-lezer in die bestand gebruikt :: Staart Mijn $ LogFile = Nagios :: Interface :: LogFile-> Nieuw (Tail => Bestand :: Staart-> NIEUW (NAAM => "/ VAR / LOG / NAGIOS3 / NAGIOS . LOG ", MAXInterval => 5, interval => 2, staart => 10,),); # Lees een bericht, verminder het en stuur het terug mijn $ log_message = $ logfile-> get_Message; # of als u loglines krijgt van ergens anders, passeer dan naar parse_logline $ log_message = $ logfile-> parse_logline ($ _); # Geretourneerde berichten hebben rollen voor gemeenschappelijkheid en klassen voor het type. Print $ Log_Message-> Host. " is " . ($ log_message-> omhoog? "omhoog": "naar beneden"); Als $ log_message-> doet ("Nagios :: Interface :: Alert :: Host"); # Besturing via het Nagios-besturingsbestand My $ Control = Nagios :: Interface :: Control-> Nieuw (bestandsnaam => "/Var/lib/nagios3/rw/nagios.cmd",); # Maak elke vorm van logbericht als een opdracht ... # Zie Nagios :: Interface :: Concretetypes voor een lijst My $ SVC_DOWTION = Nagios :: Interface :: Scheduleservicedowntime-> NIEUW (BEGIN => TIJD, END => Tijd + 15 * 60, vast => 1, auteur => ($ ENV {Logname} || $ ENV {Gebruiker} || (GETPWUID ($ "Hier is een reactie",); mijn $ Entry_Time = $ Control-> Probleem ($ svc_dowtime); # Het lezen van de statuslog Mijn $ Status = Nagios :: Interface :: Status-> Nieuw (bestandsnaam => "/Var/cache/nagios3/status.dat",); Slaap 1 TERUG ((stat $ Status-> bestandsnaam) <$ nummernummer); $ status-> Parse_File; My @blocks = grep {$ _-> {entry_time} == $ Entry_time $ _-> {comment} eq "Hier is een opmerking", } $ Status-> GET_BLOCKS ("ServiceDime"); Gebruik Set :: Object QW (SET); My $ Downtime_ids = Set (kaart {$ _-> {downtime_id}} @blocks)); Print "Downtime IDS: $ Downtime_ids \ n "; # annuleer nu de downtime, om het exemplaar van het voorbeeld $ CONTROLE->] te voltooien (Kaart {Nagios :: Interface :: Deleteservicedowntime-> NIEUW (DUMPLICENT_ID => $ _)} $ DUITTERTIJD_ID-> Leden); Vereisten: · Perl

Nagios :: Interface Gerelateerde software