#!/usr/bin/perl
use strict;
use Fcntl ':flock';
#
#       4est web designs
#
# 4est Logging, version 2.50
#
# Last Modified: 23:26 5/3/2005
# Web Site: http://www.semithere.net
# This script is Copyright © 2005 Forrest Jones

#######################
## START USER CONFIG ##
#######################

########## Administrator Settings ##########

my $adminName = "ben_admin";			# Name
my $adminEmail = 'benjami1@comcast.net';		# Email address
my $adminPass = "adminpass";			# Password

################## Layout ##################

my $align = "center";				# Table alignment
my $width = "95%";				# Table width
my $fontB = 'STYLE="font-size: 11px;';	# Big font
my $fontS = 'STYLE="font-size: 11px;"';		# Small font
my $hrDiv = '<HR>';				# Entry divider code, e.g. <HR>

############# Feature Settings #############

my $cookieExpiration = 7;			# Number of days for a cookie to stay active
my $postPass = "admin";				# Post password -- Leave blank to disable or enter admin to use the Administrator password
my $sendAdminEmail = "no";			# Send email to Administrator when someone posts (yes/no)
my $htmlEmail = "yes";				# When emailing the Administrator encode email as HTML (yes/no)
my $multiUsers = "no";				# Multiple users (yes/no)
my $enableComment = "yes";			# Enable commenting (yes/no)
my $enablePseudo = "yes";			# Enable pseudo code (yes/no)
my $enableAttachments = "no";			# Enable admin attachments (yes/no)
my $autoLinkUrls = "yes";			# Automatically link urls (yes/no)
my $maxEntries = 4;				# Number of entries to display on the main page
my $timeZone = "EST";				# Time zone
my $hourAdjust = -5;				# GMT offset in hours
my $timeFormat = 12;				# Time format, 12 or 24 hour (12/24)
my $dateFormat = 1;				# Date format, 1. (Sunday, July 20, 2003) 2. (Sunday, 20 July 2003) (1/2)
my $titleFormat = 1;				# Title format, 1. (Date / Title @ Time) 2. (Title / Date @ Time) (1/2)
my $maxUploadFiles = 5;				# Number of file fields on the upload page
my $imgFormat = "gif";				# Emoticon and Pseudo Code image format (gif/jpg/png/etc.)

################## Paths ###################

my $articlesPath = "articles";			# Path to the articles dir
my $imagesPath = "images";			# Path to the pseudo images dir
my $uploadsPath = "uploads";			# Path to the uploads dir
my $workingPath = "working";			# Path to the working dir
my $templatePath = "template.html";		# Path to template file
my $sendmailPath = "/usr/sbin/sendmail";	# Path to your unix sendmail program

################## Other ###################

# Use 4est Management cookie
my $mCookie = "";				# 4est Management cookie unique bit e.g. root
my $mCookiePath = "";				# Path to 4est Management script e.g. ../

# For language reasons
my @wdays = qw!Monday Tuesday Wednesday Thursday Friday Saturday Sunday!;
my @months = qw!January February March April May June July August September October November December!;

# Pseudo code and Smiley lists
my @smiley = qw!smiley|":)" wink|";)" cheesy|":D" grin|";D" angry|">:(" sad|":(" shocked|":o" cool|"8-)" huh|":?(" rolleyes|"8)" tongue|":P" embarassed|";(" lipsrsealed|":-X" undecided|":-/" kiss|":-*" cry|":'(" laugh|":-D" thumbup|"^=" thumbdown|"v=" exclamation|"\!\!\!" question|"???" star|"***" idea|":\!)"!;
my @pseudo = qw!url|"[url=]","[/url]" img|"[img=]","[/img]" email|"[email=]","[/email]" bold|"[b]","[/b]" italicize|"[i]","[/i]" underline|"[u]","[/u]" strike|"[s]","[/s]" left|"[left]","[/left]" center|"[center]","[/center]" right|"[right]","[/right]" size|"[size=2]","[/size]" font|"[font=Verdana]","[/font]" list|"[list]\n[*]\n[/list]" hr|"[hr]" table|"[table][row][column][/column][column][/column][/row][/table]" column|"[column]","[/column]" row|"[row]","[/row]"!;

#####################
## END USER CONFIG ##
#####################

# In script error checking
#BEGIN { $| = 1; open (STDERR, ">&STDOUT"); print qq~Content-type: text/html\n\n~; }

# Get form data
my (%FORM, %COOKIE);
&getData;
my $ran = "";
my $expdate = cookieTime();

# Global SSI override (on/off)
if (!$FORM{'ssi'}) {
	$FORM{'ssi'} = "off";
}

# Set script name and url
my $indexUrl = "http://";
(my $path = $ENV{'SCRIPT_NAME'}) =~ s/^(.+?)[0-9a-z_-]*\.[a-z]{2,3}$/$1/g;
(my $uniqueBit = $path) =~ s!^/(.+?)/$!$1!g;
(my $indexCgi = $ENV{'SCRIPT_NAME'}) =~ s/^.+?([0-9a-z_-]*\.[a-z]{2,3})$/$1/g;
($indexUrl .= $ENV{'HTTP_HOST'}) =~ s/^(.+?)\/$/$1/g;
($indexUrl .= $path) =~ s!^(.+?)/$!$1!g;
my $imagesDir = "$indexUrl/$imagesPath";
my $formUrl = "$indexUrl/$indexCgi";
$uniqueBit =~ s!/!!g;
my $uniqueBitX = $uniqueBit;
if (!$uniqueBit) {
	$uniqueBit = "root";
}
if ($mCookie && $COOKIE{"$mCookie-pass"}) {
	$uniqueBit = "$mCookie";
}

# Encrypt password
my $adminPassCrypt;
if ($mCookie && $COOKIE{"$mCookie-pass"}) {
	$adminPassCrypt = crypt($adminPass, "iN");
} else {
	$adminPassCrypt = crypt($adminPass, "wL");
}

# Init Check
if (!-e $workingPath && !$COOKIE{"$uniqueBit-error"}) {
	print qq|Set-Cookie: $uniqueBit-error=no; path=$path; expires=$expdate\n|;
	print "Location:$formUrl?action=admin\n\n";
	exit;
}
if (!$COOKIE{"$uniqueBit-error"}) {
	&fileCheck;
}
my $first = &counter("first", "0", "yes");

# Set alternate theme
my $templateFile;
if ($mCookie && $COOKIE{"$mCookie-pass"} && $COOKIE{"$mCookie-theme"} && !$COOKIE{"$uniqueBitX-theme"}) {
	$COOKIE{"$uniqueBitX-theme"} = $mCookiePath . $COOKIE{"$uniqueBit-theme"};
}
if ($FORM{'theme'}) {
	print qq|Set-Cookie: $uniqueBitX-theme=$FORM{'theme'}; path=$path; expires=$expdate\n|;
	$templateFile = "$FORM{'theme'}.html";
} elsif ($COOKIE{"$uniqueBitX-theme"}) {
	$templateFile = qq|$COOKIE{"$uniqueBitX-theme"}.html|;
} else {
	$templateFile = $templatePath;
}

# Get template
my $topPage = template($templateFile,"top");
my $bottomPage = template($templateFile,"bottom");

# Redirect to the admin / post page
if ($ENV{'QUERY_STRING'} =~ /^admin/) {
	$FORM{'action'} = "admin";
}
if ($ENV{'QUERY_STRING'} =~ /^post/) {
	$FORM{'action'} = "post";
}

#######################################################
## No Action
if (!$FORM{'action'}) {
	my $month = &getMonth(1);
	my $year = &getYear(1);
	my $count = &counter("counter", "0", "yes");
	open(IN, "$articlesPath/articles.db");
	flock(IN, LOCK_SH);
	my @data = <IN>;
	close(IN);
	my $lastNum = scalar(@data);
	my $num;
	if ($maxEntries > $lastNum) {
		$maxEntries = $lastNum;
	}
	$topPage =~ s/<!-- Title -->/Weblog/g;
	print "Content-type: text/html\n\n";
	if ($FORM{'ssi'} ne "on") {print $topPage;}
	for ($num = 1; $num <= $maxEntries; $num++) {
		chomp($data[$lastNum - $num]);
		my @field = split(/\|/, $data[$lastNum - $num]);
		open(COM, "$workingPath/$month\_$year\_$field[4].db");
		flock(COM, LOCK_SH);
		my $comNum = <COM>;
		close(COM);
		if (!$comNum) {
			$comNum = "0";
		}
		print qq|      <!-- $num of $maxEntries - ID $field[4] -->\n|;
		print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
		print qq|        <TR>\n|;
		if ($enableComment eq "yes" or $multiUsers eq "yes" or $COOKIE{"$uniqueBit-pass"}) {
			print qq|          <TD COLSPAN="2">\n|;
		} else {
			print qq|          <TD>\n|;
		}
		if ($titleFormat eq 1) {
			print qq|            <FONT $fontB>$field[0]</FONT><BR>\n|;
			print qq|            <A $fontS HREF="$formUrl?action=viewEntry&amp;month=$month&amp;year=$year&amp;id=$field[4]">$field[1] @ $field[2] $timeZone</A><BR>\n|;
		} elsif ($titleFormat eq 2) {
			print qq|            <FONT $fontB>$field[1]</FONT><BR>\n|;
			print qq|            <A $fontS HREF="$formUrl?action=viewEntry&amp;month=$month&amp;year=$year&amp;id=$field[4]">$field[0] @ $field[2] $timeZone</A><BR>\n|;
		}
		print qq|            $field[3]\n|;
		if ($enableComment eq "yes" or $multiUsers eq "yes" or $COOKIE{"$uniqueBit-pass"}) {
			print qq|            <BR><BR>\n|;
		}
		print qq|          </TD>\n|;
		print qq|        </TR>\n|;
		if ($enableComment eq "yes" or $multiUsers eq "yes") {
			print qq|        <TR>\n|;
		}
		if ($enableComment eq "yes") {
			print qq|          <TD><A HREF="$formUrl?action=readComment&amp;month=$month&amp;year=$year&amp;id=$field[4]">read comments</A> ($comNum) / <A HREF="$formUrl?action=writeComment&amp;month=$month&amp;year=$year&amp;id=$field[4]">write comment</A></TD>\n|;
		} elsif ($multiUsers eq "yes") {
			print qq|          <TD>&nbsp;</TD>\n|;
		}
		if ($multiUsers eq "yes") {
			print qq|          <TD ALIGN="right">|;
			print qq|$field[5] (|;
			if ($field[6]) {
				print qq|<A TARGET="_blank" HREF="$field[6]">www</A>|;
			} else {
				print qq|www|;
			}
			print qq| / |;
			if ($field[7]) {
				print qq|<A HREF="mailto:$field[7]">@</A>|;
			} else {
				print qq|@|;
			}
			print qq|)|;
			if ($field[9] && $enableAttachments eq "yes") {
				print qq| &nbsp; <A HREF="$formUrl?action=viewEntry&amp;month=$month&amp;year=$year&amp;id=$field[4]"><IMG SRC="$imagesDir/clip.$imgFormat" ALT="File(s) Attached" BORDER="0"></A>|;
			}
			print qq|</TD>\n|;
		} else {
			print qq|          <TD ALIGN="right">|;
			if ($field[9] && $enableAttachments eq "yes") {
				print qq|<A HREF="$formUrl?action=viewEntry&amp;month=$month&amp;year=$year&amp;id=$field[4]"><IMG SRC="$imagesDir/clip.$imgFormat" ALT="File(s) Attached" BORDER="0"></A>|;
			} else {
				print qq|&nbsp;|;
			}
			print qq|</TD>\n|;
		}
		if ($enableComment eq "yes" or $multiUsers eq "yes") {
			print qq|        </TR>\n|;
		}
		if ($field[9] && $enableComment eq "no" && $multiUsers eq "no" && $enableAttachments eq "yes") {
			print qq|        <TR>\n|;
			print qq|          <TD ALIGN="right"><A HREF="$formUrl?action=viewEntry&amp;month=$month&amp;year=$year&amp;id=$field[4]"><IMG SRC="$imagesDir/clip.$imgFormat" ALT="File(s) Attached" BORDER="0"></A></TD>\n|;
			print qq|        <TR>\n|;
		}
		if ($COOKIE{"$uniqueBit-pass"} && ($enableComment eq "yes" or $multiUsers eq "yes")) {
			print qq|        <TR>\n|;
			print qq|          <TD COLSPAN="2">&nbsp;</TD>\n|;
			print qq|        </TR>\n|;
		}
		if ($COOKIE{"$uniqueBit-pass"}) {
			print qq|        <TR>\n|;
			print qq|          <TD>|;
			if ($first <= 0) {
				print qq|<A HREF="$formUrl?action=post&amp;id=$field[4]">Edit</A> -- <A HREF="$formUrl?action=deleteEntry&amp;id=$field[4]">Delete</A>|;
			}
			print qq|</TD>\n|;
			print qq|          <TD ALIGN="right">IP: $field[8]</TD>\n|;
			print qq|        </TR>\n|;
		}
		print qq|        <TR>\n|;
		if ($enableComment eq "yes" or $multiUsers eq "yes" or $COOKIE{"$uniqueBit-pass"}) {
			print qq|          <TD COLSPAN="2">|;
		} else {
			print qq|          <TD>|;
		}
		print qq|<BR>$hrDiv<BR></TD>\n|;
		print qq|        </TR>\n|;
		print qq|      </TABLE>\n|;
	}
	print qq|      <DIV align="center">|;
	if (($multiUsers eq "yes" && -e "$articlesPath/articles.db") or $COOKIE{"$uniqueBit-pass"}) {
		print qq|<A HREF="$formUrl?action=post">Post</A> -- |;
	}
	if (-e "$articlesPath/articles.db") {
		print qq|<A HREF="$formUrl?action=viewArchive">Archive</A>|;
	}
	if ($COOKIE{"$uniqueBit-pass"} && -e "$articlesPath/articles.db") {
		print qq| -- <A HREF="$formUrl?action=admin">Admin Menu</A>|;
	}
	print qq|</DIV>\n|;
	if ($FORM{'ssi'} ne "on") {print $bottomPage;}
}

