nginx perl fastcgi daemon 脚本

啊泰

rc.conf:

perl_fcgi_enable="YES"
perl_fcgi_pidfile="/var/run/perl-fcgi.pid"
perl_fcgi_user="www"
perl_fcgi_group="www"
perl_fcgi_chdir="/"
perl_fcgi_chroot=""
perl_fcgi_socket="/tmp/perl-fcgi.sock"
perl_fcgi_socketbacklog="100"
perl_fcgi_socketmode="0777"
perl_fcgi_children="2"
perl_fcgi_childrentimeout="10"
perl_fcgi_max_requests="10000"
perl_fcgi_path_env="/bin:/usr/bin"



/usr/local/etc/rc.d/perl-fcgi

1. #!/bin/sh
   
2. ### Rozhuk Ivan 2009.05
   
3. ### startup script file for perl-fcgi
   
4. ###
   
5. 
   
6. 
   
7. # PROVIDE: perl_fcgi
   
8. # REQUIRE: DAEMON
   
9. # BEFORE:  LOGIN
   
10. # KEYWORD: shutdown
    
11. 
    
12. . /etc/rc.subr
    
13. 
    
14. name="perl_fcgi"
    
15. rcvar=`set_rcvar`
    
16. 
    
17. load_rc_config $name
    
18. 
    
19. : ${perl_fcgi_enable="NO"}
    
20. : ${perl_fcgi_pidfile="/var/run/perl-fcgi.pid"}
    
21. : ${perl_fcgi_user="www"}
    
22. : ${perl_fcgi_group="www"}
    
23. : ${perl_fcgi_chdir=""}
    
24. : ${perl_fcgi_chroot=""}
    
25. : ${perl_fcgi_socket="127.0.0.1:9001"}
    
26. : ${perl_fcgi_socketbacklog="10"}
    
27. : ${perl_fcgi_socketmode="0777"}
    
28. : ${perl_fcgi_children="5"}
    
29. : ${perl_fcgi_childrentimeout="30"}
    
30. : ${perl_fcgi_max_requests="1000"}
    
31. : ${perl_fcgi_path_env="/bin:/usr/bin"}
    
32. 
    
33. 
    
34. command="/usr/local/etc/perl-fcgi.pl"
    
35. command_args="-d ${perl_fcgi_chdir} -s ${perl_fcgi_socket} -sb ${perl_fcgi_socket} -M ${perl_fcgi_socketmode} -F ${perl_fcgi_children} -Ft ${perl_fcgi_childrentimeout} -Fm ${perl_fcgi_max_requests} -P ${perl_fcgi_pidfile} -e ${perl_fcgi_path_env}"
    
36. procname="perl-fcgi-pm"
    
37. pidfile="${perl_fcgi_chroot}${perl_fcgi_pidfile}"
    
38. required_dirs=${perl_fcgi_chroot}
    
39. 
    
40. start_precmd="${name}_start_precmd"
    
41. stop_postcmd="${name}_stop_postcmd"
    
42. 
    
43. 
    
44. perl_fcgi_start_precmd()
    
45. {
    
46.         touch ${perl_fcgi_chroot}${pidfile}
    
47.         chown ${perl_fcgi_user}:${perl_fcgi_group} ${perl_fcgi_chroot}${pidfile}
    
48. }
    
49. 
    
50. perl_fcgi_stop_postcmd()
    
51. {
    
52.         rm -f ${pidfile}
    
53. }
    
54. run_rc_command "$1"
    
55. 
    

复制代码

创建perl-fcgi.pl 到/usr/local/etc/ 下

1. #!/usr/bin/perl -w
   
2. ### Rozhuk Ivan, 2009
   
3. ### fast cgi for perl scripts
   
4. ### mod version 1.2
   
5. 
   
6. ### origin: http://wiki.nginx.org//NginxSimpleCGI
   
7. ### mod by  Denis S. Filimonov (Guest) on 13.03.2008 18:37 http://www.ruby-forum.com/attachment/1583/fastcgi-wrapper.pl
   
8. ### mod by mark: http://www.linux.org.ru/view-message.jsp?msgid=3532327
   
9. ### final: http://wiki.nginx.org//NginxSimpleCGI
   
10. ### additional: http://www.opennet.ru/base/dev/fastcgi_perl.txt.html
    
11. 
    
12. 
    
13. use strict;
    
14. use warnings;
    
15. use FCGI; # /usr/ports/www/p5-FastCGI
    
16. use FCGI::ProcManager qw(pm_manage pm_pre_dispatch pm_post_dispatch); # /usr/ports/www/p5-FCGI-ProcManager
    
17. use Socket;
    
18. use POSIX qw(setsid setuid);
    
19. use Getopt::Long;
    
20. require 'sys/syscall.ph';
    
21. 
    
22. # settings
    
23. my ($CURRENT_DIR,$SOCKET_ADDRESS,$SOCKET_BACKLOG,$SOCKET_MODE,$CHILDRENS_COUNT,$CHILDRENS_TIMEOUT,$CHILDRENS_MAX_REQ,$PIDFILE,$PATHENV);
    
24. 
    
25. # global variables
    
26. 
    
27. 
    
28. 
    
29. &startpoint();
    
30. 
    
31. 
    
32. #this keeps the program alive or something after exec'ing perl scripts
    
33. END()                { }
    
34. BEGIN()        { }
    
35. {no warnings; *CORE::GLOBAL::exit = sub { die "fakeexit\nrc=".shift()."\n"; }; };
    
36. eval q{exit};
    
37. if ($@) { exit unless $@ =~ /^fakeexit/; };
    
38. 
    
39. 
    
40. 
    
41. sub startpoint()
    
