http://www.perlmonks.org?node_id=107927


in reply to Cheesy Webring

You check to see which top level domain it is, but you forget the server. Here, you go fix: my $perlmonks = 'http://'.(($referer =~ m|www\.p|i)?'www.':'')."perlmonks.$tld";

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void

perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

Replies are listed 'Best First'.
Re: (crazyinsomniac) Re: Cheesy Webring
by blakem (Monsignor) on Aug 26, 2001 at 17:35 UTC
    Here is how I did it in Random NonHome Nodes.
    my ($www,$tld) = $referer =~ /(www\.)?perlmonks\.(\w+)/i; [snip] my $redirurl = "http://${www}perlmonks.$tld/index.pl?node_id=$node";

    -Blake