Help with form response [Archive]

tmcrouse

05-02-2005, 11:56 AM

I have a code that simply returns what is in print and not what user is putting in from the list or text boxes.

#!/usr/local/bin/perl
require "cgi-lib.pl";
&ReadParse(*values);
print "Content-type: text/html\n\n";
print "<html><head>\n";
print "<title>Auto Parts Order</title></head>\n";
print "<body>\n";
&Vehicle;
&Make;
&Model;
&Year;
&Name;
&Address;
&City;
&State;
&Zip;
&PartNum;
&Parts;
&Price;
&Credit;
&Number;
&Exp;
&NameCard;
&Email;

print "</body></html>\n";
exit 0;

sub Vehicle {
print "Your vehicle is:\n";
print "<ul>\n";
@vehicle = split(/\0/, $values{'vehicle'} );
print "</ul>\n";
}

sub Make {
print "The make of your vehicle is:\n";
print "<ul>\n";
@make = split(/\0/, $values{'make'} );
print "</ul>\n";
}

sub Model {
print "With a model of:\n";
print "<ul>\n";
@model = split(/\0/, $values{'model'} );
print "</ul>\n";
}

sub Year {
print "The year of your vehicle is:\n";
print "<ul>\n";
@year = split(/\0/, $values{'year'} );
print "</ul>\n";
}

sub Name {
print "Shipping and billing information: Name: ", $values{'name'} , " \n";
}

sub Address {
print "Address: ", $values{'address'} , " \n";
}

sub City {
print "City: ", $values{'city'} , " \n";
}

sub State {
print "State: ", $values{'state'} , " \n";
}

sub Zip {
print "Zip: ", $values{'zip'} , " \n";
}

sub PartNum {
print "The part number you are ordering is: \n";
print "<ul>\n";
@partnum = split(/\0/, $values{'partnum'} );
foreach $pn (@partnum) {
print "<li>", $pn, "\n";
}
print "</ul>\n";
}

sub Parts {
print "The part you are ordering is: \n";
print "<ul>\n";
@parts = split(/\0/, $values{'parts'} );
foreach $p (@parts) {
print "<li>", $p, "\n";
}
print "</ul>\n";
}

sub Price {
print "The price of this part is: \n";
print "<ul>\n";
@price = split(/\0/, $values{'price'} );
foreach $pr (@price) {
print "<li>", $pr, "\n";
}
print "</ul>\n";
}

sub Credit {
print "The credit card is: ", $values{'credit'} , " \n";
}

sub Number {
print "The card number to charge is: ", $values{'number'} , " \n";
}

sub Exp {
print "Your card expiration date is: ", $values{'exp'} , " \n";
}

sub NameCard {
print "The name on your card is: ", $values{'namecard'} , " \n";
}

sub Email {
print "You can be contacted at the following email address: ", $values{'email'} , " \n";
}

#If fields are not completed
if ((! $values{"Credit"} ) ||
(! $values{"Vehicle"} ) ||
(! $values{"Make"} ) ||
(! $values{"Year"} ) ||
(! $values{"Model"} ) ||
(! $values{"Name"} ) ||
(! $values{"Address"} ) ||
(! $values{"City"} ) ||
(! $values{"State"} ) ||
(! $values{"Zip"} ) ||
(! $values{"Number"} ) ||
(! $values{"Exp"} ) ||
(! $values{"Name Card"} ) ||
(! $values{"Part Number"} ) ||
(! $values{"Part"} ) ||
(! $values{"Price"} ) ||
(! $values{"Email"} ))
{
print "<h2>Please fill out all the fields.</h2>\n";
print "Back up one page to the previous page and try again.\n";
print "</body></html>\n";
exit 0;
}

#Information for radio buttons
if ($in{NO} eq "NO") { print "Thank you for your order. We will not send newsletters to your
address\n"; }
else{ print "Thank you for your order. You will receive a monthly newsletter.\n"; }

CyCo

05-02-2005, 06:04 PM

Let's see the form you are using.

Charles

05-02-2005, 06:41 PM

This sort of thing is a good bit easier if you employ the ubiquitous CGI.pm (http://search.cpan.org/dist/CGI.pm/CGI.pm) module.