42. {
    
43.         if ($#ARGV!=-1)
    
44.         {
    
45.                 $CURRENT_DIR                ='/';
    
46.                 #$SOCKET_ADDRESS        ='';
    
47.                 $SOCKET_BACKLOG        =10;
    
48.                 $SOCKET_MODE                =0777;
    
49.                 $CHILDRENS_COUNT        =2;
    
50.                 $CHILDRENS_TIMEOUT        =30;
    
51.                 $CHILDRENS_MAX_REQ        =100;
    
52.                 #$PIDFILE                ='';
    
53.                 #$PATHENV                ='/bin:/usr/bin';
    
54. 
    
55.                 GetOptions(        'd:s'        => \$CURRENT_DIR,
    
56.                                 's=s'        => \$SOCKET_ADDRESS,
    
57.                                 'sb:i'        => \$SOCKET_BACKLOG,
    
58.                                 'M:i'        => \$SOCKET_MODE,
    
59.                                 'F:i'        => \$CHILDRENS_COUNT,
    
60.                                 'Ft:i'        => \$CHILDRENS_TIMEOUT,
    
61.                                 'Fm:i'        => \$CHILDRENS_MAX_REQ,
    
62.                                 'P:s'        => \$PIDFILE,
    
63.                                 'e:s'        => \$PATHENV,
    
64.                 );
    
65. 
    
66.                 if (!defined($SOCKET_ADDRESS)) {usage();}
    
67. 
    
68.                 # untainte input
    
69.                 if ($SOCKET_ADDRESS =~ /^(.*)$/) {$SOCKET_ADDRESS = $1;}
    
70.                 if (defined($PIDFILE)) {if ($PIDFILE =~ /^(.*)$/) {$PIDFILE = $1;}}
    
71.                 if (defined($PATHENV))
    
72.                 {
    
73.                         if ($PIDFILE =~ /^(.*)$/) {$PIDFILE = $1;}
    
74.                 }else{
    
75.                         $PATHENV='/bin:/usr/bin';
    
76.                 }
    
77. 
    
78. 
    
79.                 #print "SOCKET_ADDRESS: $SOCKET_ADDRESS SOCKET_BACKLOG: $SOCKET_BACKLOG CHILDRENS_COUNT: $CHILDRENS_COUNT CHILDRENS_TIMEOUT: $CHILDRENS_TIMEOUT PIDFILE: $PIDFILE\n";
    
80.                 daemonize();
    
81.         }else{
    
82.                 usage();
    
83.         }
    
84. }
    
85. 
    
86. 
    
87. sub usage
    
88. {
    
89.         print "Usage: perl-fcgi [options]\n\n";
    
90.         print " -d <directory>        chdir to directory before spawning (default /)\n";
    
91.         print " -s <address/path>        unix socket or tcp address:port\n";
    
92.         print " -sb <size>                socket backlog size (default 10)\n";
    
93.         print " -M <mode>                change Unix domain socket mode (default 0777)\n";
    
94.         print " -F <children>                number of children to fork (default 2)\n";
    
95.         print " -Ft <timeout>                children process timeout (default 30)\n";
    
96.         print " -Fm <num>                children process max requests (default 100)\n";
    
97.         print " -P <path>                name of PID-file for spawned process\n";
    
98.         print " -e <path>                set new PATH environment (default /bin:/usr/bin)\n";
    
99.         #print "(root only)\n";
    
100.         #print " -c <directory>                chroot to directory (default /)\n";
     
101.         #print " -S                        create socket before chroot() (default is to create the socket in the chroot)\n";
     
102.         #print " -u <user>                change to user-id\n";
     
103.         #print " -g <group>                change to group-id (default: primary group of user if -u is given)\n";
     
104.         #print " -U <user>                change Unix domain socket owner to user-id\n";
     
105.         #print " -G <group>                change Unix domain socket group to group-id\n";
     
106. 
     
107.         exit;
     
108. }
     
109. 
     
110. 
     
111. sub daemonize()
     
112. {
     
113.         delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # Make %ENV safer
     
114.         $ENV{'PATH'} = $PATHENV; # set new path environment
     
115.         chdir $CURRENT_DIR                 or die "Can't chdir to $CURRENT_DIR: $!\n";
     
116.         #setuid(65534)                or die "Can't set uid: $!\n"; # nobody
     
117. 
     
118.         open(STDIN,  "+>/dev/null")        or die "Can't open STDIN: $!\n";
     
119.         open(STDOUT, "+>&STDIN")        or die "Can't open STDOUT: $!\n";
     
120.         open(STDERR, "+>&STDIN")        or die "Can't open STDERR: $!\n";
     
121.         defined(my $tm = fork)        or die "Can't fork: $!\n";
     
122.         exit if $tm;
     
123.         setsid                                or die "Can't start a new session: $!\n";
     
124.         umask 0;
     
125. 
     
126.         main();
     
127. }
     
128. 
     
129. 
     
130. sub main
     
131. {
     
132.         my ($ListenSocket);
     
133.         my ($proc_manager,$request,%req_params);
     
134. 
     
135.         $ListenSocket = FCGI::OpenSocket( $SOCKET_ADDRESS, $SOCKET_BACKLOG );
     
136.         if (defined($ListenSocket))
     
137.         {
     
138.                 if (defined($PIDFILE))
     
139.                 {
     
140.                         open FILE, "> $PIDFILE" or die $!;
     
141.                         print FILE "$$\n";
     
142.                         close FILE;
     
143.                 }
     
144. 
     
145.                 if (substr($SOCKET_ADDRESS,0,1) eq '/')
     
146.                 {
     
147.                         print "chmod($SOCKET_MODE,$SOCKET_ADDRESS)\n";
     
148.                         chmod(oct($SOCKET_MODE),$SOCKET_ADDRESS);
     
149.                 }
     
150. 
     
151.                 $proc_manager = FCGI::ProcManager->new({ n_processes => $CHILDRENS_COUNT, die_timeout => $CHILDRENS_TIMEOUT });
     
152.                 $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%req_params, $ListenSocket, &FCGI::FAIL_ACCEPT_ON_INTR );
     
153.                 $proc_manager->pm_manage();
     
154. 
     
155.                 if ($request) { request_loop(\$proc_manager,\$request,\%req_params) };
     
156. 
     
157.                 FCGI::CloseSocket( $ListenSocket );
     
158.                 if (substr($SOCKET_ADDRESS,0,1) eq '/')        {unlink($SOCKET_ADDRESS);}
     
159.                 if (defined($PIDFILE))                        {unlink($PIDFILE);}
     
160.         }
     
161. }
     
162. 
     
163. 
     
164. sub request_loop()
     
