#!/usr/bin/perl
###############################################################
# index.cgi - AutoGuestbook_db v2.52 - released 12/16/99
#
# This script runs a guestbook on your site.
# This script by Anatoli Vichniakov - copyright 1998.
#
###############################################################
# CONFIGURATION SECTION
###############################################################

# Path to directory.
	$datapath = '/var/www/html/sc/gb';

# This is the URL version of the path above.
	$dataurl = 'http://www.shieldcam.com/gb';

# Password to access log file.
	$password = 'willchange';

# The name of database file.
# You may rename before go on public.
	$datafile = 'datafile.txt';

# This is a log file.
# You may rename before go on public.
	$log_file = 'guestlog.html';

# This is a ban list file containing IPs of banned users.
# You may rename before go on public.
	$ban_file = 'banlist.txt';

# Write to log file.
	$uselog = 'yes';

# If you want the full log set if to 'yes'.
	$fullog = 'yes';

# Maximum number of records to show on the guestbook main page.
	$max_records = 5;

# After initial testing, set this to 'yes',
# if your server allows file locking, this will reduce errors.
	$lockon = 'no';

# This is the adjustment to your displayed hour.
	$timefix = 0;

# This is the time zone of your displayed time.
	$zone = 'ET';
	
# Location of e-mail program.
	$mail_program = '/usr/sbin/sendmail';
	
# Set to 'yes', if you want to get notification via e-mail.
	$notification = 'yes';

# E-mail where to send notification.
	$sitemail = 'hanse@shieldcam.com';

# Subject that would be sent to webmaster with new posting.
	$subject_notify = 'You have new entry to Guestbook';

# Set to 'yes', if you want to send e-mail to user who posted the message.
	$remote_mail = 'no';

# Subject that would be sent to user after posting.
	$subject_mail_user = 'Automatic response from Guestbook on Amnesia.net. Here is what you posted in our Guestbook.';

# First(main) page template file.
	$guestbook_template = 'template/guestbook.txt';

# Add record template file.
	$adrecord_template = 'template/adrecord.txt';

# Format message template file.
	$message_template = 'template/message.txt';

# Preview template file
	$preview_template = 'template/prrecord.txt';

# Edit message template file.
	$remtext_template = 'template/remtext.txt';

# Search template file.
	$search_template = 'template/search.txt';

# This is the name of template file containing the page for banned guests.
	$exitban_template = 'template/exitban.txt';

################## guestbook archive service ###################

# A number of records to show on the archive page.
	$records_archive = 9999;

# Archive page template file.
	$archive_template = 'template/archive.txt';

################### guestbook e-mail service ####################

# Set to 'yes' if you want to enable e-mail service.
	$mail_service = 'yes';

# Subject in the e-mail form.
	$subject = 'Everyday Demo guestbook e-mail service at Amnesia.net';

# Time interval between e-mail sendings(sec.*min.*hours*days).
	$mail_time = 60*60*24;

# Mail List Service config file.
	$mailservice = 'mservice.txt';

# This is a file containing users e-mail addresses.
# You may rename before go on public.
	$mail_list = 'maillist.txt';

# E-mail subject template file.
	$mail_subject = 'template/mailsubj.txt';

# E-mail list body template file.
	$mailrec_template = 'template/mailrec.txt';

# If no function entry template file.
	$no_function_template = 'template/noregfun.txt';

# If no name or e-mail entry template file.
	$no_register_template = 'template/noregist.txt';

# Successful addition to mailing list template file.
	$add_to_list = 'template/adtolist.txt';

# Successful addition to mailing list html template file.
	$add_user = 'template/useraded.txt';

# Successful removal from mailing list template file.
	$remove_from_list = 'template/remvlist.txt';

# Successful removal from mailing list html template file.
	$remove_user = 'template/userremv.txt';
	
# END OF CONFIGURATION.
###############################################################
# OPTIONS SECTION

# The program can create backup copy of database file every time
# e-mail list service runs. For this option you need e-mail service enabled.

# Do you want backup? ('yes', 'no')
	$backup = 'yes';
	
# The name of backup file.
	$backupfile = 'datafile.bak';

# This is the list of naughty words, and what you want to convert them to.
	%badwords = (fuck => 'hug', shit => 'pudding', pecker => 'puppy', asshole => 'angel', bitch => 'nice person', cunt => 'stop watch', ' cock' => ' earlobe', 'cock!' => 'socks!', cocksucker => 'sweetheart', pussy => 'portable wishwasher', ' tit' => ' toe');


################ define additional variables ##################

# Body tag config
	$bodytag='<body bgcolor=#FFFFFF link=#0000FF vlink=#000082 alink=#DD0082>';

# END OF OPTIONS SECTION
# You do not need to change anything below.
###############################################################

# Load the CGI.pm module into the program
use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);
 
$q = new CGI;

# Set variables for flock function
	$EXCLUSIVE = 2;
	$UNLOCK    = 8;

# Get the Date for Entry

	$now_string = localtime;
	@thetime = split(/ +/,$now_string);
	@theclock = split(/:/,$thetime[3]);
	$hour = $theclock[0];
	$hour += $timefix;
	$hour -= 24 if ($hour >= 24);
	$hour += 24 if ($hour < 0);
	$xm = ($hour > 11) ? 'pm' : 'am';
	$hour = 12 if ($hour == 0);
	$hour -= 12 if ($hour > 12);

	$date_local = "$thetime[0] $thetime[1] $thetime[2] $hour:$theclock[1]$xm $zone";


###############################################################
# Get the info from the calling Web page and store the
# results in the appropriate variables
###############################################################

$action     = $q->param(action);
$post       = $q->param(post);
$preview    = $q->param(preview);
$realname   = $q->param(realname);
$realname = '' unless ($realname);
$user_email = $q->param(user_email);
$user_email = '' unless ($user_email);
$user_email = '' unless ($user_email =~ /.*\@.*\..*/);
$open = '<';
$open = '' unless ($user_email);
$close = '>';
$close = '' unless ($user_email);
$comments   = $q->param(comments);
$comments = '' unless ($comments);
$comments =~ s/\cM//g;
$comments =~ s/\n\n/<p>/g;
$comments =~ s/\n/<br>/g;

# Censor bad words
for(keys(%badwords)){
	$realname =~ s/$_/$badwords{$_}/gi;
}
for(keys(%badwords)){
	$user_email =~ s/$_/$badwords{$_}/gi;
}
for(keys(%badwords)){
	$comments =~ s/$_/$badwords{$_}/gi;
}

###############################################################
# Check what task to execute and proceed
###############################################################

# First of all check if guest is not in the ban list.
&check_ban;
	
if($preview) {

# Log the error.
&log('no_name') if (($uselog eq 'yes') and (!$realname));

# Check if username exists.
&add_record("(You did not enter your <font color=red>Name</font>.)", "realname") unless ($realname);

# Log the error.
&log('no_comments') if (($uselog eq 'yes') and (!$comments));

# Check if user email exists.
&add_record("(You did not enter your <font color=red>Text</font>.)", "comments") unless ($comments);

# Preview the message.
&preview;

# Log the preview.
&log('preview') if (($uselog eq 'yes') and ($fullog eq 'yes'));

exit;
}

if($post) {
	# Check if admin loging in.
	# Log the admin access.
	&log('admin_log') if (($uselog eq 'yes') and ($fullog eq 'yes') and ($realname eq $password));
	&admin if ($realname eq $password);

	# Log the error.
	&log('no_name') if (($uselog eq 'yes') and (!$realname));

	# Check if username exists.
	&add_record("(You did not enter your <font color=red>Name</font>.)", "realname") unless ($realname);

	# Log the error.
	&log('no_comments') if (($uselog eq 'yes') and (!$comments));

	# Check if user email exists.
	&add_record("(You did not enter your <font color=red>Text</font>.)", "comments") unless ($comments);

	# Preview the message.
	&post;
	
	# Remove tags.
   	$realname =~ s/<.*?>//g;
   	$comments =~ s/<.*?>//g;

	# Notify webmaster.
	&mail_webmaster if ($notification eq 'yes');
	
	# Send e-mail to user.
	&mail_user if (($remote_mail eq 'yes') and ($user_email));
	
	# Log the new entry.
	&log('entry') if ($uselog eq 'yes');

	# Return to the main page.
	print "Location: $dataurl/index.html\n\n";
	exit;
}

