Actually I do have the content-type printed: #!/usr/bin/perl -wT use strict; use CGI qw/ :standard /; $CGI::DISABLE_UPLOADS = 1; $CGI::POST_MAX = 512 * 1024;
print "Content-type: text/html\n\n"; I attached the entire script to this message. ----- Original Message ----- From: "Hanson, Robert" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Wednesday, June 26, 2002 7:57 AM Subject: RE: uninitialized value? > > Premature end of script headers: > > This could be a lot of things. > > > Use of uninitialized value in string eq at index.cgi line 14. > > This is merely a warning, not an error. This won't cause a script to fail > (see perldoc perdiag). > > The real error (the first one) isn't giving you any clue. Basically the > script is ending (exit, die, or just done) without printing the > "Content-type" to the browser. Do you have a line in there printing thr > Content-type, either using CGI.pm's "print header()" or printing it as a > string? > > Rob > > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, June 26, 2002 6:48 AM > To: [EMAIL PROTECTED] > Subject: uninitialized value? > > > Ok, here's more of my on-going saga. All of a sudden the page stop loading > so > I check the error logs and ran a perl -Tcw in the shell. The syntax is fine > > but these errors showed up on the log: > > [Wed Jun 26 06:33:34 2002] [error] [client 209.245.115.253] Premature end of > > script headers: /hsphere/local/home/kbabich2/imap.cc/cgi-bin/index.cgi > Use of uninitialized value in string eq at index.cgi line 14. > Use of uninitialized value in string eq at index.cgi line 14. > Use of uninitialized value in string eq at index.cgi line 14. > Use of uninitialized value in string eq at index.cgi line 14. > Use of uninitialized value in string eq at index.cgi line 14. > > Here is what (I believe) it is talking about: > my $c = param('c'); > my $content = "c"; > > if ($c eq "h") { > $content = qq{\n}; > } elsif ($c eq "eh") { > $content = qq{\n}; > } elsif ($c eq "hd") { > $content = qq{\n}; > } elsif ($c eq "p") { > $content = qq{\n}; > } elsif ($c eq "c") { > $content = qq{\n}; > } > > But once again I don't know what I should change. > > ------------------------------------------------- > This mail sent through IMP: http://horde.org/imp/ > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] >
index.cgi
Description: Binary data
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]