Rank: 9 Rank: 9 Rank: 9

快乐天使勋章

1^# 跳转到 » 倒序看帖

字体大小: tT

发表于 2010-4-6 19:09 | 只看该作者

nginx perl fastcgi 配置全攻略

首先：有三种方式（三个不同的脚本）搭建fastcgi环境，第二种，在运行时，nginx的error里会报错。8 ~8 ^' y' r( L; k: \! m; {; ^
FastCGI sent in stderr: "Bad file descriptor at /EBS/fcgi.pl line 125",第二种脚本的好处是可以起多个进程（process）+ ?$ l' i  N) X0 i

' P  a, N* ~3 s- ~* M! @
方法一+ N; f- r/ P& }3 B9 I1 h9 O$ o
参考：http://www.nginx.eu/nginx-fcgi.html3 D8 G1 a, M7 ]0 D( A, }6 e( R3 x' H
1、安装FCGI模块：- U9 Q% E. |" m  _( H5 g% `
到http://search.cpan.org/网站上下载FCGI模块：
wget http://search.cpan.org/CPAN/auth ... MO/FCGI-0.67.tar.gz/ q8 V& v+ G$ d2 A4 ]8 y: v7 u

! y. J8 T# _! o. e# k5 F
tar -zxvf FCGI-0.67.tar.gz. + g7 g4 {/ Z2 A( V$ v8 W) \$ ]
cd FCGI-0.67 / V; @8 y" S" d4 P
perl Makefile.PL- l7 H. L, p  i$ q; n6 `, D( t; c" _) u
make . p" K0 [' ]  v* b/ m
make install

2、安装 IO 和 IO::ALL模块: O5 w0 I; @+ r% [( M+ W# @- J
下载：6 W; d0 t6 W( [5 R! l$ i
wget http://search.cpan.org/CPAN/authors/id/G/GB/GBARR/IO-1.25.tar.gz
http://search.cpan.org/CPAN/authors/id/I/IN/INGY/IO-All-0.39.tar.gz/ V) K( M$ e' o) x; v4 M
4 c; {) g; x$ u( V# E

安装：
tar -xvzf IO-1.25.tar.gz
cd IO-1.25
perl Makefile.PL
make
make install! i- ^! K1 S( a% [

8 v9 `8 s* ~* [6 }
tar -xvzf IO-All-0.39.tar.gz
cd IO-ALL-0.39! R% O: W! q( n7 I+ F
perl Makefile.PL$ ?6 s- ]; l* i) H/ i4 S! t# }$ s9 w
make 5 m; _. j! y9 g
make install) V) R9 }! J* ^  ?" M: O

3、如果需要，安装perl-Getopt和 perl-Socket3 F& o3 x, k! O1 N

4、perl cgi脚本$ h+ k* f" }% M( H# Q