elsif($action =~ /add_record/i){
	# Add the record to database.
	&add_record("(Do not forget to enter your Name and your text.)", "realname");
}

elsif($action =~ /edit_text/i){
	$num_message = $q->param(num_message);
	# Admin functions to edit and delete current record.
	&edit_text;

	exit;
}

elsif($action =~ /search_form/i){
	# Get the number of pages in the archive(and open database).
	&pages_in_archive;
	# Load the search form.
	&search_form;

	# Log the search page was loaded.
	&log('load_search') if (($uselog eq 'yes') and ($fullog eq 'yes'));

	exit;
}

elsif($action =~ /search_database/i){
	# Get the number of pages in the archive(and open database).
	&pages_in_archive;
	# Search function.
	$search_for   = $q->param('search_for');
	$search_field = $q->param('search_field');
	$search_for = "\." if $search_for eq "";
	
	&search_database($search_for);
	
	$count = @results;
	if($count < 1) {
		&no_match;
	} else {
		&multiple_match;
	}
	
	exit;
}

elsif($action =~ /remove_text/i){
	$pwd          = $q->param('pwd');
	# Log the access denied.
	&log('access_denied') if (($uselog eq 'yes') and ($pwd ne $password));
	&access_denied unless ($pwd eq $password);

	$search_for   = $q->param('num_message');
	$search_field = 'counter';
	
	&search_database($search_for);
	&delete_record;

	# Log the delete entry.
	&log('delete') if ($uselog eq 'yes');

	exit;
}

elsif($action =~ /modify_record/i){
	$pwd         = $q->param('pwd');
	# Log the access denied.
	&log('access_denied') if (($uselog eq 'yes') and ($pwd ne $password));
	&access_denied unless ($pwd eq $password);

	$num_message = $q->param('num_message');

	&modify_record;

	# Log the edit entry.
	&log('edit') if ($uselog eq 'yes');

	exit;
}

elsif($action =~ /archive/i){
	# Load archive.
	$page = $q->param('page');
	$page = 0 unless ($page);
	&archive($page);

	# Log the archive was loaded.
	&log('load_archive') if (($uselog eq 'yes') and ($fullog eq 'yes'));

	exit;
}

elsif($action =~ /addremove/i){
	# Subscribe and unsubscribe to mailing list.
	if ($mail_service eq 'yes') {
		$addremove_choice = $q->param('addremove_choice');
		$name             = $q->param('name');
		$email            = $q->param('email');
		# Check for valid e-mail address.
		$email = '' unless ($email =~ /.*\@.*\..*/);

		# Log the no_register_what.
		&log('no_register_what') if (($uselog eq 'yes') and (!$addremove_choice) and ($fullog eq 'yes'));
		&no_register_what unless $addremove_choice;
		# Log the no name for register.
		&log('no_register') if (($uselog eq 'yes') and (!$name) and ($fullog eq 'yes'));
		&no_register unless $name;
		# Log the no email for register.
		&log('no_register') if (($uselog eq 'yes') and (!$email) and ($fullog eq 'yes'));
		&no_register unless $email;
		&add_remove;
	} else {
		&no_mail_service;

		# Log the no_mail_service.
		&log('no_mail_service') if (($uselog eq 'yes') and ($fullog eq 'yes'));

		exit;
	}
}

elsif($action =~ /view_log/i){
	# View log file.
	&view_log;
	exit;
}

elsif($action =~ /clear_log/i){
	# Clear log file.
	&clear_log;
	exit;
}

elsif($action =~ /view_ban_list/i){
	# View ban file.
	&view_ban_list;
	exit;
}

elsif($action =~ /update_ban_list/i){
	# Update ban file.
	$banlist = $q->param('banlist');
	&update_ban_list;
	exit;
}

elsif($action =~ /view_mail_list/i){
	# View mail file.
	&view_mail_list;
	exit;
}

elsif($action =~ /update_mail_list/i){
	# Update mail file.
	$maillist = $q->param('maillist');
	&update_mail_list;
	exit;
}

elsif($action =~ /ban_current/i){
	# Ban oner of current message.
	$pwd        = $q->param('pwd');
	# Log the access denied.
	&log('access_denied') if (($uselog eq 'yes') and ($pwd ne $password));
	&access_denied unless ($pwd eq $password);
	
	$current_ip = $q->param('current_ip');
	&ban_current_user;

	# Log a user was banned.
	&log('banned') if (($uselog eq 'yes') and ($fullog eq 'yes'));

	exit;
}

elsif($action =~ /modify_database/i){
	# Modify database file.
	$database_size = $q->param('database_size');
	# Open database file.
	&open_database;
	# Leave one line if request is higher or equal to number of records.
	if ($database_size >= $num_lines) {
		$database_size = $num_lines;
	}
	elsif ($database_size <= 0) {
		$database_size = 0;
	}
	&do_modify_database;
	&admin;
	exit;
}

# Print the default page.
else {
	# Check if it is a time to send mail list.
	&mailservice if ($mail_service eq 'yes');
	
	# Check if a database file is not empty(server error).
	$database_backup = $datapath."/".$backupfile;
	&check_database if (($mail_service eq 'yes') and (-e $database_backup));
	
	# Check the time-line.
	&send_maillist if (($time_to_mail < $^T) and ($mail_service eq 'yes'));
	&do_backup if (($time_to_mail < $^T) and ($mail_service eq 'yes') and ($backup eq 'yes'));
	
	# Get the number of pages in the archive(and open database).
	&pages_in_archive;
	&print_default;
	# Log the visit.
	&log('visit') if (($uselog eq 'yes') and ($fullog eq 'yes'));
	exit;
}
 
exit;

###############################################################
# Subroutines
###############################################################

###############################################################
# Load the default page
###############################################################

sub print_default {

# Open template file.
&open_template($guestbook_template);

# Print the header of HTML file.
print $q->header;

# Write the line of HTML file.
foreach $line (@lines){

	$line =~ s/\*add_record\*/$ENV{'SCRIPT_NAME'}\?action=add_record/g;
	$line =~ s/\*search\*/$ENV{'SCRIPT_NAME'}\?action=search_form/g;
	$line =~ s/\*load_archive\*/$ENV{'SCRIPT_NAME'}\?action=archive&page=$pages_archive/g;
	$line =~ s/\*path\*/$dataurl/g;

	print "$line\n";
} # End of foreach.

# Limit the $max_records if not acceptable.
if ($max_records > $num_lines) {$max_records = $num_lines}

# Print all messages from database.
for ($i = 0; $i < $max_records; $i++) {
	foreach $stuff (@data[$i]) {
		chomp($stuff);
		($msg_counter[$i], $current_name[$i], $current_email[$i], $current_date[$i], $current_time[$i], $current_ip[$i], $current_comments[$i]) = split(/\|/,$stuff);

		# Open template file to format the message.
		open(DATA, "$datapath/$message_template") or die "Error opening message_template: $!\n";
		@data_template = <DATA>;
		close(DATA);
		chomp(@data_template);

		# Format the message.
		foreach $data_template (@data_template){

			$data_template =~ s/\*path\*/$dataurl/g;
			$data_template =~ s/\*number\*/$msg_counter[$i]/g;
			$data_template =~ s/\*realname\*/$current_name[$i]/g;

			if($current_email[$i]) {
				$data_template =~ s/\*user_email\*/$current_email[$i]/g;
				$data_template =~ s/\*open\*/</g;
				$data_template =~ s/\*close\*/>/g;
			} # End of if.
			else {
				$data_template =~ s/\*user_email\*//g;
				$data_template =~ s/\*open\*//g;
				$data_template =~ s/\*close\*//g;
			} # End of else.

			$data_template =~ s/\*admin_function\*/$ENV{'SCRIPT_NAME'}\?action=edit_text/g;
			$data_template =~ s/\*date_local\*/$current_date[$i]/g;
			$data_template =~ s/\*comments\*/$current_comments[$i]/g;

			print "$data_template\n";
		} # End of foreach.
	} # End of foreach.
} # End of for.

# Print the end of HTML file.
print $q->end_html;

} # End of subroutine.


