Abort page load and redirect?

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

Hello all,
Is there any way to have a script load on a web page and if in the script a condition is met to have it abort the page load and redirect to another page?

The whole idea is I dont want to call the script from a link. That would be easy but the user could just type in the page and go there directly.
This isn't meant to stop someone who really wants to see the page, just a normal user navigating via the links or typed in in the address bar directly.

I want to have it so that if a condition is met they will NOT view the page they were loading and only view the page they are being redirected to.
I know this is a silly little excersise but since I couldn't get it to work the way I want it has me curious.
Calling the script isn't my problem...well maybe the WAY I'm calling it is but the script does run and check the condition. What is failing is the redirect.
using the exec SSI call is not an option so i call the script with a <script src="script.pl"></script> tag in the head of the html document.
Everything works fine up until this point in the script:

if(condition)
{
  print "Content-type: text/html\n\n";
  print "Location: $REDIRECT\n";
}
[download]

All that happens is the page that was being loaded is displayed. I know that the code inside the if statment IS being executed with a proper URL.
It's just not doing what I want.
Any ideas?

Comment on Abort page load and redirect? Download Code

Replies are listed 'Best First'.
Re: Abort page load and redirect? by ambs (Pilgrim) on Apr 09, 2005 at 19:02 UTC
First, check if you are not printing anything before. If not, here are two ideas: add an exit after the location print statement. Other idea, why not to use CGI.pm and its redirect function? Alberto Simões	[reply]
Re: Abort page load and redirect? by Popcorn Dave (Abbot) on Apr 09, 2005 at 19:16 UTC
ambs is right with the CGI tip. If you take a look at merlyn's new book Perls of Wisdom there's a section about calling web pages using CGI so you can limit linking directly to a subpage on your site. That should be enough to get you started. Plus the rest of the book is a great read. :) Useless trivia: In the 2004 Las Vegas phone book there are approximately 28 pages of ads for massage, but almost 200 for lawyers.	[reply]
Re^2: Abort page load and redirect? by merlyn (Sage) on Apr 10, 2005 at 16:49 UTC
merlyn's new book Perls of Wisdom Of course, everything in that book is also in my online column archive, so you could just point to the appropriate column by googling for a few words. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re^3: Abort page load and redirect? by Popcorn Dave (Abbot) on Apr 10, 2005 at 16:57 UTC
And not promote your book? :) Personally, I've picked up a number of good tips from the book so I'd encourage others to get it even if the columns are online. Useless trivia: In the 2004 Las Vegas phone book there are approximately 28 pages of ads for massage, but almost 200 for lawyers.	[reply]
Re: Abort page load and redirect? by dave0 (Friar) on Apr 09, 2005 at 19:36 UTC
Even assuming you're not printing anything before this, it won't work. You're printing two newlines at the end of your Content-type: header. This creates a blank line in your output, and in HTTP, a blank line indicates that headers are over and content begins on the following line. This should cause your Location: line to appear somewhere in the output document, rather than in the HTTP headers. You shouldn't even need a Content-Type header with Location, anyway. And, as said before, CGI.pm's redirect() method is a nicer way to do this.	[reply]
Re^2: Abort page load and redirect? by ambs (Pilgrim) on Apr 09, 2005 at 19:39 UTC
Correct. I noticed the two newlines but didn't noticed they were not needed (and incorrect) in this case. dave0++ Alberto Simões	[reply]
Re: Abort page load and redirect? by FuBaR (Acolyte) on Apr 10, 2005 at 00:15 UTC
Hi Guys, Thanks for the hints. As i was afraid of the code is fine. If I use the script in a html link it works fine, redirect and all. It seems the problem is how I am calling the script within the html page. I did use the CGI.pm module and it worked well also, thanks for pointing that one out. Alas though, same result. It only works if I use it in a link. If anyone has any ideas on that one you can point me in the right direction, I don't expect people to post asnswers to html questions in a perl forum. Again, thanks :)	[reply]


Perl: the Markov chain saw
	PerlMonks