#!/usr/local/bin/perl
#############################################################################
# list1: List the ice cream orders
#############################################################################
print "Content-type: text/html \n";
print "\n";
open (ORDERFILE, "< ../../data/order.file") || print "Cannot open file - $!";
print "
List all orders
List of all ice cream orders:
| Name | Address | Ice Cream Flavor |
|---|
";
while($rec = ) {
chomp($rec);
($fname,$address,$flavor) = split(/:/,$rec);
$address =~ s/__/
/g;
print "| $fname | $address | $flavor |
";
}
print "
";