New plugin : get php-fpm status with fastcgi::client perl lib

so without need http protocol to get the information

plugins/php/php_fpm_process

@@ -0,0 +1,130 @@
+#!/usr/bin/perl
+# -*- cperl -*-
+
+=head1 NAME
+
+php_fpm_processes - Munin plugin to show number of number of use processes on php-fpm.
+
+
+Inspirated by php5-fpm_status plugin by Daniel Caillibaud
+
+=head1 APPLICABLE SYSTEMS
+
+Any php-fpm host 
+You will need the perl fastcgi::client on your host 
+
+=head1 CONFIGURATION
+
+You have to put this in your plugin.conf.d folder 
+
+[php_fpm_process]
+   env.serveraddr 127.0.0.1
+   env.port 9000
+   env.path /status 
+
+=head1 MAGIC MARKERS
+
+  #%# family=auto
+  #%# capabilities=autoconf
+
+=head1 VERSION
+
+  v1.0 
+
+=head1 AUTHOR
+
+Minitux 
+
+=head1 LICENSE
+
+GNU General Public License, version 3
+
+=cut
+
+
+use IO::Socket::INET;
+use FCGI::Client;
+
+my $ish = 1;
+my $header = "";
+my $body = "";
+my $IDLE = 0;
+my $ACTIVE = 0;
+my $TOTAL = 0;
+
+my $SERVERADDR = $ENV{'serveraddr'} || "127.0.0.1";
+my $PORT = $ENV{'port'} || "9000";
+my $PATH = $ENV{'path'} || "/status";
+
+my $sock = IO::Socket::INET->new(
+        PeerAddr =>  $SERVERADDR,
+        PeerPort =>  $PORT,
+);
+
+if (!$sock) { 
+	print "Server maybe down, unabled to connect to $SERVERADDR:$PORT";
+	exit 2;
+}
+
+	my $client = FCGI::Client::Connection->new( sock => $sock );
+	my ( $stdout, $stderr, $appstatus )  = $client->request( 
+		+{
+	            REQUEST_METHOD => 'GET',
+		    SCRIPT_FILENAME => '',
+		    QUERY_STRING => '',
+		    SCRIPT_NAME    => $PATH,
+		},
+	        ''
+	);
+
+
+if ( defined $ARGV[0] and $ARGV[0] eq "config" )
+{
+
+  print "graph_title php5-fpm status $pool";
+  print "graph_args --base 1000 -l 0";
+  print "graph_vlabel Processes";
+  print "graph_scale yes";
+  print "graph_category php";
+  print "graph_info This graph shows the php5-fpm process manager status from pool: $pool";
+  print "active.label Active processes";
+  print "active.type GAUGE";
+  print "active.draw AREA";
+  print "active.info The number of active processes";
+  print "idle.label Idle processes";
+  print "idle.type GAUGE";
+  print "idle.draw STACK";
+  print "idle.info The number of idle processes";
+  print "total.label Total processes";
+  print "total.type GAUGE";
+  print "total.draw LINE2";
+  print "total.info The number of idle + active processes";
+  exit 0
+}
+
+$stdout =~ s/\r//g;
+
+while($stdout =~ /([^\n]*)\n?/g) {
+	if(!$1) {
+		$ish = 0;
+		next;
+	}
+	if($ish == 1) {
+		$header .= $1."\n";
+	} else {
+		$body .= $1."\n";
+	}
+}	
+
+if($body =~ m/idle processes: (.*?)\n/) {
+        $IDLE = $1;
+	print "idle.value ".$IDLE."\n";
+}
+if($body =~ m/active processes: (.*?)\n/) {
+        $ACTIVE = $1;
+	print "active.value ".$ACTIVE."\n";
+}
+if($body =~ m/total processes: (.*?)\n/) {
+        $TOTAL = $1;
+	print "total.value ".$TOTAL."\n";
+}