;
close(FILE);
$SIZE=@LINES;
# Now open up the guestbook file again, but this time open it for
# writing...in fact we will overwrite the existing guestbook file with new
# data (>)
open (GUEST,">$guestbookreal") || die "Can't Open $guestbookreal: $!\n";
# Now we are goping to go through our @LINES array adding lines "back" to
# out guestbook file one by one, inserting the new entry along the way.
# For every line in the guestbook file (remember that $SIZE = number of
# lines) we'll assign the value of the line ($LINES[$i]) to the variable $_
# We'll start with the first line in the array ($i=0) and we'll end when
# we have gone through all of the lines ($i<=$SIZE) counting by one ($i++).
# We reference the array in the standard form $arrayname[$element_number]
for ($i=0;$i<=$SIZE;$i++)
{
$_=$LINES[$i];
# Now, if the line hapens to be we know that we are going to
# need to add a new entry. Thus, btw, it is essential that your
# guestbook.html have that line, all on its own somewhere in the body when
# you initialize your guestbook.
if (//)
{
# Let's add the entry. First print again so that we will be
# able to find the top of the guestbook again the next time.
print GUEST "\n";
# Then begin adding the guest's information. First, let's print the Name
# of the guest. However, if the guest left a URL, let's make their name
# clickable top their URL. If the guest did not submit a URL, just print
# the name.
if ($form_data{'url'})
{
print GUEST "Name:";
print GUEST "$form_data{'realname'}";
print GUEST "
\n";
}
else
{
print GUEST "Name: $form_data{'realname'}
\n";
}
# 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.
if ( $form_data{'email'} )
{
if ($linkmail eq '1')
{
print GUEST "Email:";
print GUEST "";
print GUEST "$form_data{'email'}
\n";
}
else
{
print GUEST " $form_data{'email'}
\n";
}
}
# Now print out the guest's address if they submitted the values.
if ( $form_data{'city'} )
{
print GUEST "Location: $form_data{'city'},";
}
if ( $form_data{'state'} )
{
print GUEST " $form_data{'state'}";
}
if ( $form_data{'country'} )
{
print GUEST " $form_data{'country'}
\n";
}
# Finally, print up the date and the comments.
print GUEST "Date: $date
\n";
print GUEST "Comments:$form_data{'comments'}";
print GUEST "
\n\n";
}
# 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 .= "Location: $form_data{'city'},";
}
if ($form_data{'state'} ne "")
{
$email_body .= " $form_data{'state'}";
}
if ($form_data{'country'} ne "")
{
$email_body .= " $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";
Thanks very much for stopping by my site and a
double thanks you for taking the time to sign my guestbook.
I hope you found something useful and please let other
netizens know of the existence of my little corner of the
net..
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 .= " Location: $form_data{'city'},";
}
if ($form_data{'state'} ne "")
{
$email_body .= " $form_data{'state'}";
}
if ($form_data{'country'} ne "")
{
$email_body .= " $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";
Thank You
Thank you for signing the Guestbook, $form_data{'realname'}
Your entry has now been added to the guestbook as follows...
end_of_html
# Print out a copy of their submissions.
if ($form_data{'url'} ne "")
{
print "Name:";
print "$form_data{'realname'}
";
}
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";
print "Comments: $form_data{'comments'}
\n";
print "
";
print "Back to the Guestbook\n";
print "- You may need to reload it when you get there to see your\n";
print "entry.\n";
print "\n";
exit;
# Begin the subroutines...
#######################################################################
# missing_required_field_data subroutine #
#######################################################################
sub missing_required_field_data
{
# Assign the passed $variable parameter to the local variable $field
local($field) = @_;
# Now send the user an informative error message so that they can enter
# the correct amount of information.
print <<" end_of_html";
Data Entry Error
Woopsy, You forgot to fill out $field and I am not
allowed to add your guestbook entry without it. 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";
Back to the Guestbook Entries
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);
$year = substr $year, 1;
# Format the variables and assign them to the final $date variable.
if ($hour < 10) { $hour = "0$hour"; }
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }
$date = "$days[$wday], $months[$mon] $mday, 20$year at $hour\:$min\:$sec";
}