如何使用 ModPerl::Registry 抑制旧版 CGI 脚本中的默认 mod_perl 错误页面

2024-01-12

我有一个 Perl 语言的 CGI 脚本，它可以自行生成 HTTP 错误页面。我在 mod_perl 下运行它ModPerl::注册表 http://p3rl.org/ModPerl::Registry，使用以下 Apache2 配置：

Alias /perl "/var/www/perl"
<Directory "/var/www/perl">
    SetHandler perl-script
    PerlResponseHandler ModPerl::Registry
    PerlOptions +ParseHeaders
    Options Indexes FollowSymlinks +ExecCGI
    AllowOverride None
    Order allow,deny
    Allow from all
</Directory>

一切都很好，除了一个小问题：当标头中打印的 HTTP 状态不同于 200（例如 404）时，Apache 会将默认的 HTML 错误文档附加到我自己生成的响应中。

以下面的简单 CGI 脚本为例：

#!/usr/bin/perl

use strict;
use warnings;

use CGI qw(:standard :escapeHTML -nosticky);
use CGI::Carp qw(fatalsToBrowser);

use Apache2::Const qw(:http :common);

our $cgi = CGI->new();

print $cgi->header(-type=>'text/html', -charset => 'utf-8',
                   -status=> '404 Not Found');
our $mod_perl_version = $ENV{'MOD_PERL'} ? " $ENV{'MOD_PERL'}" : '';
print <<"EOF";
<html>
<head>
<title>die_error_minimal$mod_perl_version 
</head>
<body>
404 error
</body>
</html>
EOF

exit;

使用上面提到的 Apache 配置运行它会导致

HTTP/1.1 404 Not Found
Date: Sun, 27 Nov 2011 13:17:59 GMT
Server: Apache/2.0.54 (Fedora)
Connection: close
Transfer-Encoding: chunked
Content-Type: text/html; charset=utf-8

<html>
<head>
<title>die_error_minimal mod_perl/2.0.1 
</head>
<body>
404 error
</body>
</html>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>404 Not Found</title>
</head><body>
<h1>Not Found</h1>
<p>The requested URL /perl/die_error_minimal.cgi was not found on this server.</p>
<hr>
<address>Apache/2.0.54 (Fedora) Server at localhost Port 80</address>
</body></html>

请注意，替换exit;在上面的示例 CGI 脚本中return Apache2::Const::OK; or return Apache2::Const::DONE;，如“如何抑制 mod_perl 中的默认 apache 错误文档？ https://stackoverflow.com/q/1681030/46058“关于 SO 的问题没有帮助——结果保持不变。

我应该在 Apache 配置中修复什么，或者应该在 CGI 脚本中添加什么以抑制 mod_perl / Apache 将错误页面附加到生成的响应？

FAQ对我有用，在你的CGI完成后，发送标头后，告诉apache状态正常，所以它不会发送ErrorDocumenthttp://search.cpan.org/~gozer/mod_perl-1.31/faq/mod_perl_faq.pod#So_how_do_I_use_mod_perl_in_conjunction_with_ErrorDocument%3F http://search.cpan.org/~gozer/mod_perl-1.31/faq/mod_perl_faq.pod#So_how_do_I_use_mod_perl_in_conjunction_with_ErrorDocument%3F

#!/usr/bin/perl --
use strict; use warnings;
use CGI;

Main( @ARGV );
exit( 0 );

sub Main { 
    my404();
#~ my $r = CGI::Simple->new->_mod_perl_request;
    my $r = CGI->new->r;
    $r->status(200);
    return;
}
sub my404 {
    my $cgi = CGI->new;
    print $cgi->header(  -status => 404 );
    print "<html><title>print404 says tough noogies</title>
<body><h1>tough noogies</h1></body></html>";
}
__END__

GET http://localhost/perl/print404
User-Agent: lwp-request/6.03 libwww-perl/6.03

