#!/usr/bin/perl

use warnings;
use strict;

# constants for prices
our $GB_PRICE            = 3.95;
our $BRUSCHETTA_PRICE    = 4.95;
our $HUMMUS_PRICE        = 5.95;
our $SALAD_PRICE         = 1.00;
our $SPAGHETTI_PRICE     = 8.95;
our $LASAGNA_PRICE       = 9.95;
our $PIZZA_PRICE         = 10.95;
our $SOFT_DRINK_PRICE    = 2.00;
our $BEER_PRICE          = 3.00;
our $LIQUOR_PRICE        = 3.50;
our $WINE_PRICE          = 4.00;
our $GST                 = 0.07;
our $PST                 = 0.08;
our $LST                 = 0.10;

# the first argument of this function is a filename
# the second argument is a reference to a hash of variables
# all variables in that hash will be written out to a file
# the format of the file is as follows
# SCALARS: s:name:value
# ARRAYS : a:name:value1:value2:value3
# HASHES : h:name:key1:value1:key2:value2
# newlines are the seperators! there is no terminating character
sub write_hash {
    my $filename = shift @_;
    my $vars = shift @_;
   
    open(FILE, ">$filename");
    
    foreach my $key (keys %{$vars}) {
        # this one is just for convienence
        my $i = \( $vars->{$key} );

        # this is a switch statement
        # make a reference to $vars->{$key} and pass it to ref
        for (ref $i) {
            # if it is scalar, ref will return SCALAR...
            if (/SCALAR/) {
                print FILE "s:$key:" . $vars->{$key} . "\n";
            }
            # ...otherwise it returns an empty string
            # which means it is a hash or an array
            else {
                my $j = $vars->{$key};
                my $type = ref $j;
                # if it is an array, print out each element
                if ($type eq "ARRAY") {
                    print FILE "a:$key";
                    for my $element ( @{$j} ) {
                        print FILE ":$element";
                    }
                    print FILE "\n";
                }
                # likewise for a hash, print out the key/value pairs
                elsif ($type eq "HASH") {
                    print FILE "h:$key";
                    for my $k ( keys %{$j} ) {
                        print FILE ":$k:" . $j->{$k};
                    }
                    print FILE "\n";
                }
            }
        }
    }
   
    close(FILE);
        
    return;
}

# the first argument of this function is a filename
# function returns a hash
# see the above function for the format of the file
sub read_hash {
    my $filename = shift @_;
    my %vars;
    # these are used when extracting data from the fields
    my ($type, $name, $value, $key);

    open(FILE, "$filename");
    my @data = <FILE>;
    close(FILE);

    # iterate through the array 
    foreach my $line (@data) {
        # retrieve the type
        $type = substr($line, 0, 1);
        for ($type) {
            # if it's a scalar...
            if (/s/) {
                (undef,$name,$value) = split(/:/, $line, 3);
                chomp $value;
                $vars{$name} = $value;
            }
            # if it's an array...
            if (/a/) {
                # stores the elements of the array, temporarily
                my ($values, @elements);
                (undef,$name,$values) = split(/:/, $line, 3);
                chomp $values;
                @elements = split(/:/, $values);

                # now we've got the values split up
                # time to write things to the hash
                $vars{$name} = (\@elements);
            }
            # if it's a hash...
            if (/h/) {
                # $k and $v are for key and value
                my ($k, $v, $pairs, %hash);
                (undef,$name,$pairs) = split(/:/, $line, 3);
                chomp $pairs;

                # extract all the pairs and put them in the hash
                while (defined $pairs) {
                    ($k,$v,$pairs) = split(/:/, $pairs, 3);
                    $hash{$k} = $v;
                }

                # now shove a hash ref into our big hash!
                $vars{$name} = \%hash;
            }
        }
    }
    
    return %vars;
}

