#!/usr/bin/perl -Tw
#############################################################################
# reads announcements log file and displays on webpage #
#############################################################################
$announce_log = '/home/essenba/public_html/comments/logannouncements.txt';
use CGI;
use Fcntl;
$query = new CGI;
unless ($action = $query->param('action')) {
$action = 'none';
}
#############################################################################
# Create header #
#############################################################################
print <<"Headerinfo";
Content-type: text/html
Log Announcements
News and Announcements for Old line Primitive Baptists
(Any church related news such as: meetings,ordinations,prayer requests)
Home Page
Chronological History of all Announcements
(Starting with the oldest entry)
Headerinfo
#############################################################################
# Open non-destructively, read old entries, writeout new #
#############################################################################
#############################################################################
# display the chronological history log file #
#############################################################################
open (IN, "$announce_log") or die "Can't open $announce_log for reading: $!";
flock(IN, 1) or die "Can't get LOCK_SH on $announce_log: $!";
while () {
print;
}
close IN or die "Can't close $announce_log: $!";
print <<"Closeinfo";
Closeinfo