PoE :: Component :: SNMP POE-interface naar NET :: SNMP
Download nu

PoE :: Component :: SNMP Rangschikking & Samenvatting

PoE :: Component :: SNMP Tags

Perl-module perl Poe POE-interface

PoE :: Component :: SNMP Beschrijving

POE-interface naar NET :: SNMP PoE :: Component :: SNMP is een POE-interface naar NET :: SNMP.SYNOPSIS # Dit script is opgenomen in de distributie als bijv. / SNMP_Sample.pl POE QW / COMPONTENT :: SNMP /; My% -systeem = (sysuptime => '.1.3.6.1.2.1.1.3.3.6.1.2.1.1.3.0', sysname => '.1.3.6.1.2.1.1.5.0', syslocatie => '.1.3.6.1.2.1.1.6. 0 ',); mijn @oïden = waarden% systeem; mijn $ base_oid = '.1.3.6.1.2.1.1'; # Systeem. * PoE :: Session-> Maken (Inline_states => {_start => _start, SNMP_HANDLER => SNMP_HANDER,}); sub _start {mijn ($ kernel, $ heap) = @_ ; PoE :: component :: SNMP-> Maken (alias => 'SNMP', # hetzelfde als standaard hostName => 'localhost', gemeenschap => 'publiek', versie => 'SNMPV2C', # debug => 0x0a,) ; $ kernel-> post (SNMP => GET => SNMP_HANDLER => -Varbindlijst => @oids); # ... of misschien ... $ Kernel-> Post (SNMP => Walk => SNMP_HANDLER => -Baseoid => $ BASE_OID); # ... of mogelijk zelfs ... mijn @callback_args = (1, 2, 3); $ kernel-> post (SNMP => Getbulk => SNMP_HANDLER => -Varbindlist => , -MaxRepetitions => 6, -callback_args => @Callback_Args); $ heap -> {in behandeling} = 3; } Sub SNMP_HANDLER {MY ($ kernel, $ heap, $ aanvraag, $ reactie) = @_ ; mijn ($ alias, $ host, $ cmd, @args) = @ $ verzoek; mijn ($ resultaten, @callback_args) = @ $ reactie; if (ref $-resultaten) {print "$ HOST SNMP-configuratie ($ cmd): ", print" sysname: $ resultaten -> {$ -systeem {sysname}} "; Print" Sysuptime: $ Resultaten -> {$ System {sysuptime}} ", print" syslocatie: $ resultaten -> {$ systeem {syslocatie}} ";} anders {print" $ host SNMP-fout ($ cmd => @args): $ resultaten ";} Print" Extra Args: @Callback_Args "; if (- $ heap -> {in behandeling} == 0) {$ kernel-> post ($ alias => 'finish');}} $ poe_kernel-> run (); # Zie de EG / map in Het distributiearchief voor meer monstersvereisten: · Perl

PoE :: Component :: SNMP Gerelateerde software