cvs.zerfleddert.de Git - upsgraph/blob - upsgraph.pl

   1 #!/usr/bin/perl -w
   2
   3 if ((@ARGV != 3) && (@ARGV != 4)) {
   4         print STDERR "Syntax: ${0} host /path/to/file.rrd /output/directory/ [uid]\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 ($> == 0) {
 101         if (@ARGV != 4) {
 102                 print STDERR "Running as root, please provide UID as 4th argument!\n";
 103                 exit(1);
 104         }
 105
 106         print "Running as root, switching to ".$ARGV[3]."\n";
 107         $< = $> = $ARGV[3];
 108 }
 109
 110 if (! -e "${rrdfile}") {
 111         my $cmd = "rrdtool create \"${rrdfile}\" ";
 112         foreach my $var (@fields) {
 113                 $cmd .= "DS:${var}:GAUGE:600:" .
 114                         $vars->{$var}->{'min'} . ":" .
 115                         $vars->{$var}->{'max'} . " ";
 116         }
 117         $cmd .= "RRA:AVERAGE:0.5:1:10080 --step ${step}";
 118
 119         print "Creating ${rrdfile}...\n";
 120         print `${cmd}`;
 121 }
 122
 123 my $child = fork();
 124
 125 die "fork failed!" if (!defined($child));
 126
 127 exit 0 if ($child != 0);
 128
 129 while(1) {
 130         ($session,$error) = Net::SNMP->session(Hostname => $host,
 131                         Community => $community);
 132
 133         die "session error: $error" unless ($session);
 134
 135         $session->translate(0);
 136
 137         foreach my $var (@fields) {
 138                 delete $vars->{$var}->{'value'};
 139
 140                 my $result = $session->get_request($vars->{$var}->{'oid'});
 141                 next unless (defined $result);
 142
 143                 $vars->{$var}->{'value'} = $result->{$vars->{$var}->{'oid'}};
 144                 if (defined($vars->{$var}->{'factor'})) {
 145                         $vars->{$var}->{'value'} *= $vars->{$var}->{'factor'};
 146                 }
 147         }
 148
 149         $session->close;
 150
 151         my $cmd = "rrdtool update \"${rrdfile}\" \"N";
 152         foreach my $var (@fields) {
 153                 if (!(defined($vars->{$var}->{'value'}))) {
 154                         $vars->{$var}->{'value'} = 'U';
 155                 }
 156                 $cmd .= ":" . $vars->{$var}->{'value'};
 157         }
 158         $cmd .= "\"";
 159         print `${cmd}`;
 160
 161         open(HTML, ">${outdir}/index.html.new");
 162
 163         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>';
 164         print HTML '<body bgcolor="#ffffff">';
 165
 166         foreach my $var (@fields) {
 167                 my $graphdef = "-t \"" . $vars->{$var}->{'name'} . "\" \"DEF:${var}=${rrdfile}:${var}:AVERAGE\" \"LINE1:${var}#FF0000\"";
 168                 my $cmd = "rrdtool graph \"${outdir}/${var}.png.new\" -w 720 ${graphdef}";
 169                 my $size = `$cmd`;
 170                 rename("${outdir}/${var}.png.new", "${outdir}/${var}.png");
 171                 (my $width, my $height) = split(/x/,$size);
 172
 173                 my $cmd2 = "rrdtool graph \"${outdir}/${var}.long.png.new\" -w 1008 -e now -s end-1w ${graphdef}";
 174                 my $size2 = `$cmd2`;
 175                 rename("${outdir}/${var}.long.png.new", "${outdir}/${var}.long.png");
 176
 177                 print HTML "<a href=\"${var}.long.png\"><img src=\"${var}.png\" width=\"${width}\" height=\"${height}\" border=\"0\"></a>";
 178         }
 179
 180         print HTML "</body></html>\n";
 181         print HTML "<br>Generated on: " . localtime(time());
 182         print HTML ' by <a href="http://git.zerfleddert.de/cgi-bin/gitweb.cgi/upsgraph">upsgraph</a>.';
 183
 184         close(HTML);
 185
 186         rename("${outdir}/index.html.new", "${outdir}/index.html");
 187
 188         sleep(${step}/2);
 189 }