#######################################################
## View Entry
if ($FORM{'action'} eq "viewEntry") {
	$ran++;
	my $month = &getMonth(1);
	my $year = &getYear(1);
	my $whereTo;
	my $check = &checkForm();
	if ($check == 2) {
		if ($FORM{'month'} eq $month && $FORM{'year'} eq $year) {
			$whereTo = "articles";
		} else {
			$whereTo = "$FORM{'month'}_$FORM{'year'}";
		}
	}
	open(IN, "$articlesPath/$whereTo.db") or dienice("Can't read $whereTo.db code 1 : $! \n");
	flock(IN, LOCK_SH);
	my @data = <IN>;
	close(IN);
	chomp($data[$FORM{'id'} - 1]);
	my @field = split(/\|/, $data[$FORM{'id'} - 1]);
	open(COM, "$workingPath/$FORM{'month'}_$FORM{'year'}_$field[4].db");
	flock(COM, LOCK_SH);
	my $comNum = <COM>;
	close(COM);
	if (!$comNum) {
		$comNum = "0";
	}
	$topPage =~ s/<!-- Title -->/Entry Viewer/g;
	print "Content-type: text/html\n\n";
	if ($FORM{'ssi'} ne "on") {print $topPage;}
	print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
	print qq|        <TR>\n|;
	if ($enableComment eq "yes" or $multiUsers eq "yes" or $COOKIE{"$uniqueBit-pass"}) {
		print qq|          <TD COLSPAN="2">\n|;
	} else {
		print qq|          <TD>\n|;
	}
	if ($titleFormat eq 2) {
		print qq|            <FONT $fontB>$field[0]</FONT><BR>\n|;
		print qq|            <FONT $fontS>$field[1] @ $field[2] $timeZone</FONT><BR>\n|;
	} elsif ($titleFormat eq 1) {
		print qq|            <FONT $fontB>$field[1]</FONT><BR>\n|;
		print qq|            <FONT $fontS>$field[0] @ $field[2] $timeZone</FONT><BR>\n|;
	}
	print qq|            $field[3]\n|;
	if ($enableComment eq "yes" or $multiUsers eq "yes" or $COOKIE{"$uniqueBit-pass"}) {
		print qq|            <BR><BR>\n|;
	}
	print qq|          </TD>\n|;
	print qq|        </TR>\n|;
	if ($enableComment eq "yes" or $multiUsers eq "yes") {
		print qq|        <TR>\n|;
	}
	if ($enableComment eq "yes") {
		print qq|          <TD><A HREF="$formUrl?action=readComment&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]">read comments</A> ($comNum) / <A HREF="$formUrl?action=writeComment&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]">write comment</A></TD>\n|;
	} elsif ($multiUsers eq "yes") {
		print qq|          <TD>&nbsp;</TD>\n|;
	}
	if ($multiUsers eq "yes") {
		print qq|          <TD ALIGN="right">|;
		print qq|$field[5] (|;
		if ($field[6]) {
			print qq|<A TARGET="_blank" HREF="$field[6]">www</A>|;
		} else {
			print qq|www|;
		}
		print qq| / |;
		if ($field[7]) {
			print qq|<A HREF="mailto:$field[7]">@</A>|;
		} else {
			print qq|@|;
		}
		print qq|)</TD>\n|;
	} elsif ($enableComment eq "yes") {
		print qq|          <TD>&nbsp;</TD>\n|;
	}
	if ($enableComment eq "yes" or $multiUsers eq "yes") {
		print qq|        </TR>\n|;
	}
	if (($COOKIE{"$uniqueBit-pass"} && $whereTo eq "articles") && ($enableComment eq "yes" or $multiUsers eq "yes")) {
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="2">&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
	}
	if ($COOKIE{"$uniqueBit-pass"} && $whereTo eq "articles") {
		print qq|        <TR>\n|;
		print qq|          <TD>|;
		if ($first <= 0) {
			print qq|<A HREF="$formUrl?action=post&amp;id=$field[4]">Edit</A> -- <A HREF="$formUrl?action=deleteEntry&amp;id=$field[4]">Delete</A>|;
		}
		print qq|</TD>\n|;
		print qq|          <TD ALIGN="right">IP: $field[8]</TD>\n|;
		print qq|        </TR>\n|;
	}
	if ($field[9] && $enableAttachments eq "yes") {
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="2">&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="2">Attached files:<BR><BR></TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="2">\n|;
		my @files = split(/\*/, $field[9]);
		foreach my $file (@files) {
			print qq|           <IMG SRC="$imagesDir/clip.$imgFormat" ALT="Attached File" BORDER="0"> <A HREF="$indexUrl/$uploadsPath/$file">$file</A><BR>\n|;
		}
		print qq|          </TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="2">&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
	}
	print qq|        <TR>\n|;
	if ($enableComment eq "yes" or $multiUsers eq "yes" or $COOKIE{"$uniqueBit-pass"}) {
		print qq|          <TD COLSPAN="2">|;
	} else {
		print qq|          <TD>|;
	}
	print qq|<BR>$hrDiv<BR></TD>\n|;
	print qq|        </TR>\n|;
	print qq|      </TABLE>\n|;
	print qq|      <DIV align="center">|;
	if ($multiUsers eq "yes" && -e "$articlesPath/articles.db") {
		print qq|<A HREF="$formUrl?action=post">Post</A> -- |;
	}
	print qq|<A HREF="$formUrl">Main Page</A> -- <A HREF="$formUrl?action=viewArchive">Archive</A>|;
	if ($COOKIE{"$uniqueBit-pass"}) {
		print qq| -- <A HREF="$formUrl?action=admin">Admin Menu</A>|;
	}
	print qq|</DIV>\n|;
	if ($FORM{'ssi'} ne "on") {print $bottomPage;}
}

#######################################################
## View Archive
if ($FORM{'action'} eq "viewArchive") {
	$ran++;
	my $year = &getYear(1);
	if (!$FORM{'year'}) {
		$FORM{'year'} = $year;
	}
	open(IN, "$workingPath/prior_months.db") or dienice("Can't read prior_months.db code 2 : $! \n");
	flock(IN, LOCK_SH);
	my @data = <IN>;
	close(IN);
	my $lastNum = scalar(@data);
	my $num;
	$topPage =~ s/<!-- Title -->/Archive/g;
	print "Content-type: text/html\n\n";
	if ($FORM{'ssi'} ne "on") {print $topPage;}
	print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
	print qq|        <TR>\n|;
	print qq|          <TD>\n|;
	print qq|            <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="100%">\n|;
	for ($num = 1; $num <= $lastNum; $num++) {
		my $num2 = $num - 1;
		chomp($data[$lastNum - $num]);
		chomp($data[$lastNum - $num2]);
		my @field = split(/\|/, $data[$lastNum - $num]);
		my @field2 = split(/\|/, $data[$lastNum - $num2]);
		if ($field[1] ne $field2[1]) {
			if ($FORM{'year'} eq $field2[1] or $FORM{'year'} eq $field[1] && $year ne $field[1]) {
				print qq|              <TR>\n|;
				print qq|                <TD COLSPAN="2">&nbsp;</TD>\n|;
				print qq|              </TR>\n|;
			}
			print qq|              <TR>\n|;
			if ($FORM{'year'} ne $field[1]) {
				print qq|                <TD WIDTH="2%"><A HREF="$formUrl?action=viewArchive&amp;year=$field[1]"><IMG HEIGHT="9" SRC="$imagesDir/plus.gif" WIDTH="9" BORDER="0" ALT=""></A>&nbsp;</TD>\n|;
			} elsif ($FORM{'year'} eq $field[1]) {
				print qq|                <TD WIDTH="2%"><A HREF="$formUrl?action=viewArchive&amp;year=none"><IMG HEIGHT="9" SRC="$imagesDir/minus.gif" WIDTH="9" BORDER="0" ALT=""></A>&nbsp;</TD>\n|;
			}
			print qq|                <TD WIDTH="98%"><FONT $fontB>|;
			if ($FORM{'year'} eq $field[1]) {
				print qq|$field[1]|;
			} else {
				print qq|<A HREF="$formUrl?action=viewArchive&amp;year=$field[1]">$field[1]</A>|;
			}
			print qq|</FONT></TD>\n|;
			print qq|              </TR>\n|;
		}
		if ($FORM{'year'} eq $field[1]) {
			print qq|              <TR>\n|;
			print qq|                <TD COLSPAN="2"><A HREF="$formUrl?action=displayArchive&amp;month=$field[0]&amp;year=$field[1]">$field[0]</A></TD>\n|;
			print qq|              </TR>\n|;
		}
	}
	print qq|            </TABLE>\n|;
	print qq|          </TD>\n|;
	print qq|        </TR>\n|;
	print qq|        <TR>\n|;
	print qq|          <TD><BR>$hrDiv<BR></TD>\n|;
	print qq|        </TR>\n|;
	print qq|      </TABLE>\n|;
	print qq|      <DIV align="center">|;
	if ($multiUsers eq "yes" && -e "$articlesPath/articles.db") {
		print qq|<A HREF="$formUrl?action=post">Post</A> -- |;
	}
	print qq|<A HREF="$formUrl">Main Page</A>|;
	if ($COOKIE{"$uniqueBit-pass"}) {
		print qq| -- <A HREF="$formUrl?action=admin">Admin Menu</A>|;
	}
	print qq|</DIV>\n|;
	if ($FORM{'ssi'} ne "on") {print $bottomPage;}
}

#######################################################
## Display Archive
if ($FORM{'action'} eq "displayArchive") {
	$ran++;
	my $month = &getMonth(1);
	my $year = &getYear(1);
	my $whereTo;
	my $check = &checkForm();
	if ($check == 2) {
		if ($FORM{'month'} eq $month && $FORM{'year'} eq $year) {
			$whereTo = "articles";
		} else {
			$whereTo = "$FORM{'month'}_$FORM{'year'}";
		}
	}
	$topPage =~ s/<!-- Title -->/Archive/g;
	print "Content-type: text/html\n\n";
	if ($FORM{'ssi'} ne "on") {print $topPage;}
	open(IN, "$articlesPath/$whereTo.db") or dienice("Can't read $whereTo.db code 3 : $! \n");
	flock(IN, LOCK_SH);
	while(<IN>) {
		chomp;
		my @file = split(/\n/);
		foreach my $line (@file) {
			my @field = split(/\|/, $line);
			open(COM, "$workingPath/$FORM{'month'}_$FORM{'year'}_$field[4].db");
			flock(COM, LOCK_SH);
			my $comNum = <COM>;
			close(COM);
			if (!$comNum) {
				$comNum = "0";
			}
			print qq|      <!-- ID $field[4] -->\n|;
			print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
			print qq|        <TR>\n|;
			if ($enableComment eq "yes" or $multiUsers eq "yes" or $COOKIE{"$uniqueBit-pass"}) {
				print qq|          <TD COLSPAN="2">\n|;
			} else {
				print qq|          <TD>\n|;
			}
			if ($titleFormat eq 1) {
				print qq|            <FONT $fontB>$field[0]</FONT><BR>\n|;
				print qq|            <A $fontS HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]">$field[1] @ $field[2] $timeZone</A><BR>\n|;
			} elsif ($titleFormat eq 2) {
				print qq|            <FONT $fontB>$field[1]</FONT><BR>\n|;
				print qq|            <A $fontS HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]">$field[0] @ $field[2] $timeZone</A><BR>\n|;
			}
			print qq|            $field[3]\n|;
			if ($enableComment eq "yes" or $multiUsers eq "yes" or $COOKIE{"$uniqueBit-pass"}) {
				print qq|            <BR><BR>\n|;
			}
			print qq|          </TD>\n|;
			print qq|        </TR>\n|;
			if ($enableComment eq "yes" or $multiUsers eq "yes") {
				print qq|        <TR>\n|;
			}
			if ($enableComment eq "yes") {
				print qq|          <TD><A HREF="$formUrl?action=readComment&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]">read comments</A> ($comNum) / <A HREF="$formUrl?action=writeComment&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]">write comment</A></TD>\n|;
			} elsif ($multiUsers eq "yes") {
				print qq|          <TD>&nbsp;</TD>\n|;
			}
			if ($multiUsers eq "yes") {
				print qq|          <TD ALIGN="right">|;
				print qq|$field[5] (|;
				if ($field[6]) {
					print qq|<A TARGET="_blank" HREF="$field[6]">www</A>|;
				} else {
					print qq|www|;
				}
				print qq| / |;
				if ($field[7]) {
					print qq|<A HREF="mailto:$field[7]">@</A>|;
				} else {
					print qq|@|;
				}
				print qq|)|;
				if ($field[9] && $enableAttachments eq "yes") {
					print qq| &nbsp; <A HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]"><IMG SRC="$imagesDir/clip.$imgFormat" ALT="File(s) Attached" BORDER="0"></A>|;
				}
				print qq|</TD>\n|;
			} else {
				print qq|          <TD ALIGN="right">|;
				if ($field[9] && $enableAttachments eq "yes") {
					print qq|<A HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]"><IMG SRC="$imagesDir/clip.$imgFormat" ALT="File(s) Attached" BORDER="0"></A>|;
				} else {
					print qq|&nbsp;|;
				}
				print qq|</TD>\n|;
			}
			if ($enableComment eq "yes" or $multiUsers eq "yes") {
				print qq|        </TR>\n|;
			}
			if ($field[9] && $enableComment eq "no" && $multiUsers eq "no" && $enableAttachments eq "yes") {
				print qq|        <TR>\n|;
				print qq|          <TD ALIGN="right"><A HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]"><IMG SRC="$imagesDir/clip.$imgFormat" ALT="File(s) Attached" BORDER="0"></A></TD>\n|;
				print qq|        <TR>\n|;
			}
			if (($COOKIE{"$uniqueBit-pass"} && $whereTo eq "articles") && ($enableComment eq "yes" or $multiUsers eq "yes")) {
				print qq|        <TR>\n|;
				print qq|          <TD COLSPAN="2">&nbsp;</TD>\n|;
				print qq|        </TR>\n|;
			}
			if ($COOKIE{"$uniqueBit-pass"} && $whereTo eq "articles") {
				print qq|        <TR>\n|;
				print qq|          <TD>|;
				if ($first <= 0) {
					print qq|<A HREF="$formUrl?action=post&amp;id=$field[4]">Edit</A> -- <A HREF="$formUrl?action=deleteEntry&amp;id=$field[4]">Delete</A>|;
				}
				print qq|</TD>\n|;
				print qq|          <TD ALIGN="right">IP: $field[8]</TD>\n|;
				print qq|        </TR>\n|;
			}
			print qq|        <TR>\n|;
			if ($enableComment eq "yes" or $multiUsers eq "yes" or $COOKIE{"$uniqueBit-pass"}) {
				print qq|          <TD COLSPAN="2">|;
			} else {
				print qq|          <TD>|;
			}
			print qq|<BR>$hrDiv<BR></TD>\n|;
			print qq|        </TR>\n|;
			print qq|      </TABLE>\n|;
		}
	}
	close(IN);
	print qq|      <DIV align="center">|;
	if ($multiUsers eq "yes" && -e "$articlesPath/articles.db") {
		print qq|<A HREF="$formUrl?action=post">Post</A> -- |;
	}
	print qq|<A HREF="$formUrl">Main Page</A> -- <A HREF="$formUrl?action=viewArchive">Archive</A>|;
	if ($COOKIE{"$uniqueBit-pass"}) {
		print qq| -- <A HREF="$formUrl?action=admin">Admin Menu</A>|;
	}
	print qq|</DIV>\n|;
	if ($FORM{'ssi'} ne "on") {print $bottomPage;}
}

#######################################################
## Read Comment
if ($FORM{'action'} eq "readComment") {
	$ran++;
	my $month = &getMonth(1);
	my $year = &getYear(1);
	my $whereTo;
	my $check = &checkForm();
	if ($check == 2) {
		if ($FORM{'month'} eq $month && $FORM{'year'} eq $year) {
			$whereTo = "articles";
		} else {
			$whereTo = "$FORM{'month'}_$FORM{'year'}";
		}
	}
	open(IN, "$articlesPath/$whereTo.db") or dienice("Can't read $whereTo.db code 4 : $! \n");
	flock(IN, LOCK_SH);
	my @data = <IN>;
	close(IN);
	chomp($data[$FORM{'id'} - 1]);
	my @field = split(/\|/, $data[$FORM{'id'} - 1]);
	$topPage =~ s/<!-- Title -->/Comments/g;
	print "Content-type: text/html\n\n";
	if ($FORM{'ssi'} ne "on") {print $topPage;}
	print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
	print qq|        <TR>\n|;
	print qq|          <TD COLSPAN="2">\n|;
	if ($titleFormat eq 1) {
		print qq|            <FONT $fontB>$field[0]</FONT><BR>\n|;
		print qq|            <A $fontS HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]">$field[1] @ $field[2] $timeZone</A><BR>\n|;
	} elsif ($titleFormat eq 2) {
		print qq|            <FONT $fontB>$field[1]</FONT><BR>\n|;
		print qq|            <A $fontS HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]">$field[0] @ $field[2] $timeZone</A><BR>\n|;
	}
	print qq|            $field[3]\n|;
	print qq|            <BR><BR>\n|;
	print qq|          </TD>\n|;
	print qq|        </TR>\n|;
	print qq|        <TR>\n|;
	print qq|          <TD><A HREF="$formUrl?action=writeComment&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]">write comment</A></TD>\n|;
	if ($multiUsers eq "yes") {
		print qq|          <TD ALIGN="right">|;
		print qq|$field[5] (|;
		if ($field[6]) {
			print qq|<A TARGET="_blank" HREF="$field[6]">www</A>|;
		} else {
			print qq|www|;
		}
		print qq| / |;
		if ($field[7]) {
			print qq|<A HREF="mailto:$field[7]">@</A>|;
		} else {
			print qq|@|;
		}
		print qq|)|;
		if ($field[9] && $enableAttachments eq "yes") {
			print qq| &nbsp; <A HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]"><IMG SRC="$imagesDir/clip.$imgFormat" ALT="File(s) Attached" BORDER="0"></A>|;
		}
		print qq|</TD>\n|;
	} else {
		print qq|          <TD ALIGN="right">|;
		if ($field[9] && $enableAttachments eq "yes") {
			print qq|<A HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]"><IMG SRC="$imagesDir/clip.$imgFormat" ALT="File(s) Attached" BORDER="0"></A>|;
		} else {
			print qq|&nbsp;|;
		}
		print qq|</TD>\n|;
	}
		print qq|        </TR>\n|;
	if ($field[9] && $enableComment eq "no" && $multiUsers eq "no" && $enableAttachments eq "yes") {
		print qq|        <TR>\n|;
		print qq|          <TD ALIGN="right"><A HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]"><IMG SRC="$imagesDir/clip.$imgFormat" ALT="File(s) Attached" BORDER="0"></A></TD>\n|;
		print qq|        <TR>\n|;
	}
	if ($COOKIE{"$uniqueBit-pass"} && $whereTo eq "articles") {
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="2">&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD>|;
		if ($first <= 0) {
			print qq|<A HREF="$formUrl?action=post&amp;id=$field[4]">Edit</A> -- <A HREF="$formUrl?action=deleteEntry&amp;id=$field[4]">Delete</A>|;
		}
		print qq|</TD>\n|;
		print qq|          <TD ALIGN="right">IP: $field[8]</TD>\n|;
		print qq|        </TR>\n|;
	}
	print qq|        <TR>\n|;
	print qq|          <TD COLSPAN="2"><BR>$hrDiv<BR></TD>\n|;
	print qq|        </TR>\n|;
	print qq|      </TABLE>\n|;
	open(IN, "$articlesPath/$FORM{'month'}_$FORM{'year'}_$FORM{'id'}.db");
	flock(IN, LOCK_SH);
	while(<IN>) {
		chomp;
		my @file = split(/\n/);
		foreach my $line (@file) {
			my ($name, $email, $subject, $message, $date, $time, $www, $counter, $ip) = split(/\|/, $line);
			print qq|      <!-- Comment ID $counter -->\n|;
			print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
			print qq|        <TR>\n|;
			print qq|          <TD COLSPAN="2">\n|;
			if ($titleFormat eq 1) {
				print qq|            <FONT $fontB>$subject</FONT><BR>\n|;
				print qq|            <FONT $fontS>$date @ $time $timeZone</FONT><BR>\n|;
			} elsif ($titleFormat eq 2) {
				print qq|            <FONT $fontB>$date</FONT><BR>\n|;
				print qq|            <FONT $fontS>$subject @ $time $timeZone</FONT><BR>\n|;
			}
			print qq|            $message\n|;
			print qq|            <BR><BR>\n|;
			print qq|          </TD>\n|;
			print qq|        </TR>\n|;
			print qq|        <TR>\n|;
			print qq|          <TD>$name (|;
			if ($www) {
				print qq|<A TARGET="_blank" HREF="$www">www</A>|;
			} else {
				print qq|www|;
			}
			print qq| / |;
			if ($email) {
				print qq|<A HREF="mailto:$email">@</A>|;
			} else {
				print qq|@|;
			}
			print qq|)</TD>\n|;
			print qq|          <TD>&nbsp;</TD>\n|;
			print qq|        </TR>\n|;
			if ($COOKIE{"$uniqueBit-pass"}) {
				print qq|        <TR>\n|;
				print qq|          <TD COLSPAN="2">&nbsp;</TD>\n|;
				print qq|        </TR>\n|;
				print qq|        <TR>\n|;
				print qq|          <TD><A HREF="$formUrl?action=editComment&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$FORM{'id'}&amp;cid=$counter">Edit</A> -- <A HREF="$formUrl?action=deleteComment&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$FORM{'id'}&amp;cid=$counter">Delete</A></TD>\n|;
				print qq|          <TD ALIGN="right">IP: $ip</TD>\n|;
				print qq|        </TR>\n|;
			}
			print qq|        <TR>\n|;
			print qq|          <TD COLSPAN="2"><BR>$hrDiv<BR></TD>\n|;
			print qq|        </TR>\n|;
			print qq|      </TABLE>\n|;
		}
	}
	close(IN);
	print qq|      <DIV align="center">|;
	if ($multiUsers eq "yes" && -e "$articlesPath/articles.db") {
		print qq|<A HREF="$formUrl?action=post">Post</A> -- |;
	}
	print qq|<A HREF="$formUrl">Main Page</A> -- <A HREF="$formUrl?action=viewArchive">Archive</A>|;
	if ($COOKIE{"$uniqueBit-pass"}) {
		print qq| -- <A HREF="$formUrl?action=admin">Admin Menu</A>|;
	}
	print qq|</DIV>\n|;
	if ($FORM{'ssi'} ne "on") {print $bottomPage;}
}

