Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

(crazyinsomniac) Re: Cheesy Webring

by crazyinsomniac (Prior)
on Aug 26, 2001 at 17:27 UTC ( #107927=note: print w/ replies, xml ) Need Help??


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


Comment on (crazyinsomniac) Re: Cheesy Webring
Download Code
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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://107927]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2014-07-24 03:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (156 votes), past polls