Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

url rewriter?

by grashoper (Monk)
on Sep 08, 2009 at 18:45 UTC ( #794196=perlquestion: print w/replies, xml ) Need Help??

grashoper has asked for the wisdom of the Perl Monks concerning the following question:

I am looking to replace the text of the url displayed when users try to access my site with an account code like, while this works if the users are coming from a production site, I can no longer get it to work on the server itself. I am kind of at a loss as to why it doesn't work anymore. the existing redirect is like below..
if (!(substr($Request->ServerVariables("SERVER_NAME")->item(),0,3) eq +"www") && !(substr($Request->ServerVariables("SERVER_NAME")->item(),0 +,3) eq "mlx") && !(lc($Request->ServerVariables("SERVER_NAME")->item( +)) eq "localhost")) $Request->ServerVariables("SERVER_NAME")->item() =~ /([\w+]*)\./; $str .= "<inputH name=\"site\" value=\"".$1."\"/>";
this works for redirecting from a production site, but what I want is to be able to input and have it reach the site. I don't recall changing anything that would have broken it, but am not sure why it no longer works.

Replies are listed 'Best First'.
Re: url rewriter?
by moritz (Cardinal) on Sep 08, 2009 at 18:54 UTC
    First of all you should really store $Request->ServerVariables("SERVER_NAME")->item() in a temporary variable; all that repetition makes your code really hard to read.

    Then I'm confused that you are talking about redirects in your text, but your code actually appends something that looks vaguely like HTML to a string. How are the two related? And what do you expect as a return value? What did the working code do in such a case?

    Perl 6 - links to (nearly) everything that is Perl 6.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://794196]
Approved by broomduster
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (3)
As of 2022-01-16 11:10 GMT
Find Nodes?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:

    Results (49 votes). Check out past polls.