Well, I haven't had any other scripts give me errors yet. I'm getting the same
problem on two different servers too:
http://imap.cc/cgi-bin/index.cgi
http://kb2.net/cgi-bin/index.cgi
(Btw: I just added that else error: content failed)
Quoting "Hanson, Robert" <[EMAIL PROTECTED]>:
> Hmmm... I didn't see any problems in the script and it works for me, both
> at
> the command line and running through Apache. Have you tried just running
> it
> at the command line to see if it works there (without the -T)? If it does
> work at the command line it could be your web server, unless you have other
> scripts that you know are working fine.
>
> Rob
>
> -----Original Message-----
> From: Kyle Babich [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, June 26, 2002 8:34 AM
> To: Hanson, Robert
> Cc: [EMAIL PROTECTED]
> Subject: Re: uninitialized value?
>
>
> 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]
> >
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
>
-------------------------------------------------
This mail sent through IMP: http://horde.org/imp/
#!/usr/bin/perl -wT
use strict;
use CGI qw/ :standard /;
$CGI::DISABLE_UPLOADS = 1;
$CGI::POST_MAX = 512 * 1024;
print header ( 'text/html' );
my $date = localtime;
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};
} else {print 'Error: Content Failed';}
my @nav = (
"Home",
"E-Mail Hosting",
"Help Desk",
"Policies",
"Contact",
"Signup"
);
my @loc = (
"index.cgi?c=h",
"index.cgi?c=eh",
"index.cgi?c=hd",
"index.cgi?c=p",
"index.cgi?c=c",
"http://cp.imap.cc:8080/psoft/servlet/psoft.hsphere.CP?action=plan_compare&compare_way=group&template_name=submit/misc/compare_plans.sbm&gr_id=88045";
);
my @imgloc = (
"../hosting/images/pointer.jpg"
);
my $cssloc = "../hosting/style.css";
print <<"EndOfHTML";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.1 Transitional//EN">
<HTML>
<HEAD>
<TITLE>IMAP.cc E-Mail Hosting</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html">
<LINK REL="stylesheet" TYPE="text/css" HREF="$cssloc">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<BR>
<TABLE WIDTH="90%" CELLSPACING="0" CELLPADDING="0" BORDER="1" BORDERCOLOR="#FFFFFF"
ALIGN="LEFT">
<TBODY>
<TR>
<TD WIDTH="100%">
<TABLE WIDTH="100%" CELLSPACING="0" CELLPADDING="1" BORDER="0" ALIGN="LEFT">
<TBODY>
<TR>
<TD WIDTH="75%" BGCOLOR="#FFFFFF" ALIGN="LEFT">
<FONT FACE="Verdana, Arial, Times New Roman" SIZE="5" COLOR="#009966">
IMAP.cc E-Mail Hosting
</FONT></TD>
<TD WIDTH="25%" BGCOLOR="#009966" ALIGN="CENTER">
<IMG SRC="$imgloc[0]" WIDTH="133" HEIGHT="100" BORDER="0">
</TR></TBODY></TABLE>
<TABLE WIDTH="90%" CELLSPACING="0" CELLPADDING="0" BORDER="1" BORDERCOLOR="#009966"
ALIGN="LEFT">
<TBODY>
<TR>
<TD WIDTH="100%">
<TABLE WIDTH="100%" CELLSPACING="0" CELLPADDING="1" BORDER="1" BORDERCOLOR="#00CC66"
ALIGN="CENTER">
<TBODY>
<TR>
<TD WIDTH="20%" BGCOLOR="#009966" ALIGN="CENTER">
<FONT FACE="Verdana, Arial, Times New Roman" SIZE="3" COLOR="#FFFFFF">
<A TARGET="_self" HREF="$loc[0]" STYLE="text-decoration:underline;
color:#FFFFFF">$nav[0]</A>
</FONT></TD>
<TD WIDTH="20%" BGCOLOR="#009966" ALIGN="CENTER">
<FONT FACE="Verdana, Arial, Times New Roman" SIZE="3" COLOR="#FFFFFF">
<A TARGET="_self" HREF="$loc[1]" STYLE="text-decoration:underline;
color:#FFFFFF">$nav[1]</A>
</FONT></TD>
<TD WIDTH="20%" BGCOLOR="#009966" ALIGN="CENTER">
<FONT FACE="Verdana, Arial, Times New Roman" SIZE="3" COLOR="#FFFFFF">
<A TARGET="_self" HREF="$loc[2]" STYLE="text-decoration:underline;
color:#FFFFFF">$nav[2]</A>
</FONT></TD>
<TD WIDTH="20%" BGCOLOR="#009966" ALIGN="CENTER">
<FONT FACE="Verdana, Arial, Times New Roman" SIZE="3" COLOR="#FFFFFF">
<A TARGET="_self" HREF="$loc[3]" STYLE="text-decoration:underline;
color:#FFFFFF">$nav[3]</A>
</FONT></TD>
<TD WIDTH="20%" BGCOLOR="#009966" ALIGN="CENTER">
<FONT FACE="Verdana, Arial, Times New Roman" SIZE="3" COLOR="#FFFFFF">
<A TARGET="_self" HREF="$loc[4]" STYLE="text-decoration:underline;
color:#FFFFFF">$nav[4]</A>
</FONT></TD></TR></TBODY></TABLE>
<TABLE WIDTH="100%" CELLSPACING="0" CELLPADDING="1" BORDER="1" BORDERCOLOR="#FFFFFF"
ALIGN="CENTER">
<TBODY>
<TR>
<TD WIDTH="100%" BGCOLOR="#009966" ALIGN="CENTER">
<FONT FACE="Verdana, Arial, Times New Roman" SIZE="3" COLOR="#FFFFFF">
<A TARGET="_self" HREF="$loc[5]" STYLE="text-decoration:underline;
color:#FFFFFF">$nav[5]</A>
</FONT></TD></TR></TBODY></TABLE>
<BR><TABLE WIDTH="95%" CELLSPACING="0" CELLPADDING="1" BORDER="1"
BORDERCOLOR="#00CC66" ALIGN="CENTER">
<TBODY>
<TR>
<TD WIDTH="100%" ALIGN="LEFT" BGCOLOR="#FFFFFF">
<BR> <BR> <BR> <BR> <BR>
$content
</TD></TR></TBODY></TABLE><BR>
<TABLE WIDTH="100%" CELLSPACING="0" CELLPADDING="1" BORDER="1" BORDERCOLOR="#FFFFFF"
ALIGN="CENTER">
<TBODY>
<TR>
<TD WIDTH="100%" BGCOLOR="#009966" ALIGN="RIGHT">
<FONT FACE="Verdana, Arial, Times New Roman" SIZE="3" COLOR="#FFFFFF">
$date
</FONT></TD></TR></TBODY></TABLE>
<TABLE WIDTH="100%" CELLSPACING="0" CELLPADDING="1" BORDER="1" BORDERCOLOR="#00CC66"
ALIGN="CENTER">
<TBODY>
<TR>
<TD WIDTH="20%" BGCOLOR="#009966" ALIGN="CENTER">
<FONT FACE="Verdana, Arial, Times New Roman" SIZE="3" COLOR="#FFFFFF">
<A TARGET="_self" HREF="$loc[0]" STYLE="text-decoration:underline;
color:#FFFFFF">$nav[0]</A>
</FONT></TD>
<TD WIDTH="20%" BGCOLOR="#009966" ALIGN="CENTER">
<FONT FACE="Verdana, Arial, Times New Roman" SIZE="3" COLOR="#FFFFFF">
<A TARGET="_self" HREF="$loc[1]" STYLE="text-decoration:underline;
color:#FFFFFF">$nav[1]</A>
</FONT></TD>
<TD WIDTH="20%" BGCOLOR="#009966" ALIGN="CENTER">
<FONT FACE="Verdana, Arial, Times New Roman" SIZE="3" COLOR="#FFFFFF">
<A TARGET="_self" HREF="$loc[2]" STYLE="text-decoration:underline;
color:#FFFFFF">$nav[2]</A>
</FONT></TD>
<TD WIDTH="20%" BGCOLOR="#009966" ALIGN="CENTER">
<FONT FACE="Verdana, Arial, Times New Roman" SIZE="3" COLOR="#FFFFFF">
<A TARGET="_self" HREF="$loc[3]" STYLE="text-decoration:underline;
color:#FFFFFF">$nav[3]</A>
</FONT></TD>
<TD WIDTH="20%" BGCOLOR="#009966" ALIGN="CENTER">
<FONT FACE="Verdana, Arial, Times New Roman" SIZE="3" COLOR="#FFFFFF">
<A TARGET="_self" HREF="$loc[4]" STYLE="text-decoration:underline;
color:#FFFFFF">$nav[4]</A>
</FONT></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<!--
<TABLE WIDTH="90%" CELLSPACING="0" CELLPADDING="0" ALIGN="RIGHT" BORDER="0">
<TBODY>
<TR>
<TD WIDTH="100%" BGCOLOR="#FFFFFF" ALIGN="RIGHT">
<FONT FACE="Verdana, Arial, Times New Roman" SIZE="2" COLOR="#000000">
Kyle Babich 2002. All rights reserved.
</FONT></TD></TR></TBODY></TABLE>
-->
</BODY>
</HTML>
EndOfHTML
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