165. {
     
166.         my ($proc_manager_ref)=$_[0];
     
167.         my ($request_ref)=$_[1];
     
168.         my ($req_params_ref)=$_[2];
     
169.         my ($stdin_passthrough,$req_len,$key,$pid_child,$req_count);
     
170. 
     
171.         $req_count=1;
     
172.         while( $$request_ref->Accept() >= 0 )
     
173.         {
     
174.                 $$proc_manager_ref->pm_pre_dispatch();
     
175.                
     
176.                 #processing any STDIN input from WebServer (for CGI-POST actions)
     
177.                 $stdin_passthrough ='';
     
178.                 { no warnings; $req_len = 0 + $$req_params_ref{'CONTENT_LENGTH'}; };
     
179.                 if (($$req_params_ref{'REQUEST_METHOD'} eq 'POST') && ($req_len != 0) )
     
180.                 {
     
181.                         my $bytes_read = 0;
     
182.                         while ($bytes_read < $req_len)
     
183.                         {
     
184.                                 my $data = '';
     
185.                                 my $bytes = read(STDIN, $data, ($req_len - $bytes_read));
     
186.                                 last if ($bytes == 0 || !defined($bytes));
     
187.                                 $stdin_passthrough .= $data;
     
188.                                 $bytes_read += $bytes;
     
189.                         }
     
190.                 }
     
191. 
     
192.                 #running the cgi app
     
193.                 if ( (-x $$req_params_ref{SCRIPT_FILENAME}) &&  #can I execute this?
     
194.                         (-s $$req_params_ref{SCRIPT_FILENAME}) &&  #Is this file empty?
     
195.                         (-r $$req_params_ref{SCRIPT_FILENAME})     #can I read this file?
     
196.                 ){
     
197. 
     
198.                         pipe(CHILD_RD, PARENT_WR);
     
199.                         $pid_child = open(KID_TO_READ, "-|");
     
200.                         unless(defined($pid_child))
     
201.                         {
     
202.                                 print("Content-type: text/plain\r\n\r\n");
     
203.                             print "Error: CGI app returned no output - Executing $$req_params_ref{SCRIPT_FILENAME} failed !\n";
     
204.                                 next;
     
205.                         }
     
206. 
     
207.                         if ($pid_child > 0)
     
208.                         {
     
209.                                 close(CHILD_RD);
     
210.                                 print PARENT_WR $stdin_passthrough;
     
211.                                 close(PARENT_WR);
     
212. 
     
213.                                 while(my $s = <KID_TO_READ>) { print $s; }
     
214.                                 close KID_TO_READ;
     
215.                                 waitpid($pid_child, 0);
     
216.                         }else{
     
217.                                 foreach $key ( keys %{$req_params_ref}){ $ENV{$key} = $$req_params_ref{$key}; }
     
218.                                 # cd to the script's local directory
     
219.                                 if ($$req_params_ref{SCRIPT_FILENAME} =~ /^(.*)\/[^\/]+$/) { chdir $1;}
     
220. 
     
221.                                 close(PARENT_WR);
     
222.                                 close(STDIN);
     
223.                                 #fcntl(CHILD_RD, F_DUPFD, 0);
     
224.                                 syscall(&SYS_dup2, fileno(CHILD_RD), 0);
     
225.                                 #open(STDIN, "<&CHILD_RD");
     
226.                                 exec($$req_params_ref{SCRIPT_FILENAME});
     
227.                                 die("exec failed");
     
228.                         }
     
229.                 }else{
     
230.                         print("Content-type: text/plain\r\n\r\n");
     
231.                         print "Error: No such CGI app - $$req_params_ref{SCRIPT_FILENAME} may not exist or is not executable by this process.\n";
     
232.                 }
     
233. 
     
234.                 $req_count++;
     
235.                 exit if $req_count > $CHILDRENS_MAX_REQ;
     
236. 
     
237.                 $$proc_manager_ref->pm_post_dispatch();
     
238.         }
     
239. }
     
240. 
     
241. 
     

复制代码

gvim

看不懂
原创的吗?

kisswen

里面有版权申明嗒

用来让nginx支持cgi的，跟php-fpm作用差不多
嘿嘿
收藏先

beyondfly

支持