(dkubb) Re: (2) to $Env{'HTTP_HOST'} or to $Env{'SERVER

IMHO, the best way to get at that information is through CGI.pm's method virtual_host():

use CGI;

my $cgi = CGI->new;

my $domain = $cgi->virtual_host;
[download]

It will attempt to Do The Right Thing in determing the virtual host's name. I believe it is cleaner, and more portable to use CGI's methods to access the CGI specific environment variables, than to access them directly by hand.

Comment on (dkubb) Re: (2) to $Env{'HTTP_HOST'} or to $Env{'SERVER_NAME'}, that is the question. Download Code

Replies are listed 'Best First'.
Re: (dkubb) Re: (2) to $Env{'HTTP_HOST'} or to $Env{'SERVER_NAME'}, that is the question. by RatArsed (Monk) on Jun 29, 2001 at 13:05 UTC
In reality, all that's going to do is give you $ENV{"HTTP_HOST"} (or $ENV{"SERVER_NAME"} in the highly unlikely event of the Host: request header being specified) The Host header (read $ENV{"HTTP_HOST"}) which is manditory for HTTP/1.1 (and IIRC also for HTTP/1.0) specifies the host name for the request; this was designed specifically for "virtual hosting". If you already have a CGI object floating about, then I'd recommend using `$cgi->virtual_host`. If you don't, it's probably easier to just use `$ENV{"HTTP_HOST"}` -- RatArsed	[reply] [d/l] [select]
Re^3: (2) to $Env{'HTTP_HOST'} or to $Env{'SERVER_NAME'}, that is the question. by Anonymous Monk on Oct 13, 2020 at 07:46 UTC
Perhaps something has changed in all these years: using PERL 5.14 and Apache virtual hosting all of these gives you a different result: `$CGI->virtual_host() returns DNS name ex. www.my.address.com $ENV{'SERVER_NAME'} returns "localhost" $ENV{'HTTP_HOST'} returns "localhost:8001"` [download] The actual values of course depends on you environment setting.	[reply] [d/l]