#!/usr/local/bin/perl -w
# popcorn.pl
# A CGI program, written using CGI.pm, to process
# the popcorn sales form
# Initialize total price and total number of purchased items
$total_price = 0;
$total_items = 0;
use CGI ":standard";
# First produce the header part of the HTML return value
print header();
print start_html("CGI-Perl Popcorn Sales Form, using CGI.pm");
# Set local variables to the parameter values
my($name, $street, $city, $payment) =
(param("name"), param("street"),
param("city"), param("payment"));
my($unpop, $caramel, $caramelnut, $toffeynut) =
(param("unpop"), param("caramel"),
param("caramelnut"), param("toffeynut"));
# Compute the number of items ordered and the total cost
if ($unpop > 0) {
$cost = 3.0 * $unpop;
$total_price += $cost;
$total_items += $unpop;
}
if ($caramel > 0) {
$cost = 3.5 * $caramel;
$total_price += $cost;
$total_items += $caramel;
}
if ($caramelnut > 0) {
$cost = 4.5 * $caramelnut;
$total_price += $cost;
$total_items += $caramelnut;
}
if ($toffeynut > 0) {
$cost = 5.0 * $toffeynut;
$total_price += $cost;
$total_items += $toffeynut;
}
# Produce the result information to the browser and finish the page
print "Customer:
\n",
"$name
\n", "$street
\n", "$city
\n",
"Payment method: $payment
\n",
"Items ordered:
\n",
"Unpopped popcorn: $unpop
\n",
"Caramel popcorn: $caramel
\n",
"Caramel nut popcorn: $caramelnut
\n",
"Toffey nut popcorn: $toffeynut
\n",
"You ordered $total_items popcorn items
\n",
"Your total bill is: \$ $total_price
\n";
print end_html();
conelec.html
Consumer Electronics Purchasing Survey
To see the results of the survey so far, click
here