Perl equivalent of PHP_AUTH_PW


Perl equivalent of PHP_AUTH_PW

我正在使用jquery中的跨域AJAX,在中间使用本地转发脚本,并且我需要将基本身份验证信息传递到第二个域。在PHP中,我知道我可以访问$_SERVER['PHP_AUTH_USER']$_SERVER['PHP_AUTH_PW']变量,它们是简单的明文,所以我的转发脚本可以毫无困难地使用这些信息。

由于我无法控制的原因,我不得不用Perl CGI来执行这个任务。我知道有$ENV{REMOTE_USER},但我怎么也找不到密码。我试过$ENV{HTTP_AUTHORIZATION},但总是显示空白。

如何在Perl中读取基本身份验证密码?或者,至少,是否有一种方法可以让我的CGI直接读取授权头,以便我可以base64解码并自己拆分字符串?

谢谢!

查看这篇文章:http://www.besthostratings.com/articles/http-auth-php-cgi.html .

它使用ModReWrite将Http授权头写入环境变量。然后你可以在你的CGI脚本中访问和解码它。

<IfModule mod_rewrite.c>
RewriteEngine on
RewriteRule .* - [E=HTTP_AUTHORIZATION:%{HTTP:Authorization},L]
</IfModule>