激情五月天婷婷,亚洲愉拍一区二区三区,日韩视频一区,a√天堂中文官网8

<ul id="buwfs"><strike id="buwfs"><strong id="buwfs"></strong></strike></ul>
    <output id="buwfs"></output>

    • <dfn id="buwfs"><source id="buwfs"></source></dfn>
      <dfn id="buwfs"><td id="buwfs"></td></dfn>
      

      <div id="buwfs"><small id="buwfs"></small></div>
      <dfn id="buwfs"><source id="buwfs"></source></dfn>
      1. <dfn id="buwfs"><td id="buwfs"></td></dfn>
        

        


        
 
        
   
        始創(chuàng)于2000年    股票代碼：831685
        
   
        咨詢熱線：0371-60135900
   
   
   
   
   
   
    
		   
   
   
   注冊有禮
   登錄			
  
   
        
 
        

        

        
 
        
   
   
        • 掛牌上市企業(yè)
        • 60秒人工響應(yīng)
        • 99.99%連通率
        • 7*24h人工
        • 故障100倍補(bǔ)償
        
 
        

        






        

        
 
 

        
    	
        全部產(chǎn)品

        
        
  
        




 
  


        

        



        


        



        
 
        您的位置： 網(wǎng)站首頁 > 幫助中心>文章內(nèi)容 
        

        


        


        

        
   
     
  
         
 
  
        

  
  
   
    
        

        
  
  

                

  
  
         
    
    
        
      
      
        
      
        

  
        
    
        
      
        配置 Nginx 支持 CGI
        		
    
        
    
        
        發(fā)布時(shí)間:  2012/9/9 23:23:26
    
        
  
        
  
        
    
        
       
  安裝所需的 perl fcgi 模塊： 
        

        
apt-get install libfcgi-perl libfcgi-procmanager-perl 
        

        
用 perl 寫一個(gè) daemon 程序來處理 cgi 文件： 
        

        
vi /usr/local/bin/cgiwrap-fcgi.pl 
        

        
#!/usr/bin/perl -w 
        

        
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); 
        

        
#&daemonize; we don't daemonize when running under runsv 
        

        
#this keeps the program alive or something after exec'ing perl scripts 
        

        
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 { 
        

        
#$socket = FCGI::OpenSocket( "127.0.0.1:8999", 10 ); #use IP sockets 
        

        
#$socket = FCGI::OpenSocket( "/var/run/nginx/perl_cgi-dispatch.sock", 10 ); #use UNIX sockets - user running this script. must have w access to the 'nginx' folder!! 
        

        
#foreach $item (keys %ENV) { delete $ENV{$item}; } 
        

        
$proc_manager = FCGI::ProcManager->new( {n_processes => 5} ); 
        

        
$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, "-|" ); 
        

        
unless ( defined($pid) ) { 
        

        
print("Content-type: text/plain\r\n\r\n"); 
        

        
print 
        

        
"Error: CGI app returned no output - Executing $req_params{SCRIPT_FILENAME} failed !\n"; 
        

        
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 "$!" 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, "<&CHILD_RD"); 
        

        
exec( $req_params{SCRIPT_FILENAME} ); 
        

        
die("exec failed"); 
        

        
} 
        

        
} else { 
        

        
print("Content-type: text/plain\r\n\r\n"); 
        

        
print 
        

        
"Error: No such CGI app - $req_params{SCRIPT_FILENAME} may not exist or is not executable by this process.\n"; 
        

        
} 
        

        
} 
        

        
} 
        
