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

Attachment: index.cgi
Description: Binary data

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to