###############################################################
# Load guestbook add record page
###############################################################

sub add_record {

# Displayed text.
$warning = $_[0];
# Field to set the focus on.
$field   = $_[1];

# Open template file.
&open_template($adrecord_template);

# Print the header of HTML file.
print $q->header;

foreach $line (@lines){

	$line =~ s/\*warning\*/$warning/g;
	$line =~ s/\*program\*/$ENV{'SCRIPT_NAME'}/g;
	$line =~ s/\*field\*/$field/g;
	$line =~ s/\*path\*/$dataurl/g;
	$line =~ s/\*realname\*/$realname/g;
	$line =~ s/\*user_email\*/$user_email/g;
	$line =~ s/\*comments\*/$comments/g;

	print "$line\n";
} # End of foreach.

# Print the end of HTML file.
print $q->end_html;

exit;
} # End of subroutine.


###############################################################
# Load guestbook preview page
###############################################################

sub preview {

# Open template file.
&open_template($preview_template);

# Print the header of HTML file.
print $q->header;

foreach $line (@lines){

	$line =~ s/\*program\*/$ENV{'SCRIPT_NAME'}/g;
	$line =~ s/\*path\*/$dataurl/g;
	$line =~ s/\*date_local\*/$date_local/g;
	$line =~ s/\*realname\*/$realname/g;
	$line =~ s/\*user_email\*/$user_email/g;
	$line =~ s/\*comments\*/$comments/g;
	$line =~ s/\*open\*/$open/g;
	$line =~ s/\*close\*/$close/g;

	print "$line\n";
} # End of foreach.

# Print the end of HTML file.
print $q->end_html;

} # End of subroutine.


###############################################################
# Load guestbook add record page
###############################################################

sub post {

# Get user address.
$remotehost = $ENV{'REMOTE_HOST'};
$remotehost = $ENV{'REMOTE_ADDR'} unless $remotehost;
	
# Open database file.
&open_database;

# Find the last $msg_counter and increment it for the next record.
# The number of the last record.
$i = 0;
($msg_counter) = split(/\|/,@data[$i]);

$counter = $msg_counter + 1;
$record = join '|', $counter,$realname,$user_email,$date_local,$^T,$remotehost,$comments;

# Open database file for append.
open (DB,">>$datapath/$datafile") or die "Error opening datafile: $!\n";
	if ($lockon eq 'yes'){flock DB, $EXCLUSIVE};
    seek DB, 0, 2;
    print DB "$record\n";
	if ($lockon eq 'yes'){flock DB, $UNLOCK};
close(DB);

} # End of subroutine.


###############################################################
# Search function
###############################################################

sub search_form {

# Open template file.
&open_template($search_template);

# Print the header of HTML file.
print $q->header;

# Message responce.
$message = 'Type a keyword you want to search for,<br>choose the category and press the search button.';
# Write the line of HTML file.
foreach $line (@lines){

	$line =~ s/\*add_record\*/$ENV{'SCRIPT_NAME'}\?action=add_record/g;
	$line =~ s/\*search\*/$ENV{'SCRIPT_NAME'}\?action=search_form/g;
	$line =~ s/\*load_archive\*/$ENV{'SCRIPT_NAME'}\?action=archive&page=$pages_archive/g;
	$line =~ s/\*path\*/$dataurl/g;
	$line =~ s/\*program\*/$ENV{'SCRIPT_NAME'}/g;
	$line =~ s/\*message\*/$message/g;
	$line =~ s/\*search_for\*//g;
	$line =~ s/\*all_checked\*/checked/g;
	$line =~ s/\*name_checked\*//g;
	$line =~ s/\*email_checked\*//g;
	$line =~ s/\*num_checked\*//g;
	$line =~ s/\*msg_checked\*//g;

	print "$line\n";
} # End of foreach.

# Print the end of HTML file.
print $q->end_html;

} # End of subroutine.


###############################################################
# Search function
###############################################################

sub search_database{

my $search_for = $_[0];

open(DB, "$datapath/$datafile") or die "Error opening datafile: $!\n";
while(<DB>){
	if($search_field eq "all"){
		if(/$search_for/oi){push @results, $_};
	} else {
		($counter,$realname,$user_email,$date_local,$time_local,$user_ip,$comments)=split(/\|/);
		if(${$search_field} =~ /$search_for/oi){push @results, $_};
	} # End of else.
} # End of while.
close (DB);

# Reverse array to show last messages on the top.
@results = reverse(@results);

} # End of subroutine.


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

sub multiple_match{

# Open template file.
&open_template($search_template);

# Print the header of HTML file.
print $q->header;

# Message responce.
$message = 'You searched for: <b>'.$search_for.'</b>. '.$count.' matches are found.';
# Write the line of HTML file.
foreach $line (@lines){

	$line =~ s/\*add_record\*/$ENV{'SCRIPT_NAME'}\?action=add_record/g;
	$line =~ s/\*search\*/$ENV{'SCRIPT_NAME'}\?action=search_form/g;
	$line =~ s/\*load_archive\*/$ENV{'SCRIPT_NAME'}\?action=archive&page=$pages_archive/g;
	$line =~ s/\*path\*/$dataurl/g;
	$line =~ s/\*program\*/$ENV{'SCRIPT_NAME'}/g;
	$line =~ s/\*message\*/$message/g;
	$line =~ s/\*search_for\*/$search_for/g;

	# Set default on the radio button.
	if ($search_field eq 'all') {
		$line =~ s/\*all_checked\*/checked/g;
	} else {
		$line =~ s/\*all_checked\*//g;
	}
	if ($search_field eq 'realname') {
		$line =~ s/\*name_checked\*/checked/g;
	} else {
		$line =~ s/\*name_checked\*//g;
	}
	if ($search_field eq 'user_email') {
		$line =~ s/\*email_checked\*/checked/g;
	} else {
		$line =~ s/\*email_checked\*//g;
	}
	if ($search_field eq 'counter') {
		$line =~ s/\*num_checked\*/checked/g;
	} else {
		$line =~ s/\*num_checked\*//g;
	}
	if ($search_field eq 'comments') {
		$line =~ s/\*msg_checked\*/checked/g;
	} else {
		$line =~ s/\*msg_checked\*//g;
	}

	print "$line\n";
} # End of foreach.

# A number of lines
$found_records = $#results + 1;

# Print found messages from database.
for ($i = 0; $i < $found_records; $i++) {
	foreach $stuff (@results[$i]) {
		chomp($stuff);
		($msg_counter[$i], $current_name[$i], $current_email[$i], $current_date[$i], $current_time[$i], $current_ip[$i], $current_comments[$i]) = split(/\|/,$stuff);

		# Open template file to format the message.
		open(DATA, "$datapath/$message_template") or die "Error opening message_template: $!\n";
		@data_template = <DATA>;
		close(DATA);
		chomp(@data_template);

		# Format the message.
		foreach $data_template (@data_template){

			$data_template =~ s/\*path\*/$dataurl/g;
			$data_template =~ s/\*number\*/$msg_counter[$i]/g;
			$data_template =~ s/\*realname\*/$current_name[$i]/g;

			if($current_email[$i]) {
				$data_template =~ s/\*user_email\*/$current_email[$i]/g;
				$data_template =~ s/\*open\*/</g;
				$data_template =~ s/\*close\*/>/g;
			} # End of if.
			else {
				$data_template =~ s/\*user_email\*//g;
				$data_template =~ s/\*open\*//g;
				$data_template =~ s/\*close\*//g;
			} # End of else.

			$data_template =~ s/\*admin_function\*/$ENV{'SCRIPT_NAME'}\?action=edit_text/g;
			$data_template =~ s/\*date_local\*/$current_date[$i]/g;
			$data_template =~ s/\*comments\*/$current_comments[$i]/g;

			print "$data_template\n";
		} # End of foreach.
	} # End of foreach.
} # End of for.

# Print the end of HTML file.
print $q->end_html;

} # End of subroutine.


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

