Re: (crazyinsomniac) Re: Cheesy Webring

[blakem]

in reply to (crazyinsomniac) Re: Cheesy Webring
in thread Cheesy Webring

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