sub write_start {
    # get the error message, if there is one
    # undefined if there is no errmsg
    my $errmsg = shift(@_);

    print "Content-Type: text/html";
    print "\n\n";
    print '<?xml version="1.0" encoding="UTF-8"?>' . "\n";
    print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ';
    print '"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' . "\n";
    print '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">' . "\n";
    print '<head>' . "\n";
    print '<link rel="StyleSheet" href="css/assign1.css" type="text/css" ';
    print 'media="screen" title="mystyle" />' . "\n";
    print '<title>Restaurant Bill Calculator</title>' . "\n";
    print '</head>' . "\n";
    print '<body>' . "\n";
    print '<form action="assign1.cgi" method="get" name="patrons">' . "\n";
    if (defined $errmsg) {
        print '<div class="error">' . $errmsg . '</div>' . "\n";
        print '<br />' . "\n";
    }
    print '<table>' . "\n";
    print '<tr>' . "\n";
    print '<td class="label">Number of Patrons: </td>';
    print '<td class="value">' . "\n";
    print '<input type="text" name="patrons" size="6" maxlength="10" />' . "\n";
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td align="center" colspan="2">' . "\n";
    print '<input type="submit" name="go" value="submit" />' . "\n";
    print '</td>' . "\n";
    print '</tr>' . "\n";
    print '</table>' . "\n";
    print '<input type="hidden" name="file" value="patron" />' . "\n";
    print '</form>' . "\n";
    print '</body>' . "\n";
    print '</html>' . "\n";
    
    return;
}

sub write_appetizer {
    # get the session id...
    my $session_id = shift @_;

    # this will have an error message if one was passed, and will be
    # undefined otherwise
    my $errmsg = shift @_;
    
    # ...and write the page
    print "Content-Type: text/html";
    print "\n\n";
    print '<?xml version="1.0" encoding="UTF-8"?>' . "\n";
    print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ';
    print '"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' . "\n";
    print '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">' . "\n";
    print '<head>' . "\n";
    print '<link rel="StyleSheet" href="css/assign1.css" type="text/css" ';
    print 'media="screen" title="mystyle" />' . "\n";
    print '<title>Restaurant Bill Calculator - Appetizers</title>' . "\n";
    print '</head>' . "\n";
    print '<body>' . "\n";
    print '<form action="assign1.cgi" method="get" name="appetizer">' . "\n";
    if (defined $errmsg) {
        print '<div class="error">' . $errmsg . '</div>' . "\n";
    }
    print '<table style="form">' . "\n";
    print '<tr>' . "\n";
    print '<td class="label">Appetizers: </td>' . "\n";
    print '<td class="value">' . "\n";
    print '<select name="appetizer">' . "\n";
    print '<option value="garlic bread">Garlic Bread ($3.95)</option>' . "\n";
    print '<option value="bruschetta">Brushetta ($4.95)</option>' . "\n";
    print '<option value="hummus">Humous & Tabouleh ($5.95)</option>' . "\n";
    print '</select>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td class="label">Quantity: </td>' . "\n";
    print '<td class="value">';
    print '<input type="text" name="qty" size="6" maxlength="2" />' . "\n";
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td class="label">Add more? </td>' . "\n";
    print '<td class="value"><input type="checkbox" name="more" /></td>' ."\n";
    print '</tr><tr>' . "\n";
    print '<td align="center" colspan="2">';
    print '<input type="submit" name="go" value="Submit" />';
    print '</td>' . "\n";
    print '</table>' . "\n";
    print '<input type="hidden" name="file" value="appetizer">' . "\n";
    print '<input type="hidden" name="session_id" value="' . $session_id
                                                           . '">' . "\n";
    print '</form>' . "\n";
    print '</body>' . "\n";
    print '</html>' . "\n";

    return;
}

