/usr/share/munin/plugins/tomcat_volume is in munin-node 1.4.6-3ubuntu3.4.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 | #!/usr/bin/perl
# -*- perl -*-
=head1 NAME
tomcat_volume - Plugin to monitor the volume of data sent from Tomcat
servers.
=head1 CONFIGURATION
The following environment variables are used by this plugin
=over 4
=item timeout
Connection timeout
=item url
Override default status-url
=item ports
HTTP port numbers
=item user
Manager username
=item password
Manager password
=back
=head2 CONFIGURATION EXAMPLE
[tomcat_volume]
env.ports 8081
env.user someuser
env.password somepassword
=head1 AUTHOR
Rune Nordbøe Skillingstad <runesk@linpro.no>
=head1 USAGE
Needs access to
http://<user>:<password>@localhost:8080/manager/status?XML=true (or
modify the address for another host).
Tomcat 5.0 or higher.
A munin-user in $CATALINA_HOME/conf/tomcat-users.xml should be set up
for this to work.
Tip: To see if it's already set up correctly, just run this plugin
with the parameter "autoconf". If you get a "yes", everything should
work like a charm already.
tomcat-users.xml example:
<user username="munin" password="<set this>"
roles="standard,manager"/>
=head1 MAGIC MARKERS
#%# family=manual
#%# capabilities=autoconf
=cut
use strict;
my $ret = undef;
if(!eval "require LWP::UserAgent;") {
$ret = "LWP::UserAgent not found";
}
if(!eval "require XML::Simple;") {
$ret .= "XML::Simple not found";
}
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 $USER = exists $ENV{'user'} ? $ENV{'user'} : "munin";
my $PASSWORD = exists $ENV{'password'} ? $ENV{'password'} : "munin";
my $TIMEOUT = exists $ENV{'timeout'} ? $ENV{'timeout'} : 30;
my $url = sprintf $URL, $USER, $PASSWORD, $PORT;
if(exists $ARGV[0] and $ARGV[0] eq "autoconf") {
if($ret) {
print "no ($ret)\n";
exit 0;
}
my $au = LWP::UserAgent->new(timeout => $TIMEOUT);
my $repsonse = $au->request(HTTP::Request->new('GET',$url));
if($repsonse->is_success and $repsonse->content =~ /<status>.*<\/status>/im) {
print "yes\n";
exit 0;
} else {
print "no (no tomcat status)\n";
exit 0;
}
}
if(exists $ARGV[0] and $ARGV[0] eq "config") {
print "graph_title Tomcat volume\n";
print "graph_args --base 1000\n";
print "graph_vlabel bytes per \${graph_period}\n";
print "graph_category tomcat\n";
print "volume.label bytes\n";
print "volume.type DERIVE\n";
print "volume.max 1000000000\n";
print "volume.min 0\n";
exit 0;
}
my $ua = LWP::UserAgent->new(timeout => $TIMEOUT);
my $xs = new XML::Simple;
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'}->{'http-'.$PORT}->{'requestInfo'}->[0]->{'bytesSent'}) {
print "volume.value " . $xml->{'connector'}->{'http-'.$PORT}->{'requestInfo'}->[0]->{'bytesSent'} . "\n";
} else {
print "volume.value U\n";
}
# vim:syntax=perl
|