I'm looking for a way to check the URL that the user is coming from. I have two domain names that both call the same cgi file and depending on what domain they are in I want to change info on the page. Is there a simple perl command that returns the url of the site they are on?

Thanks,
David

: I'm looking for a way to check the URL that the user is coming from.
: I have two domain names that both call the same cgi file and
: depending on what domain they are in I want to change info on the
: page. Is there a simple perl command that returns the url of the
: site they are on?
It's in the environment data.

$ENV{'SERVER_NAME'}

Jonathan

###
for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
(tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
/(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");

: : I'm looking for a way to check the URL that the user is coming from.
: : I have two domain names that both call the same cgi file and
: : depending on what domain they are in I want to change info on the
: : page. Is there a simple perl command that returns the url of the
: : site they are on?
: It's in the environment data.
:
: $ENV{'SERVER_NAME'}
:
: Jonathan
:
: ###
: for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
: (tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
: /(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");
:
:

Thanks again for the help! I did a some google searching and found that $ENV{'HTTP_HOST'} is what I was looking for. Would server_name return the same thing? Where is a good place to find more info about $ENV?

David

: Thanks again for the help! I did a some google searching and found
: that $ENV{'HTTP_HOST'} is what I was looking for. Would server_name
: return the same thing? Where is a good place to find more info about
: $ENV?
Easy way to print all of them out:-

print "$_ = $ENV{$_}<br>\n" for (sort keys %ENV);

Jonathan

###
for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
(tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
/(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");