论坛 › Zabbix › 导出zabbix的IT service报表

htgefwda 发表于 2016-1-15 08:55:47

导出zabbix的IT service报表

zabbix中的IT service可以是树状结构。
这就要求脚本要有这个功能点：能收集到一个节点的所有子节点信息。(这是典型的递归循环的使用场景)。


接着上篇博客，我们已经可以获取到zabbix的auth信息。
使用zbxapi_login.pl脚本获取认证串这里是2080444abc88afe37b59456d4b7ee0a1
打开页面的IT service，点击某个你关心的节点。之你可以在地址栏看到如下信息。serviceID就在里面。
http://x.x.x.x/zabbix/report3.php?serviceid=4&year=2016&period=weekly

现在我可以用如下命令获取到IT service信息了。第三第四个参数分别是起止时间。
perl getsla.pl 2080444abc88afe37b59456d4b7ee0a1 4 `date -d '2015-10-01 00:00:00' +%s` `date -d '2015-11-01 00:00:00' +%s`

以下是脚本内容

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
#cat getsla.pl
use Text::CSV_XS;
use JSON::RPC::Client;
use Time::Local;
use Data::Dumper;
use strict;
use warnings;
my $csv = Text::CSV_XS->new ({ binary => 1, eol => $/ });

sub getsla {
my($auth,$serviceid,$from,$to) = @_;
   my $client = new JSON::RPC::Client;
   my $uri    = 'http://zabbixIP/zabbix/api_jsonrpc.php';
   my $callobj = {
      jsonrpc=> '2.0',
      method=> 'service.getsla',
      params => {       serviceids => [$serviceid],
            intervals=> [{ from => "$from" , to => "$to" }],
            #intervals=> [ from => "1443913200" , to => "1444518000" ],
         } ,
   auth => "$auth",
   id=> '1',
   };
   my $res = $client->call($uri, $callobj);
   return $res->result;
}

sub getservice{
   my($auth,$serviceid) = @_;
   my $client = new JSON::RPC::Client;
   my $uri    = 'http://zabbixIP/zabbix/api_jsonrpc.php';
   my $callobj = {
      jsonrpc=> '2.0',
      method=> 'service.get',
      params => {       serviceids => [$serviceid],
                        selectDependencies=> "extend",
                        output=> "extend",
         },
   auth => "$auth",
   id=> '1',
   };
   my $res = $client->call($uri, $callobj);
   my $return = $res->result;
   return $return;
}

sub average {
    my (@num) = @_;
    my $num = scalar @num;
    my $total;
    foreach (0..$#num) {
       $total += $num[$_];
    }
    return ($total/$num);
}

sub getobj{
    my($auth,$serviceid,$from,$to) = @_;
    my @array;
    my %hash;
   
    $hash{'sla'}=getsla($auth,$serviceid,$from,$to);
    $hash{'service'}=getservice($auth,$serviceid);
    ${$hash{'service'}}{'countdependencies'}=scalar(@{$hash{'service'}->{'dependencies'}});
    my @num;
    if (${$hash{'service'}}{'countdependencies'} > 0 ){
      my $sid ;
      foreach $sid (@{$hash{'service'}->{'dependencies'}}) {
            my $child=&getobj($auth,$sid->{'serviceid'},$from,$to);
            push (@array,$child);
            push (@num,$child->{'sla'}{$child->{'service'}{'serviceid'}}{'sla'}{'sla'})
      }
      my $num = scalar @num;
      my $total;
      foreach (0..$#num) {
            $total += $num[$_];
      }
      $hash{'sla'}{$serviceid}{'sla'}{'sla'}= $total / $num;
    }
    push (@array,\%hash);
    return @array;
}

sub caltime{
my($period) = @_;
my $days = int($period/(24*3600));
my $hours = int($period%(24*3600)/3600);
my $mins = int($period%3600/60);
my $secs = $period%60;
return $days."d,".$hours."h,".$mins."m,".$secs."s";
}

open my $out,">", "/data/HTI_sla.csv" or die "Can NOT create file:outputfile:$!";
my @title=( 'Service Name','SLA','Down Time','Problem Time','OK Time','Period','from','to');
my $status = $csv->print ($out, \@title);

my @ultobj;
@ultobj= &getobj($ARGV,$ARGV,$ARGV,$ARGV);
my $obj;
foreach $obj (@ultobj){
my @crow=();
push(@crow,$obj->{'service'}{'name'});
push(@crow,$obj->{'sla'}{$obj->{'service'}{'serviceid'}}{'sla'}{'sla'}."%");
push(@crow,caltime($obj->{'sla'}{$obj->{'service'}{'serviceid'}}{'sla'}{'downtimeTime'}));
push(@crow,caltime($obj->{'sla'}{$obj->{'service'}{'serviceid'}}{'sla'}{'problemTime'}));
push(@crow,caltime($obj->{'sla'}{$obj->{'service'}{'serviceid'}}{'sla'}{'okTime'}));
push(@crow,caltime($obj->{'sla'}{$obj->{'service'}{'serviceid'}}{'sla'}{'to'} - $obj->{'sla'}{$obj->{'service'}{'serviceid'}}{'sla'}{'from'}));
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($obj->{'sla'}{$obj->{'service'}{'serviceid'}}{'sla'}{'from'});$year = $year+1900;$mon=$mon+1;
push(@crow,$year."-".$mon."-".$day." ".$hour.":".$min.":".$sec);
($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($obj->{'sla'}{$obj->{'service'}{'serviceid'}}{'sla'}{'to'});$year = $year+1900;$mon=$mon+1;
push(@crow,$year."-".$mon."-".$day." ".$hour.":".$min.":".$sec);
my $status = $csv->print ($out, \@crow);
}

#print Dumper(@ultobj);

查看完整版本: 导出zabbix的IT service报表