404 Not Found
Connection: close
Date: Sun, 27 Nov 2011 20:55:39 GMT
Server: Apache/2.0.54 (Win32) mod_ssl/2.0.54 OpenSSL/0.9.7g PHP/4.3.11 mod_perl/2.0.1 Perl/v5.8.9
Content-Type: text/html; charset=ISO-8859-1
Client-Date: Sun, 27 Nov 2011 20:55:39 GMT
Client-Peer: 127.0.0.1:80
Client-Response-Num: 1
Client-Transfer-Encoding: chunked
Title: print404 says tough noogies

<html><title>print404 says tough noogies</title>
<body><h1>tough noogies</h1></body></html>

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

如何使用 ModPerl::Registry 抑制旧版 CGI 脚本中的默认 mod_perl 错误页面的相关文章

如何轻松地将 Ajax、perl 和 JSON 结合使用？

我正在尝试使用 Ajax 制作一个网页 Example 我创建了一个 Perl CGU 文件来触发一个简单的帖子文件 test cgi name 托马斯回复短信你的名字是托马斯我创建了一个可以使用该帖子的 html 文件但随后页面
Perl 的反引号、system 和 exec 有什么区别？

有人可以帮帮我吗在 Perl 中以下之间有什么区别 exec command and system command and print command 还有其他方法可以运行 shell 命令吗 exec 执行命令并一去不复返这就像一个
如何使用 Perl 分割文本文件并将其存储到二维数组中？

230215 01 16 2000 57533 0 1045403 0 0 217623 230215 01 18 2000 77659 0 1045403 0 0 217624 230215 01 25 2000 76583 0 1045
如何用perl逐句读取文本文件？

我想逐句读取文本文件我的问题是下面的代码仅根据时期分开 usr bin perl use strict use warnings my file data txt open FILE file my buffer while my sen
Perl Parallel::Forkmanager 不允许收集变量值

也许因为子进程不知道我的散列请参阅下面的代码散列输出没有收集任何内容除了写入 tmp 文件之外还有其他方法来收集该值吗 foreach Item AllItems pid pm gt start Item and next Tem
在 Perl 中使用数据引用的正确方法

我有一组想要处理的数据为了简化我的代码最好通过指向原始数据的引用数组来访问我的数据的某些子集比解释更好的是我写下了这个例子它还没有工作最后我想更新原始数据而不必更新所有子集用 Perl 可以做这样的事情吗 usr bin
grep 两个分隔符之间的子字符串

我有很多bash使用的脚本perl内的表达式grep为了提取两个分隔符之间的子字符串例子 echo BeginMiddleEnd grep oP lt Begin End 问题是当我将这些脚本移植到运行的平台时busybox 融合的 g
Text::平衡和多行 xml

看来我有点失落了我需要解析一个大的大约 100 mb 且相当难看的 xml 文件如果我使用parsefile 它返回错误文档元素后的垃圾但它会很乐意解析文件的较小元素所以我决定将文件分解为元素并解析它们由于不鼓励使用正则表达式
如何在 Perl 中使用原始套接字？

你怎样才能得到一个rawPerl 中的套接字那么构建与其一起使用的数据包的最佳方法是什么与在 C 中执行的操作相同通过在创建套接字时设置套接字类型在示例中CPAN http search cpan org rgarcia perl
如何将 NTLM 身份验证与 Perl 的 SOAP::Lite 模块集成？

此 Perl 代码适用于对 ASP NET Web 服务的匿名访问但当打开集成安全性时该服务会返回 401 错误我认为我需要将 NTLM 模块与 SOAP Lite 结合使用但尚不清楚如何做到这一点如何集成这些组件 use SOA
如何彻底删除 Perl 中的包？

如何在 Perl 中彻底删除一个包这不仅意味着包变量还意味着 Perl 更新以处理继承更改和其他事情的任何魔术表这个简单的测试 use warnings use strict use Test LeakTrace use Symbol
如何忽略 perl 中的“证书验证失败”错误？

我想访问一个无法验证证书的网站我正在使用 WWW Mechanize 获取请求那么如何忽略这一点并继续连接到该网站呢 use IO Socket SSL qw use WWW Mechanize qw my mech WWW Mecha
如何使用“子例程引用”作为哈希键

在 Perl 中我正在学习如何取消引用子例程引用但我似乎无法使用子例程引用作为哈希键在下面的示例代码中我可以创建对子例程 subref 的引用然后取消引用它以运行子例程 subref 我可以使用引用作为哈希值然后轻松取消引
如何在 Perl 中修改 Windows NTFS 权限？

我在 Windows Server 2003 上使用 ActiveState Perl 我想在 Windows NTFS 分区上创建一个目录然后授予 Windows NT 安全组对该文件夹的读取访问权限这在 Perl 中可能吗我必须使
perl 和 java 正则表达式功能之间有什么区别？

perl 和 java 在支持哪些正则表达式术语方面有什么区别这个问题仅涉及正则表达式并且特别排除了how可以使用正则表达式即使用正则表达式的可用函数方法以及语言之间的语法差异例如java要求转义反斜杠等特别令人感兴趣的是 j
我可以在 Perl 中访问动态指定类中的静态方法吗？

是否可以在 Perl 中动态指定一个类并访问该类中的静态方法这不起作用但说明了我想做的事情 use Test Class1 my class Test Class1 class static method 我知道我可以这样做 class
Mojolicious：我应该使用一个还是多个 websocket？

我正在自学 Mojolicious 和 websockets 到目前为止我已经有了一个网页它显示数据库中的行并具有用于添加删除和更新行以及选择用于排序的列的按钮目前它在每个按钮的 javascript onclick 处理程序中
从函数返回哈希值的最佳 Perl 实践是什么？

我正在考虑将哈希引用传递给函数或从函数返回数据的最佳实践一方面仅将输入值传递给函数并仅返回输出变量似乎很直观然而在 Perl 中传递哈希值只能通过引用来完成因此有点混乱而且似乎更有可能犯错误另一种方法是在输入变量中传递引用但
Perl：管理 Windows 上的路径编码

我正在努力处理包含非英文字符的路径 Activestate Perl Windows XP 如何打开写入复制等位于包含希腊语俄语法语重音字符的路径中的文件假设我要将 text txt 文件复制到的目录是 C Documents a
使用perl创建层次结构文件

我的任务是使用 perl 创建父子层次结构文件示例输入文件制表符分隔记录将以随机顺序排列在文件中父项可能出现在子项之后 S5 S3 S5 S8 ROOT S1 S1 S7 S2 S5 S3 S4 S1 S2 S4 77 S2

随机推荐

NumPy vectorize() 或 dot() 出现错误

在下面的代码中 y1 和 y2 应该相等但事实并非如此 vectorize 或 dot 中是否存在错误 import numpy as np interval np arange 0 30 0 1 y1 1 57 max 0 x 10 0
从 URL 下载图像 Python

当我尝试从 web url 下载图像时我的脚本出现问题它在其他页面 offex pl 上有效但在我的商店中图像不起作用我只有所有文件但无法打开文件 my code import os import time import requ
dplyr mutate-ifelse 组合未创建正确的条件变量

我正在尝试使用 dplyr 中的 mutate 创建条件变量但这似乎对我不起作用请参阅我尝试创建的示例数据框和组合得分变量请注意新变量 combined score 的第三个观测值不是 B C 和 D 的总和看来仅计算第一个观测值
效率 - 在等待变量更改的循环中使用 Thread.yield

我有一些代码如下所示 while this conditionIsNotYetMet if timeout break Don t do anything just wait till the condition is filled by
如何在 Entity Framework Core 中运行存储过程？

我在 ASP NET Core 应用程序中使用 EF Core 1 0 您能否指出执行存储过程的正确方法旧方法与ObjectParameters and IObjectContextAdapter this ObjectContext E
如何在 NDV3 Discreate 条形图中设置自定义条形宽度

我正在尝试使用 nvd3 图表构建垂直条形图问题如果图表只有一条记录则条形宽度达到图表宽度的 3 4 问题如何更改离散条形图中条形的宽度已附上图表请指导我如果你看一下源码here https github com novus
如何使用clone()让父进程和子进程同时运行？