% U# X& {0 i4 v) S
0 I# B; p8 y: B0 l8 w4 O( \文件:nginx-fcgi.rar9 E/ a  T9 Q8 M) ~; ^! k
大小:2KB
% m# m' u* p: n! W% S下载:下载
' n; r3 H  Q- }% D) i5 L0 o* G6 s' S: V& [8 N$ W1 {- ?9 u

8 X1 W( n1 ~/ b% t1 q+ Y$ _# m, _. O0 e  I  T2 z4 K
; A1 J- J& L* A) f3 j
2 j$ e. ?4 U$ l4 [
或从下面的地址下载' `9 c9 u& x' g8 ~$ U2 \: j8 W1 e
http://www.nginx.eu/nginx-fcgi/nginx-fcgi.txt
) ^( t7 k9 d. u% X

5、启动cgi脚本（nobody为nginx的运行用户）7 ^8 n+ ^; y6 R2 J) s3 ^: ~
vi start_perl_cgi.sh" h8 r( n6 O7 w* L9 P1 y
- k3 D, z- T' X5 K7 X4 {% T

! B+ N3 ~$ B$ S, d0 k z

2 l* x4 ^: U" I b1 E/ T

#!/bin/bash

#set -x

dir=/usr/local/nginx

stop ()

{

#pkill -f $dir/perl-fcgi.pl

kill $(cat $dir/logs/perl-fcgi.pid)

rm $dir/logs/perl-fcgi.pid 2>/dev/null

rm $dir/logs/perl-fcgi.sock 2>/dev/null

echo "stop perl-fcgi done"

}

W. g; `% ^, Y9 p

start ()

{

rm $dir/now_start_perl_fcgi.sh 2>/dev/null

" y# j% }/ R; d; `2 D D! u' c

chown nobody.root $dir/logs

echo "$dir/perl-fcgi.pl -l $dir/logs/perl-fcgi.log -pid $dir/logs/perl-fcgi.pid -S $dir/logs/perl-fcgi.sock" >>$dir/now_start_perl_fcgi.sh

/ U2 |+ A3 u9 K. X, f

chown nobody.nobody $dir/now_start_perl_fcgi.sh

chmod u+x $dir/now_start_perl_fcgi.sh

sudo -u nobody $dir/now_start_perl_fcgi.sh

echo "start perl-fcgi done"

}

case $1 in

stop)

stop

;;

start)

start

;;

restart)

stop

start

;;

esac

+ O; ?- w0 k- p" a0 e) r9 c

& {/ c/ l [2 E# c+ L- A
启动
./start_perl_cgi.sh start
( L2 E: U4 Z6 q6 d% \. e! q

6、为Nginx添加FCGI支持(以安装nagios为例）# P$ M0 a0 K) D
8 u8 D" Z# j. |! k! M" a8 T6 R" x

location ~* .*\.cgi$5 T9 a5 _9 Q( @, q
            {/ ?4 t9 @8 \- V' k
                  rewrite ^/nagios/cgi-bin/(.*)\.cgi /$1.cgi break;, }$ K% x( I1 ^7 C
                     include perl_fcgi.conf;
: I% K" e7 N# U, L6 ]& @             }

将请求cgi的url由/nagios/cgi-bin/*.cgi 重写为/*.cgi，这样，即下面的fastcgi_param中的$fastcgi_script_name，这样，可以正确的拼出cgi文件的路径。vi perl_fcgi.conf4 k- k. U+ t m/ N- m
) D* E3 I5 ^: ^# F/ ]

gzip off; #gzip makes scripts feel slower since they have to complete before getting gzipped
, }& V4 Q5 |- B# X( w# V4 x( Pfastcgi_pass unix:/usr/local/nginx/logs/perl-fcgi.sock;4 a, o1 d$ k2 }3 o( u
fastcgi_index index.cgi;

fastcgi_param SCRIPT_FILENAME /usr/local/nagios/sbin$fastcgi_script_name;

fastcgi_param QUERY_STRING $query_string;3 S. s* j5 e; |- Z" v. {
fastcgi_param REQUEST_METHOD $request_method;, m- d" n: ?; d1 }+ R. W
fastcgi_param CONTENT_TYPE $content_type;, c4 z. B/ W8 @+ U; i
fastcgi_param CONTENT_LENGTH $content_length;
6 M: {& D1 L/ x' |fastcgi_param GATEWAY_INTERFACE CGI/1.1;
5 d: i2 J; ]& r; _" t% f3 F& gfastcgi_param SERVER_SOFTWARE nginx;" _1 Z1 T- t0 F- e& e/ k8 G
fastcgi_param SCRIPT_NAME $fastcgi_script_name;
: E. t' F& W7 K  G, s3 i& Afastcgi_param REQUEST_URI $request_uri;
9 g& N! R  ~0 o3 k1 A  zfastcgi_param DOCUMENT_URI $document_uri;
& O  x) C% T5 T5 lfastcgi_param DOCUMENT_ROOT $document_root;% u& @2 n" W! Y
fastcgi_param SERVER_PROTOCOL $server_protocol;
- f+ J/ z* o" G  L  Sfastcgi_param REMOTE_ADDR $remote_addr;
% ^( L/ U' Z3 Xfastcgi_param REMOTE_PORT $remote_port;
! [# L+ N; [) N3 G& D+ D: Wfastcgi_param SERVER_ADDR $server_addr;6 p4 R3 y# v3 w' q) m: \. s+ O8 h" [
fastcgi_param SERVER_PORT $server_port;
1 I; C/ I/ |/ t" L' m3 P$ @fastcgi_param SERVER_NAME $server_name

% n- e/ r% A$ o& o" j3 I% l. J, d
其中：$fastcgi_script_name就是访问的URL中的URI% b7 D' T% |& I _; ^% F
4 D; {& m/ Q# F. B3 z. j

/ {9 h, v& j/ }! |: W u3 e
测试页8 o! m- ?+ g9 N+ R1 ?7 T
#!/usr/bin/perl -w
print "Content-type: text/plain\r\n\r\n";#发送头信息
print "test";
( A+ T) r$ w( Z/ z# }, n; k5 }% s. i) u& C. N% r( C+ H1 R

记得一定要给nginx发送头信息不然会报504错误的。

2 M2 O/ Q8 B1 e

另：

cgi-bin存在于html目录下时（不是为了部署nagios）

; n  G* t/ U$ C! k& B- a+ b% D" O
nginx.conf更改下面的部分:location ~* .*\.cgi$/ U% F  |3 y1 l5 l- x6 M) q
            {
' }7 w# d8 d5 y+ L4 s5 m                      include perl_fcgi.conf;
& j2 H* r+ I( c; Q: s7 J$ E0 l! E             }perl_fcgi.conf更改下面的部分:7 T. i1 X7 b! N) L$ j& Y
gzip off; #gzip makes scripts feel slower since they have to complete before getting gzipped
2 a& ?, V4 g# d* S7 j1 l8 Nfastcgi_pass unix:/usr/local/nginx/logs/perl-fcgi.sock;( k- y$ P; k6 w( h$ ?* L
fastcgi_index index.cgi;fastcgi_param SCRIPT_FILENAME /usr/local/nginx/html$fastcgi_script_name;
0 ?& F9 }# c* A2 _  B/ v; b& d- O
2 t; d8 T9 N, U# z) t% n5 U; |9 T' B

! H/ a: ]& \7 ^% ]6 ?

8 i0 R/ c+ `; j4 |/ r) _1 A

2 y" l. a0 u: @) A$ r9 ?4 J3 \/ z* W! }) c/ P% l
方法二) A* r( ~% }5 Q7 j$ ]" l
; u8 |5 ~! K5 \1 G
1、安装FCGI模块：/ c8 {3 Q. M& m4 o3 ]
到http://search.cpan.org/网站上下载FCGI模块：
wget http://search.cpan.org/CPAN/auth ... MO/FCGI-0.67.tar.gz
6 h" b0 s4 \% o( i

tar -zxvf FCGI-0.67.tar.gz.
cd FCGI-0.67
perl Makefile.PL
make
make install
; q( |2 _/ f8 ~7 q6 E7 R# k

也可以这样安装：perl -MCPAN -e 'install FCGI'+ v3 m- [3 Z3 Z3 W
（我在使用这种方法时，没有找到FCGI模块）3 d6 K. t# J ^
8 s2 i7 P- Q5 `6 t# R! ~/ Q
6 G0 Z3 F; |, o' f! z- N& w6 [# d

2、安装FCGI-ProcManager模块：3 Y! I% h; n8 ^' s; B
wget http://search.cpan.org/CPAN/auth ... Manager-0.19.tar.gz2 L- D. @5 _, o& u* ^1 Z
tar -xvzf FCGI-ProcManager-0.19.tar.gz
perl Makefile.PL; W; V5 T" ?- X
make
make install
% N: [' v9 |2 d- ?' d$ g/ o
3 A7 \1 R1 H& F) a
3、Fastcgi 启动脚本
fcgi.pl! ^" Y* _- t$ f) i f2 z4 u0 d

( R @8 c0 d$ z& D3 A3 _

#!/usr/bin/perl -w

4 }. E1 I7 x5 Y( J, o5 @1 J

use

E. p2 X3 l1 W9 q$ q" Q4 I

use

- @0 a4 `/ @0 f( a* A5 i c

use

sub

shutdown

{

(

)

exit

}

/ K2 A: g5 B5 O2 A5 G

sub

{

(

)

}

use

'handler'

'normal-signals'

use

'handler'

'HUP'

require

'syscall.ph'

8 H6 H5 B/ ?6 T1 j* U3 ]/ }

use

(

)

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

/ I0 I0 W- I5 |: L4 O S7 v g

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

7 ]2 V; j7 P; d! z4 @6 _

(

)

{

}

BEGIN

(

)

{

}

{

8 d2 S+ _. X% `! Y2 M

6 ?8 b1 d# Y# ]% P1 `

exit

sub

{

die

"fakeexit\nrc="

shift

(

)

"\n"

}

+ K8 B4 S0 D5 M

eval

{

exit

}

(

)

{

exit

unless

; P7 r: W5 r/ q/ c7 R

}

% A% N ?3 ~* X! \6 L

sub

(

)

{

chdir

'/'

die

"Can't chdir to /: $!"

defined

(

fork

)

die

"Can't fork: $!"

exit

(

)

die

"Can't start a new session: $!"

' J! V U2 {( i! D' a; E% @8 `2 K, D

umask

}

2 L; ^' I; ?3 B8 ^" U9 ?

sub

{

& g5 \% z. S5 B

#如果使用 IP sockets

& x1 c4 _3 k* g1 Y& z

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

; }# n- w# }% W0 ^

#如果使用 UNIX sockets

9 f2 b" Q1 U+ r% u2 W/ z7 w3 C

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

/ r1 }3 X ]2 c! y3 n# [" }: w! N

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

#设置fastcgi进程数，默认四个

{

}

* z. f% n- e n }7 d( p

(

{

}

)

#使用unix socket

( |4 T( x" F1 W* h

(

"$ENV{FCGI_SOCKET_PATH}"

)

#设置Socket权限

1 I& C, K% j5 d6 j& \) F

chmod

0777

{

}

. ]' @+ J) t3 w# c5 S) W. X

#use UNIX sockets - user running this script must have w access to the 'nginx' folder!!

* R' z' H5 N- _- V) x; j, j2 f2 q

(

STDIN

STDOUT

STDERR

)

( S% j" L4 m9 ~4 h+ u8 o% P

(

)

(

)

{

(

)

}

(

)

}

: Z, f( k/ e" t4 S1 m

sub

{

while

(

)

{

; }4 L$ X9 d2 a' s

(

)

; h l9 ~5 ~2 n* Y8 T$ L

#processing any STDIN input from WebServer (for CGI-POST actions)

$ e, }- `$ D& O; x/ C6 k7 B

$ F" o4 q0 Y6 l

{

'CONTENT_LENGTH'

}

(

{

'REQUEST_METHOD'

}

'POST'

)

(

)

' K, a; ?, V& b9 [0 Q) G9 c( a9 l; \

{

* |7 A" H) k; u: h; \4 T& m

while

(

)

{

( a7 n! i) p- Z! j( B* g* }5 B

# k9 g- S+ S* i3 I5 u

read

(

STDIN

(

)

! j! X) g0 \/ p7 s$ L3 N4 e

last

(

defined

(

)

) W( n6 t, U( m: {, @ d

% M9 U4 Q/ W' _% e" _: g

- w4 b5 X& v. {& ^8 {

}

2 b% t* C* {/ Y L- [: e" A! T6 C

}

#running the cgi app

(

{

}

)

#can I execute this?

(

{

}

)

#Is this file empty?

(

{

}

)

#can I read this file?

4 _# v- R5 @4 W0 P, l

)

8 y+ e! u# l' C1 T& v

{

2 R2 u$ K4 f' o/ {+ N; M

pipe

(

)

* v4 m3 u5 }7 R" r' B

pipe

(

)

7 G* O k5 g! }' I. W, p, {6 p

open

(

"-|"

)

unless

(

defined

(

)

{

(

"Content-type: text/plain\r\n\r\n"

)

& n5 `. a: d0 Q. c. t

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

5 H2 x1 L! f! b3 z

# z7 z, C0 L" C; W" G1 ~

}

select

(

)

select

(

)

9 d* j/ N6 X% o9 j- h

* p' _% @+ H! [2 O

select

(

)

(

)

{

(

)

(

)

6 u' K# ^9 F8 G9 m0 f$ }

(

)

' g7 [& B8 x5 ?4 K- \! V+ K/ W

vec

(

fileno

(

)

6 t. W/ d! \: ]) k0 l

vec

(

fileno

(

)

! T5 {+ l z8 `

# i* x: C& g5 K: e3 O6 \

while

(

1 ~1 @; U1 t9 g" T8 N

select

(

undef

)

/ g0 s9 ], n5 B# E, A1 ^

{

/ q' i L) C8 m5 Y- s* B9 O) ~4 E! j

die

"$!"

unless

-1

vec

(

fileno

(

)

% n! i4 T: `! K4 L/ H

vec

(

fileno

(

)

7 p3 Q* u5 d3 ], M' u

vec

(

fileno

(

)

- _9 z' o) E! p) P

vec

(

fileno

(

)

3 I# s& @; m8 Z5 ]

(

)

{

while

(

read

(

4096

)

{

& @. p, A; h3 V

STDERR

7 A! c- Q6 }* B: Q

}

& `% a! {/ F1 @- s& i

(

)

{

8 Z& _" ^: t! h: k1 ?; Z- A5 _5 c' R

die

vec

(

fileno

(

)

unless

(

)

}

( T" O8 s+ W X. t6 S# ?

(

)

{

while

(

read

(

4096

)

{

8 j( Q" H1 V2 u( v( T6 M* ~/ \. b

}

; P( m. O8 m4 ]9 p2 w Y

(

defined

(

)

{

# \" c; G8 _2 T4 l/ I

die

# j. V! k7 a0 c4 H

vec

(

fileno

(

)

unless

(

)

& j t" n6 A3 @3 E/ h/ d1 j, J

}

9 v3 }5 v6 v% V+ ]8 e4 N

}

last

(

)

}

" H- l4 Y+ a2 S+ f5 O0 h. f

waitpid

(

)

}

else

{

+ \* c4 ]3 X0 \

foreach

(

keys

)

{

}

{

}

+ j' t3 \4 E. K. U3 B/ H% r" x

}

- j7 Q' \, _ \, } a

# cd to the script's local directory

(

{

}

(

)

[

]

)

{

chdir

2 A5 \, ~) `; w' S4 D" H

}

(

)

8 m! c; D6 E* N+ Y0 j% K5 @

W& l3 h5 N8 N2 p- y. i0 ~0 J

#close(PARENT_ERR);

( l, @4 i' f0 I6 C& s, m

(

STDIN

)

(

STDERR

)

/ g- M8 Q- R" m* r( q

" S) [% j: A3 m; U7 |$ L: l

#fcntl(CHILD_RD, F_DUPFD, 0);

# p+ x& [. c" Y0 u1 g3 W4 t

syscall

(

fileno

(

)

. f" L1 A A2 C+ ~

syscall

(

fileno

(

)

% N! e3 Q& ~* C# ^7 u) Y; w& ?

# }5 E- f- [4 Y6 p' V4 Z

#open(STDIN, "<&CHILD_RD");

exec

(

{

}

)

die

(

"exec failed"

)

}

& Z9 |8 j1 r1 F0 |9 ]/ b

}

else

{

(

"Content-type: text/plain\r\n\r\n"

)

3 u, |# v8 A, f. B. i

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

}

8 q" @3 ?! j/ h+ i. ?$ I

}

}
1 H6 Q3 J! J7 t. b8 a* }4 k0 o

2 Z* K% |& Q; h, W$ V4 @5 O5 E# w
6 x5 d2 B% t( v

使用下面的脚本启动 x; T# y& c" |/ I
vi start_fcgi.sh

export

"/tmp/perl_fcgi.socket"

export

./fcgi.pl &
' U" v% j: D' l0 I3 A5 `+ J* l+ Y

2 n6 M% r3 I3 u

4、为Nginx添加FCGI支持(以安装nagios为例）
$ G1 e0 A6 W" b2 j$ L

location ~* .*\.cgi$
            {
8 V3 K7 S3 h. v8 D# f                   rewrite ^/nagios/cgi-bin/(.*)\.cgi /$1.cgi break;8 I. P( ~. i) U& L3 V4 o
                     include perl_fcgi.conf;+ O) v; h" T6 n! |( I
            }

6 A* V+ ?! i: j8 C4 |5 c5 ^将请求cgi的url由/nagios/cgi-bin/*.cgi 重写为/*.cgi，这样，即下面的fastcgi_param中的$fastcgi_script_name，这样，可以正确的拼出cgi文件的路径。vi perl_fcgi.conf1 Q' u! M+ E2 k6 _

gzip off; #gzip makes scripts feel slower since they have to complete before getting gzipped
& A; R# P( g) Y/ J M, R1 x1 wfastcgi_pass unix:/tmp/perl_fcgi.socket;! J( u7 f; @6 R- W; V3 d2 X, |3 J
fastcgi_index index.cgi;

fastcgi_param SCRIPT_FILENAME /usr/local/nagios/sbin$fastcgi_script_name;

fastcgi_param QUERY_STRING $query_string;
# O7 A; }3 y4 F4 z! g# p: u/ bfastcgi_param REQUEST_METHOD $request_method;* }8 i6 w6 J3 F1 \" s
fastcgi_param CONTENT_TYPE $content_type;
. M8 m: e, i9 ~" X2 {8 ^fastcgi_param CONTENT_LENGTH $content_length;
6 u& ~/ G5 t2 |9 Q& W' Cfastcgi_param GATEWAY_INTERFACE CGI/1.1;
9 V9 v. K! E' F7 C7 V8 W) lfastcgi_param SERVER_SOFTWARE nginx;* Q* e: s# W: I5 j4 S
fastcgi_param SCRIPT_NAME $fastcgi_script_name;9 O8 M5 F: G r9 F
fastcgi_param REQUEST_URI $request_uri;; K5 s8 j+ U" x$ _
fastcgi_param DOCUMENT_URI $document_uri;
: j0 F1 {8 H$ @$ f( P# L8 ]fastcgi_param DOCUMENT_ROOT $document_root;
2 `; u5 T) p3 n% s: C! s6 ~+ A; z& afastcgi_param SERVER_PROTOCOL $server_protocol;
) d( |+ ^) q' Efastcgi_param REMOTE_ADDR $remote_addr;
% Q2 U& E0 T7 @; u* ]) Tfastcgi_param REMOTE_PORT $remote_port;
; v; a; N6 c% g! mfastcgi_param SERVER_ADDR $server_addr;3 P3 q7 S2 n- H
fastcgi_param SERVER_PORT $server_port;
: L- O+ ^ M' c2 c- dfastcgi_param SERVER_NAME $server_name

方法三
还有好多人使用的是fastcgi-wrapper.pl这个脚本，我没有测试

返回列表

nginx perl fastcgi 配置全攻略

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]