Poe :: componente :: snmp interface PoE para NET :: SNMP
Baixe Agora

Poe :: componente :: snmp Classificação e resumo

Poe :: componente :: snmp Tag

Módulo Perl. perl Poe. Interface poe.

Poe :: componente :: snmp Descrição

Interface PoE para NET :: SNMP Poe :: Componente :: SNMP é uma interface PoE para net :: snmp.synopsis # Este script está incluído na distribuição como por exemplo / snmp_sample.pl Use PoE QW / Component :: SNMP /; 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 ',); meu @oids = valores% sistema; meu $ basta_oid = '.1.3.6.1.2.1.1'; # System. * Poe :: Session-> Create (Inline_States => {_start => _start, snmp_handler => snmp_handler,}); sub _start {my ($ kernel, $ heap) = @_ ; Poe :: Componente :: snmp-> Criar (alias => 'snmp', # mesmo que o nome do host padrão => 'localhost', comunidade => 'público', versão => 'snmpv2c', # Debug => 0x0a,) ; $ kernel-> post (snmp => get => snmp_handler => -varbindlist => @oids); # ... ou talvez ... $ kernel-> post (snmp => walk => snmp_handler => -baseoid => $ base_oid); # ... ou possivelmente até ... minhas @callback_args = (1, 2, 3); $ kernel-> post (snmp => getbulk => snmp_handler => -varbindlist => , -maxrepetitions => 6, -callback_args => @callback_args); $ heap -> {pendente} = 3; } sub snmp_handler {my ($ kernel, $ heap, $ pedido, $ Response) = @_ ; meu ($ alias, $ host, $ cmd, @args) = @ $ pedido; Meus (resultados $, @callback_args) = @ $ resposta; if (Ref $ Resultados) {Imprimir "$ host SNMP Config ($ cmd): "; Imprimir" SYSNAME: $ Resultados -> {$ SYSTEM {SYSNAME}} "; Imprimir" Sysuptime: $ Resultados -> {$ SYSTEM {SYSUPTIME}} "; Imprimir" Syslocation: $ Resultados -> {$ System {Syslocation}} ";} else {imprimir" $ host snmp error ($ cmd => @args): $ Resultados. ";} Imprimir" Args adicionais: @callback_args "; if (- $ heap -> {pendente} == 0) {$ kernel-> post ($ alias => 'acabamento');}} $ poe_kernel-> run (); # veja o EG / PASTA O arquivo de distribuição para mais requisitos de amostras: · Perl.

Poe :: componente :: snmp Software Relacionado