Apache + Perl + FastCGI安装于配置

1. 安装apache

将apache源代码解压缩:
一、编译和安装apache：

# tar zxvf httpd-2.2.11.tar.gz
# cd httpd-2.2.11

# ./configure
# make
# make install

默认安装在/usr/local/apache2中。

安装fcgi

将fcgi解压缩：
# tar zxvf fcgi-2.4.0.tar.gz

编译和安装：
# cd fcgi-2.4.0
# ./configure
# make
# make install

将必要的动态库拷贝到/usr/lib中(cgi程序将依赖这些库文件)：
# cp ./libfcgi/.libs/* /usr/lib/

 
二、安装mod_fastcgi
将mod_fastcgi-2.4.6.tar.gz解压缩：
# tar zxvf mod_fastcgi-2.4.6.tar.gz

编译和安装：
# cp Makefile.AP2 Makefile
# make
# make install

三、配置apache

a) 打开/usr/local/apache2/conf/httpd.conf文件

b) 添加一行用来加载fastcgi模块：
LoadModule fastcgi_module modules/mod_fastcgi.so

c) 添加一行将cgi目录设置为/data/www/opensource/cgi-bin：
scriptAlias /cgi-bin/ "/data/www/opensource/cgi-bin/"

d) 将
<Directory "/usr/local/apache2/cgi-bin">
...
...
</Directory>
修改成：
<Directory "/data/www/www/cgi-bin">
    AllowOverride all
    Options all
    Order allow,deny
    Allow from all
</Directory>

e) 添加一行用于让apache用fastcgi模块解析.cgi后缀的文件：
AddHandler fastcgi-script .cgi .fpl

四、重启apache

/usr/local/apache2/bin/apachectl -k restart

PERL的FCGI模块：
1、首先我们安装FastCGI在Perl下的模块。最新版本在http://www.fastcgi.com/
里下载。
最新版本：FCGI-0.56.tar.gz
2、下载 FCGI-0.45.tar.gz 并且解开
$ gunzip -c FCGI-0.56.tar.gz | tar xvf -
3、编译及安装
$ perl Makefile.PL
$ make
$ make install
4、测试
$ cp echo.fpl {你www里Fastcgi所在目录}
$ lynx {你www里echo.fpl的地址}

如果顺利的话，应该会看到如下的结果：
FastCGI echo (Perl)
Request number 1
No data from standard input.
Request environment:

DOCUMENT_ROOT=/usr/local/apache/htdocs
FCGI_ROLE=RESPONDER
GATEWAY_INTERFACE=CGI/1.1
HTTP_ACCEPT=text/html, text/plain, application/applefile, application/
x-metamai
l-patch, sun-deskset-message, mail-file, default, postscript-file, aud
io-file,
x-sun-attachment, text/enriched, text/richtext, application/andrew-ins
et, x-be2
, application/postscript, message/external-body, message/partial, appl
ication/p
gp, application/pgp, video/mpeg, video/*, image/*, audio/*, audio/mod,
text/sgm
l, video/mpeg, image/jpeg, image/tiff, image/x-rgb, image/png, image/x
-xbitmap,
image/x-xbm, image/gif, application/postscript, */*;q=0.01
HTTP_ACCEPT_ENCODING=gzip, compress
HTTP_ACCEPT_LANGUAGE=en
HTTP_HOST=localhost
HTTP_NEGOTIATE=trans
HTTP_USER_AGENT=Lynx/2.8.1pre.9 libwww-FM/2.14
PATH=/usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/sbin:/opt/kde/bi
n:/home/m
yhsu/bin:/usr/X11R6/bin:/usr/sbin:/opt/kde/bin:/usr/X11R6/bin:/usr/sbi
n:/opt/kd
e/bin
QUERY_STRING=
REMOTE_ADDR=127.0.0.1
REMOTE_PORT=1427
REQUEST_METHOD=GET
REQUEST_URI=/fcgi-bin/echo.fpl
SCRIPT_FILENAME=/usr/local/www/fcgi-bin/echo.fpl
SCRIPT_NAME=/fcgi-bin/echo.fpl
SERVER_ADMIN=myhsu@localhost.localdomain
SERVER_NAME=localhost.localdomain
SERVER_PORT=80
SERVER_PROTOCOL=HTTP/1.0
SERVER_SIGNATURE=

Apache/1.3.6 Server at localhost.localdomain Port 80
SERVER_SOFTWARE=Apache/1.3.6 (Unix) mod_fastcgi/2.2.2
UNIQUE_ID=N1VIbX8AAAEAAAQnKKo
More on its way ... wait a few seconds
Initial environment:

最后，给大家一个fastcgi编程的例子：
#!/usr/local/bin/perl
use CGI::Fast;

my $counter = 0;

while (my $cgi = new CGI::Fast) {
print("Content-type: text/html\n\n");
print("We have served $counter requests");
$counter++;
}

附：一个留言版：

#!/usr/bin/perl -w
use CGI::Fast qw(:standard);
my $data_file="data.txt";
while (my $cgi=new CGI::Fast){
print "Content-Type:text/html\n\n";
#my ($rw);
#$rw=$cgi->param("rw");
#if ($rw eq "r" || $rw eq ""){
print qq~
<form name="" action="rr.fpl">
<p>name:
<input type="text" name="name">
</p>
<p>message:
<textarea name="content" wrap="VIRTUAL"></textarea>
</p>
<p>
<input type="submit" value="ok">
<input type="reset" valie="clean">
<input type="hidden" name="rw" value="w">
</p>
</form>
~;
my @line=&Read_Data;
foreach (@line){
my ($name,$content)=split(/&&/,$_);
print qq~
name:$name
<br>
message:$content
<hr>
~;
}
#}else{
my $name=$cgi->param("name");
my $content=$cgi->param("content");
#local $ok=1;
if ($name eq "" || $content eq ""){
&Print_Erro("please input all message!");
}else{
#if ($ok){
&Write_Data($name,$content);
&Print_Succ("me sucessfull");
#}
}
}

sub Read_Data {
open (FILE,$data_file);
my @line=<FILE>;
close (FILE);
return @line;
}

sub Write_Data {
my ($name,$content)=@_;
open (FILE,">>$data_file");
print FILE "$name&&$content\n";
close (FILE);
}

sub Print_Succ {
print qq href="java script:history.go(-1);">look at</a>~;
}

sub Print_Erro {
$ok=0;
print qq href="java script:history.go(-1);">go back</a>~;
}