#! /usr/npac/bin/perl
#############################################################################
#  
#   File: javapizzaspecials.pl
#
#   Author:  Nancy McCracken
#
#   Input: pizza.java
#          CGI input:  Entries = none
#   Output: text version of specials
#
#   Files: specials.txt - reads this file (with : separated fields) to
#	list pizza specials
#
#############################################################################
#  
#   MAIN FUNCTION
#
#############################################################################

require 'ReadParse.pl';

&PrintHeader;
&ReadEntry;
&PrintSpecials;

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


sub ReadEntry 
{             
   %in = &ReadParse;     # Read arguments passed from fill-out form
   $todayspec=$in{'todayspecials'};
   return 1;
}


sub PrintSpecials
{
  print "Pizza Specials Today: ";
  print "\n\n";
  open (SP, "specials.txt") || die "can't open specials file";
  while ($record = <SP>)
   {
    ($spname,$spprice,$sptime,$spdesc)=split(/:/,$record);
    print "$spname, $spprice, $spdesc \n";
   }
  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";
}