#!/usr/bin/perl 

use CGI::Carp 'fatalsToBrowser';

#### Background colors for your tables ##########
$bg1 = "#320657";
$bg2 = "#C5D3E3";

$template = "template.html";
@insert = "";

read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
($ENV{'REQUEST_METHOD'} =~ /get/i) 
  and $forminfo = $ENV{'QUERY_STRING'};

@forminfo = split(/&/,$buffer);
foreach $pair (@forminfo) {
  ($var, $value) = split(/=/,$pair);
  $value =~ s/%([a-fA-F\d][a-fA-F\d])/pack("C",hex($1))/eg;
  $value =~ s/\+/ /g;
  $forminfo{$var} = $value;
	}

&date;
if ($forminfo{'submit'} ne "") {&new_entry;}
else {&display_journal;}





#################################################
#################################################
############     PRINT OUT TO BROWSER   ############
#################################################

print "content-type: text/html\n\n";

open(TEMPLATE, "$template") or die "can't open $!";
    local($/) = undef;
    $temp = <TEMPLATE>;

	$temp =~ s/\$INSERT/@insert/g;
    print $temp;

#########################################################


sub display_journal {

open (FILE,"journal.txt") || die "cant open journal";
@insert = <FILE>;
close (FILE);
}

sub new_entry {
	open (FILE,"journal.txt") || die "cant open journal";
	@insert = <FILE>;
	close (FILE);
	
	open (FILE,">journal.txt") || die "cant open journal";
	
	
	
	unshift (@insert,"<tr>
					<td bgcolor=$bg1><font color=#ffffff>$dateandtime</font></td>
					<td bgcolor=$bg1></td>
					<td align=center bgcolor=$bg1 class=bcolor><font color=#ffffff><b>$forminfo{'title'}</b></td></tr>
					<td colspan=3 class=form4 bgcolor=$bg2>$forminfo{'message'}</td></tr>");				
	print FILE @insert;
	close (FILE);
}	
				
sub date {
	($second, $minute, $hour, $dayofmonth, $month, $year, $weekday, $dayofyear, $isdst) = localtime(time);
	$realmonth = $month +1;
	$year = $year - 100;
	$dateandtime = sprintf("%02d/%02d/%02d\t%02d:%02d:%02d", $realmonth, $dayofmonth, $year, $hour, $minute, $second);
	
 }