sub no_match{

# Open template file.
&open_template($search_template);

# Print the header of HTML file.
print $q->header;

# Message responce.
$message = 'There were no matches for: <i>'.$search_for.'</i>. Please try again.';
# Write the line of HTML file.
foreach $line (@lines){

	$line =~ s/\*add_record\*/$ENV{'SCRIPT_NAME'}\?action=add_record/g;
	$line =~ s/\*search\*/$ENV{'SCRIPT_NAME'}\?action=search_form/g;
	$line =~ s/\*load_archive\*/$ENV{'SCRIPT_NAME'}\?action=archive&page=$pages_archive/g;
	$line =~ s/\*path\*/$dataurl/g;
	$line =~ s/\*program\*/$ENV{'SCRIPT_NAME'}/g;
	$line =~ s/\*message\*/$message/g;
	$line =~ s/\*search_for\*/$search_for/g;

	# Set default on the radio button.
	if ($search_field eq 'all') {
		$line =~ s/\*all_checked\*/checked/g;
	} else {
		$line =~ s/\*all_checked\*//g;
	}
	if ($search_field eq 'realname') {
		$line =~ s/\*name_checked\*/checked/g;
	} else {
		$line =~ s/\*name_checked\*//g;
	}
	if ($search_field eq 'user_email') {
		$line =~ s/\*email_checked\*/checked/g;
	} else {
		$line =~ s/\*email_checked\*//g;
	}
	if ($search_field eq 'counter') {
		$line =~ s/\*num_checked\*/checked/g;
	} else {
		$line =~ s/\*num_checked\*//g;
	}
	if ($search_field eq 'comments') {
		$line =~ s/\*msg_checked\*/checked/g;
	} else {
		$line =~ s/\*msg_checked\*//g;
	}

	print "$line\n";
} # End of foreach.

# Print the end of HTML file.
print $q->end_html;

} # End of subroutine.


###############################################################
# Edit and delete current record
###############################################################

sub edit_text {

# Open template file.
&open_template($remtext_template);

# Print the header of HTML file.
print $q->header;

# Write the line of HTML file.
foreach $line (@lines){
	$line =~ s/\*path\*/$dataurl/g;
	print "$line\n";
} # End of foreach.

open(DB, "$datapath/$datafile") or die "Error opening datafile: $!\n";
while(<DB>){
	($msg_counter,$current_name,$current_email,$current_date,$current_time,$current_ip,$current_comments)=split(/\|/);
	# Find the match.
	if($msg_counter =~ /$num_message/oi){
		# Open template file to format the message.
		open(DATA, "$datapath/$message_template");
		@data_template = <DATA>;
		close(DATA);
		chomp(@data_template);

		# Format the message.
		foreach $data_template (@data_template){

			$data_template =~ s/\*path\*/$dataurl/g;
			$data_template =~ s/\*number\*/$msg_counter/g;
			$data_template =~ s/\*realname\*/$current_name/g;

			if($current_email) {
				$data_template =~ s/\*user_email\*/$current_email/g;
				$data_template =~ s/\*open\*/</g;
				$data_template =~ s/\*close\*/>/g;
			} # End of if.
			else {
				$data_template =~ s/\*user_email\*//g;
				$data_template =~ s/\*open\*//g;
				$data_template =~ s/\*close\*//g;
			} # End of else.

			$data_template =~ s/\*admin_function\*/$ENV{'SCRIPT_NAME'}/g;
			$data_template =~ s/\*date_local\*/$current_date/g;
			$data_template =~ s/\*comments\*/$current_comments/g;

			print "$data_template\n";
		} # End of foreach.
	last;
	} # End of if.
} # End of while.

# Print the form.
print "<p><blockquote>\n";

print "<table width=75\% cellpadding=10><tr><td>\n";
print "<form>\n";
print "Do you want to delete this message\?<br>\n";
print "<input type=text name=pwd value=\"Enter password\" size=20 onMouseOver=\"this.focus()\" onFocus=\"this.select()\">\n";
print "<input type=hidden name=action value=\"remove_text\">\n";
print "<input type=hidden name=num_message value=\"$num_message\">\n";
print "<small><input type=submit value=\"Delete this message\"</small>\n";
print "</form>\n";
print "</td></tr>\n";

# Print the form with the selected message in the textarea.
print "<tr><td>\n";
print "<form>\n";
print "You can edit this message.<br>\n";
print "<textarea name=comments wrap=virtual rows=10 cols=65>";
# Print the selected message.
chomp ($current_comments);
print "$current_comments\n";
print "</textarea><br>\n";
print "<input type=text name=pwd value=\"Enter password\" size=20 onMouseOver=\"this.focus()\" onFocus=\"this.select()\">\n";
print "<input type=hidden name=action value=\"modify_record\">\n";
print "<input type=hidden name=num_message value=\"$msg_counter\">\n";
print "<small><input type=submit value=\"Edit this message\"</small>\n";
print "</form>\n";
print "</td></tr>\n";

# Print the form with ban user function.
print "<tr><td>\n";
print "<form>\n";
print "<input type=text name=pwd value=\"Enter password\" size=20 onMouseOver=\"this.focus()\" onFocus=\"this.select()\">\n";
print "<input type=hidden name=action value=\"ban_current\">\n";
print "<input type=hidden name=current_ip value=\"$current_ip\">\n";
print "<small><input type=submit value=\"Ban the author of this message\"</small>\n";
print "</form>\n";
print "</td></tr>\n";
print "</table>\n";
print "</blockquote>\n";

# Print the end of HTML file.
print $q->end_html;

} # End of subroutine.


###############################################################
# Delete the record
###############################################################

sub delete_record {

# The name of database file.
$tempfile = 'datafile.tmp';
$tempfile = $datapath."/".$tempfile;

$database = $datapath."/".$datafile;
system "cp $database $tempfile";

open(DB, $database) or die "Error opening database: $!\n";
open (TEMP, ">$tempfile") or die "Error opening tempfile(delete record): $!\n";
if ($lockon eq 'yes'){flock TEMP, $EXCLUSIVE};

while(<DB>){
	$match="";
	($msg_counter,$current_name,$current_email,$current_date,$current_time,$current_ip,$current_comments)=split(/\|/);
	if($msg_counter == $search_for){$match=1;}
	print TEMP $_ unless ($match == 1);
} # End of while loop.

close(TEMP);
close(DB);

if ($lockon eq 'yes'){flock DB, $EXCLUSIVE};
unlink($database);
rename($tempfile,$database);
if ($lockon eq 'yes'){flock DB, $UNLOCK};
if ($lockon eq 'yes'){flock TEMP, $UNLOCK};

# Print the header of HTML file.
print $q->header;
print "<html><head><title>The Message was deleted.</title></head>$bodytag\n";
print "<p>\&nbsp;</p><center>";
print "The Message was deleted.<br>";
print "<a href=\"$ENV{'SCRIPT_NAME'}\">Back to Guestbook</a>";
print "</center>";
# Print the end of HTML file.
print $q->end_html;

} # End of subroutine.


###############################################################
# Modify the record
###############################################################

sub modify_record {

# The name of database file.
$tempfile = 'datafile.tmp';
$tempfile = $datapath."/".$tempfile;

$database = $datapath."/".$datafile;
system "cp $database $tempfile";

open(DB, $database) or die "Error opening database: $!\n";
open (TEMP, ">$tempfile") or die "Error opening tempfile(modify record): $!\n";
if ($lockon eq 'yes'){flock TEMP, $EXCLUSIVE};

while(<DB>){
	$match="";
	($msg_counter,$current_name,$current_email,$current_date,$current_time,$current_ip,$current_comments)=split(/\|/);
	if($msg_counter == $num_message) {
		$record = join '|', $num_message,$current_name,$current_email,$current_date,$current_time,$current_ip,$comments;
		print TEMP "$record\n";
	} else {
		print TEMP $_;
	} # End of if.
} # End of while loop.


close(TEMP);
close(DB);

if ($lockon eq 'yes'){flock DB, $EXCLUSIVE};
unlink($database);
rename($tempfile,$database);
if ($lockon eq 'yes'){flock DB, $UNLOCK};
if ($lockon eq 'yes'){flock TEMP, $UNLOCK};

# Print the header of HTML file.
print $q->header;
print "<html><head><title>The Message was modified.</title></head>$bodytag\n";
print "<p>\&nbsp;</p><center>";
print "The Message was modified.<br>";
print "<a href=\"$ENV{'SCRIPT_NAME'}\">Back to Guestbook</a>";
print "</center>";
# Print the end of HTML file.
print $q->end_html;

} # End of subroutine.


