PoE :: Component :: SNMP.

POEインタフェースへのNet :: SNMP
今すぐダウンロード

PoE :: Component :: SNMP. ランキングとまとめ

広告

  • Rating:
  • ライセンス:
  • Perl Artistic License
  • 価格:
  • FREE
  • 出版社名:
  • Rob Bloodgood
  • 出版社のWebサイト:
  • http://search.cpan.org/rdb/

PoE :: Component :: SNMP. タグ


PoE :: Component :: SNMP. 説明

Net :: SNMPへのPoEインタフェース PoE :: Component :: SNMPはNet :: SNMP.Synopsisへの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 '、）; My @OIDS =値％システム。 My $ base_oid = '.1.3.6.1.2.1.1'; ＃システム。* POE :: Session-> Create（inline_states => {_start => _start、snmp_handler => snmp_handler、}）。サブ_start {My（$カーネル、$ヒープ）= @_ ; POE :: Component :: SNMP-> CREATE（エイリアス=> 'SNMP'、＃デフォルトホスト名=> 'localhost'、community => 'public'、version => 'snmpv2c'、＃debug => 0x0a、） ; $ kernel-> post（snmp => get => snmp_handler => -varbindlist => @oids）。 ＃...または多分... $ kernel-> post（snmp => walk => snmp_handler => -basoid => $ base_oid）; ＃...またはおそらくさえ...私の@ callback_args =（1,2,3）; $ kernel-> post（snmp => getBulk => snmp_handler => 、-maxRepetitions => 6、-callback_args => @ callback_args）; $ HEAP - > {pending} = 3; sub snmp_handler {My（$ kernel、$ heap、$ request、$ Response）= @_ ; My（$エイリアス、$ HOST、$ CMD、@ARGS）= @ $ REQUEST; My（$ results、@callback_args）= @ $ RESPOUSE。 （REF $ respoles）{印刷 "$ host snmp config（$ cmd）： ";印刷" sysname：$ results - > {$ system {sysname}} ";印刷" sysuptime：$ results - > {$ system {sysuptime}} "; print" syslocation：$ results - > {$ system {syslocation}} "} else {印刷" $ host snmpエラー（$ cmd => @args）： $結果 ";}追加の引数：@callback_argsを印刷します 「;（ - $ heap - > {保留} == 0）{$ kernel-> post（$ alias => 'finish'）;}}}}}}}}}}}}} run（）;より多くのサンプル要件のための配布アーカイブ： ・Perl


PoE :: Component :: SNMP. 関連ソフトウェア

私たちに関しては