RE: uninitialized value?

kb Wed, 26 Jun 2002 05:58:45 -0700

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>&nbsp;<BR>&nbsp;<BR>&nbsp;<BR>&nbsp;<BR>&nbsp;
$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]

RE: uninitialized value?

Reply via email to