#######################################################
## Write Comment
if ($FORM{'action'} eq "writeComment") {
	$ran++;
	my $month = &getMonth(1);
	my $year = &getYear(1);
	my $whereTo;
	my $check = &checkForm();
	if ($check == 2) {
		if ($FORM{'month'} eq $month && $FORM{'year'} eq $year) {
			$whereTo = "articles";
		} else {
			$whereTo = "$FORM{'month'}_$FORM{'year'}";
		}
	}
	open(IN, "$articlesPath/$whereTo.db") or dienice("Can't read $whereTo.db code 5 : $! \n");
	flock(IN, LOCK_SH);
	my @data = <IN>;
	close(IN);
	chomp($data[$FORM{'id'} - 1]);
	my @field = split(/\|/, $data[$FORM{'id'} - 1]);
	$FORM{'text'} =~ s!//n!\n!g;
	$topPage =~ s/<!-- Title -->/Comments/g;
	print "Content-type: text/html\n\n";
	if ($FORM{'ssi'} ne "on") {print $topPage;}
	print qq|      <SCRIPT LANGUAGE="JavaScript1.2" SRC="$formUrl?action=javaScript" TYPE="text/javascript"></SCRIPT>\n|;
	print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
	print qq|        <TR>\n|;
	print qq|          <TD COLSPAN="2">\n|;
	if ($titleFormat eq 1) {
		print qq|            <FONT $fontB>$field[0]</FONT><BR>\n|;
		print qq|            <A $fontS HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]">$field[1] @ $field[2] $timeZone</A><BR>\n|;
	} elsif ($titleFormat eq 2) {
		print qq|            <FONT $fontB>$field[1]</FONT><BR>\n|;
		print qq|            <A $fontS HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]">$field[0] @ $field[2] $timeZone</A><BR>\n|;
	}
	print qq|            $field[3]\n|;
	print qq|            <BR><BR>\n|;
	print qq|          </TD>\n|;
	print qq|        </TR>\n|;
	print qq|        <TR>\n|;
	print qq|          <TD><A HREF="$formUrl?action=readComment&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]">read comments</A></TD>\n|;
	if ($multiUsers eq "yes") {
		print qq|          <TD ALIGN="right">|;
		print qq|$field[5] (|;
		if ($field[6]) {
			print qq|<A TARGET="_blank" HREF="$field[6]">www</A>|;
		} else {
			print qq|www|;
		}
		print qq| / |;
		if ($field[7]) {
			print qq|<A HREF="mailto:$field[7]">@</A>|;
		} else {
			print qq|@|;
		}
		print qq|)|;
		if ($field[9] && $enableAttachments eq "yes") {
			print qq| &nbsp; <A HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]"><IMG SRC="$imagesDir/clip.$imgFormat" ALT="File(s) Attached" BORDER="0"></A>|;
		}
		print qq|</TD>\n|;
	} else {
		print qq|          <TD ALIGN="right">|;
		if ($field[9] && $enableAttachments eq "yes") {
			print qq|<A HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]"><IMG SRC="$imagesDir/clip.$imgFormat" ALT="File(s) Attached" BORDER="0"></A>|;
		} else {
			print qq|&nbsp;|;
		}
		print qq|</TD>\n|;
	}
		print qq|        </TR>\n|;
	if ($field[9] && $enableComment eq "no" && $multiUsers eq "no" && $enableAttachments eq "yes") {
		print qq|        <TR>\n|;
		print qq|          <TD ALIGN="right"><A HREF="$formUrl?action=viewEntry&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$field[4]"><IMG SRC="$imagesDir/clip.$imgFormat" ALT="File(s) Attached" BORDER="0"></A></TD>\n|;
		print qq|        <TR>\n|;
	}
	if ($COOKIE{"$uniqueBit-pass"} && $whereTo eq "articles") {
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="2">&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD>|;
		if ($first <= 0) {
			print qq|<A HREF="$formUrl?action=post&amp;id=$field[4]">Edit</A> -- <A HREF="$formUrl?action=deleteEntry&amp;id=$field[4]">Delete</A>|;
		}
		print qq|</TD>\n|;
		print qq|          <TD ALIGN="right">IP: $field[8]</TD>\n|;
		print qq|        </TR>\n|;
	}
	print qq|        <TR>\n|;
	print qq|          <TD COLSPAN="2"><BR>$hrDiv<BR></TD>\n|;
	print qq|        </TR>\n|;
	print qq|      </TABLE>\n|;
	if ($FORM{'msg'}) {
		print qq|      <DIV ALIGN="center"><FONT COLOR="#FF0000"><B>$FORM{'msg'}</B></FONT></DIV>\n|;
	}
	print qq|      <FORM NAME="form" ACTION="$formUrl" METHOD="post">\n|;
	if (!$FORM{'cid'}) {
		print qq|      <INPUT TYPE="hidden" NAME="action" VALUE="writeCommentX">\n|;
	} else {
		print qq|      <INPUT TYPE="hidden" NAME="action" VALUE="editComment">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="first" VALUE="no">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="cid" VALUE="$FORM{'cid'}">\n|;
	}
	print qq|      <INPUT TYPE="hidden" NAME="month" VALUE="$FORM{'month'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="year" VALUE="$FORM{'year'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="id" VALUE="$field[4]">\n|;
	print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
	print qq|        <TR>\n|;
	print qq|          <TD VALIGN="top">\n|;
	print qq|            <TABLE BORDER="0" CELLPADDING="5" CELLSPACING="0" ALIGN="left" WIDTH="100%">\n|;
	print qq|              <TR>\n|;
	print qq|                <TD>Name:<BR><INPUT TYPE="text" NAME="name" VALUE="$FORM{'name'}"></TD>\n|;
	print qq|              </TR>\n|;
	print qq|              <TR>\n|;
	print qq|                <TD>Subject:<BR><INPUT TYPE="text" NAME="subject" VALUE="$FORM{'subject'}"></TD>\n|;
	print qq|              </TR>\n|;
	print qq|              <TR>\n|;
	print qq|                <TD>Email Address:<BR><INPUT TYPE="text" NAME="email" VALUE="$FORM{'email'}"></TD>\n|;
	print qq|              </TR>\n|;
	print qq|              <TR>\n|;
	print qq|                <TD>Web Site:<BR><INPUT TYPE="text" NAME="www" VALUE="$FORM{'www'}"></TD>\n|;
	print qq|              </TR>\n|;
	print qq|              <TR>\n|;
	print qq|                <TD><INPUT TYPE="submit" VALUE="Post"> <INPUT TYPE="reset" VALUE="Clear"></TD>\n|;
	print qq|              </TR>\n|;
	print qq|            </TABLE>\n|;
	print qq|          </TD>\n|;
	print qq|          <TD VALIGN="top">\n|;
	print qq|            <TABLE BORDER="0" CELLPADDING="2" CELLSPACING="0" ALIGN="left" WIDTH="100%">\n|;
	if ($enablePseudo eq "yes") {
		print qq|              <TR>\n|;
		print qq|                <TD>\n|;
		foreach my $smiley (@smiley) {
			my ($name, $value) = split(/\|/, $smiley);
			my $alt = ucfirst($name);
			print qq|                  <A HREF="javascript:$name();"><IMG SRC="$imagesDir/$name.$imgFormat" ALT="$alt" BORDER="0"></A>\n|;
		}
		print qq|                </TD>\n|;
		print qq|              </TR>\n|;
		print qq|              <TR>\n|;
		print qq|                <TD>\n|;
		foreach my $pseudo (@pseudo) {
			my ($name, $value) = split(/\|/, $pseudo);
			print qq|                  <A HREF="javascript:$name();"><IMG SRC="$imagesDir/$name.$imgFormat" ALT="$name" BORDER="0"></A>\n|;
		}
		print qq|                </TD>\n|;
		print qq|              </TR>\n|;
	}
	print qq|              <TR>\n|;
	print qq|                <TD><TEXTAREA NAME="text" ROWS="10" COLS="47" onClick="javascript:storeCaret(this);" onKeyUp="javascript:storeCaret(this);" onChange="javascript:storeCaret(this);">$FORM{'text'}</TEXTAREA></TD>\n|;
	print qq|              </TR>\n|;
	print qq|            </TABLE>\n|;
	print qq|          </TD>\n|;
	print qq|        </TR>\n|;
	print qq|      </TABLE>\n|;
	print qq|      </FORM>\n|;
	print qq|      <BR>$hrDiv<BR>\n|;
	print qq|      <DIV align="center">|;
	if ($multiUsers eq "yes" && -e "$articlesPath/articles.db") {
		print qq|<A HREF="$formUrl?action=post">Post</A> -- |;
	}
	print qq|<A HREF="$formUrl">Main Page</A> -- <A HREF="$formUrl?action=viewArchive">Archive</A>|;
	if ($COOKIE{"$uniqueBit-pass"}) {
		print qq| -- <A HREF="$formUrl?action=admin">Admin Menu</A>|;
	}
	print qq|</DIV>\n|;
	if ($FORM{'ssi'} ne "on") {print $bottomPage;}
}

#######################################################
## Write Comment X
if ($FORM{'action'} eq "writeCommentX") {
	my ($err, $msg);
	if (!$FORM{'name'}) {
		$msg .= "Please fill in the Name field<BR>";
		$err++;
	}
	if (!$FORM{'subject'}) {
		$msg .= "Please fill in the Subject field<BR>";
		$err++;
	}
	if ($FORM{'email'}) {
		$FORM{'email'}=~s/ //g;
		if (&checkEmail($FORM{'email'}) != 1) {
			$msg .= "Bad email address<BR>";
			$err++;
		}
	}
	if (!$FORM{'text'}) {
		$msg .= "Please fill in the Text field<BR>";
		$err++;
	}
	if ($err) {
		$FORM{'text'} =~ s!\n!//n!g;
		$FORM{'text'} =~ s!=!%3D!g;
		print "Location:$formUrl?action=writeComment&month=$FORM{'month'}&year=$FORM{'year'}&id=$FORM{'id'}&msg=$msg&name=$FORM{'name'}&subject=$FORM{'subject'}&email=$FORM{'email'}&www=$FORM{'www'}&text=$FORM{'text'}\n\n";
		exit;
	}
	my $userDate = &getDate;
	my $userTime = &getTime;
	my $check = &checkForm();
	my $counter;
	if ($check == 2) {
		$counter = &counter("$FORM{'month'}_$FORM{'year'}_$FORM{'id'}", "+");
	}
	my $text = &modIn($FORM{'text'});
	$text =~ s!<[sS][cC][rR][iI][pP][tT]!!g;
	$text =~ s!</[sS][cC][rR][iI][pP][tT]!!g;
	$text =~ s!<[aA][pP][lL][eE][tT]!!g;
	$text =~ s!</[aA][pP][lL][eE][tT]!!g;
	my $www;
	if ($FORM{'www'} =~ /^http:\/\/.+?$/ or $FORM{'www'} =~ /^www\..+?$/) {
		$FORM{'www'} =~ s!^(www\..+?)$!http://$1!g;
		$www = $FORM{'www'};
	} else {
		$www = "";
	}
	my $whereTo;
	if ($check == 2) {
		$whereTo = "$FORM{'month'}_$FORM{'year'}_$FORM{'id'}.db";
	}

	open(OUT, ">>$articlesPath/$whereTo") or dienice("Can't write to comments_$FORM{'id'}.db code 6 : $! \n");
	flock(OUT, LOCK_EX);
	seek(OUT, 0, 2);
	print OUT "$FORM{'name'}|$FORM{'email'}|$FORM{'subject'}|$text|$userDate|$userTime|$www|$counter|$ENV{'REMOTE_ADDR'}\n";
	close(OUT);
	if ($sendAdminEmail eq "yes") {
		if (!$FORM{'email'}) {
			$FORM{'email'} = "no_email_address\@nowhere.com";
		}
		my $email;
		if ($htmlEmail eq "yes") {
			$email = qq|Mime-Version: 1.0\nContent-type: text/html; charset="iso-8859-1"\n|;
		}
		$email .= qq|From: "$FORM{'name'}" <$FORM{'email'}>\n|;
		$email .= qq|To: $adminEmail\n|;
		$email .= qq|Subject: Weblog Comment: $FORM{'subject'}\n|;
		if ($htmlEmail eq "yes") {
			$email .= qq|<html>\n|;
			$email .= qq|<body>\n|;
			$email .= qq|$text<br><br>\n|;
			$email .= qq|Numb: $counter<br>\n|;
			if ($ENV{'REMOTE_ADDR'}) {
				$email.= qq|Addy: $ENV{'REMOTE_ADDR'}<br>\n|;
			}
			if ($www) {
				$email.= qq|Site: $FORM{'www'}<br>\n|;
			}
			$email .= qq|<br><A HREF="$formUrl?action=readComment&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$FORM{'id'}">View this comment</A> -- <A HREF="$formUrl?action=editComment&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$FORM{'id'}&amp;cid=$counter">Edit this comment</A> -- <A HREF="$formUrl?action=deleteComment&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$FORM{'id'}&amp;cid=$counter">Delete this comment</A>\n|;
			$email .= qq|</body>\n|;
			$email .= qq|</html>|;
		} elsif ($htmlEmail eq "no") {
			$email .= qq|$FORM{'text'}\n\n|;
			$email .= qq|Numb: $counter\n|;
			if ($ENV{'REMOTE_ADDR'}) {
				$email .= qq|Addy: $ENV{'REMOTE_ADDR'}\n|;
			}
			if ($www) {
				$email .= qq|Site: $FORM{'www'}\n|;
			}
			$email .= qq|\nView this comment:\n|;
			$email .= qq|$formUrl?action=readComment&month=$FORM{'month'}&year=$FORM{'year'}&id=$FORM{'id'}\n\n|;
			$email .= qq|Edit this comment:\n|;
			$email .= qq|$formUrl?action=editComment&month=$FORM{'month'}&year=$FORM{'year'}&id=$FORM{'id'}&cid=$counter\n\n|;
			$email .= qq|Delete this comment:\n|;
			$email .= qq|$formUrl?action=deleteComment&month=$FORM{'month'}&year=$FORM{'year'}&id=$FORM{'id'}&cid=$counter|;
		}
		$email =~ s/\[\[.*?\]\]//sig;
		open (MAIL,"| $sendmailPath -t");
		print MAIL $email;
		close(MAIL);
	}
	print "Location:$formUrl?action=readComment&month=$FORM{'month'}&year=$FORM{'year'}&id=$FORM{'id'}\n\n";
}

