用Perl和内部命令

扩展SNMPD我有一个CentOS 6.4，我检查守护进程通过命令运行snmpwalk -v 2C -c公共本地主机OID的功能。现在用Perl和内部命令

如果我使用的脚本this doc一切工作和我的自定义（我做到了）MIB是干净的结果是正确的。

我想要更多，所以我这样做：

 #!/usr/bin/perl 

use NetSNMP::agent (':all'); 
use NetSNMP::ASN qw(ASN_OCTET_STR ASN_INTEGER); 
#$string_value = qx{/tmp/readabilityChk}; 
#print $string_value; 
#&hello_handler(); 
sub hello_handler { 
    my ($handler, $registration_info, $request_info, $requests) = @_; 
    my $request; 

    #my $string_value = "cipolline"; 
    my $integer_value = "8675309"; 

    my $string_value = `/tmp/readabilityChk`; 

    for($request = $requests; $request; $request = $request->next()) { 
    my $oid = $request->getOID(); 
    if ($request_info->getMode() == MODE_GET) { 
     if ($oid == new NetSNMP::OID(".1.3.6.1.4.1.2021.150.1.1.3")) { 
     $request->setValue(ASN_OCTET_STR, $string_value); 
     } 
     elsif ($oid == new NetSNMP::OID(".1.3.6.1.4.1.2021.150.1.1.100")) { 
     $request->setValue(ASN_INTEGER, $integer_value); 
     } 
    } elsif ($request_info->getMode() == MODE_GETNEXT) { 
     if ($oid == new NetSNMP::OID(".1.3.6.1.4.1.150.2021.1.1.3")) { 
     $request->setOID(".1.3.6.1.4.1.2021.150.1.1.100"); 
     $request->setValue(ASN_INTEGER, $integer_value); 
     } 
     elsif ($oid < new NetSNMP::OID(".1.3.6.1.4.1.2021.150.1.1.3")) { 
     $request->setOID(".1.3.6.1.4.1.2021.150.1.1.3"); 
     $request->setValue(ASN_OCTET_STR, $string_value); 
     } 
     elsif ($oid < new NetSNMP::OID(".1.3.6.1.4.1.2021.150.1.1.100")) { 
     $request->setOID(".1.3.6.1.4.1.2021.150.1.1.100"); 
     $request->setValue(ASN_INTEGER, $integer_value); 
     } 
    } 
    } 
} 

my $agent = new NetSNMP::agent(); 
$agent->register("hello_world", ".1.3.6.1.4.1.2021.150", 
        \&hello_handler);`

的问题是，在snmpwalk的得出：UCD-CUSTOM-MIB ::定制= STRING：或现在UCD-CUSTOM-MIB ::定制=没有留在这个MIB查看更多变量（这是过去MIB树的末端）

日志我有这个在

：非字符串值传递与ASN_OCTET_STR/ASN_BIT_STR给setValue：类型为0

我认为问题是（神秘地）不是字符串的var的类型。但我真的不知道如何解决它。

请帮我T_T

来源

2013-10-03 Garini

问题是的/ tmp /目录不是用于SELinux的可执行文件的位置，所以没有剧本可能从那里运行。该溶液之实践是关闭的SELinux或在适当的目录中移动.SH（像的libexec）

来源

2013-10-11 15:32:13 Garini

用Perl和内部命令

回答

相关问题