sub write_entree {
    # retrieve the session id...
    my $session_id = shift @_;
    # and the error message
    my $errmsg = shift @_;

    # ...and write the page
    print "Content-Type: text/html";
    print "\n\n";
    print '<?xml version="1.0" encoding="UTF-8"?>' . "\n";
    print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ';
    print '"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' . "\n";
    print '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">' . "\n";
    print '<head>' . "\n";
    print '<link rel="StyleSheet" href="css/assign1.css" type="text/css" ';
    print 'media="screen" title="mystyle" />' . "\n";
    print '<title>Restaurant Bill Calculator - Entrees</title>' . "\n";
    print '</head>' . "\n";
    print '<body>' . "\n";
    print '<form action="assign1.cgi" method="get" name="entrees">' . "\n";
    if (defined $errmsg) {
        print '<div class="error">' . $errmsg . '</div>' . "\n";
    }
    print '<table style="form">' . "\n";
    print '<tr>' . "\n";
    print '<td class="label">Entrees: </td>' . "\n";
    print '<td class="value">' . "\n";
    print '<select name="entree">' . "\n";
    print '<option value="spaghetti">Spaghetti ($8.95)</option>' . "\n";
    print '<option value="lasagna">Lasanga ($9.95)</option>' . "\n";
    print '<option value="pizza">Pizza ($10.95)</option>' . "\n";
    print '</select>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td class="label">Add a Salad? </td>' . "\n";
    print '<td class="value"><input type="checkbox" name="salad" /></td>'."\n";
    print '</tr><tr>' . "\n";
    print '<td class="label">Quantity: </td>' . "\n";
    print '<td class="value">';
    print '<input type="text" name="qty" size="6" maxlength="2" />' . "\n";
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td class="label">Add more? </td>' . "\n";
    print '<td class="value"><input type="checkbox" name="more" /></td>' ."\n";
    print '</tr><tr>' . "\n";
    print '<td align="center" colspan="2">';
    print '<input type="submit" name="go" value="Submit" />';
    print '</td>' . "\n";
    print '</table>' . "\n";
    print '<input type="hidden" name="file" value="entree">' . "\n";
    print '<input type="hidden" name="session_id" value="' . $session_id
                                                           . '">' . "\n";
    print '</form>' . "\n";
    print '</body>' . "\n";
    print '</html>' . "\n";

    return;
}

sub write_drinks {
    # get the session id...
    my $session_id = shift @_;

    # this will have an error message if one was passed, and will be
    # undefined otherwise
    my $errmsg = shift @_;
    
    # ...and write the page
    print "Content-Type: text/html";
    print "\n\n";
    print '<?xml version="1.0" encoding="UTF-8"?>' . "\n";
    print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ';
    print '"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' . "\n";
    print '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">' . "\n";
    print '<head>' . "\n";
    print '<link rel="StyleSheet" href="css/assign1.css" type="text/css" ';
    print 'media="screen" title="mystyle" />' . "\n";
    print '<title>Restaurant Bill Calculator - Drinks</title>' . "\n";
    print '</head>' . "\n";
    print '<body>' . "\n";
    print '<form action="assign1.cgi" method="get" name="drinks">' . "\n";
    if (defined $errmsg) {
        print '<div class="error">' . $errmsg . '</div>' . "\n";
    }
    print '<table style="form">' . "\n";
    print '<tr>' . "\n";
    print '<td class="label">Drinks: </td>' . "\n";
    print '<td class="value">' . "\n";
    print '<select name="drink">' . "\n";
    print '<option value="soft drink">Soft Drink ($2)</option>' . "\n";
    print '<option value="beer">Beer ($3)</option>' . "\n";
    print '<option value="liquor">Liquor ($3.50)</option>' . "\n";
    print '<option value="wine">Wine ($4)</option>' . "\n";
    print '</select>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td class="label">Quantity: </td>' . "\n";
    print '<td class="value">';
    print '<input type="text" name="qty" size="6" maxlength="2" />' . "\n";
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td class="label">Add more? </td>' . "\n";
    print '<td class="value"><input type="checkbox" name="more" /></td>' ."\n";
    print '</tr><tr>' . "\n";
    print '<td align="center" colspan="2">';
    print '<input type="submit" name="go" value="Submit" />';
    print '</td>' . "\n";
    print '</table>' . "\n";
    print '<input type="hidden" name="file" value="drink">' . "\n";
    print '<input type="hidden" name="session_id" value="' . $session_id
                                                           . '">' . "\n";
    print '</form>' . "\n";
    print '</body>' . "\n";
    print '</html>' . "\n";

    return;
}

