Munin contributed plugins

#!/usr/bin/perl

#

# Munin plugins for sabnzbd

#

# Copyright (C) 2012 - Blauwbek

#

# SABnzbd       : http://sabnzbd.org/

#

# This program is free software: you can redistribute it and/or modify 

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation, either version 3 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with this program.  If not, see <http://www.gnu.org/licenses/>.

#

# Requires: XML::Simple

#			LWP::UserAgent

#

# Configuration example

# [sabnzbd*]

# env.host http://host:port/

# env.api apikey

# 

use strict;

use XML::Simple;

use LWP::UserAgent;

#defines

my $HOST = exists $ENV{'host'} ? $ENV{'host'} : "http://localhost:8080/";

my $API = exists $ENV{'api'} ? $ENV{'api'} : "";

my $URL = $HOST."/sabnzbd/api?mode=qstatus&output=xml&apikey=".$API;

my $sURL = sprintf $URL;

#config output

if(defined $ARGV[0] && $ARGV[0] eq 'config')

{

    print <<EOC

graph_title Data Remaining

graph_vlabel Data Remaining (MB)

graph_category sabnzbd

rem.label Remaining

EOC

;

exit 0;

}

#data handlers

my $xml = new XML::Simple;

my $get = LWP::UserAgent->new;

$get->agent('Munin_GetXML_sabnzbd_left ');

#get xml and xml->perl

my $req = $get->get($sURL);

my $vals = $req->content();

my $xmlvals = $xml->XMLin($vals);

#get/output vals 

my $left = $xmlvals->{mbleft};

$left =~ /(\d+)\./;

print "rem.value ".$1."\n";