Perl 101 (part 7) - CGI Basics

Dev Shed Forums Sponsor:

September 26th, 2000, 07:50 AM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

typo!

clearly there's a typo in here:
%myhero = ("fname" =< "Donald", "lname" => "Duck");

should read
%myhero = ("fname" => "Donald", "lname" => "Duck");

September 29th, 2000, 05:46 PM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

Help!

Please help!!!
 
 
I saved the form from Perl 101 part 7 into a html file "getname.html" and here is the content:
 
--------------------------------------
 
<html>
 
<head>
 
<basefont face=Arial>
 
</head>
 
<body>
 
<form action=http://host_ip#/cgi-bin/readform.cgi method=GET>
 
Enter your first name: <input type=text length=20 name=name> 
 
<input type=submit value=Submit>
 
</form>
 
</body>
 
</html>
 
----------------------------------
 
and then I saved the CGI script that receives and processes the data. readform.cgi at the same location and here is the content of this file:
 
------------------------------------
 
#!/usr/bin/perl
 
 
# readform.cgi
 
# reads form data and generates a page
 
 
# for GET data
 
if ($ENV{'REQUEST_METHOD'} eq "GET")
 
{
 
$yourname=$ENV{'QUERY_STRING'};
 
}
 
# for POST data
 
else
 
{
 
$yourname = <STDIN>;
 
}
 
 
# Remove spaces if any
 
$yourname =~ s/\+/ /g;
 
 
# split form data and store in hash
 
%details = split (/=/, $yourname);
 
 
# generate page
 
print "Content-Type: text/html\n\n";
 
print "<html><body>";
 
 
while (($name, $value) = each %details)
 
{
 
print "Thank you for your submission, $value!\n";
 
}
 
 
print "</body></html>";
 
------------------------------------
 
 
After doing this I pull the from on to a browser and type in the name "ASIF" and press enter and the result is:
 
 
the URL field shows:
 
http://host_ip#/cgi-bin/readform.cgi?name=ASIF
 
the body of the browser shows:
 
HTTP 500 - Internal server error
 
 
(of cause some other junk info above and below this error for MS IExplorer)
 
 
My server is a NT 4.0 web server and I have active perl (stable ver) installed and I know it works coz I can use other pl scripts.
 
 
Can someone help???
 
 
Thanks a million in advance
 
Asif
 
asift@netscape.net

October 1st, 2000, 03:07 PM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

use strict;

Your series is very informative.

Do any of the CGI installments include use strict;

Along with -w of course?

Thanks

October 3rd, 2000, 02:32 PM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

Re: Help!

I found the problem....my web server did not know how to handle filename.CGI file - file association problem is now fixed

Asif

October 5th, 2000, 01:00 AM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

Get and Post

I have had a problem with POST. I think it might not be enabled. How do I check and if so How do I install or enable it.

October 24th, 2000, 11:04 PM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

cgi

Thank you. Fun fun fun.

November 26th, 2000, 07:11 PM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

param() ???

Why is it that every single perl form tutorial explains that god awful process for using <STDIN> and translating and substituting the value? Ever heard of the param() function? Its meaningless to even teach anyone this if they can just use param().

January 24th, 2001, 04:42 PM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

Re: cgi

ditto

Thanks for your assistance. It is fun the first time a new language* is made to work.

* new to me :)

January 26th, 2001, 09:00 AM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

Re: typo!

Another little one, but quite important I feel in the understanding of a new function:
On page 4,


<pre><xmp># get the names
@year = keys(%director);</xmp></pre>


should be


<pre><xmp># get the years
@year = keys(%director);</xmp></pre>

#10

April 20th, 2001, 04:49 AM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

Re: Get and Post

I think I have the same problem. Let me know if you fixed it

#11

April 20th, 2001, 08:56 AM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

Re: Get and Post

man i posted that nearly a year ago.
I dont even have apache installed any more.
I'm not sure of what the problem turned out to be but the script sorta worked. The user could input some text and it got mailed to me but it didn't return to the page it was spose to after.

Joe

#12

April 21st, 2001, 01:26 AM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

Re: Get and Post

Thanks for replying anyhow. I'll figure it out.. I didnt look at the date (obviously). I have the same problem, It mails me the form results, but it doesnt redirect afterwards. It isnt mission critical anyway. Its my home pc.

do you use a different web server?

Thanks,
Paul Adams

#13

July 26th, 2001, 05:39 AM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

Re: param() ???

Using CGI.pm is so much better, agreed. Everyone uses CGI.pm, it comes with your Perl distribution. There is no reason not to use it. Why write potentially flawed and insecure code when someone else has already done most of the work for you, better than you could, and more securely than you could, for the past few years?

#14

January 28th, 2002, 06:22 AM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

#15

February 22nd, 2002, 03:51 AM

guest

Guest

Posts: n/a
Time spent in forums:
Reputation Power:

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: