$guestbookurl = "/Guestbook/guestbook.html";
$guestbookreal = "/usr/local/etc/httpd/htdocs/Guestbook/guestbook.html";
$cgiurl = "/cgi-bin/Guestbook/guestbook.cgi";
$cgi_lib_location = "./cgi-lib.pl";
$cgi_sol_location = "./cgi-lib.sol";
$mail_lib_location = "./mail-lib.pl";
@bad_words = ("fack", "shut", "pess", "dumn", "holl");
$mail = "yes";
$recipient = "selena\@foobar.com";
$email_subject = "Entry to Guestbook";
$linkmail = "yes";
$remote_mail = "yes";
$allow_html = yes;
@required_fields = ("realname", "comments");
$thank_you_email_text = "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..";
sub add_form_header
{
print <<"end_of_add_form_header";
Guestbook (Add Form)
Add to my Guestbook
Please fill in the blanks below to add to my guestbook. The only
blanks that you have to fill in are the comments and name section.
Thanks!
end_of_add_form_header
}
sub thank_you_html_header
{
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
}
sub missing_required_field_note
{
print <<"end_of_note";
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_note
}
sub output_add_form
{
print <<"end_of_add_form";
Back to the Guestbook Entries
end_of_add_form
}