Changeset 3375
- Timestamp:
- 02/25/10 02:07:09 (2 years ago)
- Files:
-
- people/snide/pre_1.5/master/lib/Munin/Master/ProcessManager.pm (modified) (1 diff)
- people/snide/pre_1.5/plugins/javalib/org/munin/plugin/jmx/GCCount.java (modified) (1 diff)
- people/snide/pre_1.5/plugins/node.d.linux/apt.in (modified) (1 diff)
- people/snide/pre_1.5/plugins/node.d/mysql_.in (modified) (1 diff)
- people/snide/pre_1.5/plugins/node.d/ping_.in (modified) (1 diff)
- people/snide/pre_1.5/plugins/node.d/postfix_mailstats.in (modified) (1 diff)
- people/snide/pre_1.5/plugins/node.d/proxy_plugin.in (added)
- people/snide/pre_1.5/plugins/node.d/tomcat_access.in (modified) (1 diff)
- people/snide/pre_1.5/plugins/node.d/tomcat_threads.in (modified) (1 diff)
- people/snide/pre_1.5/plugins/node.d/tomcat_volume.in (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
people/snide/pre_1.5/master/lib/Munin/Master/ProcessManager.pm
r3053 r3375 86 86 my ($self) = @_; 87 87 88 unlink $self->{socket_file} 89 or $! ne 'No such file or directory' && croak "unlink failed: $!"; 88 if ( -e $self->{socket_file} ) { 89 unlink $self->{socket_file} 90 or croak "unlink failed: $!"; 91 } 92 90 93 socket my $sock, PF_UNIX, SOCK_STREAM, 0 91 94 or croak "socket failed: $!"; people/snide/pre_1.5/plugins/javalib/org/munin/plugin/jmx/GCCount.java
r3226 r3375 18 18 "CopyCount.label MinorCount\n" + 19 19 "CopyCount.type DERIVE\n" + 20 "CopyCount.min 0\n" + 20 21 "CopyCount.info The total number of collections that have occurred. This method returns -1 if the collection count is undefined for this collector. \n" + 21 22 "MarkSweepCompactCount.label MajorCount\n" + 22 23 "MarkSweepCompactCount.type DERIVE\n" + 24 "MarkSweepCompactCount.min 0\n" + 23 25 "MarkSweepCompactCount.info the total number of collections that have occurred. This method returns -1 if the collection count is undefined for this collector.\n" 24 26 ); people/snide/pre_1.5/plugins/node.d.linux/apt.in
r2314 r3375 40 40 41 41 Link this plugin in @@CONFDIR@@/plugins/ and restart the munin-node. 42 43 =head1 NOTES 44 45 This plugin does not actually draw graphs; it is rather designed to 46 generated warnings. To get a graph showing the number of available 47 packages, please see the "apt_all" plugin. 42 48 43 49 =head1 MAGIC MARKERS people/snide/pre_1.5/plugins/node.d/mysql_.in
r3352 r3375 46 46 MySQL. This ensures minimal inpact on the MySQL server. 47 47 48 =item DBD:: Mysql48 =item DBD::mysql 49 49 50 50 =back people/snide/pre_1.5/plugins/node.d/ping_.in
r2314 r3375 91 91 92 92 93 ${ ping:-ping} ${ping_args:-'-c 2'} ${host} ${ping_args2} | perl -n -e 'print "ping.value ", $1 / 1000, "\n" if m@min/avg/max.*\s\d+(?:\.\d+)?/(\d+(?:\.\d+)?)/\d+(?:\.\d+)?@; print "packetloss.value $1\n" if /(\d+)% packet loss/;'93 ${PING:-ping} ${ping_args:-'-c 2'} ${host} ${ping_args2} | perl -n -e 'print "ping.value ", $1 / 1000, "\n" if m@min/avg/max.*\s\d+(?:\.\d+)?/(\d+(?:\.\d+)?)/\d+(?:\.\d+)?@; print "packetloss.value $1\n" if /(\d+)% packet loss/;' 94 94 people/snide/pre_1.5/plugins/node.d/postfix_mailstats.in
r3130 r3375 52 52 =cut 53 53 54 my $statefile = "$ENV{MUNIN_PLUGSTATE}/munin-plugin-postfix_mailstats.state";54 my $statefile = $ENV{'MUNIN_PLUGSTATE'} . "/munin-plugin-postfix_mailstats.state"; 55 55 my $pos; 56 56 my $delivered = 0; people/snide/pre_1.5/plugins/node.d/tomcat_access.in
r2981 r3375 103 103 my $xs = new XML::Simple; 104 104 my $response = $ua->request(HTTP::Request->new('GET',$url)); 105 my $xml = $xs->XMLin($response->content); 105 my %options = ( KeyAttr => { connector => 'name' }, ForceArray => 1 ); 106 my $xml = $xs->XMLin($response->content, %options); 106 107 107 if($xml->{'connector'}->{'http-'.$PORT}->{'requestInfo'}-> {'requestCount'}) {108 print "accesses.value " . $xml->{'connector'}->{'http-'.$PORT}->{'requestInfo'}-> {'requestCount'} . "\n";108 if($xml->{'connector'}->{'http-'.$PORT}->{'requestInfo'}->[0]->{'requestCount'}) { 109 print "accesses.value " . $xml->{'connector'}->{'http-'.$PORT}->{'requestInfo'}->[0]->{'requestCount'} . "\n"; 109 110 } else { 110 111 print "accesses.value U\n"; people/snide/pre_1.5/plugins/node.d/tomcat_threads.in
r2981 r3375 104 104 my $xs = new XML::Simple; 105 105 my $response = $ua->request(HTTP::Request->new('GET',$url)); 106 my $xml = $xs->XMLin($response->content); 106 my %options = ( KeyAttr => { connector => 'name' }, ForceArray => 1 ); 107 my $xml = $xs->XMLin($response->content, %options); 107 108 108 if($xml->{'connector'}->{'http-'.$PORT}->{'threadInfo'}-> {'currentThreadsBusy'} &&109 $xml->{'connector'}->{'http-'.$PORT}->{'threadInfo'}-> {'currentThreadCount'}) {110 print "busy.value " . $xml->{'connector'}->{'http-'.$PORT}->{'threadInfo'}-> {'currentThreadsBusy'} . "\n";109 if($xml->{'connector'}->{'http-'.$PORT}->{'threadInfo'}->[0]->{'currentThreadsBusy'} && 110 $xml->{'connector'}->{'http-'.$PORT}->{'threadInfo'}->[0]->{'currentThreadCount'}) { 111 print "busy.value " . $xml->{'connector'}->{'http-'.$PORT}->{'threadInfo'}->[0]->{'currentThreadsBusy'} . "\n"; 111 112 print "idle.value " . 112 ($xml->{'connector'}->{'http-'.$PORT}->{'threadInfo'}-> {'currentThreadCount'} -113 $xml->{'connector'}->{'http-'.$PORT}->{'threadInfo'}-> {'currentThreadsBusy'}) . "\n";113 ($xml->{'connector'}->{'http-'.$PORT}->{'threadInfo'}->[0]->{'currentThreadCount'} - 114 $xml->{'connector'}->{'http-'.$PORT}->{'threadInfo'}->[0]->{'currentThreadsBusy'}) . "\n"; 114 115 } else { 115 116 print "busy.value U\n"; people/snide/pre_1.5/plugins/node.d/tomcat_volume.in
r2981 r3375 123 123 my $xs = new XML::Simple; 124 124 my $response = $ua->request(HTTP::Request->new('GET',$url)); 125 my $xml = $xs->XMLin($response->content); 125 my %options = ( KeyAttr => { connector => 'name' }, ForceArray => 1 ); 126 my $xml = $xs->XMLin($response->content, %options); 126 127 127 if($xml->{'connector'}->{'http-'.$PORT}->{'requestInfo'}->{'bytesSent'}) { 128 print "volume.value " . $xml->{'connector'}->{'http-'.$PORT}->{'requestInfo'}->{'bytesSent'} . "\n"; 128 129 if($xml->{'connector'}->{'http-'.$PORT}->{'requestInfo'}->[0]->{'bytesSent'}) { 130 print "volume.value " . $xml->{'connector'}->{'http-'.$PORT}->{'requestInfo'}->[0]->{'bytesSent'} . "\n"; 129 131 } else { 130 132 print "volume.value U\n";
