nginx 支持cgi脚本

纸水仙

　　配置nginx支持cgi脚本
　　一、需要安装perl库
　　#wget http://www.cpan.org/modules/by-module/FCGI/FCGI-0.67.tar.gz
　　#tar zxvf FCGI-0.67.tar.gz
　　#cd FCGI-0.67
　　#perl Makefile.PL
　　#make && make install
　　#wget http://mirror.osqdu.org/CPAN/authors/id/G/GB/GBJK/FCGI-ProcManager-0.19.tar.gz
　　#tar zxvf FCGI-ProcManager-0.19.tar.gz
　　#cd FCGI-ProcManager-0.19
　　#perl Makefile.PL
　　#make && make install
　　#wget http://search.cpan.org/CPAN/authors/id/I/IN/INGY/IO-All-0.39.tar.gz
　　#tar zxvf IO-All-0.39.tar.gz
　　#cd IO-All-0.39
　　#perl Makefile.PL
　　#make && make install
　　二、 perl启动脚步
　　#vim /usr/local/sbin/nginx-cgi.pl
　　#!/usr/bin/perl
　　use 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);
　　END()   { }
　　BEGIN() { }
　　{
　　no warnings;
　　*CORE::GLOBAL::exit = sub { die "fakeexit\nrc=" . shift() . "\n"; };
　　};
　　eval q{exit};
　　if ($@) {
　　exit unless $@ =~ /^fakeexit/;
　　}
　　&main;
　　sub daemonize() {
　　chdir '/' or die "Can't chdir to /: $!";
　　defined( my $pid = fork ) or die "Can't fork: $!";
　　exit if $pid;
　　setsid() or die "Can't start a new session: $!";
　　umask 0;
　　}
　　sub main {
　　$proc_manager = FCGI::ProcManager->new( {n_processes => 5} );
　　#  $socket = FCGI::OpenSocket( "/var/run/nginx/cgiwrap-dispatch.sock", 10 );
　　$socket = FCGI::OpenSocket("127.0.0.1:8999",10);
　　#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 app
　　if (
　　( -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 ) = 0
　　unless ( $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 ) = 0
　　unless ( $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 directory
　　if ( $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; /dev/null &
　　启动后占用的是8999端口
　　三、修改nginx配置
　　location ~ \.cgi$ {
　　root         html;
　　fastcgi_pass   127.0.0.1:8999;
　　include      fastcgi_params;
　　}
　　四、测试
　　vim  test.cgi
　　#!/usr/bin/perl
　　print &quot;Content-type:text/html\n\n&quot;;
　　print &quot;test file&quot;;