sub write_subtotal {
    # get the session id...
    my $session_id = shift @_;
    # and the variables we'll need
    my $vars = shift @_;
    my $appetizers  = $vars->{'appetizers'};
    my $entrees     = $vars->{'entrees'};
    my $drinks      = $vars->{'drinks'};

    # ...and write the page
    print "Content-Type: text/html";
    print "\n\n";
    print '<?xml version="1.0" encoding="UTF-8"?>' . "\n";
    print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ';
    print '"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' . "\n";
    print '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">' . "\n";
    print '<head>' . "\n";
    print '<link rel=StyleSheet" href="css/assign1.css" type="text/css" ';
    print 'media="screen" title="mystyle" />' . "\n";
    print '<title>Restaurant Bill Calculator - Subtotal</title>' . "\n";
    print '</head>' . "\n";
    print '<body>' . "\n";
    print '<form action="assign1.cgi" method="get" name="subtotal">' . "\n";
    print '<table class="form">' . "\n";
    print '<tr>' . "\n";
    print '<th>Item</th>' . "\n";
    print '<th>Total #</th>' . "\n";
    print '<th>Price Per</th>' . "\n";
    print '<th>Total Charge</th>' . "\n";
    print '</tr><tr>' . "\n";
    # now for the fun part
    print '<td>Garlic Bread</td>' . "\n";
    print '<td>' . $appetizers->{'garlic bread'} . '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $GB_PRICE;
    print '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $appetizers->{'garlic bread'} * $GB_PRICE;
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td>Bruschetta</td>' . "\n";
    print '<td>' . $appetizers->{'bruschetta'} . '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $BRUSCHETTA_PRICE;
    print '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $appetizers->{'bruschetta'} * $BRUSCHETTA_PRICE;
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td>Humous & Tabouleh</td>' . "\n";
    print '<td>' . $appetizers->{'hummus'} . '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $HUMMUS_PRICE;
    print '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $appetizers->{'hummus'} * $HUMMUS_PRICE;
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td>Spaghetti</td>' . "\n";
    print '<td>' . $entrees->{'spaghetti'} . '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $SPAGHETTI_PRICE;
    print '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $entrees->{'spaghetti'} * $SPAGHETTI_PRICE;
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td>Lasagna</td>' . "\n";
    print '<td>' . $entrees->{'lasagna'} . '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $LASAGNA_PRICE;
    print '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $entrees->{'lasagna'} * $LASAGNA_PRICE;
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td>Pizza</td>' . "\n";
    print '<td>' . $entrees->{'pizza'} . '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $PIZZA_PRICE;
    print '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $entrees->{'pizza'} * $PIZZA_PRICE;
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td>Salad</td>' . "\n";
    print '<td>' . $entrees->{'salad'} . '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $SALAD_PRICE;
    print '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $entrees->{'salad'} * $SALAD_PRICE;
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td>Soft Drink</td>' . "\n";
    print '<td>' . $drinks->{'soft drink'} . '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $SOFT_DRINK_PRICE;
    print '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $drinks->{'soft drink'} * $SOFT_DRINK_PRICE;
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td>Beer</td>' . "\n";
    print '<td>' . $drinks->{'beer'} . '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $BEER_PRICE;
    print '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $drinks->{'beer'} * $BEER_PRICE;
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td>Liquor</td>' . "\n";
    print '<td>' . $drinks->{'liquor'} . '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $LIQUOR_PRICE;
    print '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $drinks->{'liquor'} * $LIQUOR_PRICE;
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td>Wine</td>' . "\n";
    print '<td>' . $drinks->{'wine'} . '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $WINE_PRICE;
    print '</td>' . "\n";
    print '<td>$';
    printf "%.2lf", $drinks->{'wine'} * $WINE_PRICE;
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td style="font-weight: bold">Sub-total</td>' . "\n";
    print '<td></td><td></td><td>$' . "\n";
    printf "%.2lf", $vars->{'subtotal'};
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td style="font-weight: bold">GST (7%)</td>' . "\n";
    print '<td></td><td></td><td>$' . "\n";
    printf "%.2lf", $vars->{'subtotal'} * $GST;
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td style="font-weight: bold">PST (8%)</td>' . "\n";
    print '<td></td><td></td><td>$' . "\n";
    printf "%.2lf", $vars->{'food_subtotal'} * $PST;
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td style="font-weight: bold">Liquor Tax (10%)</td>' . "\n";
    print '<td></td><td></td><td>$' . "\n";
    printf "%.2lf", $vars->{'liquor_subtotal'} * $LST;
    print '</td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td><br /></td>' . "\n";
    print '</tr><tr>' . "\n";
    print '<td style="font-weight: bold">TOTAL BILL</td>' . "\n";
    print '<td></td><td></td><td>$' . "\n";
    printf "%.2lf", $vars->{'total'};
    print '</td>' . "\n";
    print '</tr>' . "\n";
    print '</table>' . "\n";
    print '<br />' . "\n";
    print '<form action="assign1.cgi" method="get" name="subtotal">' . "\n";
    print '<span>Please select a Gratuity: ' . "\n";
    print '<select name="tip">' . "\n";
    print '<option value="10">10%</option>' . "\n";
    print '<option value="15">15%</option>' . "\n";
    print '<option value="20">20%</option>' . "\n";
    print '</select>' . "\n";
    print '<input type="submit" name="go" value="Submit" />';
    print '<input type="hidden" name="file" value="subtotal">' . "\n";
    print '<input type="hidden" name="session_id" value="' . $session_id
                                                           . '">' . "\n";
    print '</form>' . "\n";
    print '</body>' . "\n";
    print '</html>' . "\n";
}

