(crazyinsomniac) Re: Cheesy Webring

[crazyinsomniac]

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

[blakem]

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