Zabbix API to get latest 20 issues

[jmusbach]

lol yeah fair enough

[jmusbach]

Cool so this works for us:

#!/usr/bin/perl

use ZabbixAPI;
use DateTime;
use Data::Dumper;

my $zab=ZabbixAPI->new("http://zabbox.server.com/zabbix/");
$zab->login("user","password");

my $triggers=$zab->trigger_get(
  {
    output => 'extend',
    selectHosts => 'extend',
    selectLastEvent => 'extend',
    sortfield => 'lastchange',
    monitored => 'true',
    only_true => 'true',
    maintenance => 'false',
    limit => '20'
  }
);

for my $trigger (@$triggers) {
  my $dt=DateTime->from_epoch(epoch => $trigger->{lastEvent}->{clock});
  my $timestamp=$dt->month."/".$dt->day."/".$dt->year." ".$dt->hour.":".$dt->minute.":".$dt->second;

  print "Host: ".${$trigger->{hosts}}[0]->{name}." Issue: ".$trigger->{description}." Last change: ".$timestamp."\n";
}

Thanks!