#!@@PERL@@ -w
#
# Plugin to monitor APC UPS via the nis port of apcupsd.
#
# Parameters:
#
#   config   (required)
#
# Magic markers (optional - used by munin-config and some installation
# scripts):
#%# family=contrib

use IO::Socket;
use strict;

if($ARGV[0] and $ARGV[0] eq "autoconfig") {
	print "yes\n";
	exit 0;
}

if($ARGV[0] and $ARGV[0] eq "config") {
	print "graph_title apcupsd\n";
	print "graph_args -l 0 --base 1000\n";
	print "graph_vlabel A bit of all (Volt, time, %)\n";
	print "battery_volt.label batt volt (V)\n";
	print "battery_volt.type GAUGE\n";
	print "battery_volt.max 140\n";
	print "battery_charge.label batt charge (%)\n";
	print "battery_charge.type GAUGE\n";
	print "battery_charge.max 200\n";
	print "line_volt.label line (V)\n";
	print "line_volt.type GAUGE\n";
	print "line_volt.max 200\n";
	print "load.label ups load (%)\n";
	print "load.type GAUGE\n";
	print "load.max 200\n";
	print "time_left.label time left (min)\n";
	print "time_left.type GAUGE\n";
	print "time_left.max 200\n";
    exit 0;
}

my $server = "localhost";
my $port = "3551";

my $sock = new IO::Socket::INET (
	PeerAddr => $server,
	PeerPort => $port,
	Proto => 'tcp'
	);

die "Could not create socket: $!\n" unless $sock;

my $buf = pack("CC", 0, 6);
print $sock $buf;
print $sock "status\n";

my $line;
do {
	$line = <$sock>;
	chomp($line);
	if($line =~ /\WBATTV /) {
		$line =~ s/.* (\d+.\d+).*/$1/;
		print "battery_volt.value $line\n";
	} elsif($line =~ /\WLINEV /) {
		$line =~ s/.* (\d+.\d+).*/$1/;
		print "line_volt.value $line\n";
	} elsif($line =~ /\WLOADPCT /) {
		$line =~ s/.* (\d+.\d+).*/$1/;
		print "load.value $line\n";
	} elsif($line =~ /\WBCHARGE /) {
		$line =~ s/.* (\d+.\d+).*/$1/;
		print "battery_charge.value $line\n";
	} elsif($line =~ /\WTIMELEFT /) {
		$line =~ s/.* (\d+.\d+).*/$1/;
		print "time_left.value $line\n";
	}
} while(!($line =~ /END APC/));

close($sock);