#######################################################
## Edit Comment
if ($FORM{'action'} eq "editComment") {
	if ($adminPass) {
		if ($COOKIE{"$uniqueBit-pass"} eq $adminPassCrypt) {
			&editComment;
		} else {
			print "Location:$formUrl?action=login&redir=action%3DeditComment%26month%3D$FORM{'month'}%26year%3D$FORM{'year'}%26id%3D$FORM{'id'}%26cid%3D$FORM{'cid'}\n\n";
		}
	} else {
		dienice("The Admin Password is blank. Please set it to something other than a null value.\n","1");
	}
	sub editComment{
		if (!$FORM{'first'}) {
			open(IN, "$articlesPath/$FORM{'month'}_$FORM{'year'}_$FORM{'id'}.db") or dienice("Can't read $FORM{'month'}_$FORM{'year'}_$FORM{'id'}.db code 7 : $! \n");
			flock(IN, LOCK_SH);
			my @data = <IN>;
			close(IN);
			chomp($data[$FORM{'cid'} - 1]);
			my @field = split(/\|/, $data[$FORM{'cid'} - 1]);
			$field[3] = &htmlMod($field[3]);
			$field[3] =~ s!\n!//n!g;
			$field[3] =~ s!=!%3D!g;
			print "Location:$formUrl?action=writeComment&month=$FORM{'month'}&year=$FORM{'year'}&id=$FORM{'id'}&cid=$FORM{'cid'}&name=$field[0]&subject=$field[2]&email=$field[1]&www=$field[6]&text=$field[3]\n\n";
			exit;
		}
		my ($err, $msg);
		if (!$FORM{'name'}) {
			$msg .= "Please fill in the Name field<BR>";
			$err++;
		}
		if (!$FORM{'subject'}) {
			$msg .= "Please fill in the Subject field<BR>";
			$err++;
		}
		if ($FORM{'email'}) {
			$FORM{'email'}=~s/ //g;
			if (&checkEmail($FORM{'email'}) != 1) {
				$msg .= "Bad email address<BR>";
				$err++;
			}
		}
		if (!$FORM{'text'}) {
			$msg .= "Please fill in the Text field<BR>";
			$err++;
		}
		if ($err) {
			$FORM{'text'} =~ s!\n!//n!g;
			$FORM{'text'} =~ s!=!%3D!g;
			print "Location:$formUrl?action=writeComment&month=$FORM{'month'}&year=$FORM{'year'}&id=$FORM{'id'}&cid=$FORM{'cid'}&msg=$msg&name=$FORM{'name'}&subject=$FORM{'subject'}&email=$FORM{'email'}&www=$FORM{'www'}&text=$FORM{'text'}\n\n";
			exit;
		}
		my $text = &modIn($FORM{'text'});
		my $www;
		if ($FORM{'www'} =~ /^http:\/\/.+?$/ or $FORM{'www'} =~ /^www\..+?$/) {
			$FORM{'www'} =~ s!^(www\..+?)$!http://$1!g;
			$www = $FORM{'www'};
		} else {
			$www = "";
		}
		open(IN, "$articlesPath/$FORM{'month'}_$FORM{'year'}_$FORM{'id'}.db") or dienice("Can't read $FORM{'month'}_$FORM{'year'}_$FORM{'id'}.db code 8 : $! \n");
		flock(IN, LOCK_SH);
		my @data = <IN>;
		close(IN);
		chomp($data[$FORM{'cid'} - 1]);
		my @field=split(/\|/, $data[$FORM{'cid'} - 1]);
		$data[$FORM{'cid'} - 1] = "$FORM{'name'}|$FORM{'email'}|$FORM{'subject'}|$text|$field[4]|$field[5]|$www|$field[7]|$field[8]\n";
		open(OUT, ">$articlesPath/$FORM{'month'}_$FORM{'year'}_$FORM{'id'}.db") or dienice("Can't write to $FORM{'month'}_$FORM{'year'}_$FORM{'id'}.db code 9 : $! \n");
		flock(OUT, LOCK_EX);
		seek(OUT, 0, 0);
		truncate(OUT, 0);
		print OUT @data;
		close(OUT);
		print "Location:$formUrl?action=readComment&month=$FORM{'month'}&year=$FORM{'year'}&id=$FORM{'id'}\n\n";
	}
}

#######################################################
## Delete Comment
if ($FORM{'action'} eq "deleteComment") {
	if ($adminPass) {
		if ($COOKIE{"$uniqueBit-pass"} eq $adminPassCrypt) {
			&deleteComment;
		} else {
			print "Location:$formUrl?action=login&redir=action%3DdeleteComment%26month%3D$FORM{'month'}%26year%3D$FORM{'year'}%26id%3D$FORM{'id'}%26cid%3D$FORM{'cid'}\n\n";
		}
	} else {
		dienice("The Admin Password is blank. Please set it to something other than a null value.\n","1");
	}
	sub deleteComment {
		if ($FORM{'err'}) {
			$ran++;
			$topPage =~ s/<!-- Title -->/Comments/g;
			print "Content-type: text/html\n\n";
			if ($FORM{'ssi'} ne "on") {print $topPage;}
			print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
			print qq|        <TR>\n|;
			print qq|          <TD>\n|;
			print qq|            There seems to be a problem with the comment you are trying to delete.<BR>Just guessing, but maybe it doesn't exist? &nbsp;&nbsp;<A HREF="$formUrl?action=readComment&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$FORM{'id'}">read comments</A>\n|;
			print qq|          </TD>\n|;
			print qq|        </TR>\n|;
			print qq|      </TABLE>\n|;
			if ($FORM{'ssi'} ne "on") {print $bottomPage;}
			exit;
		}
		open(IN, "$articlesPath/$FORM{'month'}_$FORM{'year'}_$FORM{'id'}.db") or dienice("Can't read $FORM{'month'}_$FORM{'year'}_$FORM{'id'}.db code 10 : $! \n");
		flock(IN, LOCK_SH);
		my @data = <IN>;
		close(IN);
		my $lastNum = scalar(@data);
		if ($FORM{'cid'} > $lastNum) {
			print "Location:$formUrl?action=deleteComment&month=$FORM{'month'}&year=$FORM{'year'}&id=$FORM{'id'}&err=yes\n\n";
			exit;
		}
		if (!$FORM{'cid'}) {
			print "Location:$formUrl?action=deleteComment&month=$FORM{'month'}&year=$FORM{'year'}&id=$FORM{'id'}&err=yes\n\n";
			exit;
		}
		if ($FORM{'cid'} eq 0) {
			print "Location:$formUrl?action=deleteComment&month=$FORM{'month'}&year=$FORM{'year'}&id=$FORM{'id'}&err=yes\n\n";
			exit;
		}
		if (!$FORM{'first'}) {
			$ran++;
			$topPage =~ s/<!-- Title -->/Comments/g;
			print "Content-type: text/html\n\n";
			if ($FORM{'ssi'} ne "on") {print $topPage;}
			print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
			print qq|        <TR>\n|;
			print qq|          <TD>\n|;
			print qq|            Are you sure you want to delete this comment? &nbsp;&nbsp;<A HREF="$formUrl?action=deleteComment&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$FORM{'id'}&amp;cid=$FORM{'cid'}&amp;first=no">YES</A> -- <A HREF="$formUrl?action=readComment&amp;month=$FORM{'month'}&amp;year=$FORM{'year'}&amp;id=$FORM{'id'}">NO</A>\n|;
			print qq|          </TD>\n|;
			print qq|        </TR>\n|;
			print qq|      </TABLE>\n|;
			if ($FORM{'ssi'} ne "on") {print $bottomPage;}
			exit;
		}
		my ($num, $fixedNum, @modData);
		for ($num = 1; $num <= $lastNum; $num++) {
			chomp($data[$num - 1]);
			my @field = split(/\|/, $data[$num - 1]);
			next if ($FORM{'cid'} eq $field[7]);
			if ($FORM{'cid'} < $field[7]) {
				$fixedNum = $num - 1;
			} else {
				$fixedNum = $num;
			}
			push(@modData,"$field[0]|$field[1]|$field[2]|$field[3]|$field[4]|$field[5]|$field[6]|$fixedNum|$field[8]\n");
		}
		open(OUT, ">$articlesPath/$FORM{'month'}_$FORM{'year'}_$FORM{'id'}.db") or dienice("Can't write to $FORM{'month'}_$FORM{'year'}_$FORM{'id'}.db code 11 : $! \n");
		flock(OUT, LOCK_EX);
		seek(OUT, 0, 0);
		truncate(OUT, 0);
		print OUT @modData;
		close(OUT);
		&counter("$FORM{'month'}_$FORM{'year'}_$FORM{'id'}", "-");
		print "Location:$formUrl?action=readComment&month=$FORM{'month'}&year=$FORM{'year'}&id=$FORM{'id'}\n\n";
	}
}

#######################################################
## Delete Entry
if ($FORM{'action'} eq "deleteEntry") {
	if ($adminPass) {
		if ($COOKIE{"$uniqueBit-pass"} eq $adminPassCrypt) {
			&deleteEntry;
		} else {
			print "Location:$formUrl?action=login&redir=action%3DdeleteEntry%26id%3D$FORM{'id'}\n\n";
		}
	} else {
		dienice("The Admin Password is blank. Please set it to something other than a null value.\n","1");
	}
	sub deleteEntry {
		if ($FORM{'err'}) {
			$ran++;
			$topPage =~ s/<!-- Title -->/Delete Entry/g;
			print "Content-type: text/html\n\n";
			if ($FORM{'ssi'} ne "on") {print $topPage;}
			print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
			print qq|        <TR>\n|;
			print qq|          <TD>\n|;
			print qq|            There seems to be a problem with the entry you are trying to delete.<BR>Just guessing, but maybe it doesn't exist or there is only one entry?<BR><BR><A HREF="$formUrl">Main Page</A>\n|;
			print qq|          </TD>\n|;
			print qq|        </TR>\n|;
			print qq|      </TABLE>\n|;
			if ($FORM{'ssi'} ne "on") {print $bottomPage;}
			exit;
		}
		my $month = &getMonth;
		my $year = &getYear;
		open(IN, "$articlesPath/articles.db") or dienice("Can't read articles.db code 12 : $! \n");
		flock(IN, LOCK_SH);
		my @data = <IN>;
		close(IN);
		my $lastNum = scalar(@data);
		if ($FORM{'id'} eq 0) {
			print "Location:$formUrl?action=deleteEntry&err=yes\n\n";
			exit;
		}
		if ($lastNum eq 1) {
			print "Location:$formUrl?action=deleteEntry&err=yes\n\n";
			exit;
		}
		if ($FORM{'id'} > $lastNum) {
			print "Location:$formUrl?action=deleteEntry&err=yes\n\n";
			exit;
		}
		if (!$FORM{'id'}) {
			print "Location:$formUrl?action=deleteEntry&err=yes\n\n";
			exit;
		}
		if (!$FORM{'first'}) {
			$ran++;
			$topPage =~ s/<!-- Title -->/Delete Entry/g;
			print "Content-type: text/html\n\n";
			if ($FORM{'ssi'} ne "on") {print $topPage;}
			print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
			print qq|        <TR>\n|;
			print qq|          <TD>\n|;
			print qq|            Are you sure you want to delete this entry? &nbsp;&nbsp;<A HREF="$formUrl?action=deleteEntry&amp;id=$FORM{'id'}&amp;first=no">YES</A> -- <A HREF="$formUrl">NO</A>\n|;
			print qq|          </TD>\n|;
			print qq|        </TR>\n|;
			print qq|      </TABLE>\n|;
			if ($FORM{'ssi'} ne "on") {print $bottomPage;}
			exit;
		}
		chomp($data[$lastNum - 1]);
		my @dataX = split(/\|/, $data[$lastNum - 1]);
		if ($dataX[9]) {
			my @files = split(/\*/, $dataX[9]);
			foreach my $file (@files) {
				unlink ("$uploadsPath/$file");
			}
		}
		unlink ("$articlesPath/$month\_$year\_$FORM{'id'}.db");
		unlink ("$workingPath/$month\_$year\_$FORM{'id'}.db");
		my ($num, $fixedNum, @modData);
		for ($num = 1; $num <= $lastNum; $num++) {
			chomp($data[$num - 1]);
			my @field = split(/\|/, $data[$num - 1]);
			next if ($FORM{'id'} eq $field[4]);
			if ($FORM{'id'} < $field[4]) {
				$fixedNum = $num - 1;
			} else {
				$fixedNum = $num;
			}
			push(@modData,"$field[0]|$field[1]|$field[2]|$field[3]|$fixedNum|$field[5]|$field[6]|$field[7]|$field[8]|$field[9]\n");
			if (-e "$articlesPath/$month\_$year\_$num.db") {
				rename("$articlesPath/$month\_$year\_$num.db","$articlesPath/$month\_$year\_$fixedNum.db") or dienice("Can't rename $month\_$year\_$num.db code 13 : $! \n");
			}
			if (-e "$workingPath/$month\_$year\_$num.db") {
				rename("$workingPath/$month\_$year\_$num.db","$workingPath/$month\_$year\_$fixedNum.db") or dienice("Can't rename $month\_$year\_$num.db code 14 : $! \n");
			}
		}
		open(OUT, ">$articlesPath/articles.db") or dienice("Can't write to articles.db code 15 : $! \n");
		flock(OUT, LOCK_EX);
		seek(OUT, 0, 0);
		truncate(OUT, 0);
		print OUT @modData;
		close(OUT);
		&counter("counter", "-");
		print "Location:$formUrl\n\n";
	}
}

