#!/usr/bin/perl
if ($#ARGV != 0){
print "Syntax: $_[0] filename\n";
exit 1;
}
$cemetery = $ARGV[0];
$master = "$ARGV[0].html";
$letter = "1";
open INPUT, $cemetery or die "Couldn't open $ARGV[0] for input.\n";
open OUTPUT, ">$master" or die \
"Couldn't open $master for output.\n";
print OUTPUT "\n$ARGV[0] Cemetery";
print OUTPUT "\n";
print OUTPUT "[Insert description here]\n";
print OUTPUT "\n";
print OUTPUT "
Names
\n";
print OUTPUT "Tombstones are indexed by the first letter of the last name.\n";
print OUTPUT "Click on one of the letters below to see who is buried in \n";
print OUTPUT "this cemetery.\n";
print OUTPUT "
\n";
}
closeletter(FN);
print OUTPUT "These names were collected by Jennifer Slaney during ";
print OUTPUT "the spring of 1998. The complete list is on file at the ";
print OUTPUT "Sterling Public Library.\n";
print OUTPUT "\n";
close OUTPUT;
sub startletter {
my $letter = shift;
if ($letter eq "?") {
$letter = "Unknown";
}
$fn = "$cemetery.$letter.html";
print "New letter starting in $fn.\n";
open FN, ">$fn" or die "Couldn't open $fn for output.\n";
print OUTPUT "$letter \n";
print FN "\n$cemetery ";
print FN "Cemetery - $letter\n";
print FN "
\n";
print FN "
NAME
\n";
print FN "
BORN
\n";
print FN "
DIED
\n";
print FN "
COMMENTS
\n";
print FN "
LOCATION
\n";
FN;
}
sub closeletter {
my $FN = shift;
print $FN "
\n";
print $FN "\n";
print $FN "Go back to master list for";
print $FN " $cemetery cemetery.\n";
print $FN "\n";
close $FN;
}