- 论坛徽章:
- 0
|
回复 2# weishuo1999
根据你的提醒，查看是在这个pm文件有上述报错字样：
sub sendData
{
my $values_ref = shift;
my $list_ref = shift;
my $rc = 0;
if ( $main::gParameter{'Debug'} >= INFO ) { &FromDualMySQLagent::mylog($main::gParameter{'LogFile'}, INFO, ' ' . (caller(0))[3]); }
&writeDataToCacheFile::writeDataToCacheFile($values_ref, $list_ref);
# MPM can be run in 2 modes now: locally or MaaS
# We run MPM locally
if ( lc($main::gParameter{'MaaS'}) ne 'on' )
{
$rc = &FromDualMySQLagent::checkConnectionToZabbixServer($main::gParameter{'ZabbixServer'}, $main::gParameter{'ZabbixServerPort'}, $main::gParameter{'Hostname'});
# Connection to zabbix server seems OK
if ( $rc == 0 )
{
if ( $main::gParameter{'Debug'} == DBG )
{ &FromDualMySQLagent::mylog($main::gParameter{'LogFile'}, DBG, " Connection to zabbix server seems OK." ; }
$rc = &sendCachedData::sendCachedData($main::gParameter{'ZabbixServer'}, $main::gParameter{'ZabbixServerPort'});
}
# No success connecting to zabbix server
else {
$rc = 1305;
&FromDualMySQLagent::mylog($main::gParameter{'LogFile'}, WARN, ' ' . $main::gParameter{'ZabbixServer'}. ', ' . $main::gParameter{'ZabbixServerPort'} . ', ' . $main::gParameter{'Hostname'});
&FromDualMySQLagent::mylog($main::gParameter{'LogFile'}, WARN, " Connection to zabbix server failed (rc=$rc)!";
}
}
根据上面代码，我又查看了checkConnectionToZabbixServer 这个函数，代码如下：
sub checkConnectionToZabbixServer
{
my $pServer = $_[0];
my $pPort = $_[1];
my $pHost = $_[2];
my $rc = 0;
if ( $main::gParameter{'Debug'} >= INFO ) { &FromDualMySQLagent::mylog($main::gParameter{'LogFile'}, INFO, ' ' . (caller(0))[3]); }
# This tag does NOT exist in templates!!!
my $lKey = 'FromDual.server.check';
my $lValue = 1;
if ( $main::gParameter{'Debug'} == DBG ) { &FromDualMySQLagent::mylog($main::gParameter{'LogFile'}, DBG, " Check connection to zabbix server."; }
my $prg = 'zabbix_sender';
my $exe = which($prg);
if ( ! defined($exe) ) {
$rc = 1319;
&FromDualMySQLagent::mylog($main::gParameter{'LogFile'}, ERR, " Cannot find program $prg (rc=$rc).";
return $rc;
}
my $cmd = "$exe --zabbix-server $pServer --port $pPort --host '$pHost' --key $lKey --value '$lValue'";
if ( $main::gParameter{'Debug'} == DBG ) {
$cmd .= ' -vv';
&FromDualMySQLagent::mylog($main::gParameter{'LogFile'}, DBG, ' ' . $cmd);
}
if ( $main::gParameter{'Debug'} == DBG ) {
system("$cmd >>" . $main::gParameter{'LogFile'} . " 2>&1";
}
else {
system("$cmd >/dev/null 2>&1";
}
my $ret = $?;
if ( $main::gParameter{'Debug'} == DBG ) { &FromDualMySQLagent::mylog($main::gParameter{'LogFile'}, DBG, " (ret=$ret)."; }
if ( ($ret >>  == 0 ) {
}
elsif ( $ret == -1 ) {
$rc = 1327;
if ( $main::gParameter{'Debug'} == DBG ) { &FromDualMySQLagent::mylog($main::gParameter{'LogFile'}, ERR, " Failed to execute (ret=$ret / rc=$rc).\n$!\n"; }
return $rc;
}
elsif ( $ret & 127 ) {
$rc = 1328;
if ( $main::gParameter{'Debug'} == DBG ) { &FromDualMySQLagent::mylog($main::gParameter{'LogFile'}, ERR, " " . sprintf("Child died with signal %d, %s coredump", ($ret & 127), ($ret & 12 ? 'with' : 'without') . " (ret=$ret / rc=$rc)."; }
return $rc;
}
else {
$rc = 1329;
if ( $main::gParameter{'Debug'} == DBG ) { &FromDualMySQLagent::mylog($main::gParameter{'LogFile'}, ERR, " " . sprintf("Child exited with value %d", $ret >> . " (ret=$ret / rc=$rc)."; }
return $rc;
}
return $rc;
}
上面 这段代码，没有发现，什么可以报错的地方，除了zabbix_sender，这个路径正确，发送数据正常，发送红色部分，是失败的，请你再给以指教，谢谢！
|
|
免费注册
发表于 2014-03-17 23:28
发表于 2014-04-16 16:12
