How do I get/read the url from the address filed in web browser

Emmalo

My perl file is today shown/running "inside" a web page. My task is to redirect the user to a different web page depending on which web page thta is "holding" my perl file. Unfortunately I can't work out how to obtain the url string from the web page. I have successed with the same thing using javascript which is something like:

var url = parent.window.location;
how do I do this in perl?
Please help!

/Emmalo

Stwange

Expand|Select|Wrap|Line Numbers

 
#!/usr/bin/perl

print "Content-type: text/html\n\n";

my $url = $ENV{SERVER_NAME} . $ENV{REQUEST_URI};

print "<html><body><h2>The URL was $url</h2>";

print "<h3>The other hash variables available are:</h3><p>";

foreach (sort keys %ENV) {

        print "$_ = $ENV{$_}<br />";

}

print "</p></body></html>\n";

How do I get/read the url from the address filed in web browser

Post your reply

Similar topics