###############################################################
# Modify the record
###############################################################

sub access_denied {

print "Content-type: text/html\n\n";
print "<html><head><title>ACCESS DENIED.</title></head>$bodytag\n";
print "<p>\&nbsp;</p><center>";
print "The Password is wrong. You do not have access to this function.<br>";
print "<a href=\"$ENV{'SCRIPT_NAME'}\">Back to Guestbook</a>";
print "</center>";
print '</body></html>';
exit;

} # End of subroutine.


###############################################################
# Archive function
###############################################################

sub archive {

# Get requested page number.
$page = $_[0];

# Open template file.
&open_template($archive_template);

# Get the number of pages in the archive(and open database).
&pages_in_archive;

# Check if requested page exists.
if ($page > $pages_archive) {
	$page = 0;
	&archive($page);
	exit;
}

# Print the header of HTML file.
print $q->header;

# Write the line of HTML file.
foreach $line (@lines){
	$line =~ s/\*path\*/$dataurl/g;
	$line =~ s/\*counter\*/$pages_archive/g;
	$line =~ s/\*page\*/$page/g;
	$line =~ s/\*program\*/$ENV{'SCRIPT_NAME'}/g;
	print "$line\n";
} # End of foreach.

@data = reverse(@data);

# First record on this page.
$first_record = ($page - 1) * $records_archive - 1;
# Last record on this page.
$last_record = $first_record + $records_archive;
# Check the limit.
$last_record = ($num_lines - $max_records - 1) if ($last_record > ($num_lines - $max_records - 1));

if ($page ne 0) {
	# Load messages.
	# Print selected messages from the database.
	for ($i = $last_record; $i > $first_record; $i--) {
		foreach $stuff (@data[$i]) {
			chomp($stuff);
			($msg_counter[$i], $current_name[$i], $current_email[$i], $current_date[$i], $current_time[$i], $current_ip[$i], $current_comments[$i]) = split(/\|/,$stuff);

			# Open template file to format the message.
			open(DATA, "$datapath/$message_template") or die "Error opening message_template: $!\n";
			@data_template = <DATA>;
			close(DATA);
			chomp(@data_template);
	
			# Format the message.
			foreach $data_template (@data_template){
	
				$data_template =~ s/\*path\*/$dataurl/g;
				$data_template =~ s/\*number\*/$msg_counter[$i]/g;
				$data_template =~ s/\*realname\*/$current_name[$i]/g;
	
				if($current_email[$i]) {
					$data_template =~ s/\*user_email\*/$current_email[$i]/g;
					$data_template =~ s/\*open\*/</g;
					$data_template =~ s/\*close\*/>/g;
				} # End of if.
				else {
					$data_template =~ s/\*user_email\*//g;
					$data_template =~ s/\*open\*//g;
					$data_template =~ s/\*close\*//g;
				} # End of else.
	
				$data_template =~ s/\*admin_function\*/$ENV{'SCRIPT_NAME'}\?action=edit_text/g;
				$data_template =~ s/\*date_local\*/$current_date[$i]/g;
				$data_template =~ s/\*comments\*/$current_comments[$i]/g;
	
				print "$data_template\n";
			} # End of foreach.
		} # End of foreach.
	} # End of for.
	# Print the end of page.
} # End of if.
print<<HTML;

<blockquote>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<small><font color=#999999>Copyright &copy; <a href="http://www.amnesia.net">Amnesia.net</a>, 1999.<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;All Rights Reserved. </font></small>
</blockquote>
HTML

# Print the end of HTML file.
print $q->end_html;

} # End of subroutine.



###############################################################
# Notify webmaster
###############################################################

sub mail_webmaster {

# Get user address.
$remotehost = $ENV{'REMOTE_HOST'};
$remotehost = $ENV{'REMOTE_ADDR'} unless $remotehost;

open (MAIL, "|$mail_program $sitemail") || die "Can't open $mail_program!\n";
print MAIL "Subject: $subject_notify\n";
print MAIL "To: $sitename < $sitemail >\n";
print MAIL "From: $sitename < $sitemail >\n";

print MAIL "$subject_notify\n";
print MAIL "_____________________________________________________\n";
print MAIL "$realname" ;
print MAIL " <$user_email>\n";
print MAIL "$comments\n";
print MAIL "$date_local\n";
print MAIL "$remotehost\n";

close (MAIL);
return;
}


###############################################################
# Send e-mail to user
###############################################################

sub mail_user {

open (MAIL, "|$mail_program $user_email") || die "Can't open $mail_program!\n";
print MAIL "Subject: $subject_mail_user\n";
print MAIL "To: $realname < $user_email >\n";
print MAIL "From: $sitename < $sitemail >\n";

print MAIL "$subject_mail_user\n";
print MAIL "_____________________________________________________\n";
print MAIL "$realname" ;
print MAIL " <$user_email>\n";
print MAIL "$comments\n";
print MAIL "$date_local\n";

close (MAIL);
return;
}


###############################################################
# A number of pages in the archive

sub pages_in_archive {

# Open database file.
&open_database;

# Count pages according to a number of records in the archive.
# and a number of records to show on the archive page.
# A number of records in the archive.
$archive_records = $num_lines - $max_records;
# Get the number of pages in archive.
$arl = ($archive_records/$records_archive);
$aint = int ($archive_records/$records_archive);
# Adjust a number of pages.
if ($arl > $aint) {
	$pages_archive = $aint + 1;
} else {
	$pages_archive = $aint;
}
return;

} # End of subroutine.


###############################################################
# Open template file Sub
###############################################################

sub open_template {

$file = $_[0];

open(TEMPLATE, "$datapath/$file") or die "Error opening $file: $!\n";
@lines = <TEMPLATE>;
close(TEMPLATE);
chomp(@lines);

} # End of subroutine.

###############################################################
# Open database file Sub
###############################################################

sub open_database {

open(DB, "$datapath/$datafile") or die "Error opening datafile: $!\n";
if ($lockon eq 'yes'){flock DB, $EXCLUSIVE};
@data = <DB>;
if ($lockon eq 'yes'){flock DB, $UNLOCK};
close(DB);
chomp(@data);
@data = reverse(@data);
# A number of lines
$num_lines = $#data + 1;

} # End of subroutine.


###############################################################
# Mail List Service Sub
###############################################################

sub mailservice {

# Check if it is a time to send the List.
open(MT, "$datapath/$mailservice") or die "Error opening mailservice: $!\n";
$mail_record = <MT>;
close(MT);

# Time to mail.
$time_to_mail = $mail_record + $mail_time;

} # End of subroutine.


###############################################################
# Send Mail List Service Sub
###############################################################

