当前位置：文江博客话题详情

如何检查perl cgi请求是否来自本地主机

发布于 2024-12-06 16:11:55 字数 269 浏览 0 评论 0原文

我想向本地主机 HTTP 请求公开用 Perl 编写的服务。我不想修改 Apache 配置。如何检查 Perl CGI HTTP 请求是否来自本地主机？

我希望此检查能够成功，即使此调用是通过虚拟主机进行的，例如。 https://www.myserivce.com/hidden/service.pl 鉴于调用由 www.myserivce.com 内部制作。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

甜妞爱困 2024-12-13 16:11:55

REMOTE_ADDR，但这是一种愚蠢的方法，因为你将身份验证逻辑放入应用程序中。

相反，仅将独立 Web 服务器绑定到本地接口，从而操作系统的 IP/网络堆栈保证没有来自外部的请求可以到达服务器。

回复收藏 0 原文

莫言歌 2024-12-13 16:11:55

我认为，如果您在 /etc/hosts 文件中放入 myservice.com 和 ip 127.0.0.1 的条目，那么从 localhost 到您网站的所有请求都将具有 <代码>REMOTE_ADDR 设置为 127.0.0.1 。

恐怕这是唯一的方法，除非您向 127.0.0.1/hidden/service.pl 而不是 myservice.com/hidden/service.pl< 发出请求/代码>

回复收藏 0 原文

剧终人散尽 2024-12-13 16:11:55

我使用了以下代码：

my $server_addr = inet_ntoa(scalar gethostbyname(hostname() || 'localhost'));
my $call_addr = $query->remote_addr();
die unless $call_addr eq "127.0.0.1" || $call_addr eq $server_addr;

我不认为它涵盖了所有情况，但似乎适用于我的设置。如果有人知道通用解决方案，请在此处提交。

I have used the following code:

my $server_addr = inet_ntoa(scalar gethostbyname(hostname() || 'localhost'));
my $call_addr = $query->remote_addr();
die unless $call_addr eq "127.0.0.1" || $call_addr eq $server_addr;

I do not think it covers all cases, but seems to work with my setup. If anybody knows a generic solution then please submit it here.

回复收藏 0 原文

~没有更多了~