Seems that you missed a line to capture the $ENV{QUERY_STRING};
such as : ($ignore, $body) = split (/=/, $ENV{QUERY_STRING});
when (! $body), your if and elsif statements will not be run.
----- Original Message -----
From: "Kyle Babich" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, June 22, 2002 8:52 PM
Subject: Can someone tell me what I did wrong with this?
I'm a beginner. The following is what I wrote:
#!/usr/bin/perl
print "Content-type:text/html\n\n";
@days = ("Sunday","Monday","Tuesday","Wednesday","Thursday",
"Friday","Saturday");
@months = ("January","February","March","April","May","June",
"July","August","September","October","November",
"December");
($sec,$min,$hr,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time);
$year = $year + 1900;
if ($body eq "yahoo") {
print "<a href=\"http://www.yahoo.com/\";>Yahoo</a>\n";
} elsif ($body eq "date") {
print "$days[$wday] $mday $months[$mon] $year\n";
}
I uploaded it and it works without giving me a 500 and when I check the
syntax via the shell it says everything is correct so why when I go to
test.cgi?body=yahoo or test.cgi?body=date the pages just appear blank
instead of showing the content?
Here are the urls:
http://kb2.net/cgi-bin/test.cgi?body=yahoo
http://kb2.net/cgi-bin/test.cgi?body=date
Can someone tell me what I did wrong?
Thank you
--
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]