sub send_maillist {

# Open database file.
&open_database;

# Search database for new messages and create array with new records.
for ($i = 0; $i < $num_lines; $i++) {
	foreach $data (@data[$i]) {
		chomp ($data);
		($counter[$i],$realname[$i],$user_email[$i],$date_local[$i],$time_local[$i],$user_ip[$i],$comments[$i])=split(/\|/,$data);
		if($time_local[$i] >= $mail_record){
			# Fill array.
			push @results, $data;
		} else {
			last;
		} # End of if.
	} # End of foreach.
} # End of for.

# Check if there is anything to send.
$list_msg = @results;
# Send e-mail.
if($list_msg > 0) {
	
	# Open template file to print the subject of the message.
	&open_template($mail_subject);
	
	# Send e-mail.
	open(ML, "$datapath/$mail_list") or die "Error opening mail list file: $!\n";
	
	while(<ML>){
		($recipient,$name)=split(/\|/);
		# Check if it is valid e-mail address.
		if ($recipient =~ /.*\@.*\..*/) {
			# Send e-mail.
			open (MAIL, "|$mail_program $recipient") || die "Can't open $mail_program!\n";
			print MAIL "Subject: $subject\n";
			print MAIL "To: $name < $recipient >\n";
			print MAIL "From: $sitename < $sitemail >\n";
			# Print the subject of this e-mail.
			foreach $mail_subject (@mail_subjects){
				$mail_subject =~ s/\*name\*/$name/g;
				$mail_subject =~ s/\*date_local\*/$date_local/g;
				$mail_subject =~ s/\*sitename\*/$sitename/g;
				print MAIL "$mail_subject\n";
			} # End of foreach.
			# Print E-Mail List messages.
			foreach $result (@results) {
				chomp ($result);
				($msg_counter,$current_name,$current_email,$current_date,$current_time,$current_ip,$current_comments)=split(/\|/,$result);
				# Open template file to format the message.
				open(MB, "$datapath/$mailrec_template") or die "Error opening mailrec_template: $!\n";
				@mail_template = <MB>;
				close(MB);
				chomp(@mail_template);

				# Remove tags.
			   	$current_name =~ s/<.*?>//g;
			   	$current_comments =~ s/<.*?>//g;

				# Format the message.
				foreach $mail_template (@mail_template){
					$mail_template =~ s/\*realname\*/$current_name/g;
					$mail_template =~ s/\*date_local\*/$current_date/g;
					$mail_template =~ s/\*comments\*/$current_comments/g;
					print MAIL "$mail_template\n";
				} # End of foreach.
			} # End of foreach.
			close (MAIL);
		} # End of if.
	} # End of while loop.
	
	close(ML);
	
	# Write new mail record time to the file.
	open(MT, ">$datapath/$mailservice") or die "Error opening mailservice: $!\n";
	print MT $^T;
	close(MT);
	

	# Log the mail list was sent.
	&log('mail_sent');

} # End of if.

} # End of subroutine.


###############################################################
# Guestbook e-mail Service Add User
###############################################################

sub add_remove {

open(FILE, "$datapath/$mail_list") or die "Error opening mail_list: $!\n";

@user_data = <FILE>;
close(FILE);
$num = @user_data;

# Select add or remove.
if ($addremove_choice eq 'add') {

	# Check if e-mail exists yet.
	open(ML, "$datapath/$mail_list") or die "Error opening mail_list: $!\n";
    while(<ML>){
		($recipient,$reg_name) = split(/\|/);
		if ($recipient eq $email) {
			$error_index = 1;
			&error_mail_list;
		} # End of if.
	} # End of while.
	close (ML);


	# If this e-mail is not in the mail list file, write it to the file.
	$record = join '|', $email,$name;

	open(FILE, ">>$datapath/$mail_list") or die "Error opening mail_list: $!\n";
	if ($lockon eq 'yes'){flock FILE, 2};
	print FILE "$record\n";
	close(FILE);

	# Open template file.
	&open_template($add_to_list);

	# Send e-mail with notification.

	open (MAIL, "|$mail_program $email") || die "Can't open $mail_program!\n";

	print MAIL "Subject: Successful Addition to Mailing List\n";
	print MAIL "To: $name < $recipient >\n";
	print MAIL "From: $sitename < $sitemail >\n";

	foreach $line (@lines){
		$line =~ s/\*url\*/$ENV{'HTTP_REFERER'}/g;
		print MAIL "$line\n";
	}
	
	close(MAIL);

	# Log the Add new user.
	&log('new_user_add') if ($uselog eq 'yes');

	# Open template file and send notification file to the browser.
	&open_template($add_user);

	# Print the header of HTML file.
	print $q->header;

	foreach $line (@lines){
		$line =~ s/\*bodytag\*/$bodytag/g;
		$line =~ s/\*url\*/$ENV{'HTTP_REFERER'}/g;
		print "$line\n";
	}

	# Print the end of HTML file.
	print $q->end_html;

	exit;

} # End of if.

# Guestbook e-mail service Remove User.
else {
        
	# Check if this e-mail exists.
	# Reset variable.
	$match = 0;

	# The name of database file.
	$database = $datapath."/".$datafile;
	# The name of temp file.
	$tempfile = 'maillist.tmp';
    $tempfile = $datapath."/".$tempfile;
    
	$database = $datapath."/".$mail_list;
	system "cp $database $tempfile";

	open(ML, "$database") or die "Error opening database: $!\n";
	open (TEMP, ">$tempfile") or die "Error opening $tempfile (remove): $!\n";
	if ($lockon eq 'yes'){flock TEMP, $EXCLUSIVE};

    while(<ML>){
		($recipient,$reg_name) = split(/\|/);
		if ($recipient eq $email) {$match = 1;}
		print TEMP $_ unless ($match == 1);

	} # End of while loop.

	close(TEMP);
	close(ML);
	
	if ($lockon eq 'yes'){flock ML, $EXCLUSIVE};
	unlink($database);
	rename($tempfile,$database);
	if ($lockon eq 'yes'){flock DB, $UNLOCK};
	if ($lockon eq 'yes'){flock TEMP, $UNLOCK};

	# If match not found, redirect and print responce.
	if ($match == 0) {
		$error_index = 2;
		&error_mail_list;
	}

	# Notify user about removal from the list.
	&open_template($remove_from_list);

	# Send e-mail.
	open (MAIL, "|$mail_program $email") || die "Can't open $mail_program!\n";

	print MAIL "Subject: Successful Removal From Mailing List\n";
	print MAIL "To: $name < $recipient >\n";
	print MAIL "From: $sitename < $sitemail >\n";

	foreach $line (@lines){
		$line =~ s/\*url\*/$ENV{'HTTP_REFERER'}/g;
		print MAIL "$line\n";
	}

	close(MAIL);

	# Log the Removal user.
	&log('new_user_remove') if ($uselog eq 'yes');

	# Notify user about removal from the list in the browser window too.
	&open_template($remove_user);

	# Print the header of HTML file.
	print $q->header;

	foreach $line (@lines){
		$line =~ s/\*bodytag\*/$bodytag/g;
		$line =~ s/\*url\*/$ENV{'HTTP_REFERER'}/g;
		print "$line\n";
	} # End of foreach.

	# Print the end of HTML file.
	print $q->end_html;

	exit;

} # End of else.

} # End of subroutine.


###############################################################
# Guestbook e-mail Service Error Sub
###############################################################

sub error_mail_list {

# Print the header of HTML file.
print $q->header;

print "<html><head><title>Error</title></head>$bodytag\n";
print "<font face=arial>\n";
print "<center>\n";
print "<font size=4>Error</font><p>\n";
if ($error_index == 1) {
	print "$email is already on the list.<p>\n";

# Log the same e-mail.
&log('same_email') if ($uselog eq 'yes');

} elsif ($error_index == 2) {
	print "Could not find $email in this list<p>\n";

# Log can not remove - no email.
&log('no_email') if ($uselog eq 'yes');

} else {
	print "Error Unknown<p>\n";

# Log the Error Unknown.
&log('error_unknown') if ($uselog eq 'yes');

} # End of if.
print "<a href=\"$ENV{'HTTP_REFERER'}\">Back</a>\n";
print "</center></font>\n";

# Print the end of HTML file.
print $q->end_html;

exit;

} # End of subroutine.


###############################################################
# Write response if no name for registration
###############################################################

sub no_register{

# Open template file.
&open_template($no_register_template);

# Print the header of HTML file.
print $q->header;

foreach $line (@lines){
	$line =~ s/\*bodytag\*/$bodytag/g;
	print "$line\n";
}

# Print the end of HTML file.
print $q->end_html;

exit;

} # End of subroutine.


###############################################################
# Write response if no action for registration
###############################################################

sub no_register_what{

# Open template file.
&open_template($no_function_template);

# Print the header of HTML file.
print $q->header;

foreach $line (@lines){
	$line =~ s/\*bodytag\*/$bodytag/g;
	print "$line\n";
}

# Print the end of HTML file.
print $q->end_html;

exit;

} # End of subroutine.


