From 2cbf4a93b690b62bac4768a1c38a7965ce32ead3 Mon Sep 17 00:00:00 2001
From: ricardo <ricardo@optiplex.(none)>
Date: Tue, 28 Aug 2012 11:26:00 +0200
Subject: [PATCH] tomcat access plugin

---
 plugins/tomcat/tomcat_access | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/plugins/tomcat/tomcat_access b/plugins/tomcat/tomcat_access
index 12058dd2..35b3a759 100755
--- a/plugins/tomcat/tomcat_access
+++ b/plugins/tomcat/tomcat_access
@@ -43,7 +43,7 @@ Rune Nordb
 
 =head1 LICENSE
 
-Unknown license
+GPL 2.
 
 =head1 MAGIC MARKERS
 
@@ -66,7 +66,7 @@ if(!eval "require XML::Simple;") {
 
 my $URL      = exists $ENV{'url'}      ? $ENV{'url'}      : "http://%s:%s\@127.0.0.1:%d/manager/status?XML=true";
 my $PORT     = exists $ENV{'ports'}    ? $ENV{'ports'}    : 8080;
-my $PORTAJP  = exists $ENV{'portajp'}  ? $ENV{'portajp'}  : 8009;
+my $PNAME    = exists $ENV{'pname'}    ? $ENV{'pname'}    : "http-8080";
 my $USER     = exists $ENV{'user'}     ? $ENV{'user'}     : "munin";
 my $PASSWORD = exists $ENV{'password'} ? $ENV{'password'} : "munin";
 my $TIMEOUT  = exists $ENV{'timeout'}  ? $ENV{'timeout'}  : 30;
@@ -107,8 +107,8 @@ my $response = $ua->request(HTTP::Request->new('GET',$url));
 my %options = ( KeyAttr => { connector => 'name' }, ForceArray => 1 );
 my $xml = $xs->XMLin($response->content, %options);
 
-if($xml->{'connector'}->{"\"".$PORTAJP."\""}->{'requestInfo'}->[0]->{'requestCount'}) {
-    print "accesses.value " . $xml->{'connector'}->{"\"".$PORTAJP."\""}->{'requestInfo'}->[0]->{'requestCount'} . "\n";
+if($xml->{'connector'}->{"\"".$PNAME."\""}->{'requestInfo'}->[0]->{'requestCount'}) {
+    print "accesses.value " . $xml->{'connector'}->{"\"".$PNAME."\""}->{'requestInfo'}->[0]->{'requestCount'} . "\n";
 } else {
     print "accesses.value U\n";
 }