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

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

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.