3 files changed, 51 insertions, 0 deletions
diff --git a/debian/perl-framework/t/php-fpm/etc/php-fpm.conf b/debian/perl-framework/t/php-fpm/etc/php-fpm.conf
new file mode 100644
index 0000000..1a2def0
--- /dev/null
+++ b/debian/perl-framework/t/php-fpm/etc/php-fpm.conf
@@ -0,0 +1,19 @@
+;;;;;;;;;;;;;;;;;;;;;
+; FPM Configuration ;
+;;;;;;;;;;;;;;;;;;;;;
+
+; All relative paths in this configuration file are relative to PHP's install
+; prefix (/usr/local). This prefix can be dynamically changed by using the
+; '-p' argument from the command line.
+
+;;;;;;;;;;;;;;;;;;
+; Global Options ;
+;;;;;;;;;;;;;;;;;;
+
+[global]
+
+error_log = log/php-fpm.log
+syslog.ident = php-fpm
+log_level = notice
+daemonize = no
+include=etc/php-fpm.d/*.conf
diff --git a/debian/perl-framework/t/php-fpm/etc/php-fpm.d/www.conf b/debian/perl-framework/t/php-fpm/etc/php-fpm.d/www.conf
new file mode 100644
index 0000000..1952525
--- /dev/null
+++ b/debian/perl-framework/t/php-fpm/etc/php-fpm.d/www.conf
@@ -0,0 +1,7 @@
+; Start a new pool named 'www'.
+; the variable $pool can be used in any directive and will be replaced by the
+; pool name ('www' here)
+[www]
+listen = 127.0.0.1:9001
+pm = static
+pm.max_children = 1
diff --git a/debian/perl-framework/t/php-fpm/fcgi.pl b/debian/perl-framework/t/php-fpm/fcgi.pl
new file mode 100755
index 0000000..930b030
--- /dev/null
+++ b/debian/perl-framework/t/php-fpm/fcgi.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+use FCGI;
+use Socket;
+use FCGI::ProcManager;
+use Data::Dumper;
+
+$num_args = $#ARGV + 1;
+if ($num_args != 1) {
+  print "\nUsage: fcgi.pl <socket>\n";
+  exit 1;
+}
+
+$proc_manager = FCGI::ProcManager->new( {n_processes => 1} );
+$socket = FCGI::OpenSocket( $ARGV[0], 10 );
+$request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%req_params,
+$socket, &FCGI::FAIL_ACCEPT_ON_INTR );
+$proc_manager->pm_manage();
+if ($request) {
+  while ( $request->Accept() >= 0 ) {
+    $proc_manager->pm_pre_dispatch();
+    print("Content-type: text/plain\r\n\r\n");
+    print Dumper(\%req_params);
+  }
+}
+FCGI::CloseSocket($socket);