#!/usr/local/bin/perl -w
use strict;
use diagnostics;
use CGI qw(:standard);

#############################
#initialize variable
#############################


my $db ="events.txt";


open (FILE, "<" . $db) || die "Well, whats up.. cant open file";

#flock (FILE, 2 );

my $lc = 0;

######################################
# Start of while loop
######################################
while (<FILE>) {

my $line = $_;
$line =~ s/\n$//;
my @events = split ("::", $line);

if ($events[1] eq ""){$lc = $line};

##############################
# Print Parish Events
##############################
print header(),
        start_html(-title=>'Script'),
                           
                "<HR>
                        <table border='0' width='100%'>
                                <tr>
                                        <td width='100%'>
                                                                <table border='0' width='100%'>
                                                                        <tr>
                                                                                <td width='100%'>
                                                                                <table border='0' width='100%'>
                                                                                        <tr>
                                                                                                <td width='22%'><font SIZE='+1'color='gray'><B>$events[0] $events[1], $events[2]</B></font></td>
                                                                                                <td width='78%'><font SIZE='+1'color='black'><B>$events[3]</B></font></td>
                                                                                        </tr>
                                                                                </table>
                                                                                </td>
                                                                        </tr>
                                                                        <tr>
                                                                                <td width='100%'><font SIZE='2'>$events[4]</font></td>
                                                                        </tr>
                                                                </table>
                                        </td>
                                </tr>
                        </table>",

        end_html();
#####################################

if ($events[1] eq ""){


#flock (FILE, 8 );
close (FILE);
}
}