This looks like an cgi/html problem, not perl. It isn't finding the correct
path.
BTW, after your first if{} statement, you might want to change the following
if{} statements to elsif{}, since you are only allowing one option. One more
suggestion, if this is indeed some sort of 'enter the weather' page... you
might want to organize the choices from most frequent to least
frequent..i.e. 'tornado' last, 'sleet' secondlast etc.
Good luck.
Jack
-----Original Message-----
From: byron wise [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, May 02, 2000 5:30 PM
To: Perl-Win32-Users Mailing List
Subject: Trying to parse form
I'm trying to parse a form with the post method. I have written a
script(formparser.pl) that parses the info and appends it to a flat file.
It then reads the file and outputs the information into two html tables
followed by a third table that is the form you could use to do it again.
On the unix box I have checked the script via (perl -c formparser.pl) and
the syntax is okay. But when I go to the html page with the form and try to
use it, it says that there is a problem. I'm nearly sure the paths are
correct and permissions have all been set.
Any help would be greatly appreciated. Below is a link to the html form
followed by my script (formparser.pl).
byron
http://cgi.wc.pima.edu/~bwise/form2.html
############################################################################
###
#!/usr/bin/perl
print "Content-type:text/html\n\n";
$file='/home/bwise/public_html/weather.data';
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value)=split(/=/,$pair);
$value=~tr/+/ /;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$value=~s/\n/ /g;
$value=~s/\r//g;
$value=~s/\cM//g;
$form{$name}=$value;
}
open(DATA, ">>formparser.data") or die ("Cannot open formparser.data: $!");
flock(DATA,2);
while ( ($mykey,$myvalue) = each(%form) ) {
print DATA "$myvalue:";
}
close (DATA);
print <<Begin_HTML;
<html><head></head><body>
<table><tr><td bgcolor="#cccccc">DATA ENTRIES</td></tr>
<tr><td><center>DATE</center></td><td><center>TIME</center></td><td><center>
TEMP</center></td><td><center>TYPE</center></td></tr>
Begin_HTML
$tottemp=0;
$avgtemp=0;
open(DATA, "$file") or die ("Cannot open $file: $!");
while (<DATA>) {
chomp;
($month,$day,$year,$time,$when,$temp,$type)=split (/:/);
print "<tr><td bgcolor='#ffffff'>$month/$day/$year</td><td>$time
$when</td><td>$temp</td><td>$type</td></tr>","\n";
if ($type eq "clear") {
push(@clear, $type);
}
if ($type eq "tornado") {
push(@tornado, $type);
}
if ($type eq "cloudy") {
push(@cloudy, $type);
}
if ($type eq "rain") {
push(@rain, $type);
}
if ($type eq "hail") {
push(@hail, $type);
}
if ($type eq "sleet") {
push(@sleet, $type);
}
if ($type eq "snow") {
push(@snow, $type);
}
if ($type eq "fog") {
push(@fog, $type);
}
if ($type eq "oobleck") {
push(@oobleck, $type);
}
$a=@temp;
$tottemp = $tottemp + $temp;
$avgtemp = $tottemp/$a;
}
$cl=@clear; #####THESE 9 LINES GET THE LENGTH OF THE ARRAYS SO I
$to=@tornado; #####CAN USE THEM FOR THE NUMBER OF OCCURENCES BELOW
$clo=@cloudy;
$ra=@rain;
$ha=@hail;
$sl=@sleet;
$sn=@snow;
$fo=@fog;
$oo=@oobleck;
print <<Begin_HTML;
####################THIS IS A TABLE THAT LISTS THE OCCURENCES OF EACH TYPE
<TABLE border=0 cellpadding=0 cellspacing=5 bgcolor="#cccccc" width="400px">
<tr><td>
<table border=0 cellpadding=3 cellspacing=1 width="400px">
<tr>
<td bgcolor="#cccccc"><center>ORGANIZED DATA</center></td>
</tr>
<tr>
<td>Average Temperature is: $avgtemp</td>
</tr>
<tr>
<td bgcolor="#ffffff">Clear: $cl</td>
</tr>
<tr>
<td bgcolor="#ffffff">Tornado: $to</td>
</tr>
<tr>
<td bgcolor="#ffffff">Cloudy: $clo</td>
</tr>
<tr>
<td bgcolor="#ffffff">Rain: $ra</td>
</tr>
<tr>
<td bgcolor="#ffffff">Hail: $ha</td>
</tr>
<tr>
<td bgcolor="#ffffff">Sleet: $sl</td>
</tr>
<tr>
<td bgcolor="#ffffff">Snow: $sn</td>
</tr>
<tr>
<td bgcolor="#ffffff">Fog: $fo</td>
</tr>
<tr>
<td bgcolor="#ffffff">Oobleck: $oo</td>
</tr>
</table>
</td>
</tr>
</table>
#######THIS IS THE FORM AGAIN INCASE YOU WANT TO RUN IT AGAIN
<form ACTION="/cgi-bin/formparser.pl" METHOD="POST">
<TABLE border=0 cellpadding=0 cellspacing=5 bgcolor="#cccccc" width="400px">
<tr><td>
<table border=0 cellpadding=3 cellspacing=1 width="400px">
<tr>
<td bgcolor="#cccccc"><center><b>Current
Weather</b></center></td>
</tr>
<tr>
<td bgcolor="#ffffff">Below is a form intended for your use.
Please fill out all fields with the appropriate data.
Upon completion, use the submit button. This will allow you
to see a
collection of data from other users.</td>
</tr>
<tr>
<td bgcolor="#ffffff"><li>Please enter the month and day as
two digit
numbers, and the year as four: <br><center>
Month <INPUT TYPE="text" NAME="month"
SIZE="7">
Day <INPUT TYPE="text" NAME="day" SIZE="7">
Year <INPUT TYPE="text" NAME="year"
SIZE="7"></center><br><br>
<li>Please enter the hour (12 hour time):<br><center><INPUT
TYPE="text"
NAME="time" SIZE="7">
<INPUT TYPE="radio" NAME="when" VALUE="am"> AM
<INPUT TYPE="radio" NAME="when"
VALUE="pm"> PM</center><br><br>
<li>Please enter the temperature in Fahrenheit: <INPUT
TYPE="text"
NAME="temp" SIZE="7"><br><br>
<li>Enter the type of weather:<br>
<INPUT TYPE="radio" NAME="type"
VALUE="clear">Clear<br>
<INPUT TYPE="radio" NAME="type"
VALUE="tornado">Tornadoes<br>
<INPUT TYPE="radio" NAME="type"
VALUE="cloudy">Cloudy<br>
<INPUT TYPE="radio" NAME="type"
VALUE="rain">Rain<br>
<INPUT TYPE="radio" NAME="type"
VALUE="hail">Hail<br>
<INPUT TYPE="radio" NAME="type"
VALUE="sleet">Sleet<br>
<INPUT TYPE="radio" NAME="type"
VALUE="snow">Snow<br>
<INPUT TYPE="radio" NAME="type" VALUE="fog">Fog<br>
<INPUT TYPE="radio" NAME="type"
VALUE="oobleck">Oobleck<br>
</tr>
</td>
<tr>
<td bgcolor="#ffffff"><center><INPUT TYPE="submit"
VALUE="Submit">
<INPUT TYPE="reset" VALUE="Reset"></center></td>
</tr>
</table>
</td></tr>
</table>
</body>
</html>
Begin_HTML
exit(0);
############################################################################
##
Fear is the path to the dark side. Fear leads to anger, anger leads to
hate, hate leads to suffering.
-=[Yoda]=-
_______________________________________________________
Get 100% FREE Internet Access powered by Excite
Visit http://freelane.excite.com/freeisp
---
You are currently subscribed to perl-win32-users as:
[EMAIL PROTECTED]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
