 |
|
Myanmar Association, Inc. Guestbook |
|
|
|
Myanmar Association, Inc. Guestbook |
|
end_of_html
# Utilize the routine in the subroutine output_add_form at the end of
# this form to actually print out the form. Then quit and let the user
# submit their data.
&output_add_form;
exit;
}
#######################################################################
# Get the Date #
#######################################################################
# Use the get_date subroutine at the end of this script to get the
# current date and time so that we can use it in our output.
$date = &get_date;
#######################################################################
# Modify Incomming Form Data #
#######################################################################
# Now check to see if we were asked to censor any particular words.
# First, create an array of form variables by accessing the "keys" of the
# associative array %form_data given to us by cgi-lib.pl.
@form_variables = keys (%form_data);
# For every variable sent to us from the form, and for each word in our
# list of bad words, replace (=~ s/) any occurance, case insensitively
# (/gi) of the bad word ($word) with the word censored.
# $form_data{$variable} should be equal to what the client filled in in
# the input boxes...
#
# Further, if the admin has set allow_html to 0, (!= 1) it means that she
# does not want the users to be able to use HTML tags...so, delete them.
foreach $variable (@form_variables)
{
foreach $word (@bad_words)
{
$form_data{$variable} =~ s/\b$word\b/censored/gi;
}
if ($allow_html != 1)
{
$form_data{$variable} =~ s/<([^>]|\n)*>//g;
}
}
#######################################################################
# Check Required Fields for Data #
#######################################################################
# For every field that was defined in our list of required fields, check
# the form data to see if that variable has an empty value. If so, jump to
# missing_required_field_data which is a subroutine at the end of this
# script passing as a parameter, the name of the field which was not filled
# out.
foreach $field (@required_fields)
{
if ($form_data{$field} eq "" )
{
&missing_required_field_data($field);
}
}
#######################################################################
# Edit the Guestbook File #
#######################################################################
# First open the guestbook html file. Then, read each of the lines in
# the guestbook file into an array called @LINES Then close the
# guestbook file. Finally, set the variable $SIZE equal to the number of
# elements in the array (which is conveniently, the same number of lines in
# the guestbook file)
open (FILE,"$guestbookreal") || die "Can't Open $guestbookreal: $!\n";
@LINES= Thank You from Myanmar
Association, Inc.
Your entry has now been added to the guestbook as follows... ";
print "Comments: $form_data{'comments'} Copyright 2000
by
Powered by aims-it.com Reminder from Myanmar
Association, Inc.
";
print GUEST "
";
print GUEST "";
print GUEST " ";
# Now print out the guest's address if they submitted the values.
print GUEST "";
print GUEST "Name:";
if ($form_data{'url'})
{
print GUEST "$form_data{'realname'}";
print GUEST "\n";
}
else
{
print GUEST " $form_data{'realname'}\n";
}
print GUEST " ";
# Now print the email of the guest...and, if the admin has set the
# $linkmail tag to one in the setup file, then make the email link clickable.
print GUEST "";
print GUEST "Email:";
if ( $form_data{'email'} )
{
if ($linkmail eq '1')
{
print GUEST "";
print GUEST "$form_data{'email'}\n";
}
else
{
print GUEST " $form_data{'email'}\n";
}
}
print GUEST " ";
# Finally, print up the date and the comments.
print GUEST "";
print GUEST "Date: $date ";
print GUEST "
\n";
print GUEST "";
print GUEST " ";
print GUEST "";
print GUEST "City:";
if ( $form_data{'city'} )
{
print GUEST " $form_data{'city'}";
}
print GUEST " ";
print GUEST "";
print GUEST "State:";
if ( $form_data{'state'} )
{
print GUEST " $form_data{'state'}";
}
print GUEST " ";
print GUEST "";
print GUEST "Country:";
if ( $form_data{'country'} )
{
print GUEST " $form_data{'country'} ";
print GUEST "
\n";
}
print GUEST "";
print GUEST "
";
}
# If the line was not however, we should make sure to print
# up the line so that we retain all of the HTML that was in the guestbook
# before we added the entry. Thus, the very long for loop will go
# through each line...it will print the header...and get all the way down
# through whatever HTML you've written until it gets to the guestbook
# entries which begin with a . It will then print the new
# entry and then print out all the old entries as well...When it gets to
# the end of the file, it's over.
else
{
print GUEST $_;
}
}
# Close up the guestbook.
close (GUEST);
#######################################################################
# Send Email Note to the Admin #
#######################################################################
# Now prepare to email a note to the admin. Rename $form_data{'email'}
# to $email_of_sender, and split up that email into its two components,
# the username and the email server. Thus in selena@eff.org, selena
# becomes username and eff.org becomes server. We are going to need
# these values later when we send our email.
$email_of_guest = "$form_data{'email'}";
# Now, if the admin has set the $mail to 1 (admin wants to be mailed when
# someone enters a guestbook entry), then let's begin creating an email body.
# We'll store the body in the variable $email_body and we will
# continually append this variable by using .=
if ($mail eq '1')
{
$email_body .= "You have a new entry in your guestbook:\n\n";
$email_body .= "------------------------------------------------------\n";
$email_body .= "Name: $form_data{'realname'}\n";
# If the guest actually submitted values, write them too.
if ($form_data{'email'} ne "")
{
$email_body .="Email: <$form_data{'email'}>\n";
}
if ($form_data{'url'} ne "")
{
$email_body .="URL: <$form_data{'url'}>\n";
}
if ($form_data{'city'} ne "")
{
$email_body .= "City: $form_data{'city'}\n";
}
if ($form_data{'state'} ne "")
{
$email_body .= "State: $form_data{'state'}\n";
}
if ($form_data{'country'} ne "")
{
$email_body .= "Country: $form_data{'country'}\n";
}
# Finish off the message body...
$email_body .= "Time: $date\n\n";
$email_body .= "Comments: $form_data{'comments'}\n";
$email_body .= "------------------------------------------------------\n";
# Use the send_mail subroutine in the mail-lib.pl library file to send
# the email to the admin. This routine takes 6 parameters, who is sending
# the mail, the server of the sender, who it is being sent to and their
# server, the subject and the body.
&send_mail("$email_of_guest", "$recipient",
"$email_subject", "$email_body");
}
#######################################################################
# Send Thank You Email to the Guest #
#######################################################################
# Now, if the admin has set $remote_mail equal to 1 and (&&) the guest has
# actually submitted an email, we should email the guest a thank you note
# also. The process is identical to the one above.
if ($remote_mail eq '1' && $form_data{'email'} ne "")
{
$email_body = "";
$email_body .= <<" end_of_message_to_guest";
Thank you very much for stopping by our site and a
double thanks you for taking the time to sign our guestbook.
We hope you found something useful..
end_of_message_to_guest
$email_body .= "\n";
$email_body .= " By the way, you wrote...\n\n";
$email_body .= " Name: $form_data{'realname'}\n";
if ($form_data{'email'} ne "")
{
$email_body .=" Email: <$form_data{'email'}>\n";
}
if ($form_data{'url'} ne "")
{
$email_body .=" URL: <$form_data{'url'}>\n";
}
if ($form_data{'city'} ne "")
{
$email_body .= " City: <$form_data{'city'}>\n";
}
if ($form_data{'state'} ne "")
{
$email_body .= " State: $form_data{'state'}\n";
}
if ($form_data{'country'} ne "")
{
$email_body .= " Country: $form_data{'country'}\n";
}
$email_body .= " Time: $date\n\n";
$email_body .= " Comments: $form_data{'comments'}\n";
# Send off the email!
&send_mail("$recipient", "$email_of_guest",
"$email_subject", "$email_body");
}
#######################################################################
# Send back an HTML Thank you to Guest #
#######################################################################
# Now send the guest a thank you note on the web and provide her with a
# way to get back to where she was before.
print <<" end_of_html";
";
print GUEST " ";
print GUEST "";
print GUEST "Comments: ";
print GUEST "$form_data{'comments'}";
print GUEST "
\n\n";
print GUEST "
end_of_html
# Print out a copy of their submissions.
if ($form_data{'url'} ne "")
{
print "Name:";
print "$form_data{'realname'}
";
print "Back to the Guestbook\n";
print "- You may need to reload or refresh it when you get there to see your entry.\n";
print "\n";
print "
";
}
else
{
print "Name: $form_data{'realname'}
";
}
if ( $form_data{'email'} )
{
if ($linkmail eq '1')
{
print "Email: (";
print " $form_data{'email'})
";
}
else
{
print "Email: $form_data{'email'}
";
}
}
print "Location: ";
if ( $form_data{'city'} )
{
print " $form_data{'city'}, ";
}
if ( $form_data{'state'} )
{
print " $form_data{'state'} ";
}
if ( $form_data{'country'} ){
print " $form_data{'country'}";
}
print "
Time: $date
\n";
print "
\n";
print <<" end_of_html";
Myanmar Association, Inc.
Hello, you forgot to fill out $field. Would you please
type something in below...
end_of_html
# Now reprint out the add form with the subroutine output_add_form at the
# end of this script. Then exit.
&output_add_form;
exit;
}
#######################################################################
# Output the Add Form #
#######################################################################
sub output_add_form
{
# This is pretty much straight forward printing...
print <<" end_of_html";
Copyright 2000
by
Myanmar Association, Inc.
Powered by aims-it.com
end_of_html } ####################################################################### # get_date # ####################################################################### sub get_date { @days = ('Sunday','Monday','Tuesday','Wednesday','Thursday', 'Friday','Saturday'); @months = ('January','February','March','April','May','June','July', 'August','September','October','November','December'); # Use the localtime command to get the current time, splitting it into # variables. ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); # Format the variables and assign them to the final $date variable. $year = $year - 100; if ($hour < 10) { $hour = "0$hour"; } if ($min < 10) { $min = "0$min"; } if ($sec < 10) { $sec = "0$sec"; } $date = "$days[$wday], $months[$mon] $mday, 200$year at $hour\:$min\:$sec"; }