###############################################################
# Write response if e-mail service is not enabled
###############################################################

sub no_mail_service {

print <<HTML;
Content-type: text/html

<html>
<head></head>
$bodytag
<p>&nbsp;</p>
<center>
<font size=4><b><i>E-mail service is not enabled.</i></b></font><br>
</center>
</body>
</html>

HTML

}


###############################################################
# Admin functions
###############################################################

sub admin {

# Get database file statistics.
open (DB,"$datapath/$datafile") or die "Error opening datafile: $!\n";
@stats = stat (DB);
@data = <DB>;
close(DB);
chomp(@data);
@data = reverse(@data);
# A number of lines
$num_lines = $#data + 1;

# Find the date of first page publishing.
foreach $stuff (@data[0]) {
	chomp($stuff);
	($msg_counter_f, $current_name_f, $current_email_f, $current_date_f, $current_time_f, $current_ip_f, $current_comments_f) = split(/\|/,$stuff);
}

# Find the date of last page publishing.
foreach $stuff (@data[$#data]) {
	chomp($stuff);
	($msg_counter_l, $current_name_l, $current_email_l, $current_date_l, $current_time_l, $current_ip_l, $current_comments_l) = split(/\|/,$stuff);
}

# Database file size.
$file_size = @stats[7]/1000;

# Get log file statistics.
open (LOG,"$datapath/$log_file") or die "Error opening log_file: $!\n";
@statslog = stat (LOG);
close (LOG);

# Database file size.
$log_size = @statslog[7]/1000;

# Number of pages in the archive.
&pages_in_archive;

# Print the header of HTML file.
print $q->header;
print<<HTML;
<html><head><title>Administrator Panel</title></head>$bodytag
	<h3 align=center>Administrator Panel</h3><p>
	<center>
	<table>
	<tr>
		<td><small>Database file size: </small></td><td><small> $file_size kB</small></td>
	</tr>
	<tr>
		<td><small>Log file size: </small></td><td><small> $log_size kB</small></td>
	</tr>
	<tr>
		<td><small>A number of records in the database: </small></td><td><small> $num_lines</small></td>
	</tr>
	<tr>
		<td><small>A number of pages in the Archive: </small></td><td><small> $pages_archive</small></td>
	</tr>
	<tr>
		<td><small>The first page was published on: </small></td><td><small> $current_date_f</small></td>
	</tr>
	<tr>
		<td><small>The last page was published on: </small></td><td><small> $current_date_l</small></td>
	</tr>
	</table>
	<br>
	<form method=post action="$ENV{'SCRIPT_NAME'}">
	<table>
	<tr>
		<td>
		<small>Modify database file and delete first: </small>
		<input type=text name=database_size size=7> records.</td>
	</tr>
	<tr>
		<td><small><input type=submit value="Modify database file"></small>
		<input type=hidden name=action value=modify_database>
		</td>
	</tr>
	</table>
	</form>
	<br>
	<br>
	<small>
	<a href="$ENV{'SCRIPT_NAME'}?action=view_log">| View Log file | </a>
	<a href="$ENV{'SCRIPT_NAME'}?action=clear_log"> | Clear Log file |</a>
	<a href="$ENV{'SCRIPT_NAME'}?action=view_ban_list"> | View Ban List |</a>
	<a href="$ENV{'SCRIPT_NAME'}?action=view_mail_list"> | View Mail List |</a>
	<a href="$ENV{'SCRIPT_NAME'}?action=add_record">| Return | </a>
	<a href="$ENV{'SCRIPT_NAME'}"> | Exit |</a>
	</small></center>
HTML
# Print the end of HTML file.
print $q->end_html;

exit;

} # End of subroutine.


###############################################################
# View log file
###############################################################

sub view_log {

# Open the log file.
open (LOG, "$datapath/$log_file") or die "Error opening log_file: $!\n";
@log = <LOG>;
close (LOG);

# Print the header of HTML file.
print $q->header;
print<<HTML;
<html><head><title>Administrator Panel-Log File</title></head>$bodytag
	<h3 align=center>Administrator Panel</h3><p>
	<center>Log file</center>
	@log
	<center><small><hr width=75%>
	<a href="$ENV{'SCRIPT_NAME'}?action=clear_log"> | Clear Log file |</a>
	<a href="$ENV{'SCRIPT_NAME'}?action=view_ban_list"> | View Ban List |</a>
	<a href="$ENV{'SCRIPT_NAME'}?action=view_mail_list"> | View Mail List |</a>
	<a href="$ENV{'SCRIPT_NAME'}?action=add_record">| Return | </a>
	<a href="$ENV{'SCRIPT_NAME'}"> | Exit |</a>
	</small></center>
HTML
# Print the end of HTML file.
print $q->end_html;

exit;

} # End of subroutine.


###############################################################
# Clear log file
###############################################################

sub clear_log {

# Open the log file and print header only.
open (LOG, ">$datapath/$log_file") or die "Error opening log_file: $!\n";
print LOG "<html><head><title>Guestbook Log File</title></head>$bodytag\n";
close (LOG);

&view_log;

} # End of subroutine.


###############################################################
# View ban list file
###############################################################

sub view_ban_list {

# Open the ban list file.
open (BANLIST, "$datapath/$ban_file") or die "Error opening ban_file: $!\n";
@banlist = <BANLIST>;
close (BANLIST);

# Print the header of HTML file.
print $q->header;
print<<HTML;
<html><head><title>Administrator Panel-Ban List</title></head>$bodytag
	<h3 align=center>Administrator Panel</h3><p>
	<h3>Banlist</h3>
	<form action=$ENV{'SCRIPT_NAME'} METHOD=POST>
	<textarea name=banlist rows=20 cols=40>
HTML
print @banlist;
print<<HTML;
</textarea><br>
	<input type=hidden name=action value=update_ban_list>
	<small><input type=submit name=update_ban_list value=\"Update Banlist\"></small>
	</form>
	<center><small><hr width=75%>
	<a href="$ENV{'SCRIPT_NAME'}?action=view_log"> | View Log file |</a>
	<a href="$ENV{'SCRIPT_NAME'}?action=view_ban_list"> | View Ban List |</a>
	<a href="$ENV{'SCRIPT_NAME'}?action=view_mail_list"> | View Mail List |</a>
	<a href="$ENV{'SCRIPT_NAME'}?action=add_record">| Return | </a>
	<a href="$ENV{'SCRIPT_NAME'}"> | Exit |</a>
	</small></center>
HTML
# Print the end of HTML file.
print $q->end_html;

exit;

} # End of subroutine.

###############################################################
# Update ban list file
###############################################################

sub update_ban_list {

# Open the ban list file to update it.
open (BANLIST,">$datapath/$ban_file") or die "Error opening ban_file: $!\n";
print BANLIST $banlist;
close (BANLIST);

&view_ban_list;

} # End of subroutine.


###############################################################
# View Mail List file
###############################################################

sub view_mail_list {

# Open the mail list file.
open (MAILLIST,"$datapath/$mail_list") or die "Error opening mail_list: $!\n";
@maillist = <MAILLIST>;
close (MAILLIST);

# Print the header of HTML file.
print $q->header;
print<<HTML;
<html><head><title>Administrator Panel-E-Mail List</title></head>$bodytag
	<h3 align=center>Administrator Panel</h3><p>
	<h3>Mail List</h3>
	<form action=$ENV{'SCRIPT_NAME'} METHOD=POST>
	<textarea name=maillist rows=20 cols=40>
HTML
print @maillist;
print<<HTML;
</textarea><br>
	<input type=hidden name=action value=update_mail_list>
	<small><input type=submit name=update_mail_list value=\"Update Mail List\"></small>
	</form>
	<center><small><hr width=75%>
	<a href="$ENV{'SCRIPT_NAME'}?action=view_log"> | View Log file |</a>
	<a href="$ENV{'SCRIPT_NAME'}?action=view_ban_list"> | View Ban List |</a>
	<a href="$ENV{'SCRIPT_NAME'}?action=view_mail_list"> | View Mail List |</a>
	<a href="$ENV{'SCRIPT_NAME'}?action=add_record">| Return | </a>
	<a href="$ENV{'SCRIPT_NAME'}"> | Exit |</a>
	</small></center>
HTML
# Print the end of HTML file.
print $q->end_html;

exit;

} # End of subroutine.

###############################################################
# Update mail list file
###############################################################

sub update_mail_list {

# Open the mail list file to update it.
open (MAILLIST,">$datapath/$mail_list") or die "Error opening mail_list: $!\n";
print MAILLIST $maillist;
close (MAILLIST);

&view_mail_list;

} # End of subroutine.


###############################################################
# Ban user of current message
###############################################################

sub ban_current_user {

# Open the ban list file to enter new address.
open (BANLIST,">>$datapath/$ban_file") or die "Error opening ban_file: $!\n";
print BANLIST "$current_ip\n";
close (BANLIST);

# Print the header of HTML file.
print $q->header;
print "<html><head><title>User banned.</title></head>$bodytag\n";
print "<p>\&nbsp;</p><center>";
print "The author of this message was banned.<br>";
print "<a href=\"$ENV{'SCRIPT_NAME'}\">Back to Guestbook</a>";
print "</center>";
# Print the end of HTML file.
print $q->end_html;

} # End of subroutine.


###############################################################
# Check for banned status
###############################################################

sub check_ban {

# Get user address.
$remotehost = $ENV{'REMOTE_HOST'};
$remotehost = $ENV{'REMOTE_ADDR'} unless $remotehost;

# Open ban list file to read.
open (BANLIST, "$datapath/$ban_file") or die "Error opening ban_file: $!\n";
@banlist = <BANLIST>;
close (BANLIST);

foreach $bannedip (@banlist) {
	$bannedip =~ s/[^a-z0-9\.-]//g;
	if ($remotehost =~ /$bannedip/) {

		open(TEMPLATE, "$datapath/$exitban_template") or die "Error opening exitban_template: $!\n";
		@lines = <TEMPLATE>;
		close(TEMPLATE);
		chomp(@lines);

		# Print the header of HTML file.
		print $q->header;

		foreach $line (@lines){
			$line =~ s/\*e-mail\*/$sitemail/g;
			print "$line\n";
		} # End of foreach.
		# Print the end of HTML file.
		print $q->end_html;

		# Log the request from banned address.
		&log('banned_request');

		exit;
	} # End of if.
} # End of foreach.

} # End of subroutine.


###############################################################
# Back Up database file
###############################################################

sub do_backup {

$database = $datapath."/".$datafile;
$backup_to = $datapath."/".$backupfile;

# Get database file statistics.
open (DB,"$database") or die "Error opening database: $!\n";
@stats = stat (DB);
close(DB);

# Database file size.
$file_size = @stats[7];

system "cp $database $backup_to" unless ($file_size == 0);

# Log the backup.
&log('backup');

} # End of subroutine.


###############################################################
# Modify database file
###############################################################

sub do_modify_database {

# The name of database file.
$tempfile = 'dbfile.tmp';
$tempfile = $datapath."/".$tempfile;

$database = $datapath."/".$datafile;
system "cp $database $tempfile";

open(DB, $database) or die "Error opening database: $!\n";
open (TEMP, ">$tempfile") or die "Error opening tempfile: $!\n";
if ($lockon eq 'yes'){flock TEMP, $EXCLUSIVE};

# Reset the counter.
$x = 0;

while(<DB>){
	$match="";
	($msg_counter,$current_name,$current_email,$current_date,$current_time,$current_ip,$current_comments)=split(/\|/);
	if($x < $database_size){
		$match=1;
		$x++;
	}
	print TEMP $_ unless ($match == 1);
} # End of while loop.

close(TEMP);
close(DB);

if ($lockon eq 'yes'){flock DB, $EXCLUSIVE};
unlink($database);
rename($tempfile,$database);
if ($lockon eq 'yes'){flock DB, $UNLOCK};
if ($lockon eq 'yes'){flock TEMP, $UNLOCK};

} # End of subroutine.


###############################################################
# Check if a database file is not empty(server error).
###############################################################

sub check_database {

$database = $datapath."/".$datafile;
$restore_from = $datapath."/".$backupfile;

# Get database file statistics.
open (DB,"$database") or die "Error opening database: $!\n";
@stats = stat (DB);
close(DB);
# Database file size.
$database_size = @stats[7];

# Get backup file statistics.
open (BAK,"$restore_from") or die "Error opening restore_from: $!\n";
@bakstats = stat (BAK);
close(BAK);
# Backup file size.
$backup_size = @bakstats[7];

# Restore database if it is empty and backup is not.
if (($database_size == 0) and ($backup_size > 0)) {
	system "cp $restore_from $database";

	# Log the backup.
	&log('restore');
}

} # End of subroutine.


###############################################################
# Log the Entry or Error
###############################################################

sub log {

# Print messages to the log file.
$log_type = $_[0];
open (LOG, ">>$datapath/$log_file") or die "Error opening log_file: $!\n";

if ($log_type eq 'visit') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - <font color=green>New Visit.</font></small><br>\n";
}
elsif ($log_type eq 'no_name') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - ERR: No Name.</small><br>\n";
}
elsif ($log_type eq 'no_comments') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - ERR: No Comments.</small><br>\n";
}
elsif ($log_type eq 'entry') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - New Entry.</small><br>\n";
}
elsif ($log_type eq 'preview') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - New Preview.</small><br>\n";
}
elsif ($log_type eq 'new_user_add') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - <font color=green>New user was added to the e-mail List.</font></small><br>\n";
}
elsif ($log_type eq 'new_user_remove') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - <font color=blue>User removed him(her)self.</font></small><br>\n";
}
elsif ($log_type eq 'same_email') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - ERR: Can not add the same email.</small><br>\n";
}
elsif ($log_type eq 'no_email') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - ERR: Can not remove - no such email.</small><br>\n";
}
elsif ($log_type eq 'error_unknown') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - <font color=yellow>ERROR UNKNOWN.</font></small><br>\n";
}
elsif ($log_type eq 'no_register') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - ERR: No name or email for registration.</small><br>\n";
}
elsif ($log_type eq 'no_register_what') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - ERR: Did not select add or remove.</small><br>\n";
}
elsif ($log_type eq 'no_mail_service') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - ERR: <font color=yellow>E-mail service is not enabled.</font></small><br>\n";
}
elsif ($log_type eq 'mail_sent') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - <font color=darkgreen>The e-mail List was sent.</font></small><br>\n";
}
elsif ($log_type eq 'load_archive') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - The Archive was loaded.</small><br>\n";
}
elsif ($log_type eq 'load_search') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - The Search page was loaded.</small><br>\n";
}
elsif ($log_type eq 'edit') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - <font color=yellow>The Guestbook was edited.</font></small><br>\n";
}
elsif ($log_type eq 'delete') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - <font color=red>The message in the Guestbook was deleted.</font></small><br>\n";
}
elsif ($log_type eq 'banned') {
	print LOG "<small><font color=red>$ENV{'REMOTE_HOST'}</font> - $date_local - The user was banned.</small><br>\n";
}
elsif ($log_type eq 'access_denied') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - ERR: ACCESS DENIED. <font color=red>WRONG PASSWORD!</font></small><br>\n";
}
elsif ($log_type eq 'banned_request') {
	print LOG "<small><font color=yellow>$ENV{'REMOTE_HOST'}</font> - $date_local - The request from banned address.</small><br>\n";
}
elsif ($log_type eq 'admin_log') {
	print LOG "<small><font color=yellow>$ENV{'REMOTE_HOST'} - $date_local - Login into admin area.</font></small><br>\n";
}
elsif ($log_type eq 'backup') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - Backup copy was created.</small><br>\n";
}
elsif ($log_type eq 'restore') {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - Database file was restored.</small><br>\n";
}
else {
	print LOG "<small>$ENV{'REMOTE_HOST'} - $date_local - <font color=yellow>The Message unknown.</font></small><br>\n";
}

} # End of subroutine.