url rewriter?

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 nom.mlxhelp.com, 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."\"/>";
[download]

this works for redirecting from a production site, but what I want is to be able to input sitecode.mysiteurl.com 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.

Comment on url rewriter? Download Code

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.	[reply] [d/l]

Replies are listed 'Best First'.

Re: url rewriter?
by moritz (Cardinal) on Sep 08, 2009 at 18:54 UTC

$Request->ServerVariables("SERVER_NAME")->item()

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.

[reply]
[d/l]