Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Content-type; problem

Status
Not open for further replies.
gnubie

gnubie

Programmer
Apr 16, 2002
103
0
0
US
I have a Perl script that might print text/html at various places, so near the beginning I put:

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

This works fine, EXCEPT, and the end in some cases the script redirects to another web page. The problem is that if the above Content-type has been output, the redirect:

print "Location: "../thankyou.htm\n\n";

just prints out.

SO, is there a way to override the Content-type and make it redirect. Any other good workaround?

Thanks,

GN
 
Sort by date Sort by votes
only print the content-type header if and when needed instead of at the beginning of the script.

------------------------------------------
- Kevin, perl coder unexceptional! [wiggle]
 
Upvote 0 Downvote
KevinADC:

First, I was hoping to avoid preceding each print with a print "Content-type: text/html\n\n"; or creating a scheme to keep track of it in the Perl script. Otherwise, after outputting the first print "Content-type:", the remaining ones would display the text "Content-type:", now requiring more conditional code.

I was hoping for an elegant solution like:

1. A system query or way to detect if the server was already expecting text/html, or
2. A way to explicitly override or change it.

If there is no elegant solution, I can cobble together enough code to get around it.
 
Upvote 0 Downvote
There is no solution. Once the header is printed there is no retracting it, so you have to print it conditionally as needed to avoid the situation you find yourself in.

------------------------------------------
- Kevin, perl coder unexceptional! [wiggle]
 
Upvote 0 Downvote
Javascript redirect

print "<SCRIPT LANGUAGE=JavaScript><!--
setTimeout(location.href = '../thankyou.htm\n\n',5000);
//--></SCRIPT>";

5000 is 5 seconds I do believe... You can print it anywhere after the <html> tag I do believe

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[noevil]
Travis - Those Who Say It Cannot Be Done Are Usually Interrupted by Someone Else Doing It; Give the wrong symptoms, get the wrong solutions;
 
Upvote 0 Downvote
You have at least two other methods, besides the one described by travs69:
-do not close the header in the line
[tt]print "Content-type: text/html\n\n";[/tt]
by adding a single eol instead of two; you'll print the closing eol just before starting with html content
-when you need a redirect print a short html page with the tag [tt]<META HTTP-EQUIV="Refresh" CONTENT="5; URL=html-redirect.html">[/tt] in the head section: 5 is a delay in seconds (may be zero). I think that this method is now deprecated though.

prex1
: Online tools for structural design
: Magnetic brakes for fun rides
: Air bearing pads
 
Upvote 0 Downvote
travs69 & prex1: Thanks. Good to know. I will add them to bag of tricks. I found a third method.

I ended up adding an unconditional print "Content-type: ..." at the beginning of the script, then INSTEAD of a redirect (which would have failed) I opened the file I would have redirected to, slurped it in, and printed it.

(open + slurp + print) ~ redirect

GN
 
Upvote 0 Downvote
You have at least two other methods, besides the one described by travs69:
-do not close the header in the line
print "Content-type: text/html\n\n";
by adding a single eol instead of two; you'll print the closing eol just before starting with html content
Click to expand...

Yes, but you still have to manually track when to finish printing the header. There is really little or no benefit from this approach. Just print the heades when they are needed and not before. There is nothing wrong with having:

print "Content-type: blah/blah\n\n";

several times in a script.

------------------------------------------
- Kevin, perl coder unexceptional! [wiggle]
 
Upvote 0 Downvote
Well, I'd go with Kevin and say only print the content type header when/if you need it. If you structure your program carefully it should be straightforward enough.

However, if you really have to have bits of printing all over the place and no idea whether you've done a header, just use a subroutine:
Code: 
# Somewhere near the top of the program, initialise a flag
$HEADER_DONE = 0;

... whatever code here ...

&head_if_reqd;
print "hello world";

... more code here ...

&head_if_reqd;
print "hello world again";

... etc. ...

sub head_if_reqd {
   unless ($HEADER_DONE) {
      print "Content-type: text/html\n\n";
   }
   $HEADER_DONE = 1;
}


-- Chris Hunt
Webmaster & Tragedian
Extra Connections Ltd
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

SrCairo
  • Locked
  • Question
cgi file execution problem
Replies
0
Views
109
SrCairo
SrCairo
cdub05
  • Locked
  • Question
CGI script for html content management
Replies
1
Views
34
tjbradford
tjbradford
noam1
  • Locked
  • Question
A problem with a mock shopping cart
Replies
1
Views
35
ChrisHunt
ChrisHunt
JackTheRussel
  • Locked
  • Question
perl-mason problem.
Replies
1
Views
32
travs69
travs69
petey
  • Locked
  • Question
Perl CGI.pm: how to suppress content-type header for 304 Not Modified&quot;
Replies
5
Views
35
Kirsle
Kirsle

Part and Inventory Search

Sponsor

Back
Top