Coffelt Cemetery
Benton County
Surname
|
Given name(s)
|
Birth date
|
Death date
|
other
|
Edwards
|
James G.
|
21 Oct 1890
|
11 Dec 1957
|
-
|
Edwards
|
Effie L.
|
19 May 1871
|
11 Apr 1919
|
Wife of J.G. Edwards
|
Douglas
|
Maud J.
|
30 July 1882
|
16 Oct 1945
|
ssw Booker Douglas
|
Douglas
|
Booker
|
8 Sep 1880
|
30 Mar 1956
|
ssw Maud J.
|
Douglas
|
Leta
|
1909
|
1944
|
wife of Mark
|
Click here for Newspaper Obituaries
Click here for AIS Census Indexes
#!/usr/bin/perl
##############################################################################
# Cliff's Banner Rotator Version 3.01 #
# Copyright 1998 Shaven Ferret Productions #
# Created 7/8/98 Last Modified 09/10/01 #
# Available at http://www.shavenferret.com/scripts #
##############################################################################
# COPYRIGHT NOTICE #
# Copyright 1998 Shaven Ferret Productions All Rights Reserved. #
# #
# This script can be used free of charge so long as you don't change any #
# part of it. By using this script you agree to indemnify me from any #
# liability that might arise from its use. In simple English, if this #
# script somehow makes your computer run amuck and kill the pope, it's not #
# my fault. #
# #
# Redistributing\selling the code for this program without prior written #
# consent is expressly forbidden. #
##############################################################################
require "ad-lib.cgi";
&setup;
open(FILE,"$datadir/main.txt");
@banners = ;
close(FILE);
print "Content-type: text/html\n\n";
srand;
$i = int(rand(250));
if ($i != 64) {
for ($i = $#banners; $i >= 0; $i--) {
($filenum,$weight,$inactive,$hideit,$hidetext,$hideact) = split(/\|/, $banners[$i]);
if ($inactive == 0 && ($hideit == 0 || ($hideit && ($ENV{'DOCUMENT_URI'} =~ /$hidetext/ && $hideact == -1) || ($ENV{'DOCUMENT_URI'} !~ /$hidetext/ && $hideact == 0)))) {
for ($j = 1; $j <= $weight; $j++) { splice(@okbanners,0,0,"$filenum|$i"); }
}
}
$bannernum = int(rand($#okbanners+1));
($filenum,$linenum) = split(/\|/,$okbanners[$bannernum]);
open(FILE,"$datadir/h$filenum.txt");
@lines = ;
close(FILE);
print "$lines[1]";
($trackctr,$java,$dimp,$imp,$dctr,$ctr,$ddate,$lmonth,$lday,$lyear,$conditions,$autoact,$email) = split(/\|/, $lines[0]);
open(FILE,"$datadir/c$filenum.txt");
$temp = ;
close(FILE);
($aimp,$actr) = split(/\|/,$temp);
$aimp++;
open(FILE,">$datadir/c$filenum.txt");
print FILE "$aimp|$actr";
close(FILE);
if ($dimp || $dctr || $ddate) { &checkdel; }
}
# Changing or deleting the following line of this script is illegal.
else { print "
Banner Rotator from Cliff's Perl Scripts
\n"; }
sub checkdel {
if ($dimp && $aimp >= $imp) { $true = -1; }
elsif ($dimp) { $false = -1; }
if ($dctr && $actr >= $ctr - 1) { $true = -1; }
elsif ($dctr) { $false = -1; }
if ($ddate) {
&getdate;
$lmonth++;
if (($year > $lyear) || ($year == $lyear && $mon > $lmonth) || ($year == $lyear && $mon == $lmonth && $mday >= $lday)) { $true = -1; }
else { $false = -1; }
}
if ($true && ($conditions == 0 || $false == 0)) { &deleteone; }
}