注意文件中的這兩行： 
        

        
#$socket = FCGI::OpenSocket( "127.0.0.1:8999", 10 ); 
        

        
#$socket = FCGI::OpenSocket( "/var/run/nginx/perl_cgi-dispatch.sock", 10 ); 
        

        
這兩行都表示監(jiān)聽來自 perl CGI 的請求。 
        

        
其中 perl_cgi-dispatch.sock 表示使用 unix socket 響應(yīng) CGI 請求。 
        

        
127.0.0.1:8999 表示使用 TCP/IP 協(xié)議響應(yīng)請求。 
        

        
需要使用哪種方式就在下面的 FCGI::OpenSocket 中填入相對應(yīng)的內(nèi)容。 
        

        
啟動(dòng)： 
        

        
chmod +x /usr/local/bin/cgiwrap-fcgi.pl 
        

        
/usr/local/bin/cgiwrap-fcgi.pl > /dev/null 2>&1 & 
        

        
配置 Nginx 的 location 處理 cgi 文件： 
        

        
location ~ .*\.cgi$ { 
        

        
fastcgi_pass 127.0.0.1:8999; 
        

        
fastcgi_param SCRIPT_FILENAME $document_root$fastcgi_script_name; 
        

        
include fastcgi_params; 
        

        
} 
        

        
測試： 
        

        
在 web 的根目錄下創(chuàng)建一個(gè) cgi 文件： 
        

        
vi test.cgi 
        

        
#!/usr/bin/perl 
        

        
print "Content-type: text/html\n\n"; 
        

        
print "Hello, world."; 
        

        
文件需要有可執(zhí)行權(quán)限： 
        

        
chmod +x test.cgi 
        

        
訪問 http://www.domain.com/test.cgi 看看有沒有輸出。 
        

        
cgiwrap-fcgi.pl 隨 nginx 一起啟動(dòng)/關(guān)閉： 
        

        
修改 nginx 啟動(dòng)腳本： 
        

        
在 start 段加入： 
        

        
/usr/local/bin/cgiwrap-fcgi.pl > /dev/null 2>&1 & 
        

        
在 stop 段加入： 
        

        
PID=`/bin/netstat -npl | grep "127.0.0.1:8999" | awk '{print $7}' | cut -d "/" -f 1` 
        

        
while [ -n "$PID" ] 
        

        
do 
        

        
kill -9 "$PID" 
        

        
PID=`/bin/netstat -npl | grep "127.0.0.1:8999" | awk '{print $7}' | cut -d "/" -f 1` 
        

        
done
        本文出自：億恩科技【mszdt.com】
        
      
      
        

		服務(wù)器租用/服務(wù)器托管中國五強(qiáng)！虛擬主機(jī)域名注冊頂級提供商！15年品質(zhì)保障！--億恩科技[ENKJ.COM]
        
              		
    
        

        


 

	

      
        
      
        
    
        
    
        
    
    
    
        
  
        
  

  
        
    
   

        
 

 



        
 
        
   
      2. 您可能在找
        3. 
   
 
        

        




        
	
        
    	
        
    	    
            	
      3. 億恩北京公司：
        4. 
                
      4. 經(jīng)營性ICP/ISP證：京B2-20150015
        5. 
               
                    
    	     
            	
      5. 億恩鄭州公司：
        6. 
                
      6. 經(jīng)營性ICP/ISP/IDC證：豫B1.B2-20060070
        7. 
                
                    
        	
            
            	
      7. 億恩南昌公司：
        8. 
                
      8.  經(jīng)營性ICP/ISP證：贛B2-20080012
        9. 
             
                    
            
            
            	
      9. 服務(wù)器/云主機(jī) 24小時(shí)售后服務(wù)電話：0371-60135900
        10. 
                
      10.  虛擬主機(jī)/智能建站 24小時(shí)售后服務(wù)電話：0371-60135900
        11. 
                    

            
        
        
       
        
       專注服務(wù)器托管17年
       
        掃掃關(guān)注-微信公眾號
        
       
        0371-60135900
        
       
        
      
       
        
       
      
        
      
         
      
      
       
        
         
        
       Copyright© 1999-2019 ENKJ All Rights Reserved 億恩科技 版權(quán)所有　 地址：鄭州市高新區(qū)翠竹街1號總部企業(yè)基地億恩大廈　 法律顧問：河南亞太人律師事務(wù)所郝建鋒、杜慧月律師  
       
       京公網(wǎng)安備41019702002023號
         
        
       
        
   
   


        



        
    
        
        
             
            
             
       
        
        
            0
        
        
    
        
    
        
        
              
        
    
        
    
        
        
             
        
        
    
        
    
        
        
              
        
        
        
            
        
                
        
                     
                    
        0371-60135900
        7*24小時(shí)客服服務(wù)熱線