#######################################################
## Post
if ($FORM{'action'} eq "post") {
	$ran++;
	my $counter = &counter("counter", "0", "yes");
	my (@field, $text, $postFields);
	if ($FORM{'id'} && !$FORM{'msg'}) {
		open(IN, "$articlesPath/articles.db");
		flock(IN, LOCK_SH);
		my @data = <IN>;
		close(IN);
		chomp($data[$FORM{'id'} - 1]);
		@field = split(/\|/, $data[$FORM{'id'} - 1]);
		$text = &htmlMod($field[3]);
		chomp($text);
		$text =~ s/ $//g;
		if (!$FORM{'files'} && !$FORM{'noFiles'}) {
			$FORM{'files'} = $field[9];
		}
	} else {
		$field[5] = $FORM{'name'};
		$field[1] = $FORM{'title'};
		$field[7] = $FORM{'email'};
		$field[6] = $FORM{'www'};
		($text = $FORM{'text'}) =~ s!//n!\n!g;
	}
	$topPage =~ s/<!-- Title -->/Post/g;
	print "Content-type: text/html\n\n";
	if ($FORM{'ssi'} ne "on") {print $topPage;}
	print qq|      <SCRIPT LANGUAGE="JavaScript1.2" SRC="$formUrl?action=javaScript" TYPE="text/javascript"></SCRIPT>\n|;
	print qq|      <SCRIPT LANGUAGE="JavaScript1.2" TYPE="text/javascript">\n|;
	print qq|      <!-- Begin \n|;
	print qq|        function id_c() {\n|;
	print qq|          document.form.idc.value = "yes";\n|;
	print qq|        }\n|;
	print qq|      // End -->\n|;
	print qq|      </SCRIPT>\n|;
	print qq|      <FORM NAME="form" ACTION="$formUrl" METHOD="post">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="action" VALUE="postX">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="id" VALUE="$FORM{'id'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="noFiles" VALUE="$FORM{'noFiles'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="idc">\n|;
	if ($FORM{'msg'}) {
		print qq|      <INPUT TYPE="hidden" NAME="hour" VALUE="$FORM{'hour'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="min" VALUE="$FORM{'min'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="ampm" VALUE="$FORM{'ampm'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="keepTime" VALUE="$FORM{'keepTime'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="keepDate" VALUE="$FORM{'keepDate'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="date" VALUE="$FORM{'date'}">\n|;
	}
	print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
	if ($FORM{'msg'}) {
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="3" ALIGN="center"><FONT COLOR="#FF0000"><B>$FORM{'msg'}</B></FONT></TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="3">&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
	}
	if (!$COOKIE{"$uniqueBit-pass"} && $multiUsers eq "yes") {
		print qq|        <TR>\n|;
		print qq|          <TD WIDTH="25%" ALIGN="right">Name:&nbsp;</TD>\n|;
		print qq|          <TD><INPUT TYPE="text" NAME="name" VALUE="$field[5]"></TD>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
	}
	print qq|        <TR>\n|;
	print qq|          <TD WIDTH="25%" ALIGN="right">Title:&nbsp;</TD>\n|;
	print qq|          <TD><INPUT TYPE="text" NAME="title" VALUE="$field[1]"></TD>\n|;
	print qq|          <TD>&nbsp;</TD>\n|;
	print qq|        </TR>\n|;
	if (!$COOKIE{"$uniqueBit-pass"} && $multiUsers eq "yes") {
		print qq|        <TR>\n|;
		print qq|          <TD WIDTH="25%" ALIGN="right">Email:&nbsp;</TD>\n|;
		print qq|          <TD><INPUT TYPE="text" NAME="email" VALUE="$field[7]"></TD>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD WIDTH="25%" ALIGN="right">Web Site:&nbsp;</TD>\n|;
		print qq|          <TD><INPUT TYPE="text" NAME="www" VALUE="$field[6]"></TD>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
	}
	if (!$COOKIE{"$uniqueBit-pass"}) {
		if ($postPass) {
			print qq|        <TR>\n|;
			print qq|          <TD WIDTH="25%" ALIGN="right">Password:&nbsp;</TD>\n|;
			print qq|          <TD><INPUT TYPE="password" NAME="pass"></TD>\n|;
			print qq|          <TD>&nbsp;</TD>\n|;
			print qq|        </TR>\n|;
		}
	}
	if ($COOKIE{"$uniqueBit-pass"} && !$FORM{'msg'}) {
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="3">&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
		if ($first <= 0) {
			print qq|        <TR>\n|;
			print qq|          <TD WIDTH="25%" ALIGN="right">ID Number:&nbsp;</TD>\n|;
			print qq|          <TD>\n|;
			print qq|            <SELECT NAME="id" onChange="id_c(); form.submit();">\n|;
			print qq|              <OPTION SELECTED VALUE="">New</OPTION>\n|;
			for (my $num = 1; $num <= $counter; $num++) {
				print qq|              <OPTION |;
				if ($FORM{'id'} eq $num) {
					print qq|SELECTED |;
				}
				print qq|VALUE="$num">$num</OPTION>\n|;
			}
			print qq|            </SELECT>\n|;
			print qq|            <INPUT TYPE="submit" NAME="button" VALUE="Go!">\n|;
			print qq|          </TD>\n|;
			print qq|          <TD>&nbsp;</TD>\n|;
			print qq|        </TR>\n|;
		}
		print qq|        <TR>\n|;
		print qq|          <TD WIDTH="25%" ALIGN="right">Time:&nbsp;</TD>\n|;
		print qq|          <TD>\n|;
	}
	if ($timeFormat eq 24 && !$FORM{'msg'}) {
		my $hour = &getTime("hour24");
		my $min = &getTime("min");
		if ($COOKIE{"$uniqueBit-pass"}) {
			print qq|            <SELECT NAME="hour">\n|;
			for (my $hours = 0; $hours <= 23; $hours++) {
				$hours = '0' x (2 - length($hours)) . $hours;
				print qq|              <OPTION|;
				if ($hours eq $hour) {
					print " SELECTED";
				}
				print qq| VALUE="$hours">$hours</OPTION>\n|;
			}
			print qq|            </SELECT>\n|;
			print qq|            : \n|;
			print qq|            <SELECT NAME="min">\n|;
			for (my $minutes = 0; $minutes <= 59; $minutes++) {
				$minutes = '0' x (2 - length($minutes)) . $minutes;
				print qq|              <OPTION|;
				if ($minutes eq $min) {
					print " SELECTED";
				}
				print qq| VALUE="$minutes">$minutes</OPTION>\n|;
			}
			print qq|            </SELECT>\n|;
		} else {
			$postFields .= qq|      <INPUT TYPE="hidden" NAME="hour" VALUE="$hour">\n|;
			$postFields .= qq|      <INPUT TYPE="hidden" NAME="min" VALUE="$min">\n|;
		}
	} elsif ($timeFormat eq 12 && !$FORM{'msg'}) {
		my $hour = &getTime("hour12");
		my $min = &getTime("min");
		my $amPm = &getTime("ampm");
		if ($COOKIE{"$uniqueBit-pass"}) {
			print qq|            <SELECT NAME="hour">\n|;
			for (my $hours = 1; $hours <= 12; $hours++) {
				print qq|              <OPTION|;
				if ($hours eq $hour) {
					print " SELECTED";
				}
				print qq| VALUE="$hours">$hours</OPTION>\n|;
			}
			print qq|            </SELECT>\n|;
			print qq|            : \n|;
			print qq|            <SELECT NAME="min">\n|;
			for (my $minutes = 0; $minutes <= 59; $minutes++) {
				$minutes = '0' x (2 - length($minutes)) . $minutes;
				print qq|              <OPTION|;
				if ($minutes eq $min) {
					print " SELECTED";
				}
				print qq| VALUE="$minutes">$minutes</OPTION>\n|;
			}
			print qq|            </SELECT>\n|;
			print qq|            <SELECT NAME="ampm">\n|;
			print qq|              <OPTION|;
			if ($amPm eq "AM") {
				print " SELECTED";
			}
			print qq| VALUE="AM">AM</OPTION>\n|;
			print qq|              <OPTION|;
			if ($amPm eq "PM") {
				print " SELECTED";
			}
			print qq| VALUE="PM">PM</OPTION>\n|;
			print qq|            </SELECT>\n|;
		} else {
			$postFields .= qq|      <INPUT TYPE="hidden" NAME="hour" VALUE="$hour">\n|;
			$postFields .= qq|      <INPUT TYPE="hidden" NAME="min" VALUE="$min">\n|;
			$postFields .= qq|      <INPUT TYPE="hidden" NAME="ampm" VALUE="$amPm">\n|;
		}
	}
	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(time() + $hourAdjust * 60 * 60);
	$year = $year + 1900;
	my @montharray = (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
	my $maxdays = $montharray[$mon];
	my $month = $months[$mon];
	if ($month eq "February") {
		if ($year %4 eq 0 && ($year %100 ne 0 or $year %400 eq 0)) {
			$maxdays = 29;
		} else {
			$maxdays = 28;
		}
	}
	my $wDay = $wday;
	if ($COOKIE{"$uniqueBit-pass"} && !$FORM{'msg'}) {
		print qq|          </TD>\n|;
		print qq|          <TD><INPUT TYPE="checkbox" NAME="keepTime" VALUE="yes"|;
		if ($FORM{'id'}) {
			print qq| CHECKED|;
		}
		print qq|> Keep original time</TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD WIDTH="25%" ALIGN="right">Date:&nbsp;</TD>\n|;
		print qq|          <TD>\n|;
		print qq|            <SELECT NAME="date">\n|;
		my (@date, $date);
		for (my $day = $mday - 1; $day >= 0; $day = $day - 1) {
			push (@date, $wdays[$wday - 1]);
			$wday = $wday - 1;
			if ($wday eq 0) {
				$wday = 7;
			}
		}
		@date = reverse(@date);
		for (my $theday = 1; $theday <= $maxdays; $theday++) {
			if ($theday >= $mday && $wDay eq 7) {
				$wDay = 0;
			}
			if ($theday >= $mday) {
				$date = qq|$wdays[$wDay - 1]|;
			} elsif ($theday <= $mday) {
				$date = qq|$date[$theday - 1]|;
			}
			if ($dateFormat eq 1) {
				print qq|              <OPTION|;
				if ($theday eq $mday) {
					print " SELECTED";
				}
				print qq| VALUE="$date, $month $theday, $year">$date, $month $theday, $year</OPTION>\n|;
			} elsif ($dateFormat eq 2) {
				print qq|              <OPTION|;
				if ($theday eq $mday) {
					print " SELECTED";
				}
				print qq| VALUE="$date, $theday $month $year">$date, $theday $month $year</OPTION>\n|;
			}
			if ($theday >= $mday) {
				$wDay = $wDay + 1;
			}
		}
		print qq|            </SELECT>\n|;
		print qq|          </TD>\n|;
		print qq|          <TD><INPUT TYPE="checkbox" NAME="keepDate" VALUE="yes"|;
		if ($FORM{'id'}) {
			print qq| CHECKED|;
		} 
		print qq|> Keep original date</TD>\n|;
		print qq|        </TR>\n|;
	} else {
		if ($dateFormat eq 1) {
			$postFields .= qq|      <INPUT TYPE="hidden" NAME="date" VALUE="$wdays[$wDay - 1], $month $mday, $year">\n|;
		} elsif ($dateFormat eq 2) {
			$postFields .= qq|      <INPUT TYPE="hidden" NAME="date" VALUE="$wdays[$wDay - 1], $mday $month $year">\n|;
		}
	}
	if ($COOKIE{"$uniqueBit-pass"} && $FORM{'files'} && $enableAttachments eq "yes") {
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="3">&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|          <TD>Attached files:<BR><BR></TD>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|          <TD>\n|;
		my @field = split(/\*/, $FORM{'files'});
		foreach my $file (@field) {
			print qq|           <IMG SRC="$imagesDir/clip.$imgFormat" ALT="Attached File" BORDER="0"> $file|;
			if ($file =~ /^.+?\.[gG][iI][fF]$/ or $file =~ /^.+?\.[jJ][pP][gG]$/ or $file =~ /^.+?\.[pP][nN][gG]$/) {
				print qq| <A HREF="javascript:AddTextX('$file');">[insert]</A>|;
			}
			print qq|<BR>\n|;
		}
		print qq|            <INPUT TYPE="hidden" NAME="files" VALUE="$FORM{'files'}">\n|;
		print qq|          </TD>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="3">&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|          <TD><INPUT TYPE="submit" NAME="attachments" VALUE="Add / Delete Files"></TD>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
	} elsif ($COOKIE{"$uniqueBit-pass"} && $enableAttachments eq "yes") {
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="3">&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|          <TD><INPUT TYPE="submit" NAME="attachments" VALUE="Attach Files"></TD>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
	}
	print qq|        <TR>\n|;
	print qq|          <TD COLSPAN="3">&nbsp;</TD>\n|;
	print qq|        </TR>\n|;
	if ($enablePseudo eq "yes") {
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="3" ALIGN="center">\n|;
		foreach my $smiley (@smiley) {
			my ($name, $value) = split(/\|/, $smiley);
			my $alt = ucfirst($name);
			print qq|            <A HREF="javascript:$name();"><IMG SRC="$imagesDir/$name.$imgFormat" ALT="$alt" BORDER="0"></A>\n|;
		}
		print qq|          </TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="3" ALIGN="center">\n|;
		foreach my $pseudo (@pseudo) {
			my ($name, $value) = split(/\|/, $pseudo);
			print qq|            <A HREF="javascript:$name();"><IMG SRC="$imagesDir/$name.$imgFormat" ALT="$name" BORDER="0"></A>\n|;
		}
		print qq|          </TD>\n|;
		print qq|        </TR>\n|;
	}
	print qq|        <TR>\n|;
	print qq|          <TD COLSPAN="3" ALIGN="center"><TEXTAREA NAME="text" ROWS="20" COLS="60" onClick="javascript:storeCaret(this);" onKeyUp="javascript:storeCaret(this);" onChange="javascript:storeCaret(this);">$text</TEXTAREA></TD>\n|;
	print qq|        </TR>\n|;
	print qq|        <TR>\n|;
	print qq|          <TD COLSPAN="3">&nbsp;</TD>\n|;
	print qq|        </TR>\n|;
	print qq|        <TR>\n|;
	print qq|          <TD COLSPAN="3"><INPUT TYPE="submit" VALUE="Post"> <INPUT TYPE="submit" NAME="buttonX" VALUE="Preview"> <INPUT TYPE="reset"></TD>\n|;
	print qq|        </TR>\n|;
	print qq|      </TABLE>\n|;
	if (!$FORM{'msg'}) {
		print qq|$postFields|;
	}
	print qq|      </FORM>\n|;
	print qq|      <BR>$hrDiv<BR>\n|;
	print qq|      <DIV align="center"><A HREF="$formUrl">Main Page</A> -- <A HREF="$formUrl?action=viewArchive">Archive</A>|;
	if ($COOKIE{"$uniqueBit-pass"}) {
		print qq| -- <A HREF="$formUrl?action=admin">Admin Menu</A>|;
	}
	print qq|</DIV>\n|;
	if ($FORM{'ssi'} ne "on") {print $bottomPage;}
}

#######################################################
## Post X
if ($FORM{'action'} eq "postX") {
	if ($FORM{'idc'} or $FORM{'button'}) {
		print "Location:$formUrl?action=post&id=$FORM{'id'}\n\n";
		exit;
	}
	if ($FORM{'attachments'}) {
		$FORM{'text'} =~ s!\n!//n!g;
		$FORM{'text'} =~ s!=!%3D!g;
		print "Location:$formUrl?action=fileSelect&id=$FORM{'id'}&name=$FORM{'name'}&title=$FORM{'title'}&email=$FORM{'email'}&www=$FORM{'www'}&hour=$FORM{'hour'}&min=$FORM{'min'}&ampm=$FORM{'ampm'}&keepTime=$FORM{'keepTime'}&keepDate=$FORM{'keepDate'}&date=$FORM{'date'}&text=$FORM{'text'}&files=$FORM{'files'}\n\n";
		exit;
	}
	my ($err, $msg);
	if ($multiUsers eq "yes" && !$COOKIE{"$uniqueBit-pass"}) {
		if (!$FORM{'name'}) {
			$msg .= "Please fill in the Name field<BR>";
			$err++;
		}
	}
	if (!$FORM{'title'}) {
		$msg .= "Please fill in the Title field<BR>";
		$err++;
	}
	if ($multiUsers eq "yes") {
		if ($FORM{'email'}) {
			$FORM{'email'}=~s/ //g;
			if (&checkEmail($FORM{'email'}) != 1) {
				$msg .= "Bad email address<BR>";
				$err++;
			}
		}
	}
	if ($multiUsers eq "yes" && !$COOKIE{"$uniqueBit-pass"} && $postPass) {
		if (!$FORM{'pass'}) {
			$msg .= "Please fill in the Password field<BR>";
			$err++;
		}
	}
	if (!$FORM{'text'}) {
		$msg .= "Please fill in the Text field<BR>";
		$err++;
	}
	if ($err) {
		$FORM{'text'} =~ s!\n!//n!g;
		$FORM{'text'} =~ s!=!%3D!g;
		print "Location:$formUrl?action=post&id=$FORM{'id'}&name=$FORM{'name'}&title=$FORM{'title'}&email=$FORM{'email'}&www=$FORM{'www'}&hour=$FORM{'hour'}&min=$FORM{'min'}&ampm=$FORM{'ampm'}&keepTime=$FORM{'keepTime'}&keepDate=$FORM{'keepDate'}&date=$FORM{'date'}&text=$FORM{'text'}&files=$FORM{'files'}&msg=$msg\n\n";
		exit;
	}
	if (!$adminPass) {
		dienice("The Admin Password is blank. Please set it to something other than a null value.\n","1");
		exit;
	}
	if ($FORM{'buttonX'} eq "Preview") {
		$FORM{'text'} =~ s!\n!<BR>!g;
		$FORM{'text'} =~ s!=!%3D!g;
		print "Location:$formUrl?action=preView&name=$FORM{'name'}&title=$FORM{'title'}&email=$FORM{'email'}&www=$FORM{'www'}&hour=$FORM{'hour'}&min=$FORM{'min'}&ampm=$FORM{'ampm'}&date=$FORM{'date'}&text=$FORM{'text'}&files=$FORM{'files'}\n\n";
		exit;
	}
	if ($COOKIE{"$uniqueBit-pass"} eq $adminPassCrypt or $FORM{'pass'} eq $adminPass or $FORM{'pass'} eq $postPass or !$postPass) {
		&postX;
	} else {
		$FORM{'text'} =~ s!\n!//n!g;
		$FORM{'text'} =~ s!=!%3D!g;
		print "Location:$formUrl?action=post&id=$FORM{'id'}&name=$FORM{'name'}&title=$FORM{'title'}&email=$FORM{'email'}&www=$FORM{'www'}&hour=$FORM{'hour'}&min=$FORM{'min'}&ampm=$FORM{'ampm'}&keepTime=$FORM{'keepTime'}&keepDate=$FORM{'keepDate'}&date=$FORM{'date'}&text=$FORM{'text'}&files=$FORM{'files'}&msg=Bad password<BR>\n\n";
		exit;
	}
	sub postX {
		my ($time, $date, $www, $text, $num, @field, @data);
		if (-e "$articlesPath/articles.db") {
			open(IN, "$articlesPath/articles.db");
			flock(IN, LOCK_SH);
			@data = <IN>;
			close(IN);
			chomp($data[$FORM{'id'} - 1]);
			@field = split(/\|/, $data[$FORM{'id'} - 1]);
		}
		if ($FORM{'keepTime'} eq "yes") {
			$time = $field[2];
		} else {
			if (!$FORM{'hour'} && !$FORM{'min'}) {
				$time = &getTime;
			} else {
				$time = "$FORM{'hour'}:$FORM{'min'}";
				if ($timeFormat eq 12) {
					$time .= " $FORM{'ampm'}";
				}
			}
		}
		if ($FORM{'keepDate'} eq "yes") {
			$date = $field[0];
		} else {
			if (!$FORM{'date'}) {
				$date = &getDate;
			} else {
				$date = "$FORM{'date'}";
			}
		}
		if (!$FORM{'name'} && !$field[5]) {
			$FORM{'name'} = $adminName;
		} else {
			$FORM{'name'} = $field[5];
		}
		if (!$FORM{'title'}) {
			$FORM{'title'} = $field[1];
		}
		if ($FORM{'www'} =~ /^http:\/\/.+?$/ or $FORM{'www'} =~ /^www\..+?$/) {
			$FORM{'www'} =~ s!^(www\..+?)$!http://$1!g;
			$www = $FORM{'www'};
		} else {
			$www = "";
		}
		if (!$FORM{'text'}) {
			$text = $field[3];
		} else {
			$text = &modIn($FORM{'text'});
			if ($multiUsers eq "yes" && !$COOKIE{"$uniqueBit-pass"}) {
				$text =~ s!<[sS][cC][rR][iI][pP][tT]!!g;
				$text =~ s!</[sS][cC][rR][iI][pP][tT]!!g;
				$text =~ s!<[aA][pP][lL][eE][tT]!!g;
				$text =~ s!</[aA][pP][lL][eE][tT]!!g;
			}
		}
		if ($first >= 1) {
			my $yearX = &getYear;
			my $monthX = &getMonth;
			open(IN, "$workingPath/prior_months.db") or dienice("Can't read prior_months.db code 16 : $! \n");
			flock(IN, LOCK_SH);
			my @data = <IN>;
			close(IN);
			my $lastNum = scalar(@data);
			chomp($data[$lastNum - 1]);
			my @field = split(/\|/, $data[$lastNum - 1]);
			open(IN, "$workingPath/month.db") or dienice("Can't read month.db code 17 : $! \n");
			flock(IN, LOCK_SH);
			my $priorMonth = <IN>;
			close(IN);
			unlink ("$workingPath/counter.db") or dienice("Can't delete counter.db code 18 : $! \n");
			unlink ("$workingPath/first.db") or dienice("Can't delete first.db code 19 : $! \n");
			$num = &counter("counter", "+");
			open(OUT, ">$workingPath/month.db") or dienice("Can't write to month.db code 20 : $! \n");
			flock(OUT, LOCK_EX);
			seek(OUT, 0, 0);
			truncate(OUT, 0);
			print OUT $monthX;
			close(OUT);
			open(OUT, ">>$workingPath/prior_months.db") or dienice("Can't write to prior_months.db code 21 : $! \n");
			flock(OUT, LOCK_EX);
			seek(OUT, 0, 2);
			print OUT "$monthX|$yearX\n";
			close(OUT);
			rename("$articlesPath/articles.db","$articlesPath/$priorMonth\_$field[1].db") or dienice("Can't rename articles.db to $priorMonth\_$field[1].db code 22 : $! \n");
			open(OUT, ">$articlesPath/articles.db") or dienice("Can't write to articles.db code 23 : $! \n");
			flock(OUT, LOCK_EX);
			seek(OUT, 0, 0);
			truncate(OUT, 0);
			print OUT "$date|$FORM{'title'}|$time|$text|$num|$FORM{'name'}|$www|$FORM{'email'}|$ENV{'REMOTE_ADDR'}|$FORM{'files'}\n";
			close(OUT);
		} elsif (!$FORM{'id'}) {
			$num = &counter("counter", "+");
			open(OUT, ">>$articlesPath/articles.db") or dienice("Can't write to articles.db code 24 : $! \n");
			flock(OUT, LOCK_EX);
			seek(OUT, 0, 2);
			print OUT "$date|$FORM{'title'}|$time|$text|$num|$FORM{'name'}|$www|$FORM{'email'}|$ENV{'REMOTE_ADDR'}|$FORM{'files'}\n";
			close(OUT);
		} elsif ($FORM{'id'}) {
			if (!$FORM{'files'} && !$FORM{'noFiles'}) {
				$FORM{'files'} = $field[9];
			}
			$data[$FORM{'id'} - 1] = "$date|$FORM{'title'}|$time|$text|$FORM{'id'}|$FORM{'name'}|$www|$FORM{'email'}|$field[8]|$FORM{'files'}\n";
			open(OUT, ">$articlesPath/articles.db") or dienice("Can't write to articles.db code 25 : $! \n");
			flock(OUT, LOCK_EX);
			seek(OUT, 0, 0);
			truncate(OUT, 0);
			print OUT @data;
			close(OUT);
		}
		if ($multiUsers eq "yes" && $sendAdminEmail eq "yes" && !$COOKIE{"$uniqueBit-pass"}) {
			my $month = &getMonth;
			my $year = &getYear;
			if (!$FORM{'email'}) {
				$FORM{'email'} = "no_email_address\@nowhere.com";
			}
			my $email;
			if ($htmlEmail eq "yes") {
				$email = qq|Mime-Version: 1.0\nContent-type: text/html; charset="iso-8859-1"\n|;
			}
			$email .= qq|From: "$FORM{'name'}" <$FORM{'email'}>\n|;
			$email .= qq|To: $adminEmail\n|;
			$email .= qq|Subject: Weblog Post: $FORM{'title'}\n|;
			if ($htmlEmail eq "yes") {
				$email .= qq|<html>\n|;
				$email .= qq|<body>\n|;
				$email .= qq|$text<br><br>\n|;
				$email .= qq|Numb: $num<br>\n|;
				if ($ENV{'REMOTE_ADDR'}) {
					$email.= qq|Addy: $ENV{'REMOTE_ADDR'}<br>\n|;
				}
				if ($www) {
					$email.= qq|Site: $www<br>\n|;
				}
				if ($FORM{'files'} && $enableAttachments eq "yes") {
					$email .= qq|Files:|;
					my @field = split(/\*/, $FORM{'files'});
					foreach my $file (@field) {
						$email .= qq| <A HREF="$indexUrl/$uploadsPath/$file">$file</A>|;
					}
					$email .= qq|<br>\n|;
				}
				$email .= qq|<br><A HREF="$formUrl?action=viewEntry&amp;month=$month&amp;year=$year&amp;id=$num">View this entry</A> -- <A HREF="$formUrl?action=post&amp;id=$num">Edit this entry</A> -- <A HREF="$formUrl?action=deleteEntry&amp;id=$num">Delete this entry</A>\n|;
				$email .= qq|</body>\n|;
				$email .= qq|</html>|;
			} elsif ($htmlEmail eq "no") {
				$email .= qq|$FORM{'text'}\n\n|;
				$email .= qq|Numb: $num\n|;
				if ($ENV{'REMOTE_ADDR'}) {
					$email .= qq|Addy: $ENV{'REMOTE_ADDR'}\n|;
				}
				if ($www) {
					$email .= qq|Site: $www\n|;
				}
				if ($FORM{'files'} && $enableAttachments eq "yes") {
					$email .= qq|Files:|;
					my @field = split(/\*/, $FORM{'files'});
					foreach my $file (@field) {
						$email .= qq| $file|;
					}
					$email .= qq|<br>\n|;
				}
				$email .= qq|\nView this entry:\n|;
				$email .= qq|$formUrl?action=viewEntry&month=$month&year=$year&id=$num\n\n|;
				$email .= qq|Edit this entry:\n|;
				$email .= qq|$formUrl?action=post&id=$num\n\n|;
				$email .= qq|Delete this entry:\n|;
				$email .= qq|$formUrl?action=deleteEntry&id=$num|;
			}
			$email =~ s/\[\[.*?\]\]//sig;
			open (MAIL,"| $sendmailPath -t");
			print MAIL $email;
			close(MAIL);
		}
		print "Location:$formUrl\n\n";
	}
}

#######################################################
## Preview Entry
if ($FORM{'action'} eq "preView") {
	$ran++;
	if (!$FORM{'name'}) {
		$FORM{'name'} = $adminName;
	}
	my $www;
	if ($FORM{'www'} =~ /^http:\/\/.+?$/ or $FORM{'www'} =~ /^www\..+?$/) {
		$FORM{'www'} =~ s!^(www\..+?)$!http://$1!g;
		$www = $FORM{'www'};
	} else {
		$www = "";
	}
	$FORM{'text'} = &modIn($FORM{'text'});
	if ($multiUsers eq "yes" && !$COOKIE{"$uniqueBit-pass"}) {
		$FORM{'text'} =~ s!<[sS][cC][rR][iI][pP][tT]!!g;
		$FORM{'text'} =~ s!</[sS][cC][rR][iI][pP][tT]!!g;
		$FORM{'text'} =~ s!<[aA][pP][lL][eE][tT]!!g;
		$FORM{'text'} =~ s!</[aA][pP][lL][eE][tT]!!g;
	}
	$topPage =~ s/<!-- Title -->/Entry Viewer/g;
	print "Content-type: text/html\n\n";
	if ($FORM{'ssi'} ne "on") {print $topPage;}
	print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
	print qq|        <TR>\n|;
	if ($multiUsers eq "yes" or $COOKIE{"$uniqueBit-pass"}) {
		print qq|          <TD COLSPAN="2">\n|;
	} else {
		print qq|          <TD>\n|;
	}
	if ($titleFormat eq 2) {
		print qq|            <FONT $fontB>$FORM{'date'}</FONT><BR>\n|;
		print qq|            <FONT $fontS>$FORM{'title'} @ $FORM{'hour'}:$FORM{'min'} $FORM{'ampm'} $timeZone</FONT><BR>\n|;
	} elsif ($titleFormat eq 1) {
		print qq|            <FONT $fontB>$FORM{'title'}</FONT><BR>\n|;
		print qq|            <FONT $fontS>$FORM{'date'} @ $FORM{'hour'}:$FORM{'min'} $FORM{'ampm'} $timeZone</FONT><BR>\n|;
	}
	print qq|            $FORM{'text'}\n|;
	if ($multiUsers eq "yes" or $COOKIE{"$uniqueBit-pass"}) {
		print qq|            <BR><BR>\n|;
	}
	print qq|          </TD>\n|;
	print qq|        </TR>\n|;
	if ($multiUsers eq "yes") {
		print qq|        <TR>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|          <TD ALIGN="right">|;
		print qq|$FORM{'name'} (|;
		if ($www) {
			print qq|<A TARGET="_blank" HREF="$www">www</A>|;
		} else {
			print qq|www|;
		}
		print qq| / |;
		if ($FORM{'email'}) {
			print qq|<A HREF="mailto:$FORM{'email'}">@</A>|;
		} else {
			print qq|@|;
		}
		print qq|)</TD>\n|;
		print qq|        </TR>\n|;
	}
	if ($FORM{'files'} && $enableAttachments eq "yes") {
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="2">&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="2">Attached files:<BR><BR></TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="2">\n|;
		my @files = split(/\*/, $FORM{'files'});
		foreach my $file (@files) {
			print qq|           <IMG SRC="$imagesDir/clip.$imgFormat" ALT="Attached File" BORDER="0"> <A HREF="$indexUrl/$uploadsPath/$file">$file</A><BR>\n|;
		}
		print qq|          </TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="2">&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
	}
	print qq|        <TR>\n|;
	if ($multiUsers eq "yes" or $COOKIE{"$uniqueBit-pass"}) {
		print qq|          <TD COLSPAN="2">|;
	} else {
		print qq|          <TD>|;
	}
	print qq|<BR>$hrDiv<BR></TD>\n|;
	print qq|        </TR>\n|;
	print qq|      </TABLE>\n|;
	print qq|      <DIV align="center"><A HREF="javascript:history.go(-1)">Back to Post</A></DIV>\n|;
	if ($FORM{'ssi'} ne "on") {print $bottomPage;}
}

#######################################################
## File(s) Select
if ($FORM{'action'} eq "fileSelect" && $enableAttachments eq "yes" && $COOKIE{"$uniqueBit-pass"}) {
	$ran++;
	if ($FORM{'delete'}) {	
		$FORM{'files'} =~ s!$FORM{'delete'}\*!!g;
		unlink ("$uploadsPath/$FORM{'delete'}");
	}
	$topPage =~ s/<!-- Title -->/Attach Files/g;
	print "Content-type: text/html\n\n";
	if ($FORM{'ssi'} ne "on") {print $topPage;}
	print qq|      <SCRIPT LANGUAGE="JavaScript1.2" TYPE="text/javascript">\n|;
	print qq|      <!-- Begin\n|;
	print qq|      var submitcount =  0;\n|;
	print qq|      function formCheck() {\n|;
	print qq|        if (submitcount == 0) {\n|;
	print qq|          submitcount++;\n|;
	print qq|          return true;\n|;
	print qq|        } else {\n|;
	print qq|          alert("Your file(s) are being uploaded\\n\\nPlease wait ...");\n|;
	print qq|          return false;\n|;
	print qq|        }\n|;
	print qq|      }\n|;
	print qq|      // End -->\n|;
	print qq|      </SCRIPT>\n|;
	if ($FORM{'files'}) {
		print qq|      <FORM NAME="form" ACTION="$formUrl" METHOD="post">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="action" VALUE="post">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="id" VALUE="$FORM{'id'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="name" VALUE="$FORM{'name'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="title" VALUE="$FORM{'title'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="email" VALUE="$FORM{'email'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="www" VALUE="$FORM{'www'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="hour" VALUE="$FORM{'hour'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="min" VALUE="$FORM{'min'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="ampm" VALUE="$FORM{'ampm'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="keepTime" VALUE="$FORM{'keepTime'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="keepDate" VALUE="$FORM{'keepDate'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="date" VALUE="$FORM{'date'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="text" VALUE="$FORM{'text'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="files" VALUE="$FORM{'files'}">\n|;
		print qq|      <INPUT TYPE="hidden" NAME="enableAttachments" VALUE="$enableAttachments">\n|;
		print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
		print qq|        <TR>\n|;
		print qq|          <TD>Attached files:<BR><BR></TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD>\n|;
		my @field = split(/\*/, $FORM{'files'});
		foreach my $file (@field) {
			print qq|           <IMG SRC="$imagesDir/clip.$imgFormat" ALT="Attached File" BORDER="0"> $file &nbsp;&nbsp; [<A HREF="$formUrl?action=fileSelect&amp;id=$FORM{'id'}&amp;name=$FORM{'name'}&amp;title=$FORM{'title'}&amp;email=$FORM{'email'}&amp;www=$FORM{'www'}&amp;hour=$FORM{'hour'}&amp;min=$FORM{'min'}&amp;ampm=$FORM{'ampm'}&amp;keepTime=$FORM{'keepTime'}&amp;keepDate=$FORM{'keepDate'}&amp;date=$FORM{'date'}&amp;text=$FORM{'text'}&amp;files=$FORM{'files'}&amp;delete=$file">remove</A>]<BR>\n|;
		}
		print qq|          </TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD><INPUT TYPE="submit" VALUE="Finished"></TD>\n|;
		print qq|        </TR>\n|;
		print qq|      </TABLE>\n|;
		print qq|      </FORM>\n|;
		print qq|      <BR>$hrDiv<BR>\n|;
	}
	print qq|      <FORM NAME="form" ACTION="$indexUrl/upload.cgi" METHOD="post" ENCTYPE="multipart/form-data" onSubmit="return formCheck();">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="uploadsPath" VALUE="$uploadsPath">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="formUrl" VALUE="$formUrl">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="maxUploadFiles" VALUE="$maxUploadFiles">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="id" VALUE="$FORM{'id'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="name" VALUE="$FORM{'name'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="title" VALUE="$FORM{'title'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="email" VALUE="$FORM{'email'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="www" VALUE="$FORM{'www'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="hour" VALUE="$FORM{'hour'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="min" VALUE="$FORM{'min'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="ampm" VALUE="$FORM{'ampm'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="keepTime" VALUE="$FORM{'keepTime'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="keepDate" VALUE="$FORM{'keepDate'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="date" VALUE="$FORM{'date'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="text" VALUE="$FORM{'text'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="files" VALUE="$FORM{'files'}">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="uniqueBit" VALUE="$uniqueBit">\n|;
	print qq|      <INPUT TYPE="hidden" NAME="enableAttachments" VALUE="$enableAttachments">\n|;
	print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
	if ($FORM{'msg'}) {
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="2"><FONT COLOR="#FF0000"><B>$FORM{'msg'}</B></FONT></TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD COLSPAN="2">&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
	}
	for (my $num = 1; $num <= $maxUploadFiles; $num++) {
		print qq|        <TR>\n          <TD>File $num:</TD>\n          <TD>\n            &nbsp; <INPUT TYPE="file" NAME="file_$num">\n            <INPUT TYPE="checkbox" NAME="over_$num" VALUE="yes"> Overwrite\n          </TD>\n        </TR>\n|;
	}
	print qq|        <TR>\n|;
	print qq|          <TD COLSPAN="2">&nbsp;</TD>\n|;
	print qq|        </TR>\n|;
	print qq|        <TR>\n|;
	print qq|          <TD COLSPAN="2"><INPUT TYPE="submit" NAME="button" VALUE="Upload"> <INPUT TYPE="submit" NAME="button" VALUE="|;
	if ($FORM{'files'}) {
		print qq|Delete All"></TD>\n|;
	} else {
		print qq|Finished"></TD>\n|;
	}
	print qq|        </TR>\n|;
	print qq|      </TABLE>\n|;
	print qq|      </FORM>\n|;
	if ($FORM{'ssi'} ne "on") {print $bottomPage;}
}

#######################################################
## Admin
if ($FORM{'action'} eq "admin") {
	$ran++;
	if ($adminPass) {
		if ($COOKIE{"$uniqueBit-pass"} eq $adminPassCrypt) {
			&admin;
		} else {
			print "Location:$formUrl?action=login&redir=action%3Dadmin\n\n";
		}
	} else {
		dienice("The Admin Password is blank. Please set it to something other than a null value.\n","1");
	}
	sub admin {
		print qq|Set-Cookie: $uniqueBit-error=; path=$path; expires=Tue, 01-Jan-1980 12:00:00 GMT\n|;
		open(IN, "$indexCgi") or dienice("Can't read $indexCgi code 26 : $! \n");
		flock(IN, LOCK_SH);
		my @data = <IN>;
		close(IN);
		chomp($data[6], $data[8]);
		$data[6] =~ s!^# 4est Logging, (.+?)$!$1!g;
		$data[8] =~ s!^# Last Modified: (.+?)$!$1!g;
		$ENV{'SCRIPT_NAME'} =~ s!^(.+?)$indexCgi$!$1!g;
		$topPage =~ s/<!-- Title -->/4est Logging/g;
		print "Content-type: text/html\n\n";
		if ($FORM{'ssi'} ne "on") {print $topPage;}
		print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
		print qq|        <TR>\n|;
		print qq|          <TD><B>Admin Menu</B></TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD>\n|;
		print qq|            <UL>\n|;
		if ($COOKIE{"$uniqueBit-pass"} =~ /^wL/) {
			print qq|              <LI><A HREF="$formUrl?action=logout">Logout</A></LI>\n|;
		}
		print qq|              <LI><A HREF="$formUrl?action=post">Add / Edit Entry</A></LI>\n|;
		print qq|            </UL>\n|;
		print qq|          </TD>\n|;
		print qq|        </TR>\n|;
		print qq|      </TABLE>\n|;
		print qq|      <BR>\n|;
		print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
		print qq|        <TR>\n|;
		print qq|          <TD><B>Script Info:</B></TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD VALIGN="top">\n|;
		print qq|            $data[6] -- $data[8]<BR>\n|;
		print qq|            Script Name: $indexCgi<BR>\n|;
		print qq|            Script Path: $ENV{'SCRIPT_NAME'}<BR>\n|;
		print qq|            Articles Path: $articlesPath|;
		if (!-e $articlesPath or !-w $articlesPath or !-x $articlesPath) {
			print qq|, <FONT COLOR="#FF0000">Does not exist</FONT>| if !-e $articlesPath;
			if (-e $articlesPath) {
				print qq|, <FONT COLOR="#FF0000">Not Writable</FONT>| if !-w $articlesPath;
				print qq|, <FONT COLOR="#FF0000">Not Executable</FONT>| if !-x $articlesPath;
				print qq|, <FONT COLOR="#FF0000">You must set permissions to 755</FONT>|;
			}
		}
		print qq|\n            <BR>Uploads Path: $uploadsPath|;
		if (!-e $uploadsPath or !-w $uploadsPath or !-x $uploadsPath) {
			print qq|, <FONT COLOR="#FF0000">Does not exist</FONT>| if !-e $uploadsPath;
			if (-e $uploadsPath) {
				print qq|, <FONT COLOR="#FF0000">Not Writable</FONT>| if !-w $uploadsPath;
				print qq|, <FONT COLOR="#FF0000">Not Executable</FONT>| if !-x $uploadsPath;
				print qq|, <FONT COLOR="#FF0000">You must set permissions to 755</FONT>|;
			}
		}
		print qq|\n            <BR>Working Path: $workingPath|;
		if (!-e $workingPath or !-w $workingPath or !-x $workingPath) {
			print qq|, <FONT COLOR="#FF0000">Does not exist</FONT>| if !-e $workingPath;
			if (-e $workingPath) {
				print qq|, <FONT COLOR="#FF0000">Not Writable</FONT>| if !-w $workingPath;
				print qq|, <FONT COLOR="#FF0000">Not Executable</FONT>| if !-x $workingPath;
				print qq|, <FONT COLOR="#FF0000">You must set permissions to 755</FONT>|;
			}
		}
		print qq|\n            <BR>Upload Script: upload.cgi|;
		if (!-e "upload.cgi" or !-x "upload.cgi") {
			print qq|, <FONT COLOR="#FF0000">Does not exist</FONT>| if !-e "upload.cgi";
			if (-e "upload.cgi") {
				print qq|, <FONT COLOR="#FF0000">Not Executable</FONT>| if !-x "upload.cgi";
				print qq|, <FONT COLOR="#FF0000">You must set permissions to 755</FONT>|;
			}
		}
		print qq|\n            <BR>Template file: <A HREF="$indexUrl/$templateFile" TARGET="_blank">$templateFile</A><BR>\n|;
		print qq|            URL to the images dir: <A HREF="$indexUrl/$imagesPath/" TARGET="_blank">$imagesPath</A><BR>\n|;
		print qq|          </TD>\n|;
		print qq|        </TR>\n|;
		print qq|      </TABLE>\n|;
		print qq|      <BR>\n|;
		print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
		print qq|        <TR>\n|;
		print qq|          <TD><B>Server Info:</B></TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD VALIGN="top">\n|;
		print qq|            Perl Version: $]<BR>\n|;
		print qq|            Operating System: $^O<BR>\n|;
		print qq|            File System Root: $ENV{'DOCUMENT_ROOT'}<BR>\n|;
		print qq|            Server Software: $ENV{SERVER_SOFTWARE}\n|;
		print qq|          </TD>\n|;
		print qq|        </TR>\n|;
		print qq|      </TABLE>\n|;
		if ($FORM{'ssi'} ne "on") {print $bottomPage;}
	}
}

#######################################################
## Login page
if ($FORM{'action'} eq "login") {
	$ran++;
	$topPage =~ s/<!-- Title -->/Login/g;
	print "Content-type: text/html\n\n";
	if ($FORM{'ssi'} ne "on") {print $topPage;}
	print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
	if ($FORM{'msg'}) {
		print qq|        <TR>\n|;
		print qq|          <TD ALIGN="center"><B><I>$FORM{'msg'}</I></B></TD>\n|;
		print qq|        </TR>\n|;
		print qq|        <TR>\n|;
		print qq|          <TD>&nbsp;</TD>\n|;
		print qq|        </TR>\n|;
	}
	print qq|        <TR>\n|;
	print qq|          <TD>\n|;
	print qq|            <B>Login</B><BR>\n|;
	print qq|            <FORM NAME="form" ACTION="$formUrl" METHOD="post">\n|;
	print qq|            <INPUT TYPE="hidden" NAME="action" VALUE="loginX">\n|;
	print qq|            <INPUT TYPE="hidden" NAME="redir" VALUE="$FORM{'redir'}">\n|;
	print qq|            Password: <INPUT TYPE="password" NAME="pass">\n|;
	print qq|            <INPUT TYPE="submit" VALUE="Login">\n|;
	print qq|            </FORM>\n|;
	print qq|            <SCRIPT LANGUAGE="JavaScript1.2" TYPE="text/javascript">\n|;
	print qq|            <!-- Begin\n|;
	print qq|            document.form.pass.focus();\n|;
	print qq|             // End -->\n|;
	print qq|            </SCRIPT>\n|;
	print qq|          </TD>\n|;
	print qq|        </TR>\n|;
	print qq|      </TABLE>\n|;
	if ($FORM{'ssi'} ne "on") {print $bottomPage;}
}

#######################################################
## Login set page
if ($FORM{'action'} eq "loginX") {
	$ran++;
	if ($adminPass) {
		if ($FORM{'pass'} eq $adminPass) {
			print qq|Set-Cookie: $uniqueBit-pass=$adminPassCrypt; path=$path; expires=$expdate\n|;
			if ($FORM{'redir'}) {
				print "Location:$formUrl?$FORM{'redir'}\n\n";
			} else {
				print "Location:$formUrl?action=admin\n\n";
			}
		} else {
			$FORM{'redir'} =~ s!&!%26!g;
			$FORM{'redir'} =~ s!=!%3D!g;
			print "Location:$formUrl?action=login&msg=Bad Password&redir=$FORM{'redir'}\n\n";
		}
	} else {
		dienice("It would appear that the master password variable is a null value.<BR>We can't go on like this, it just isn't right, so would you please set it.\n","1");
	}
}

#######################################################
## Logout page
if ($FORM{'action'} eq "logout") {
	$ran++;
	print qq|Set-Cookie: $uniqueBit-pass=; path=$path; expires=Tue, 01-Jan-1980 12:00:00 GMT\n|;
	$topPage =~ s/<!-- Title -->/Logout/g;
	print "Content-type: text/html\n\n";
	if ($FORM{'ssi'} ne "on") {print $topPage;}
	print qq|      <META HTTP-EQUIV="refresh" CONTENT="3;URL=$indexUrl/">\n|;
	print qq|      <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="$align" WIDTH="$width">\n|;
	print qq|        <TR>\n|;
	print qq|          <TD>\n|;
	print qq|            <B>Successfully logged out</B><BR>\n|;
	print qq|            <BR><A HREF="$indexUrl/">Main Page</A><BR>\n|;
	print qq|          </TD>\n|;
	print qq|        </TR>\n|;
	print qq|      </TABLE>\n|;
	if ($FORM{'ssi'} ne "on") {print $bottomPage;}
}

#######################################################
## JavaScript
if ($FORM{'action'} eq "javaScript") {
	$ran++;
	print "Content-type: text/html\n\n";
	print qq|<!-- Begin\n|;
	print qq|if((navigator.appName == "Netscape" && navigator.appVersion.charAt(0) >= 4) \|\| (navigator.appName == "Microsoft Internet Explorer" && navigator.appVersion.charAt(0) >= 4) \|\| (navigator.appName == "Opera" && navigator.appVersion.charAt(0) >= 4) \|\| (navigator.appName == "WebTV Plus Receiver" && navigator.appVersion.charAt(0) >= 3) \|\| (navigator.appName == "Konqueror" && navigator.appVersion.charAt(0) >= 2)) {\n|;
	print qq|	function storeCaret(text) {\n|;
	print qq|		if (text.createTextRange) text.caretPos = document.selection.createRange().duplicate();\n|;
	print qq|	}\n|;
	print qq|	function AddText(bbopen, bbclose) {\n|;
	print qq|		if (bbclose)\n|;
	print qq|			if (document.form.text.caretPos)\n|;
	print qq|				document.form.text.caretPos.text = bbopen + document.form.text.caretPos.text + bbclose;\n|;
	print qq|			else\n|;
	print qq|				document.form.text.value += bbopen + bbclose;\n|;
	print qq|		else\n|;
	print qq|			if (document.form.text.caretPos)\n|;
	print qq|				document.form.text.caretPos.text=bbopen;\n|;
	print qq|			else\n|;
	print qq|				document.form.text.value+=bbopen;\n|;
	print qq|		document.form.text.focus();\n|;
	print qq|	}|;
	print qq|	function AddTextX(file) {\n|;
	print qq|		AddText('<IMG SRC="$indexUrl/$uploadsPath/' + file + '" ALT="" BORDER="0">');\n|;
	print qq|	}|;
	my $JavaScript;
	foreach my $pseudo (@pseudo) {
		my ($name, $value) = split(/\|/, $pseudo);
		$JavaScript .= "\n	function $name() {\n		AddText($value);\n	}";
	}
	foreach my $smiley (@smiley) {
		my ($name, $value) = split(/\|/, $smiley);
		$JavaScript .= "\n	function $name() {\n		AddText($value);\n	}";
	}
	print qq|$JavaScript\n|;
	print qq|}\n|;
	print qq| // End -->|;
}

#######################################################
## End Check
if ($FORM{'action'} && !$ran) {
	$topPage =~ s/<!-- Title -->/Action Check/g;
	print "Content-type: text/html\n\n";
	if ($FORM{'ssi'} ne "on") {print $topPage;}
	print qq|<DIV ALIGN="center">This action ( $FORM{'action'} ) is not a valid action.</DIV>|;
	if ($FORM{'ssi'} ne "on") {print $bottomPage;}
}

#######################################################
## Get Form Data
sub getData {
	my (@pairs, $buffer, $pair, $name, $value);
	@pairs = split(/;./,$ENV{'HTTP_COOKIE'});
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$COOKIE{$name} = $value;
	}
	if ($ENV{'REQUEST_METHOD'} eq 'GET') {
		@pairs = split(/&/, $ENV{'QUERY_STRING'});
	}
	elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
		@pairs = split(/&/, $buffer);
	}
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$name =~ tr/+/ /;
		$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		$name =~ s/\n//g;
		$value =~ tr/+/ /;
		$value =~ s/%0D//g;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		$value =~ s/\|/&#124;/g;
		$FORM{$name} = $value;
	}
	return(1);
}

#######################################################
## Mod In
sub modIn{
	my $inText = $_[0];
	$inText =~ s!\n!<BR>!isg;
	if($autoLinkUrls eq "yes" ) {
		$inText =~ s~([^\w\"\=\[\]]|[\n\b]|\A)\\*(\w+://[\w\~\.\;\:\,\$\-\+\!\*\?/\=\&\@\#\%]+\.[\w\~\;\:\$\-\+\!\*\?/\=\&\@\#\%]+[\w\~\;\:\$\-\+\!\*\?/\=\&\@\#\%])~$1<A HREF="$2">$2</A>~isg;
		$inText =~ s~[^(?:\://\w+)]([^\"\=\[\]/\:\.]|[\n\b]|\A)\\*(www\.[^\.][\w\~\.\;\:\,\$\-\+\!\*\?/\=\&\@\#\%]+\.[\w\~\;\:\$\-\+\!\*\?/\=\&\@\#\%]+[\w\~\;\:\$\-\+\!\*\?/\=\&\@\#\%])~$1<A HREF="http://$2">$2</A>~isg;
	}
	if ($enablePseudo eq "yes") {
		$inText =~ s!\[url(.+?)\[\/url\]!'<A HREF="' . linkEmTo($1) . '</A>'!iseg;
		$inText =~ s!\[img(.+?)\[\/img\]!'<IMG ' . imgEmTo($1) . ' BORDER="0">'!iseg;
		$inText =~ s!\[email\](.+?)\[/email\]!<A HREF=\"mailto:$1\">$1</A>!ig;
		$inText =~ s!\[email=(.+?)\](.+?)\[\/email\]!<A HREF=\"mailto:$1\">$2</A>!isg;
		$inText =~ s~\[b\](.+?)\[/b\]~<B>$1</B>~isg;
		$inText =~ s~\[i\](.+?)\[/i\]~<I>$1</I>~isg;
		$inText =~ s~\[u\](.+?)\[/u\]~<U>$1</U>~isg;
		$inText =~ s~\[s\](.+?)\[/s\]~<STRIKE>$1</STRIKE>~isg;
		$inText =~ s~\[nbsp\]~&nbsp;~g;
		$inText =~ s~\[hr\]~$hrDiv~g;
		$inText =~ s~\[font=(.+?)\](.+?)\[/font\]~<FONT FACE="$1">$2</FONT>~isg;
		$inText =~ s~\[size=(.+?)\](.+?)\[/size\]~<FONT SIZE="$1">$2</FONT>~isg;
		$inText =~ s~\[left\](.+?)\[/left\]~<DIV ALIGN="left">$1</DIV>~isg;
		$inText =~ s~\[center\](.+?)\[/center\]~<DIV ALIGN="center">$1</DIV>~isg;
		$inText =~ s~\[right\](.+?)\[/right\]~<DIV ALIGN="right">$1</DIV>~isg;
		$inText =~ s~\[list\]~<UL>~isg;
		$inText =~ s~\[\*\]~<LI>~isg;
		$inText =~ s~\[/list\]~</UL>~isg;
		$inText =~ s~\[table(.*?)\]~<TABLE$1>~g;
		$inText =~ s~\[/table\]~</TABLE>~g;
		$inText =~ s~\[tbody(.*?)\]~<TBODY$1>~isg;
		$inText =~ s~\[/tbody\]~</TBODY>~isg;
		$inText =~ s~\[row(.*?)\]~<TR$1>~isg;
		$inText =~ s~\[/row\]~</TR>~isg;
		$inText =~ s~\[column(.*?)\]~<TD$1>~isg;
		$inText =~ s~\[/column\]~</TD>~isg;
		$inText =~ s~\[tr(.*?)\]~<TR$1>~isg;
		$inText =~ s~\[/tr\]~</TR>~isg;
		$inText =~ s~\[td(.*?)\]~<TD$1>~isg;
		$inText =~ s~\[/td\]~</TD>~isg;
		foreach my $smiley (@smiley) {
			my ($name, $value) = split(/\|/, $smiley);
			$value =~ s/"(.+?)"/$1/g;
			my $alt = ucfirst($name);
			$inText =~ s/\Q$value\E/\<IMG SRC="$imagesDir\/$name\.$imgFormat" ALT="$alt" BORDER="0">/g;
		}
	}
	return $inText;
}

#######################################################
## HTML Mod
sub htmlMod {
	my $htmlMod = $_[0];
	$htmlMod =~ s/<BR>/\n/g;
	if ($enablePseudo eq "yes") {
		foreach my $smiley (@smiley) {
			my ($name, $value) = split(/\|/, $smiley);
			$value =~ s/"(.+?)"/$1/g;
			my $alt = ucfirst($name);
			$htmlMod =~ s!<IMG SRC="$imagesDir\/$name\.$imgFormat\" ALT="$alt" BORDER="0">!$value!isg;
		}
		$htmlMod =~ s!$hrDiv!\[hr\]!isg;
		$htmlMod =~ s!\<B\>(.+?)\</B\>!\[b\]$1\[/b\]!isg;
		$htmlMod =~ s!\<I\>(.+?)\</I\>!\[i\]$1\[/i\]!isg;
		$htmlMod =~ s!\<U\>(.+?)\</U\>!\[u\]$1\[/u\]!isg;
		$htmlMod =~ s!\<STRIKE\>(.+?)\</STRIKE\>!\[s\]$1\[/s\]!isg;
		$htmlMod =~ s!<A HREF="mailto:(.+?)</A>!'[email' . emailEmFrom($1) . '[/email]'!iseg;
		$htmlMod =~ s!<A HREF="(.+?)</A>!'[url' . linkEmFrom($1) . '[/url]'!iseg;
		$htmlMod =~ s!<IMG (.+?) BORDER="0">!'[img' . imgEmFrom($1) . '[/img]'!iseg;
		$htmlMod =~ s~<FONT FACE="(.+?)">(.+?)</FONT>~\[font=$1\]$2\[/font\]~isg;
		$htmlMod =~ s~<FONT SIZE="(.+?)">(.+?)</FONT>~\[size=$1\]$2\[/size\]~isg;
		$htmlMod =~ s~<DIV ALIGN="left">(.+?)</DIV>~\[left\]$1\[/left\]~isg;
		$htmlMod =~ s~<DIV ALIGN="center">(.+?)</DIV>~\[center\]$1\[/center\]~isg;
		$htmlMod =~ s~<DIV ALIGN="right">(.+?)</DIV>~\[right\]$1\[/right\]~isg;
		$htmlMod =~ s~&nbsp;~\[nbsp\]~g;
		$htmlMod =~ s~<UL>~\[list\]~isg;
		$htmlMod =~ s~<LI>~\[\*\]~isg;
		$htmlMod =~ s~</UL>~\[/list\]~isg;
		$htmlMod =~ s~<TABLE(.*?)>~\[table$1\]~g;
		$htmlMod =~ s~</TABLE>~\[/table\]~g;
		$htmlMod =~ s~<TBODY(.*?)>~\[tbody$1\]~isg;
		$htmlMod =~ s~</TBODY>~\[/tbody\]~isg;
		$htmlMod =~ s~<TR(.*?)>~\[row$1\]~isg;
		$htmlMod =~ s~</TR>~\[/row\]~isg;
		$htmlMod =~ s~<TD(.*?)>~\[column$1\]~isg;
		$htmlMod =~ s~</TD>~\[/column\]~isg;
	}
	return $htmlMod;
}

#######################################################
## RegEx links to HTML
sub linkEmTo {
	my $link = $_[0];
	if ($link =~ /^\].+?$/) {
		$link =~ s!^\](.+?)$!$1!isg;
		$link = qq|$link">$link|;
	}
	if ($link =~ /^=.+? target=\].+?$/) {
		$link =~ s!^=(.+?) target=\](.+?)$!$1" TARGET="_self">$2!isg;
	}
	if ($link =~ /^=.+? target=.+?\].+?$/) {
		$link =~ s!^=(.+?) target=(.+?)\](.+?)$!$1" TARGET="$2">$3!isg;
	}
	if ($link =~ /^=.+?\].+?$/) {
		$link =~ s!^=(.+?)\](.+?)$!$1">$2!isg;
	}
	return $link;
}

#######################################################
## RegEx links from HTML
sub linkEmFrom {
	my $link = $_[0];
	if ($link =~ /^.+?" TARGET=".+?">.+?$/) {
		$link =~ s!^(.+?)" TARGET="(.+?)">(.+?)$!=$1 target=$2\]$3!isg;
	}
	if ($link =~ /^.+?">.+?$/) {
		my $a = $link;
		my $b = $link;
		$a =~ s!^(.+?)">.+?$!$1!isg;
		$b =~ s!^.+?">(.+?)$!$1!isg;
		if ($a eq $b) {
			$link =~ s!^(.+?)">.+?$!\]$1!isg;
		} else {
			$link =~ s!^(.+?)">(.+?)$!=$1\]$2!isg;
		}
	}
	return $link;
}

#######################################################
## RegEx images to HTML
sub imgEmTo {
	my $img = $_[0];
	if ($img =~ /^=.+? height= width=\]/) {
		$img =~ s!^=(.+?) height= width=\](.*)!SRC="$1" ALT="$2"!isg;
	}
	if ($img =~ /^=.+? height=.+? width=.+?\]/) {
		$img =~ s!^=(.+?) height=(.+?) width=(.+?)\](.*)!HEIGHT="$2" SRC="$1" WIDTH="$3" ALT="$4"!isg;
	}
	if ($img =~ /^=.+? height=\]/) {
		$img =~ s!^=(.+?) height=\](.*)!SRC="$1" ALT="$2"!isg;
	}
	if ($img =~ /^=.+? height=.+?\]/) {
		$img =~ s!^=(.+?) height=(.+?)\](.*)!HEIGHT="$2" SRC="$1" ALT="$3"!isg;
	}
	if ($img =~ /^=.+? width=\]/) {
		$img =~ s!^=(.+?) width=\](.*)!SRC="$1" ALT="$2"!isg;
	}
	if ($img =~ /^=.+? width=.+?\]/) {
		$img =~ s!^=(.+?) width=(.+?)\](.*)!SRC="$1" WIDTH="$2" ALT="$3"!isg;
	}
	if ($img =~ /^\].+?$/) {
		$img =~ s!^\](.+?)$!$1!isg;
		$img = qq|SRC="$img" ALT=""|;
	}
	if ($img =~ /^=.+?\]/) {
		$img =~ s!^=(.+?)\](.*)!SRC="$1" ALT="$2"!isg;
	}
	return $img;
}

