Mojo::Zabbix is a simple perl wrapper of Zabbix API. we build only authentication and request methods and few helper methods to simplify calling methods such as create/get/update/delete/exists.
Mojo::Zabix - 是对zabbix api函数的简单打包，以便更易于用perl脚本进行 访问操作zabbix。目前仅支持认证和请求方法，可以用其进行create/get /update/delete/exists方法调用，见例子。本模块基于Mojo::useragent，结果 可以用Mojo:DOM进行处理和内容提取。
The more details ,please visting the Zabbix API documentation pages .
Test
The module is compatible and tested with Zabbix less version 3.0
Example
use Mojo::Zabbix;
my $z = Net::Zabbix->new( url => "https://server/zabbix/", username => 'user', password => 'pass', verify_ssl => 0, debug => 1, trace => 0, );
my $r = $z->get("host", { filter => undef, search => { host => "test", }, } );
A example for print the zabbix api version 打印zabbix服务器版本.
print $z->get("apiinfo.version",)->{result},"\n";
A example for get the new warn message of triggerid 打印新警告触发器.
print getTriggers($z); sub getTriggers { my $z=shift; my $ysterday=localtime(time()-24*3600); my $r = $z->get("trigger", { filter => {value => 1, lastChangeSince => "$ysterday", 'withUnacknowledgedEvents'=>1, }, output => ["","triggerid","description","priority"], sortfield =>"priority", sortorder => "DESC", expandData=>"host",
},
);
my $result;
my $host=$r->{'result'};
for (@$host){
$result.="$_->{'host'}:".$_->{'description'}."\n" ;
}
return $result;
}
The result all:
xxx.xxx.xx.55: {HOST.CONN}服务器的84端口down xxx.xxx.xx.55: {HOST.CONN}服务器的81端口down xxx.xxx.xx.55: {HOST.CONN}服务器的82端口down xxx.xxx.xx.55.9: {HOST.CONN}服务器的80端口down xxx.xxx.xx.12: {HOST.NAME} 服务器负载较高，请及时查看 xxx.xxx.xx.124: 磁盘sdb利用率超过95%，当前值为{ITEM.LASTVALUE} xxx.xxx.xx.44: 磁盘sdb利用率超过95%，当前值为{ITEM.LASTVALUE} xxx.xxx.xx.45: 磁盘sdb利用率超过95%，当前值为{ITEM.LASTVALUE} xxx.xxx.xx.33: 磁盘sdb利用率超过95%，当前值为{ITEM.LASTVALUE} xxx.xxx.xx.56: 磁盘sda利用率超过95%，当前值为{ITEM.LASTVALUE} xxx.xxx.xx.57: 磁盘sda利用率超过95%，当前值为{ITEM.LASTVALUE}
wo can add the program to crontab and gain the result for mail
or some Im tool.
License
This software is copyright (c) 2016 by oragnge.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself..