Blame contrib/apc_ups/upsdata01.pl

Packit 667938
#!/usr/bin/perl
Packit 667938
#
Packit 667938
# Script to convert runtime MIB variable for UPS into minutes
Packit 667938
Packit 667938
$a=`/usr/bin/snmpget <SERVERNAME> <COMMUNITY> .1.3.6.1.4.1.318.1.1.1.2.2.3.0`;
Packit 667938
chomp $a;
Packit 667938
@b=split(/ /,$a);
Packit 667938
@c=split(/:/,$b[4]);
Packit 667938
@d=split(/ /,`/usr/bin/snmpget <SERVERNAME> <COMMUNITY> .1.3.6.1.4.1.318.1.1.1.4.2.3.0`);
Packit 667938
chomp $d;
Packit 667938
print eval($c[0] * 60 + $c[1]),"\n";
Packit 667938
print $d[3];