;
close(FILE);
$SIZE=@LINES;
# Now open up the file again, but this time open it for
# writing...in fact we will overwrite the existing links file with new
# data (>)
open (LINKS,">$linksreal") || die "Can't Open $linksreal: $!\n";
# Now we are goping to go through our @LINES array adding lines "back" to
# out links file one by one, inserting the new entry along the way.
# For every line in the links 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 happens to be we know that we are going to
# need to add a new entry. Thus, btw, it is essential that your
# links html file have that line, all on its own somewhere in the body when
# you initialize your links file.
if (//)
{
# Let's add the entry. First print again so that we will be
# able to find the top of the links file again the next time.
print LINKS "\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.
print LINKS "\n";
if ($form_data{'url'})
{
print LINKS " \n | Web Site: | \n";
print LINKS " $form_data{'url'}";
}
if ( $form_data{'country'} )
{
print LINKS " ($form_data{'country'})";
}
print LINKS " | \n
\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.
print LINKS " \n | Added on: | \n";
print LINKS " $date";
if ( $form_data{'email'} )
{
if ($linkmail eq '1')
{
print LINKS " (by ";
if ( $form_data{'realname'} )
{ print LINKS "$form_data{'realname'})"; }
else
{ print LINKS "$form_data{'email'})"; }
}
}
print LINKS " | \n
\n";
# Finally, print up the date and the description.
print LINKS " \n | Description: | \n $form_data{'description'} | \n
\n
\n";
print LINKS "
\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 links file
# 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 links file
# 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 LINKS $_;
}
}
# Close up the links page.
close (LINKS);
#######################################################################
# 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 links 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 links file:\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{'country'} ne "")
{
$email_body .= " Country: <$form_data{'country'}>\n";
}
# Finish off the message body...
$email_body .= "Time: $date\n\n";
$email_body .= "Description: $form_data{'description'}\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 submit a link.
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{'country'} ne "")
{
$email_body .= " Country: <$form_data{'country'}>\n";
}
$email_body .= " Time: $date\n\n";
$email_body .= " Description: $form_data{'description'}\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 submitting a link, $form_data{'realname'}
Your entry has now been added to the links page 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{'country'} ){
print " $form_data{'country'}";
}
print "
Time: $date";
print "Description: $form_data{'description'}
\n";
print "
";
print "Back to the links page\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 links page 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 Links Page
end_of_html
}
#######################################################################
# get_date #
#######################################################################
sub get_date
{
@days = ('Sun','Mon','Tue','Wed','Thu',
'Fri','Sat');
@months = ('Jan','Feb','Mar','Apr','May','Jun','Jul',
'Aug','Sep','Oct','Nov','Dec');
# 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.
if ($hour < 10) { $hour = "0$hour"; }
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }
$date = "$days[$wday] $months[$mon] $mday 2003";
}