CGI教程(11)错误脚本

日期：2007年5月10日作者：查看:[大字体中字体小字体]

错误脚本额外的环境变量包括CGI 1.1 变量传递给错误脚本。这些CGI 1.1 变量有：

REDIRECT_REQUEST ：这是当正确发送给服务器的请求。

REDIRECT_URL ：这是导致错误的请求URL。

REDIRECT_STATUS ：这是如果NCSA HTTPd 已经允许应答的状态数字和信息。

另外，NCSA HTTPd在err_string=error_message时作为NCSA HTTPd产生的QUERY_STRING错误字符串传递。一些错误信息可以需要一些不在CGI规范中的文件头。基于这个原因，以下给出一个没有解析的文件头的脚本，它是用Perl编写的：

#!/usr/local/bin/perl

# 这是一个利用Perl编写的没有解析文件头的CGI 1.1错误脚本来处理错误请求。

$error = $ENV{'QUERY_STRING'};

$redirect_request = $ENV{'REDIRECT_REQUEST'};

($redirect_method,$request_url,$redirect_protocal) = split(' ',$redirect_request);

$redirect_status = $ENV{'REDIRECT_STATUS'};

if (!defined($redirect_status)) {

$redirect_status = "200 Ok";

}

($redirect_number,$redirect_message) = split(' ',$redirect_status);

$error =~ s/error=//;

$title = "<HEAD><TITLE>".$redirect_status."</TITLE></HEAD>";

if ($redirect_method eq "HEAD") {

$head_only = 1;

} else {

$head_only = 0;

}

printf("%s %s\r\n",$ENV{'SERVER_PROTOCOL'},$redirect_status);

printf("Server: %s\r\n",$ENV{'SERVER_SOFTWARE'});

printf("Content-type: text/html\r\n");

$redirect_status = "<img alt=\"\" src=http://www.qqread.com/images/icon.gif>".$redirect_status;

if ($redirect_number == 302) {

if ($error !~ /http:/) {

printf("xLocation: http://%s:%s%s\r\n",

$ENV{'SERVER_NAME'},

$ENV{'SERVER_PORT'},

$error);

if (!$head_only) {

printf("%s\r\n",$title);

printf("<H1>%s</H1>\r\n",$redirect_status);

printf("This document has moved");

printf("<A HREF=\"http://%s:%s%s\">here</A>.\r\n",

$ENV{'SERVER_NAME'},

$ENV{'SERVER_PORT'},

$error);

}

} else {

printf("Location: %s\r\n",$error);

if (!$head_only) {

printf("%s\r\n",$title);

[1] [2] [3] 下一页

上一篇:CGI教程(12)ErrorDocument 指令

下一篇:CGI教程(10)CGI 规范