#! /usr/local/bin/perl ################################# # # WeddingPlanner CGI # # Written by Zach Whalen -- # (zwhalen@english.ufl.edu) # # Please contact me if you use this # program or if you have any questions. # # Copyleft Zach Whalen 2003 # You can use this program if # you want to. Just don't try to # Copyright it yourself, please. # ################################# ### SUMMARY ### # # This is part of a script which helps you # keep up with addresses and other related # information when you're planning a wedding # (or conference). # alarm(20); use strict; require '/web/nwe/share/nwe.pm'; print "Content-type: text/html \n\n"; my %data = &Parse_web_data(); my $file = $data{surname}.".dat"; $file =~ s/ //g; open (WRITE, ">$file"); foreach (keys %data){ print WRITE "$_=$data{$_}\n"; } print <

You entered the following:

Last Name	First Name	# in party	Other's names	Mailing Address	E-Mail	Inv. Sent?	RSVPed?	RSVP #	Gift	Thank-you?
$data{surname}	$data{firstname}	$data{party}	$data{others}	$data{address1} $data{address2} $data{city},$data{state} $data{zip}	$data{email}	$data{invite}	$data{RSVP}	$data{group}	$data{gift}	$data{thank}

Return to the form and enter a new one. START_OF_HTML exit;