#! /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(30); use strict; print "Content-type: text/html \n\n"; require '/web/nwe/share/nwe.pm'; my %data = &Parse_web_data(); my $file = $data{name}; my %hash = &make_hash($_); my $checka = ""; if (exists $hash{invite}){ $checka = "CHECKED"; }else{$checka = ""; } my $checkb = ""; if (exists $hash{RSVP}){ $checkb = "CHECKED"; }else{$checkb = ""; } my $checkc = ""; if (exists $hash{thank}){ $checkc = "CHECKED"; }else{$checkc = ""; } print <

Please make any changes you want and save this file.

Last Name:

First Name:

Estimated # Attending (including invitee and guests)

Their Names:

Mailing Address:

City: State: Zip:

E-Mail Address:

Invitation Sent?

RSVP Received? : Number on RSVP:

Gift:

Thank-you sent?

START_OF_HTML sub make_hash { my ($key, $val, %hash); open READ, "$file" or return 0; my @file = ; close READ; foreach (@file){ chomp $_; ($key, $val) = split /=/,$_; $hash {$key}=$val; } return %hash; }