开源软件名称：

Mojo-Zabbix

开源软件地址：

https://gitee.com/ijz/Mojo-Zabbix

开源软件介绍：

Mojo::Zabbix

Mojo::Zabbix is a simple perl wrapper of Zabbix API. We build only authenticationand request methods and few helper methods to simplify calling methodssuch ascreate/get/update/delete/exists.

中文介绍

Mojo::Zabix - 是对zabbix api函数的简单打包，以便更易于用perl脚本进行访问操作zabbix。目前仅支持认证和请求方法，可以用其进行create/get/update/delete/exists方法调用，见例子。本模块基于Mojo::useragent，结果用Mojo:DOM进行处理和内容提取。

本模块依赖Mojo，建议使用cpan包安装cpanm Mojo::Zabbix

The more details ,please visting the Zabbix API documentation pages .

- [Zabbix API Wiki](http://www.zabbix.org/)- [Zabbix 1.8 API](http://www.zabbix.com/documentation/1.8/api)- [Zabbix 2.0 API](http://www.zabbix.com/documentation/2.0/)- [Zabbix 2.2 API](https://www.zabbix.com/documentation/2.2/)- [Zabbix 3.0 API](https://www.zabbix.com/documentation/3.0/)- [Zabbix 3.2 API](https://www.zabbix.com/documentation/3.2/)- [Zabbix 3.4 API](https://www.zabbix.com/documentation/3.4/)- [Zabbix 4.0 API](https://www.zabbix.com/documentation/4.0/)- [Zabbix 5.0 API](https://www.zabbix.com/documentation/5.0/)

Test

The module is compatible and tested with Zabbix less version 5.0

本模块目前仅在5.0以前的模块下测试，5.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); # 该函数和其他函数已经打包到Mojo::Zabbix::APP      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端口downxxx.xxx.xx.55: {HOST.CONN}服务器的81端口downxxx.xxx.xx.55: {HOST.CONN}服务器的82端口downxxx.xxx.xx.55.9: {HOST.CONN}服务器的80端口downxxx.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}

基于本模块的，通过webqq或者webwx实时获取hosts监控数据的实例

XX_10.2.7.20_实时数据:ESTABLISHED链接 - { connections.status[ESTABLISHED] } : 9SYN链接 - { connections.status[SYN] } : 0网卡$1的出口流量 - { net.if.out[bond0] } : 5176负载 - { system.cpu.load[,avg1] } : 0.000000$1剩余inode百分比 - { vfs.fs.inode[/,pfree] } : 99.788211$1的剩余百分比 - { vfs.fs.size[/,pfree] } : 99.269724可用内存 - { vm.memory.size[available] } : 261874798592内存利用率 - { vm.memory.size[pused] } : 4.720467内存总空间 - { vm.memory.size[total] } : 270763327488

Mojo-Zabbix-APP

The application of Mojo-Zabbix module。Get data from zabbix data include host，items, Triggers and warns and so on.

是Mojo::Zabix模块的应用模块，对zabbix api常见模块进行打包可以方便的获取zabbix信息，目前包括zabbix版本，主机列表，监控列表，触发器，警告等，可以根据需求提供更多的操作。

Example

 use Mojo::Zabbix::APP; my @myzinfo = <DATA>; ##(get zabbix info from __DATA__ )

Define for debug and traceing processe infomaition。（打开调试和跟踪）

my $DEBUG=0;my $TRACE=0;

定义zabbix服务器

 my @myzinfo = ('test1  http://test1/zabbix    testuser pass'); @可以定义为多行数据，格式按照这种，一个zabbix 服务地址一个    for (@myzinfo) {      next if /^#/;     next if /^\s*$/;     my ( $name, $url,$user, $pass ) = split;     print "\n$name\n";     my $z;     eval { $z = initZ( $url,$user,$pss ); };     if ($@) {        print "Error $@!\n";      } else {         ## Print the version of zabbix api. 打印zabbix 版本                  pVersion($z);       ## Print all host lists。 获取所有的主机列表        print  getAllhost($z);       ## Print warning info of Triggers。打印取得的所有触发器告警信息        pTriggers($z);              ## Print the history data of given items, default for past 24 hours.       ## 打印给定时间段的item历史数据，如果默认不给时间默认为过去24小时内的       pHitems($z); # 打印实时监控数据     }    }

结果展示

nameWarning info of Triggers2016-10-19 23:29:57  : 192.168.1.* : {HOST.NAME}上的80端口关闭2016-10-19 22:58:28  : 192.168.2.* : 系统目录/etc/sysconfig/发生变化2016-10-19 22:24:32  : 192.168.3.* : 系统目录/etc/init.d/发生变化2016-10-19 19:12:53  : 192.168.3.* : 磁盘sda IO利用率超过95%2016-10-19 18:03:03  : 192.168.4.* : Too many processes on {HOST.NAME}