url rewriter?


Problems? Is your data what you think it is?
	PerlMonks

url rewriter?

by grashoper (Monk)

on Sep 08, 2009 at 18:45 UTC ( [id://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 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

$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]

Back to Seekers of Perl Wisdom