Initial perl grapher using rrdtool
[upsgraph] / upsgraph.pl
1 #!/usr/bin/perl -w
2
3 if (@ARGV != 3) {
4 print STDERR "Syntax: ${0} host /path/to/file.rrd /output/directory/\n";
5 exit(1);
6 }
7
8 my $host=$ARGV[0];
9 my $rrdfile=$ARGV[1];
10 my $outdir=$ARGV[2];
11 my $community="public";
12 my $step=60;
13
14 my @fields = ( 'inputV', 'outputV', 'inputHZ', 'outputHZ', 'battT', 'battC', 'load', 'ambT', 'ambH', 'timeR', 'timeO' );
15
16 my $vars = {
17 'inputV' => {
18 'name' => 'Input Voltage',
19 'oidtext' => 'PowerNet-MIB::upsAdvInputLineVoltage.0',
20 'oid' => '1.3.6.1.4.1.318.1.1.1.3.2.1.0',
21 'min' => '180',
22 'max' => '280',
23 },
24 'outputV' => {
25 'name' => 'Output Voltage',
26 'oidtext' => 'PowerNet-MIB::upsAdvOutputVoltage.0',
27 'oid' => '1.3.6.1.4.1.318.1.1.1.4.2.1.0',
28 'min' => '180',
29 'max' => '280',
30 },
31 'inputHZ' => {
32 'name' => 'Input Frequency',
33 'oidtext' => 'PowerNet-MIB::upsAdvInputFrequency.0',
34 'oid' => '1.3.6.1.4.1.318.1.1.1.3.2.4.0',
35 'min' => '40',
36 'max' => '60',
37 },
38 'outputHZ' => {
39 'name' => 'Output Frequency',
40 'oidtext' => 'PowerNet-MIB::upsAdvOutputFrequency.0',
41 'oid' => '1.3.6.1.4.1.318.1.1.1.4.2.2.0',
42 'min' => '40',
43 'max' => '60',
44 },
45 'battT' => {
46 'name' => 'Battery Temperature',
47 'oidtext' => 'PowerNet-MIB::upsAdvBatteryTemperature.0',
48 'oid' => '1.3.6.1.4.1.318.1.1.1.2.2.2.0',
49 'min' => '0',
50 'max' => '100',
51 },
52 'battC' => {
53 'name' => 'Battery Capacity',
54 'oidtext' => 'PowerNet-MIB::upsAdvBatteryCapacity.0',
55 'oid' => '1.3.6.1.4.1.318.1.1.1.2.2.1.0',
56 'min' => '0',
57 'max' => '110',
58 },
59 'load' => {
60 'name' => 'UPS Load',
61 'oidtext' => 'PowerNet-MIB::upsAdvOutputLoad.0',
62 'oid' => '1.3.6.1.4.1.318.1.1.1.4.2.3.0',
63 'min' => '0',
64 'max' => '110',
65 },
66 'ambT' => {
67 'name' => 'Ambient Temperature',
68 'oidtext' => 'PowerNet-MIB::mUpsEnvironAmbientTemperature.0',
69 'oid' => '1.3.6.1.4.1.318.1.1.2.1.1.0',
70 'min' => '0',
71 'max' => '60',
72 },
73 'ambH' => {
74 'name' => 'Ambient Humidity',
75 'oidtext' => 'PowerNet-MIB::mUpsEnvironRelativeHumidity.0',
76 'oid' => '1.3.6.1.4.1.318.1.1.2.1.2.0',
77 'min' => '0',
78 'max' => '100',
79 },
80 'timeR' => {
81 'name' => 'Time Remaining',
82 'oidtext' => 'PowerNet-MIB::upsAdvBatteryRunTimeRemaining.0',
83 'oid' => '1.3.6.1.4.1.318.1.1.1.2.2.3.0',
84 'factor' => 1/6000,
85 'min' => '0',
86 'max' => '360',
87 },
88 'timeO' => {
89 'name' => 'Time On Battery',
90 'oidtext' => 'PowerNet-MIB::upsBasicBatteryTimeOnBattery.0',
91 'oid' => '1.3.6.1.4.1.318.1.1.1.2.1.2.0',
92 'factor' => 1/6000,
93 'min' => '0',
94 'max' => '360',
95 },
96 };
97
98 use Net::SNMP;
99
100 if (! -e "${rrdfile}") {
101 my $cmd = "rrdtool create \"${rrdfile}\" ";
102 foreach my $var (@fields) {
103 $cmd .= "DS:${var}:GAUGE:600:" .
104 $vars->{$var}->{'min'} . ":" .
105 $vars->{$var}->{'max'} . " ";
106 }
107 $cmd .= "RRA:AVERAGE:0.5:1:10080 --step ${step}";
108
109 print "Creating ${rrdfile}...\n";
110 print `${cmd}`;
111 }
112
113 while(1) {
114 ($session,$error) = Net::SNMP->session(Hostname => $host,
115 Community => $community);
116
117 die "session error: $error" unless ($session);
118
119 $session->translate(0);
120
121 foreach my $var (@fields) {
122 delete $vars->{$var}->{'value'};
123
124 my $result = $session->get_request($vars->{$var}->{'oid'});
125 next unless (defined $result);
126
127 $vars->{$var}->{'value'} = $result->{$vars->{$var}->{'oid'}};
128 if (defined($vars->{$var}->{'factor'})) {
129 $vars->{$var}->{'value'} *= $vars->{$var}->{'factor'};
130 }
131 }
132
133 $session->close;
134
135 my $cmd = "rrdtool update \"${rrdfile}\" \"N";
136 foreach my $var (@fields) {
137 if (!(defined($vars->{$var}->{'value'}))) {
138 $vars->{$var}->{'value'} = 'U';
139 }
140 print $vars->{$var}->{'name'}.": ".$vars->{$var}->{'value'}."\n";
141 $cmd .= ":" . $vars->{$var}->{'value'};
142 }
143 $cmd .= "\"";
144 print `${cmd}`;
145
146 open(HTML, ">${outdir}/index.html.new");
147
148 print HTML '<html><head><meta http-equiv="refresh" content="60"/><meta http-equiv="cache-control" content="no-cache"/><meta http-equiv="pragma" content="no-cache"/><meta http_equiv="expires" content="Sat, 26 Jul 1997 05:00:00 GMT"/><title>USV status</title></head>';
149 print HTML '<body bgcolor="#ffffff">';
150
151 foreach my $var (@fields) {
152 my $graphdef = "-t \"" . $vars->{$var}->{'name'} . "\" \"DEF:${var}=${rrdfile}:${var}:AVERAGE\" \"LINE1:${var}#FF0000\"";
153 my $cmd = "rrdtool graph \"${outdir}/${var}.png.new\" -w 720 ${graphdef}";
154 my $size = `$cmd`;
155 rename("${outdir}/${var}.png.new", "${outdir}/${var}.png");
156 (my $width, my $height) = split(/x/,$size);
157
158 my $cmd2 = "rrdtool graph \"${outdir}/${var}.long.png.new\" -w 1008 -e now -s end-1w ${graphdef}";
159 my $size2 = `$cmd2`;
160 rename("${outdir}/${var}.long.png.new", "${outdir}/${var}.long.png");
161
162 print HTML "<a href=\"${var}.long.png\"><img src=\"${var}.png\" width=\"${width}\" height=\"${height}\" border=\"0\"></a>";
163 }
164
165 print HTML "</body></html>\n";
166 print HTML "<br>Generated on: " . localtime(time());
167
168 close(HTML);
169
170 rename("${outdir}/index.html.new", "${outdir}/index.html");
171
172 sleep(${step}/2);
173 }
Impressum, Datenschutz