Home/ Questions/Q 6707047
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-26T07:35:33+00:00

I would like to expose a service written in Perl to localhost HTTP requests.

  • 0

I would like to expose a service written in Perl to localhost HTTP requests. I do not want to modify Apache configuration. How to check whether a Perl CGI HTTP request originates from localhost?

I want for this check to succeed even if this call is made through a virtual host eg. https://www.myserivce.com/hidden/service.pl given that the call is made from inside of http://www.myserivce.com.

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    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