我是 Linux 新手我想同时创建子进程和父进程但我失败了这是我的代码有谁能够帮助我 define GNU SOURCE include
Pycharm 调试器可以在 Ubuntu 上运行，但不能在 Windows 上运行相同的代码

Update 正在跟踪的问题here https youtrack jetbrains com issue PY 19076 Edit 我可能不是唯一有这个问题的人我错过了今天也发布的这个它看起来相关 PyCharm 调试器不起作用 h
Ubuntu：valgrind：无法启动平台“amd64-linux”的工具“memcheck”：没有这样的文件或目录

我已经安装了 valgrind 没有任何问题但运行它时我不断收到以下错误 valgrind failed to start tool memcheck for platform amd64 linux No such file or d
屏幕坐标到世界坐标

我想从屏幕坐标转换为世界坐标OpenGL 我在用glm为此目的我也在使用glfw 这是我的代码 static void mouse callback GLFWwindow window int button int action int
.load() jQuery 不适用于 chrome？

我的代码在 Firefox 上运行得很好但在 Chrome 上却不行 jQuery 有问题吗 load 在谷歌浏览器上它对我来说效果很好如果您在计算机上运行代码而不是从实时网站运行代码则出于安全原因 Chrome 可能会禁止调用如
Yii框架中homeUrl和baseUrl有什么区别？

有什么区别homeUrl and baseUrl在 Yii 框架中 Yii app gt getBaseUrl true gt http localhost yii projects Yii app gt getHomeUrl gt yii
Laravel 在数组上调用成员函数 toArray() 错误

我希望有人能够消除我对这个错误的一些困惑这是我的代码注意 User模型与Image有hasMany关系 user User with profile gt whereUsername username gt firstOrFail im
Laravel 5.2 测试：测试未运行

我已经通过终端使用命令创建了一个测试 php artisan make test UserTest 现在我想使用以下命令运行测试 vendor bin UserTest 但它返回 bash vendor bin UserTest No su
谁能解释一下执行器中的rdd块

任何人都可以解释为什么当我第二次运行 Spark 代码时 rdd 块会增加即使它们在第一次运行期间存储在 Spark 内存中我使用线程提供输入 rdd 块的确切含义是什么我今天一直在研究这个问题看来 RDD 块是 RDD 块和非 R
Tensorboard：未找到图形定义文件。

在我的Python代码中我执行 train writer tf summary FileWriter TBOARD LOGS DIR train writer add graph sess graph 我可以看到在 E progs tens
为什么 MongoDB 不再允许在空文档中使用 $set 和 $unset？

我刚刚从MongoDB版本2 2更新到版本2 6 发现不能再使用 set and unset运营商在update使用空字典的方法例如调用db mytable update field value set 过去只是让文档保持不变但现在它
emxArray_real_T 到 C# 结构加上初始化

我正在尝试为此 C 结构创建一个构造函数包括初次尝试 StructLayout LayoutKind Sequential public struct emxArray real T public IntPtr data public
当存在冗余级别时，如何在 R 的 ggplot2 中保持恒定宽度的条形图？

考虑一些未出现级别的示例数据 dat lt data frame sex c F M F status c Pregnant Not pregnant Not pregnant frequency c 25 100 75 在样本数据中男性
如何使用 ModPerl::Registry 抑制旧版 CGI 脚本中的默认 mod_perl 错误页面

我有一个 Perl 语言的 CGI 脚本它可以自行生成 HTTP 错误页面我在 mod perl 下运行它ModPerl 注册表 http p3rl org ModPerl Registry 使用以下 Apache2 配置 Alias

如何使用 ModPerl::Registry 抑制旧版 CGI 脚本中的默认 mod_perl 错误页面

如何使用 ModPerl::Registry 抑制旧版 CGI 脚本中的默认 mod_perl 错误页面 的相关文章

随机推荐

热门标签

如何使用 ModPerl::Registry 抑制旧版 CGI 脚本中的默认 mod_perl 错误页面的相关文章