##

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

my $q = new CGI;

my $action       = $q->param('action');

#############################
#initialize form variables
#############################
#my $uniq_number = &uniqueid;

my $month = param('month');
my $date = param('date');
my $year = param('year');
my $title = param('title');
my $message = param('message');

my $placement = param('placement'); 
#PLACES NEW EVENT BEFORE OR AFTER EXISTING EVENTS


################################
#   variables for storage
###############################
my $data = join '::', $month,$date,$year,$title,$message;

my $addfile = "events.txt";
my $line = "";


######################################
#BEGIN COUNTCURRENTRECORDS SUBROUTINE
######################################

open(FILE, "$addfile");
 my @lines = ;
close(FILE);
my $num = @lines;
######################################

if($action =~ /add_event/i){
  &store_event;
}
##############################
# Print New Event for approval
##############################


 # Add the event passed variables from the add event page

print header(),
        start_html(-title=>'CGI Example Script'),
                                 h2('New Parish Event!'),
                "
  
         
            
   
         
             
   
         
             
$month $date, $year
			
                        

					$title
                     
                        
                                                         
                
                                                                  
                    $message
								
                                                                 
                                                     
                     
                                
                        
 

                                





",

end_html();



#####################################
#could be sub for saving data
####################################
#####################################
# Open the file for appending
###################################
sub store_event{
if ($placement eq "beg") {
open (FH, "; close (FH);
my $newline = "$data";
open (NFH, ">events.txt") || die "could not open file 2: $!";
print NFH "$newline" . "\n";
foreach $line (@ODB) { print NFH "$line";
}
close (NFH);
}
else
{
open (OUT, ">>$addfile") or die "Can't open $addfile\n";
print OUT "$data\n";
close OUT;
}
}
exit (0);