sub write_total {
    # get the data
    my $vars = shift @_;

    # get the amount of the tip
    my $tip_amt = ('.' . $vars->{'tip'}) * $vars->{'subtotal'};
    
    # write the page
    print "Content-Type: text/html";
    print "\n\n";
    print '<?xml version="1.0" encoding="UTF-8"?>' . "\n";
    print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ';
    print '"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' . "\n";
    print '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">' . "\n";
    print '<head>' . "\n";
    print '<link rel=StyleSheet" href="css/assign1.css" type="text/css" ';
    print 'media="screen" title="mystyle" />' . "\n";
    print '<title>Restaurant Bill Calculator - Grand Total</title>' . "\n";
    print '</head>' . "\n";
    print '<body>' . "\n";
    print '<h1>Grand Total:</h1>' . "\n";
    print '<p>The final total of the bill is $';
    printf "%.2lf", $vars->{'total'};
    print '</p><p>';
    print 'With a gratuity of ' . $vars->{'tip'} . '%';
    print ' of the sub-total ($';
    printf "%.2lf", $tip_amt;
    print ')';
    print ' the grand total is: $';
    printf "%.2lf", $vars->{'total'} + $tip_amt;
    print '.';
    print '</p><p>';
    print 'There are ' . $vars->{'patrons'} . ' patrons. Each person owes $';
    printf "%.2lf", ($vars->{'total'} + $tip_amt) / $vars->{'patrons'};
    print '.';
    print '</p>';
    print '</body>';
    print '</html>';
}
            
# returns the number of patrons, and the errorcode
sub process_patron {
    # put the query string into something we can work with
    my $qs = $_[0];
    my $err = 0;
    if (! $qs->{'patrons'} || length $qs->{'patrons'} > 2) {
        $err = 1;
    }
    
    return $qs->{'patrons'}, $err;
}

sub process_appetizer {
    # again with the query string
    my $qs = shift @_;
    # more contains 'on' if it was checked
    my $more = ($qs->{'more'}) ? 1 : 0;
    
    # fill %ret with the return values
    my %ret = (
       appetizer    => $qs->{'appetizer'},
       qty          => $qs->{'qty'},
       more         => $more,
    );
   
    return %ret;
}
   
sub process_entree {
    # get the QS
    my $qs = shift @_;

    # contains 'on' if it was checked
    my $more  = ($qs->{'more'})  ? 1 : 0;
    my $salad = ($qs->{'salad'}) ? 1 : 0;

    # fill ret with the appropriate values
    my %ret = (
       entree   => $qs->{'entree'},
       qty      => $qs->{'qty'},
       more     => $more,
       salad    => $salad
    );

    return %ret;
}
   
sub process_drinks {
    # get the query string
    my $qs = shift @_;

    # more contains 'on' if it was checked
    my $more = ($qs->{'more'}) ? 1 : 0;

    # fill %ret with the return values
    my %ret = (
       drink    => $qs->{'drink'},
       qty      => $qs->{'qty'},
       more     => $more
    );

    return %ret;
}
 
sub main {
    my %qs= split(/[;&=]/,$ENV{QUERY_STRING});
    foreach (values(%qs)) {
        s/(%[0-9a-f]{2}|\+)/$1 eq '+'?' ': chr(hex(substr($1,1)))/gei;
    }

    # initialize a few variables    
    my $page = $qs{'file'};
    my $err = 0;
    my $filename = "";
    my $errmsg = "";

    # if its the patron page, generate a new session id
    # otherwise, get the session id
    my $session_id;
    my %vars;
    if (! defined $qs{'session_id'} ) {
        $session_id = int(rand(100)) . time();
    }
    else {
        $session_id = $qs{'session_id'};
        $filename = ".meal-" . $session_id;
        %vars = read_hash($filename);
    }

    # this is the big important variable. it holds all the information
    # from the forms.

    # this is a switch statement
    for ($page) {
        if (/patron/) {
            ($vars{'patrons'}, $err) = process_patron(\%qs);
            if (! $err) {
                write_appetizer($session_id);
            }
            else {
                $errmsg = "Number of patrons must be between 1 and 99";
                # needs error message
                write_start($errmsg);
            }
        }
        elsif (/appetizer/) {
            # validate the appetizer page
            my %ret = process_appetizer(\%qs);
            my $amt = 0;

            # if this isn't the first time through the appetizers page
            # get the total number of appetizers ordered already...
            if (defined $vars{'appetizers'}) {
                foreach my $key (keys %{ $vars{'appetizers'} }) {
                    $amt += $vars{'appetizers'}->{$key};
                }
            }
            # ...and add the number of appetizers ordered on this iteration
            $amt += $ret{'qty'};

            # if there are more appetizers than people, give an error...
            if ($amt > $vars{'patrons'}) {
                $errmsg = "Total quantity of appetizers must be between"
                           . " 0 and " . $vars{'patrons'};
                write_appetizer($session_id, $errmsg);
            }
            # ...otherwise, save the data and display the appropriate page
            else {
                # these are just for syntactical simplicity
                my $key = $ret{'appetizer'};
                my $qty = $ret{'qty'};
                # if the appetizers reference isn't there...
                if (! defined $vars{'appetizers'}) {
                    # ...create it...
                    $vars{'appetizers'} = {};
                    # ...and initialize it
                    $vars{'appetizers'}->{'garlic bread'}   = 0;
                    $vars{'appetizers'}->{'bruschetta'}      = 0;
                    $vars{'appetizers'}->{'hummus'}         = 0;
                }

                # save the appetizer data
                $vars{'appetizers'}->{$key} += $qty;
                
                # if they want to add more appetizers...
                if ($ret{'more'} == 1) {
                    # ...write out the appetizer page
                    write_appetizer($session_id);
                }
                # otherwise...
                else {
                    # write out the entree page
                    write_entree($session_id);
                }
            }
        }
        elsif (/entree/) {
            # validate the entree data
            my %ret = process_entree(\%qs);
            my $amt = 0;
            
            # if this isn't the first time through the entree page
            # total up the amount of entrees ordered so far...
            if (defined $vars{'entrees'}) {
                foreach my $key (keys %{ $vars{'entrees'} }) {
                    $amt += $vars{'entrees'}->{$key};
                }
            }
            # take off the salads..we don't count them
            $amt -= $vars{'entrees'}->{'salad'};
            # ...and add the amount ordered in this iteration
            $amt += $ret{'qty'};
            print STDERR "amt: " . $amt . "\n";

            # if the amount of entrees is not the same as number of patrons
            # and they are not going to add more...
            if ($amt != $vars{'patrons'} && $ret{'more'} == 0) {
                # give 'em a nice error message and send 'em back.
                $errmsg = "Total number of entrees must be "
                          . $vars{'patrons'};
                write_entree($session_id, $errmsg);
            }
            else {
                # for simplicity
                my $key = $ret{'entree'};
                my $qty = $ret{'qty'};

                # if the entree hash in not defined,
                if (! defined $vars{'entrees'}) {
                    # declare it...
                    $vars{'entrees'} = {};
                    # and initialize it
                    $vars{'entrees'}->{'salad'}     = 0;
                    $vars{'entrees'}->{'spaghetti'} = 0;
                    $vars{'entrees'}->{'lasagna'}   = 0;
                    $vars{'entrees'}->{'pizza'}     = 0;
                }

                # save the data
                $vars{'entrees'}->{$key} += $qty;
                $vars{'entrees'}->{'salad'} += $qty * $ret{'salad'};
                
                # if they want to add more, write out the entree page
                if ($ret{'more'} == 1) {
                    write_entree($session_id);
                }
                # otherwise, write out the drinks page
                else {
                    write_drinks($session_id);
                }
            }
        }
        elsif (/drink/) {
            # validate the data
            my %ret = process_drinks(\%qs);
            my $amt = 0;

            # if this isn't the first time through the drinks page
            # get the total number of drinks ordered already....
            if (defined $vars{'drinks'}) {
                foreach my $key (keys %{ $vars{'drinks'} }) {
                    $amt += $vars{'drinks'}->{$key};
                }
            }
            # ...and add the number of drinks ordered on this iteration
            $amt += $ret{'qty'};

            # drinks must be between number of patrons and number of patrons*3
            # otherwise, give an error
            if (($amt < $vars{'patrons'} || $amt > ($vars{'patrons'} * 3))
               && $ret{'more'} == 0 ) {
                $errmsg = "Total quantity of drinks must be between "
                        . $vars{'patrons'} . " and " . $vars{'patrons'} * 3;
                write_drinks($session_id, $errmsg);
            }
            # otherwise, save the data and display the appropriate page
            else {
                # just for convienence
                my $key = $ret{'drink'};
                my $qty = $ret{'qty'};
                # if the drinks reference isn't there...
                if (! defined $vars{'drinks'}) {
                    # ...create it...
                    $vars{'drinks'} = {};
                    # ...and initialize it...
                    $vars{'drinks'}->{'soft drink'} = 0;
                    $vars{'drinks'}->{'beer'}       = 0;
                    $vars{'drinks'}->{'liquor'}     = 0;
                    $vars{'drinks'}->{'wine'}       = 0;
                }

                # save the drink data
                $vars{'drinks'}->{$key} += $qty;
                # we're nearing the end, so make up the total
                $vars{'subtotal'} 
                  = $vars{'appetizers'}->{'garlic bread'} * $GB_PRICE
                  + $vars{'appetizers'}->{'bruschetta'}   * $BRUSCHETTA_PRICE
                  + $vars{'appetizers'}->{'hummus'}       * $HUMMUS_PRICE
                  + $vars{'entrees'}->{'spaghetti'}       * $SPAGHETTI_PRICE
                  + $vars{'entrees'}->{'lasagna'}         * $LASAGNA_PRICE
                  + $vars{'entrees'}->{'pizza'}           * $PIZZA_PRICE
                  + $vars{'entrees'}->{'salad'}           * $SALAD_PRICE
                  + $vars{'drinks'}->{'soft drink'}       * $SOFT_DRINK_PRICE
                  + $vars{'drinks'}->{'beer'}             * $BEER_PRICE
                  + $vars{'drinks'}->{'liquor'}           * $LIQUOR_PRICE
                  + $vars{'drinks'}->{'wine'}             * $WINE_PRICE;
    
                $vars{'food_subtotal'} = $vars{'subtotal'}
                     - $vars{'drinks'}->{'beer'} * $BEER_PRICE
                     - $vars{'drinks'}->{'liquor'} * $LIQUOR_PRICE
                     - $vars{'drinks'}->{'wine'} * $WINE_PRICE;

                $vars{'liquor_subtotal'} = $vars{'drinks'}->{'beer'}
                     * $BEER_PRICE
                     + $vars{'drinks'}->{'liquor'} * $LIQUOR_PRICE
                     + $vars{'drinks'}->{'wine'} * $WINE_PRICE;

                $vars{'total'} = $vars{'subtotal'}
                     + $vars{'subtotal'} * $GST
                     + $vars{'food_subtotal'} * $PST
                     + $vars{'liquor_subtotal'} * $LST;

                # if they want to add more...
                if ($ret{'more'} == 1) {
                    write_drinks($session_id);
                }
                # otherwise..
                else {
                    write_subtotal($session_id, \%vars);
                }
            }
        }
        elsif (/subtotal/) {
            $vars{'tip'} = $qs{'tip'};
            write_total(\%vars);
        }
    }

    # write the vars out to the file, whee.
    $filename = ".meal-" . $session_id;
    write_hash($filename, \%vars);
}

main();