Question

我在设置cookie然后在mod_perl下重定向时遇到了一个有趣的问题。到目前为止，我已经有了一个常规的cgi环境，并且set cookie / redirect从来就不是问题;一切都按预期工作。然而，当我打开mod_perl时，我得到一个状态200和一个带有重定向url的html正文。 cookie总是放在标题之后和文档正文之前，即使我在重定向之前打印它。我把脚本简化为裸骨，这样你就可以看出我的意思了：

#!/usr/local/bin/perl

use strict;
use warnings;

use CGI;

my $cgi = new CGI;

my $cookie = CGI::cookie(
  '-name'     => 'joe',
  '-value'    => 'fred',
  '-path'     => '/cgi-bin',
  '-httponly' => 1,
);
print "Set-Cookie: $cookie\n";

print $cgi->redirect(-uri => 'http://example.com/cgi-bin/joe.cgi', -status => 303);

当我在常规CGI下用curl测试时，我得到了（为了简洁起见，域名被替换并剪断）：

< HTTP/1.1 303 See Other
< Date: Tue, 23 Oct 2012 16:26:55 GMT
< Server: Apache/2.2.22 (Ubuntu)
< Set-Cookie: joe=fred; path=/cgi-bin; HttpOnly
< Location: http://example.com/cgi-bin/joe.cgi
< Content-Length: 0

......这就是我的期望。当我在mod_perl下测试时，我得到：

< HTTP/1.1 200 OK
< Date: Tue, 23 Oct 2012 16:26:38 GMT
< Server: Apache/2.2.22 (Ubuntu)
< Location: http://example.com/cgi-bin/joe.cgi
< Transfer-Encoding: chunked
<
Set-Cookie: joe=fred; path=/cgi-bin; HttpOnly
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>200 OK</title>
</head><body>
<h1>OK</h1>
<p>The answer to your request is located <a href="http://example.com/cgi-bin/joe.cgi">here</a>.</p>
<hr>
<address>Apache/2.2.22 (Ubuntu) Server at example.com Port 80</address>
</body></html>

我在日志中没有收到任何警告。知道为什么mod_perl决定以这种奇怪的方式处理这种重定向吗？

Answer 1

实际上为我修复的一切是使用：

my $r = Apache2::RequestUtil->request;
$r->err_headers_out->add('Set-Cookie' => $cookie);

...我的cookie处理。如果您决定稍后重定向，这可以确保cookie可以正常工作。

我试图避免使用mod_perl污染我的纯cgi脚本，这样我就可以来回切换，但是会受到影响。所有其他标头处理现在都可以正常工作。

Answer 2

IIRC在CGI to mod_perl Porting. mod_perl Coding guidelines

中解释

基本上，如果您使用$cgi->redirect( -cookie => $cookie, ... )，它会按预期工作混合$cgi->header并打印＆＃34;标题\ n＆＃34;倾向于在mod_perl下无法可靠地工作，选择一个或另一个

Set-Cookie然后重定向在perl CGI下工作，但不是mod_perl

2 个答案: