Poe :: Bauteil :: SNMP PoE-Schnittstelle zu net :: snmp
Jetzt downloaden

Poe :: Bauteil :: SNMP Ranking & Zusammenfassung

Poe :: Bauteil :: SNMP Stichworte

Perl-Modul Perl Piepen Poe-Schnittstelle

Poe :: Bauteil :: SNMP Beschreibung

Poe-Schnittstelle zu net :: snmp PoE: MY% SYSTEM = (SYSUPTIME => '.1.3.6.1.2.1.1.3.0', Sysname => '.1.3.6.1.2.1.1.5.0', SYSLOCATION => '.1.3.6.1.2.1.1.6. 0 ',); Mein @oids = Werte% System; mein $ base_oid = '.1.3.6.1.2.1.1'; # System. * PoE :: session-> erstellen (inline_starts => {_start => _start, snmp_handler => snmp_handler,}); SUB _START {MY ($ KERNEL, $ Heap) = @_ ; Poe :: Bauteil :: SNMP-> Erstellen (Alias => 'SNMP', # identifiziert wie Standard-Hostname => 'localhost', community => öffentlich ', Version =>' snmpv2c ', # debug => 0x0a,) ; $ Kernel-> Post (SNMP => GET => snmp_handler => -varbindlist => @oids); # ... oder vielleicht ... $ kernel-> post (snmp => walk => snmp_handler => -basoid => $ base_oid); # ... oder möglicherweise sogar ... mein @callback_args = (1, 2, 3); $ kernel-> post (snmp => getBulk => snmp_handler => -varbindlist => , -maxrepetitions => 6, -callback_args => @callback_args); $ heap -> {ausstehend} = 3; } SUB SNMP_HANDLER {MY ($ KERNEL, $ Heap, $ Anfrage, $ Antwort) = @_ ; mein ($ alias, $ host, $ cmd, @args) = @ $ Anfrage; meine ($ Ergebnisse, @callback_args) = @ $ Antwort; if (REF $ -Ergebnisse) {drucken "$ host snmp config ($ cmd): "; drucken" sysname: $ Ergebnisse -> {$ system {sysname}} "; drucken" sysuptime: $ Ergebnisse -> {$ system {sysucuptime}} "; drucken" SYSLOCATE: $ Ergebnisse -> {$ system {sysLocation}} ";} else {drucken" $ host snmp-Fehler ($ cmd => @args): $ Ergebnisse ";} drucken" Zusätzliche Args: @callback_args "; if (- $ heap -> {anstehende} == 0) {$ kernel-> post ($ alias => 'Finish');}} $ poe_kernel-> run (); # siehe zB / Ordner in Das Vertriebsarchiv für mehr Probenanforderungen: · Perl.

Poe :: Bauteil :: SNMP Zugehörige Software