POE :: Component :: SNMP بواجهة POE إلى Net :: SNMP
التحميل الان

POE :: Component :: SNMP الترتيب والملخص

POE :: Component :: SNMP العلامات

الوحدة النمطية بيرل بيرل بوي واجهة POE

POE :: Component :: SNMP وصف

بواجهة POE إلى Net :: SNMP POE :: Component :: SNMP هو واجهة PoE إلى Net :: SNMP.Synopsis # هذا البرنامج النصي مدرج في التوزيع على سبيل المثال / SNMP_Sample.pl استخدام POE QW / Component :: SNMP /؛ نظامي = (SYSUSTIME => '.1.3.6.1.2.1.3.0'، SYSNAME => '.1.3.6.1.2.1.5.0.0.0'، Syslocation => '.1.3.1.2.1.1.6. 0 '،)؛ بلدي الراتب = القيم النظام؛ بلدي $ base_oid = '.1.3.6.1.2.1.1'؛ # النظام. * poe :: session-> إنشاء (inline_states => {_start => _start، snmp_handler => snmp_handler،})؛ Sub _Start {بلدي (kernel $ kernel، $ heap) = @ _ ؛ PoE :: Component :: SNMP-> إنشاء (الاسم المستعار => 'SNMP'، # نفس اسم المضيف الافتراضي => 'LocalHost'، Community => 'Public'، الإصدار => 'SNMPV2C'، # Debug => 0x0a،) ؛ kernel-> post (snmp => get => snmp_handler => -varbindlist => @ boids)؛ # ... أو ربما ... $ kernel-> post (snmp => المشي => snmp_handler => -baseoid => $ base_oid)؛ # ... أو ربما حتى ... بلدي challback_args = (1، 2، 3)؛ $ kernel-> post (snmp => getbulk => snmp_handler => -varbindlist => ، -maxrepetitions => 6، -callback_args => callback_args)؛ $ كومة -> {في انتظار} = 3؛ } Sub SNMP_Handler {My (Kernel $ Kernel، Heap $، $ طلب، Response $) = @ _ ؛ بلدي (الاسم المستعار $، مضيف $، $ cmd، @ args) = @ طلب $؛ بلدي (نتائج $، callback_args) = @ استجابة $؛ إذا (Ref $ النتائج) {print "$ host snmp config ($ cmd): "؛ طباعة" SYSNAME: $ النتائج -> {$ system {sysname}} "؛ طباعة" Sysuptime: نتائج $ -> {$ system {sysuptime}} "؛ طباعة" خيوط: نتائج $ -> {$ system {syslocation}} "؛} آخر {print" $ host snmp خطأ ($ cmd => @ args): نتائج $ "؛} طباعة" Args إضافية: Callback_args "؛ إذا (- كومة $ -> {رعنا} == 0) {$ kernel-> المشاركة ($ الاسم المستعار =>" إنهاء ")؛}} $ poe_kernel-> تشغيل ()؛ # انظر أرشيف التوزيع لمزيد من متطلبات العينات: perl.

POE :: Component :: SNMP برامج ذات صلة