#######################################################
## RegEx images from HTML
sub imgEmFrom {
	my $img = $_[0];
	if ($img =~ /^HEIGHT=".+?" SRC=".+?" WIDTH=".+?"/) {
		$img =~ s!^HEIGHT="(.+?)" SRC="(.+?)" WIDTH="(.+?)" ALT="(.*)"$!=$2 height=$1 width=$3\]$4!isg;
	}
	if ($img =~ /^HEIGHT=".+?" SRC=".+?"/) {
		$img =~ s!^HEIGHT="(.+?)" SRC="(.+?)" ALT="(.*)"$!=$2 height=$1\]$3!isg;
	}
	if ($img =~ /^SRC=".+?" WIDTH=".+?"/) {
		$img =~ s!^SRC="(.+?)" WIDTH="(.+?)" ALT="(.*)"$!=$1 width=$2\]$3!isg;
	}
	if ($img =~ /^SRC=".+?" ALT=""$/) {
		$img =~ s!^SRC="(.+?)" ALT=""$!$1!isg;
		$img = qq|\]$img|;
	}
	if ($img =~ /^SRC=".+?"/) {
		$img =~ s!^SRC="(.+?)" ALT="(.*)"$!=$1\]$2!isg;
	}
	return $img;
}

#######################################################
## RegEx email from HTML
sub emailEmFrom {
	my $email = $_[0];
	my $a = $email;
	my $b = $email;
	$a =~ s!^(.+?)">.+?$!$1!isg;
	$b =~ s!^.+?">(.+?)$!$1!isg;
	if ($a eq $b) {
		$email =~ s!^(.+?)">.+?$!\]$1!isg;
	} else {
		$email =~ s!^(.+?)">(.+?)$!=$1\]$2!isg;
	}
	return $email;
}

#######################################################
## File Check
sub fileCheck {
	if (!-e "$workingPath/month.db") {
		my $month = &getMonth;
		open(OUT, ">$workingPath/month.db") or dienice("Can't write to month.db code 27 : $! \n");
		flock(OUT, LOCK_EX);
		seek(OUT, 0, 0);
		truncate(OUT, 0);
		print OUT $month;
		close(OUT);
	}
	if (!-e "$workingPath/prior_months.db") {
		my $year = &getYear;
		my $month = &getMonth;
		open(OUT, ">$workingPath/prior_months.db") or dienice("Can't write to prior_months.db code 28 : $! \n");
		flock(OUT, LOCK_EX);
		seek(OUT, 0, 0);
		truncate(OUT, 0);
		print OUT "$month|$year\n";
		close(OUT);
	}
	my $monthX = &getMonth;
	open(IN, "$workingPath/month.db") or dienice("Can't read month.db code 29 : $! \n");
	flock(IN, LOCK_SH);
	my $priorMonth = <IN>;
	close(IN);
	my $first = &counter("first", "0", "yes");
	if ($monthX ne $priorMonth && $first <= 0) {
		&counter("first", "+");
	}
}

#######################################################
##  Increment counter with return value
sub counter {
	my ($file, $operation, $displayOnly) = @_;
	my (@countermyfile, $keycounter);
	open(IN,"$workingPath/$file.db");
	flock(IN, LOCK_SH);
	(@countermyfile=<IN>);
	$keycounter=$countermyfile[0];
	if ($operation eq "+") {
		$keycounter++;
	} elsif ($operation eq "-") {
		$keycounter = $keycounter - 1;
	}
	close(IN);
	if ($keycounter > 99999999) {
		$keycounter=10000000;
	}
	if ($displayOnly ne "yes") {
		open(OUT,">$workingPath/$file.db");
		flock(OUT, LOCK_EX);
		seek(OUT, 0, 0);
		truncate(OUT, 0);
		print OUT $keycounter;
		close(OUT);
	}
	return $keycounter;
}

