\n";
}
}
if ($HTTP_POST_VARS["verbose"]=="on") { $verbose=TRUE; }
if ($HTTP_POST_VARS["admin"]=="on") { $admin=TRUE; }
if ($HTTP_POST_VARS["all"]=="on") { $all=TRUE; }
$emailId = $HTTP_POST_VARS["email"];
if ($emailId!="") {
setcookie("email",$emailId,time()+60*60*24*30);
} else {
$emailId = $HTTP_COOKIE_VARS["email"];
}
$sName = $HTTP_POST_VARS["name"];
$isspam = false;
if (false && $sName != "") { /* LDC 1/10/2014 Disabled form submissions */
$comments = $HTTP_POST_VARS["comments"];
/* Spam problem -- people attempting to post links to their web sites.
* Solution: Don't accept submissions containing hyperlinks
*/
if (preg_match("/<|(<)a\s+href/",$comments)) {
$spam = true;
} elseif (preg_match("/http:/",$comments)) {
$spam = true;
} else {
/* It appears that a form was submitted. Store the data. */
$filename = tempnam($dir,"entry");
if ($entry = fopen($filename,"w")) {
fwrite($entry,"$sName\n");
fwrite($entry,$HTTP_POST_VARS["relation"] . "\n");
if ($HTTP_POST_VARS["showEmail"]=="on") {
fwrite($entry,"*");
} else {
fwrite($entry,"-");
}
fwrite($entry,$HTTP_POST_VARS["email"] . "\n");
fwrite($entry,"\n\n\n\n"); /* reserved*/
fwrite($entry,$comments);
fclose($entry);
}
}
}
$deleteEntry = $HTTP_POST_VARS["delete"];
if ($deleteEntry != "") {
if (substr($deleteEntry,0,5)=="entry") {
$newname = "deleted" . substr($deleteEntry,5);
rename($dir . "/" . $deleteEntry, $dir . "/" . $newname);
} else {
unlink($dir . "/" . $deleteEntry);
}
}
$undelete = $HTTP_POST_VARS["undelete"];
if ($undelete!="") {
$newname = "entry" . substr($undelete,7);
rename($dir . "/" . $undelete,$dir . "/" . $newname);
}
function PrintHiddenFields()
{
global $verbose,$admin,$all;
if ($verbose) { ?>
Memorial Guest Book for Lyle Dale Chrisman (1910-2003)
Guest Book For
Lyle Dale Chrisman
5 Nov 1910 - 19 Jul 2003
"Tough Old Bird"
Return to Memorial Page.
Submission rejected as likely spam. URLs are not
accepted in message.
Thank you signing our guest book!
Your posting should now appear below.
If you'd like to post again, click here.
Entry DELETED
(The guestbook form for adding new entries has been disabled, due to excessive spam)
What Others Have Written:
$date) {
if ($fd = fopen($dir . "/" . $f,"r")) {
?>
\n"; } ?>
From:
Relation:
Date:
Email:
";
while (!feof($fd)) {
$l = GetLine($fd);
echo "$l
\n";
}
echo "";
fclose($fd);
if ($admin) {
?>
Page maintained by Lonnie Chrisman