为了AWSTATS给NGINX添加FASTCGI方式的PERL支持

ifuleyou

　　原文地址 http://www.sunnyu.com/?p=84
　　为了AWSTATS给NGINX添加FASTCGI方式的PERL支持
有个应用(awstats)需要Perl脚本支持，但是用的Nginx服务器，对Perl支持不好，于是通过FastCGI方式来使用Perl。首先安装Perl的FCGI模块 wget http://www.cpan.org/modules/by-module/FCGI/FCGI-0.67.tar.gztar -zxvf FCGI-0.67.tar.gzcd FCGI-0.67perl Makefile.PLmake && make install还可以使用如下方法安装：perl -MCPAN -e 'install FCGI'安装FCGI-ProcManagerwget http://search.cpan.org/CPAN/authors/id/G/GB/GBJK/FCGI-ProcManager-0.18.tar.gztar -xzxf FCGI-ProcManager-0.18.tar.gzcd FCGI-ProcManager-0.18perl Makefile.PLmakemake installPerl的FastCGI启动脚本 参考这篇文章 http://bbs.chinaunix.net/archiver/?tid-1224968.htmlvi fcgi_perl#!/usr/bin/perl -wuse FCGI;use Socket;use FCGI::ProcManager;sub shutdown { FCGI::CloseSocket($socket); exit; }sub restart { FCGI::CloseSocket($socket); &main; }use sigtrap 'handler', \&shutdown, 'normal-signals';use sigtrap 'handler', \&restart, 'HUP';require 'syscall.ph';use POSIX qw(setsid); #&daemonize; we don't daemonize when running under runsv#this keeps the program alive or something after exec'ing perl scriptsEND() { }BEGIN() { }{no warnings;*CORE::GLOBAL::exit = sub { die &quot;fakeexit\nrc=&quot; . shift() . &quot;\n&quot;; };};eval q{exit};if ($@) {exit unless $@ =~ /^fakeexit/;}&main; sub daemonize() {chdir '/' or die &quot;Can't chdir to /: $!&quot;;defined( my $pid = fork ) or die &quot;Can't fork: $!&quot;;exit if $pid;setsid() or die &quot;Can't start a new session: $!&quot;;umask 0;} sub main {#如果使用 IP sockets#$socket = FCGI::OpenSocket( &quot;127.0.0.1:8999&quot;, 10 );#如果使用 UNIX sockets#$socket = FCGI::OpenSocket( &quot;/var/run/perl_cgi-dispatch.sock&quot;, 10 ); #foreach $item (keys %ENV) { delete $ENV{$item}; }#设置fastcgi进程数，默认四个my $n_processes = $ENV{FCGI_NPROCESSES} || 4;$proc_manager = FCGI::ProcManager->new( {n_processes => $n_processes} );#使用unix socket$socket = FCGI::OpenSocket( &quot;$ENV{FCGI_SOCKET_PATH}&quot;, 10 );#设置Socket权限chmod 0777, $ENV{FCGI_SOCKET_PATH}; ; #use UNIX sockets - user running this script must have w access to the 'nginx' folder!!$request =FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%req_params, $socket,&FCGI::FAIL_ACCEPT_ON_INTR );$proc_manager->pm_manage();if ($request) { request_loop() }FCGI::CloseSocket($socket);} sub request_loop {while ( $request->Accept() >= 0 ) {$proc_manager->pm_pre_dispatch(); #processing any STDIN input from WebServer (for CGI-POST actions)$stdin_passthrough = '';{ no warnings; $req_len = 0 + $req_params{'CONTENT_LENGTH'}; };if ( ( $req_params{'REQUEST_METHOD'} eq 'POST' ) && ( $req_len != 0 ) ){my $bytes_read = 0;while ( $bytes_read < $req_len ) {my $data = '';my $bytes = read( STDIN, $data, ( $req_len - $bytes_read ) );last if ( $bytes == 0 || !defined($bytes) );$stdin_passthrough .= $data;$bytes_read += $bytes;}} #running the cgi appif (( -x $req_params{SCRIPT_FILENAME} ) && #can I execute this?( -s $req_params{SCRIPT_FILENAME} ) && #Is this file empty?( -r $req_params{SCRIPT_FILENAME} ) #can I read this file?){pipe( CHILD_RD, PARENT_WR );pipe( PARENT_ERR, CHILD_ERR );my $pid = open( CHILD_O, &quot;-|&quot; );unless ( defined($pid) ) {print(&quot;Content-type: text/plain\r\n\r\n&quot;);print&quot;Error: CGI app returned no output - Executing $req_params{SCRIPT_FILENAME} failed !\n&quot;;next;}$oldfh = select(PARENT_ERR);$| = 1;select(CHILD_O);$| = 1;select($oldfh);if ( $pid > 0 ) {close(CHILD_RD);close(CHILD_ERR);print PARENT_WR $stdin_passthrough;close(PARENT_WR);$rin = $rout = $ein = $eout = '';vec( $rin, fileno(CHILD_O), 1 ) = 1;vec( $rin, fileno(PARENT_ERR), 1 ) = 1;$ein = $rin;$nfound = 0; while ( $nfound =select( $rout = $rin, undef, $ein = $eout, 10 ) ){die &quot;$!&quot; unless $nfound != -1;$r1 = vec( $rout, fileno(PARENT_ERR), 1 ) == 1;$r2 = vec( $rout, fileno(CHILD_O), 1 ) == 1;$e1 = vec( $eout, fileno(PARENT_ERR), 1 ) == 1;$e2 = vec( $eout, fileno(CHILD_O), 1 ) == 1; if ($r1) {while ( $bytes = read( PARENT_ERR, $errbytes, 4096 ) ) {print STDERR $errbytes;} if ($!) {$err = $!;die $!;vec( $rin, fileno(PARENT_ERR), 1 ) = 0unless ( $err == EINTR or $err == EAGAIN );}}if ($r2) {while ( $bytes = read( CHILD_O, $s, 4096 ) ) {print $s;}if ( !defined($bytes) ) {$err = $!;die $!;vec( $rin, fileno(CHILD_O), 1 ) = 0unless ( $err == EINTR or $err == EAGAIN );}}last if ( $e1 || $e2 );}close CHILD_RD;close PARENT_ERR;waitpid( $pid, 0 );} else {foreach $key ( keys %req_params ) {$ENV{$key} = $req_params{$key};      } # cd to the script's local directoryif ( $req_params{SCRIPT_FILENAME} =~ /^(.*)\/[^\/]+$/ ) {chdir $1;}close(PARENT_WR); #close(PARENT_ERR);close(STDIN);close(STDERR); #fcntl(CHILD_RD, F_DUPFD, 0);syscall( &SYS_dup2, fileno(CHILD_RD), 0 );syscall( &SYS_dup2, fileno(CHILD_ERR), 2 ); #open(STDIN, &quot;