#######################################################
## Month and year check
sub checkForm {
	my $checked;
	foreach (@months) {
		if ($FORM{'month'} eq $_) {
			$checked++;
		}
	}
	if ($FORM{'year'} =~ /^[0-9]{4,4}$/) {
		$checked++;
	}
	return $checked;
}

#######################################################
## Check for valid email address
sub checkEmail {
	if ($_[0] =~ /^[0-9]*$/) {
		return(0);
	} else {
		if ($_[0] =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(\.$)/ or ($_[0] !~ /^.+\@localhost$/ && $_[0] !~ /^.+\@\[?(\w|[-.])+\.[a-zA-Z]{2,3}|[0-9]{1,3}\]?$/)) {
			return(0);
		} else {
			return(1);
		}
	}
}

#######################################################
## Cookie Time
sub cookieTime {
	srand(time);
	my @ctMonths = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
	my @days = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
	my ($sec,$min,$hr,$mday,$mon,$yr,$wday,$yday,$isdst) = gmtime(time+(86400*$cookieExpiration));
	# format must be Wed, DD-Mon-YYYY HH:MM:SS GMT
	my $timestr = sprintf("%3s, %02d-%3s-%4d %02d:%02d:%02d GMT", $days[$wday],$mday,$ctMonths[$mon],$yr+1900,$hr,$min,$sec);
	return $timestr;
}

#######################################################
## Get Date
sub getDate {
	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(time() + $hourAdjust * 60 * 60);
	$year = $year + 1900;
	my @days = qw!1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31!;
	if ($dateFormat eq 1) {
		return "$wdays[$wday-1], $months[$mon] $days[$mday-1], $year";
	} elsif ($dateFormat eq 2) {
		return "$wdays[$wday-1], $days[$mday-1] $months[$mon] $year";
	}
}

#######################################################
## Get Time
sub getTime {
	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(time() + $hourAdjust * 60 * 60);
	my $hour24 = $hour;
	my $hour12 = $hour;
	if ($hour > 12) {
		$hour12 = $hour - 12;
	}
	$hour12 = 12 if $hour12 == 0;
	my $amPm = "AM";
	if ($hour >= 12){
		$amPm = "PM";
	}
	$min = '0' x (2 - length($min)) . $min;
	$sec = '0' x (2 - length($sec)) . $sec;
	$hour24 = '0' x (2 - length($hour24)) . $hour24;
	my $time;
	if (!$_[0] && $timeFormat eq "12") {
		$time = "$hour12:$min $amPm";
	} elsif (!$_[0] && $timeFormat eq "24") {
		$time = "$hour24:$min";
	}
	if ($_[0] eq "hour12") {
		$time = $hour12;
	}
	if ($_[0] eq "hour24") {
		$time = $hour24;
	}
	if ($_[0] eq "min") {
		$time = $min;
	}
	if ($_[0] eq "ampm") {
		$time = $amPm;
	}
	return $time;
}

#######################################################
## Get Month
sub getMonth {
	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(time() + $hourAdjust * 60 * 60);
	if ($first >= 1 && $_[0]) {
		open(IN, "$workingPath/prior_months.db") or dienice("Can't read prior_months.db code 30 : $! \n");
		flock(IN, LOCK_SH);
		my @data = <IN>;
		close(IN);
		my $lastNum = scalar(@data);
		chomp($data[$lastNum - 1]);
		my @field = split(/\|/, $data[$lastNum - 1]);
		return $field[0];
	} else {
		return $months[$mon];
	}
}

#######################################################
## Get Year
sub getYear {
	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(time() + $hourAdjust * 60 * 60);
	$year = $year + 1900;
	if ($first >= 1 && $_[0]) {
		open(IN, "$workingPath/prior_months.db") or dienice("Can't read prior_months.db code 31 : $! \n");
		flock(IN, LOCK_SH);
		my @data = <IN>;
		close(IN);
		my $lastNum = scalar(@data);
		chomp($data[$lastNum - 1]);
		my @field = split(/\|/, $data[$lastNum - 1]);
		return $field[1];
	} else {
		return $year;
	}
}

#######################################################
## Returns the HTML template
sub template {
	my ($template, $request) = @_;
	my ($marker, $returnvalue, $method);
	if ($request eq "top") {
		$method = 0;
	}
	elsif ($request eq "bottom") {
		$method = 1;
	}
	open(TEMPLATE,"$template");
	flock(TEMPLATE, LOCK_SH);
	while (<TEMPLATE>) {
		if (/<!-- MainBody -->/) {
			$marker = 1;
		} else {
			if ($marker == $method) {
				$returnvalue .= "$_";
			}
		}
	}
	close(TEMPLATE);
	return $returnvalue;
}

#######################################################
## Die Nice
sub dienice {
	my ($error, $request) = @_;
	$adminEmail =~ s!\@! _AT_ !g;
	print "Content-type: text/html\n\n";
	print qq|<B>Error</B><BR>\n|;
	print qq|$error<BR>\n|;
	if ($request ne 1) {
		print qq|Please email the webmaster ($adminName) at this address: <A HREF="mailto:$adminEmail">$adminEmail</A> and include the error code number.|;
	}
	exit;
}