25 lines
629 B
Perl
Executable file
25 lines
629 B
Perl
Executable file
#!/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);
|