#! /usr/npac/bin/perl
#############################################################################
#  
#   File: javapizza2.pl
#
#   Author:  Nancy McCracken
#
#   Input: pizza.java
#          CGI input:    Entries = address; 
#                                  phone; 
#                                  topping: pepperoni, sausage, anchovies.
#    				   specialorder: 
#   Output: text version of pizza order
#
#############################################################################
#  
#   MAIN FUNCTION
#
#############################################################################

require 'ReadParse.pl';

&PrintHeader;
&ReadEntry;
&PrintOrder;


#############################################################################
#  
#   SUBROUTINES
#
#############################################################################


sub ReadEntry 
{             
   %in =  &ReadParse;     # Read arguments passed from fill-out form
   $address = $in{'address'};
   $phone = $in{'phone'};
   $topping = $in{'topping'};
   $specialorder = $in{'specialorder'};
   return 1;
}


sub PrintOrder 
{
  print "Pizza Order \n";
  if ($specialorder eq '')
  { print "$topping pizza\n"; }
  else
  { print "$specialorder\n"; }
 
  print "Deliver to $address \n";
  print "Telephone $phone \n";
  $date = `date`;
  print "Order came in at $date ";
  return 1;
}


##############################################################################
#
#  Get information from fill-out form.
#
##############################################################################


# Returns the magic line which tells WWW that this is an HTML document
sub PrintHeader 
{
  print "Content-type: text/html\n\n";
  print "\n";
}