Do you have method=POST in the action call? Without that, many web servers will assume GET.
Joseph Paul Kraus wrote: > It still just displays the contents of my script rather then running it. > > Do I need to some how associate .cgi with Perl? > > > -----Original Message----- > > From: Ken Lehman [mailto:[EMAIL PROTECTED]] > > Sent: Tuesday, January 07, 2003 3:12 PM > > To: 'Paul Kraus'; Perl > > Subject: RE: Cgi Win xp Perl > > > > > > Try putting the -T after the -w at the top of your perl > > script, make sure that your script ends in .cgi and your iis > > is setup to run scripts and change > > > > print $q->header ("text/plain"); > > > > to > > > > print $q->header ("text/html"); > > > > > > -----Original Message----- > > From: Paul Kraus [mailto:[EMAIL PROTECTED]] > > Sent: Tuesday, January 07, 2003 3:02 PM > > To: Perl > > Subject: Cgi Win xp Perl > > > > > > I am running on a windows xp pro desktop with iis installed. > > I have active state Perl installed and have been using it > > with out a problem. I just started to play with cgi and I am > > having a lot of problems getting it to work right. I have a > > static html form that's action calls the following script. > > When it I hit submit all it does is display it as if it was a > > text file. If I rename it to .pl then it tries to download > > it. However if I have just call another test cgi script that > > displays some html then it runs fine (also named .pl) with > > one exception it tells me that it is to late to do -T. > > > > So basically I need to find out how to call this script from > > my form and have it execute. Second I need to find out how to > > get .cgi scripts to load instead of displaying or trying to > > download. Third I need to know how to pass the -t to the > > compiler before my script executes. (I am assuming this is a > > problem with Perl on windows not using the shebang. Even > > though -w works odd.) > > > > #!/usr/bin/perl -w > > use strict; > > use CGI; > > > > my $q=new CGI; > > print $q->header ("text/plain"); > > print "These are the parameters I received:\n\n"; > > > > my ($name, $value); > > foreach $name ($q->param){ > > print "$name:\n"; > > foreach $value ($q->param($name)){ > > print "\t$value\n"; > > } > > } > > > > > > Paul Kraus > > Network Administrator > > PEL Supply Company > > 216.267.5775 Voice > > 216-267-6176 Fax > > www.pelsupply.com > > > > > > -------------------------------------------------------------- > > -------------- > > -------------------- > > The views and opinions expressed in this email message are > > the sender's own, and do not necessarily represent the views > > and opinions of Summit Systems Inc. > > > > > > -- > > 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] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
