#!/usr/bin/perl -w # http://sandiegogeologists.org/cgi-bin/results.cgi: reports meeting reservations and food choice totals # Carolyn Glockhoff 12 March 2002 this version sorts and displays reservations by last name REV 5/16/05 # revised 11/12/2007 for PayPal processing 08/14/2008 all reservations (including PayPal on one list) use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); print < Meeting and Food Reservation Results

Meeting and Food Reservation Results

END_TOP no strict; $headCount = 0; $studentval = 0; #number in headcount paying student rate open (FOODHASH, "<../foodhash.txt") || dienice ("Can't open foodhash.txt for reading: $!"); #read in food choices and initialize each choice at zero quantity close(FOODHASH); open (RESERVATIONS, "<../reservations.txt") || dienice ("Can't open reservations.txt for reading: $!"); @reslist = ; close(RESERVATIONS); @shuffled = (); #@shuffled is the alphabetically sorted array of last names and starts empty $i = 0; foreach $a (@reslist) { @shuffled = sort { $a cmp $b } @reslist; $i++; } foreach $line (@shuffled) { ($lname, $name, $student, $member, $from, $contact, $food, $cost, $pp, $date) = split /\|/, $line, 10; if ($student) { $printstudent = " - student"; } else { $printstudent = ""; } if ($member) { $printmember = " - member"; } else { $printmember = ""; } if ($pp>0){ $printpp = "X"; }else{ $printpp = ""; } print "" . "\n"; $studentval = $studentval + $student; $memberval = $memberval + $member; $headCount++; $count{$food}++; #match food requested to food hash and increment } print "

Pre- Paid	Saving a place for:	Company/School:	Contact Info:	Food Choice:	Cost:	Date:
" . $printpp . "	" . $name . $printstudent . "	" . $from . "	" . $contact . "	" . $food . "	" . $cost . "	" . $date . "

\n"; print "

\n"; print " \n"; print " \n"; print "

"; print "Head Count = " . $headCount . "

"; print "Students included = " . $studentval . "
"; #print "Member discounts = " . $memberval; print "

\n"; foreach $food (keys %count) { print "$food = $count{$food}
\n"; } print "

\n"; print < Back to Maintenance Page SDAG home

END_BOTTOM sub dienice { my ($msg) = @_; print "

Error

\n"; print "$msg"; exit; }