URL check - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

URL check

davidrtgdavidrtg Posts: 95Member
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

Comments

  • JonathanJonathan Posts: 2,914Member
    : 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.");

  • davidrtgdavidrtg Posts: 95Member
    : : 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
  • JonathanJonathan Posts: 2,914Member
    : 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{$_}

    " 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.");

Sign In or Register to comment.