#!/usr/bin/perl

#######################################################################
#                                                                     #
#                Free Perl Guestbook written 2002 by                  #
#                                                                     #
#                        Tri Dung Nguyen                              #
#                         www.vitinh.de                               #
#								      #
#		      Version 1.23 - 06.Aug.03                        #
#                     Copyright (C) 2002-2003                         #
#                                                                     # 
#    This guestbook is absolutely free, for private and for           #
#    commercial sites.						      #
#								      #
#    You may not sell this script.  You may offer it freely to	      #
#    others. You may not alter the code and then call it another      #
#    name.  You may not alter the code and then	resell it under       #
#    another name, either.			        	      #
#								      #
#    All copyright notices and the download links at the bottom of    #
#    the guestbook (when the pages are viewed on the internet) must   #
#    remain intact!    			      			      #                        
#                                                                     #
#    This program is provided in the hope that it will be useful,     #
#    but without warranty. You must decide between two things:        #
#    using or not using it!                                           #
#                                                                     #
#    For help, take a look at the support page at:                    #
#                                                                     #
#                          www.vitinh.de                              #
#                                                                     #
#######################################################################


#######################################################################
#                                                                     #
#    You may change the first line of this page if the path to        #
#    PERL on your server is not "/usr/bin/perl". Contact your admin   #
#    or take a look at the HELP, or FAQ page of the provider to get   #
#    this.                                                            #
#                                                                     #
#######################################################################

$SEND_MAIL="/usr/lib/sendmail -t";   	#(comment if server OS is Windows)

#use Net::SMTP;				# (UNcomment if server OS is Windows)
#$smtp = Net::SMTP->new("localhost");	# (UNcomment if server OS is Windows)

#######################################################################
#                                                                     #
#    You may change the line above if the path to SENDMAIL on your    #
#    server is not "/usr/lib/sendmail -t"                             #
#                                                                     #
#######################################################################                                                


#######################################################################
#                                                                     #
#                  NO CHANGES UNDER THIS LINE REQUIRED                #
#        Changing of program codes may cause the fatal errors!        #
#                                                                     #
#             UNTERHALB DIESER NACHRICHT NICHTS AENDERN               #
#         Es koennte zur Fehlfunktion des Gaestebuches fuehren!       #
#                                                                     #         
#                KHONG THAY DOI GI DUOI DONG CHU NAY                  #
#        Thay doi trong ma nguon co the lam hong chuong trinh!        #
#                                                                     #
#               NE PAS CHANGER LE TEXTE APRÈS CE MESSAGE!             #
#                                                                     #
#######################################################################

####################### BEGIN OF PROGRAM CODE #########################

$Version = "1.23";
$online = 1;
$demo = 0;

use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use Time::Local;
$conttype = "Content-type: text/html\n\n";

$file_url = "http://www.vitinh.de/downloads/guestbook";
$update_service = "http://www.vitinh.de/cgi-bin/update_service.cgi";
$language_page = $file_url."/languages.htm";
if($online == 0){
	$file_url = "file://D:/Website/Tri Dung";
	$update_service = "update_service.cgi";
}
$readonly = "";
$demo_info = "";
if($demo == 1){
	$readonly = "readonly";
	$demo_info = "<br>This is a demo guestbook, you cannot change anything on this page!<br>";
}

################### Wichtige Variablen Definition #####################
$dir = "./tdpn_v_10_dir";
$guestbook_datei = "$dir/guestbook.datei";
$guestbook_setup = "$dir/guestbook.setup";
$guestbook_lang = "$dir/guestbook.lang";
$guestbook_lang_de = "$dir/guestbook_de.lang";
$guestbook_lang_vn = "$dir/guestbook_vn.lang";
$guestbook_lang_fr = "$dir/guestbook_fr.lang";
$guestbook_lang_own = "$dir/guestbook_own.lang";
$guestbook_style = "$dir/guestbook.style";
$guestbook_pass = "$dir/guestbook.pass";
$guestbook_private_pass = "$dir/guestbook_private.pass";
$default_pass = "tridung";
$guestbook_bad_words = "$dir/guestbook_bad.words";
$guestbook_icons = "$dir/guestbook.icons";

$tdpn_1 = "<br><br><br><a style=\"text-decoration:none; color:gray\" href=\"http://www.vitinh.de/cgi-bin/download_guestbook.cgi\">Download Free Perl Guestbook Version $Version</a><br>";
$tdpn_2 = "<a style=\"text-decoration:none; color:gray\" href=\"http://www.vitinh.de/cgi-bin/download_guestbook.cgi\">FPG</a> $Version by <a style=\"text-decoration:none; color:gray\" href=\"http://www.vitinh.de\">www.vitinh.de</a> -  &copy; 2002-2003<br>";
$guestgook_title_images_online = "<img src=\"http\:\/\/www\.vitinh\.de\/images\/guestbook_title\.gif\" border=0 alt=\"Free Perl Guestbook by www.tridung.de\"\>";

$info_title_color = "red";
$dir =~ s/\.\///;
$info_reason = qq(
			Some reasons why this error occured:
			<ul>
				<li class="text">The file in the directory <b>$dir</b> has been moved or deleted.
				<li class="text">You have edited the file in the directory <b>$dir</b>. Didn't you?
				<li class="text">The files or directories have been wrongly chmoded.
				<li class="text">You have uploaded a newer version of guestbook.cgi (visit the support page).
			</ul>
			Things you may do:
			<ul>
				<li class="text">Try to undo all the things you've done.
				<li class="text">If you are not sure what to do, you can enter the owner password
				    and then click the button "Restore" to restore the guestbook.<br>
				    Note: This will overwrite all of your settings (language, style) but 
				    the existing entries will stay intact!
			</ul>
			<b>If you are not the guestbook owner, please inform his/her about this error!</b><br>
		);
		
$info_login = qq(
				<center>
				<form action="$ENV{'SCRIPT_NAME'}" method="post" name="restore">
				<input type="hidden" name="action" value="restore">
				<input type="password" name="password" size="20" class="select">
				<input type="submit" value="Restore">
				</form>
				</center>
				);


################### Wichtige Kontrolle #################################
if(not((-e $dir) or (-d $dir))){
	&install;
}
######## Die Aktionen und Werte aus FORM ###############################
&get_date;
&extract_form;
######### Get info from form ####################
sub extract_form{
	if ($ENV{'REQUEST_METHOD'} eq "GET") {
		$buffer = $ENV{'QUERY_STRING'};
	}
	elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	}

	@pairs = split(/\&/, $buffer);
	foreach $pair (@pairs){
		($name, @values) = split(/=/, $pair);
		$value = join ("=", @values);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		$FORM{$name} = $value;
	}
}

$page_to_show = $FORM{'page_to_show'};
$sign_name = $FORM{'sign_name'};
$sign_email = $FORM{'sign_email'};
$sign_url = $FORM{'sign_url'};
$sign_ip = $FORM{'sign_ip'};
$sign_home = $FORM{'sign_home'};
$sign_message = $FORM{'sign_message'};
$sign_preview = $FORM{'sign_preview'};
$password = $FORM{'password'};
$user_pass = $FORM{'user_pass'};
$control_number = $FORM{'control_number'};

######### Style Variablen ##############
$New_Owner_Name = $FORM{'Owner_Name'};
$New_Owner_Email = $FORM{'Owner_Email'};
$Mail_To_Me = $FORM{'Mail_To_Me'};
	if((!$Mail_To_Me) or ($Mail_To_Me eq "")){
		$Mail_To_Me = "off";
	}
$Mail_To_Him = $FORM{'Mail_To_Him'};
$Mail_To_Him = $FORM{'Mail_To_Him'};
	if((!$Mail_To_Him) or ($Mail_To_Him eq "")){
		$Mail_To_Him = "off";
	}
$New_Password = $FORM{'New_Password'};
$New_Max_Entries_Per_Page = $FORM{'Max_Entries_Per_Page'};

$New_Big_Table_Background = $FORM{'Big_Table_Background'};
$New_Big_Table_BgColor = $FORM{'Big_Table_BgColor'};
$New_Table_Background = $FORM{'Table_Background'};
$New_Table_BgColor = $FORM{'Table_BgColor'};
$New_Book_Title_Text = $FORM{'Book_Title_Text'};
$New_Book_Title_Image = $FORM{'Book_Title_Image'};

$New_GB_BgColor = $FORM{'GB_BgColor'};
$New_GB_Background = $FORM{'GB_Background'};

$New_Message_BgColor = $FORM{'Message_BgColor'};
$New_Message_Header_BgColor = $FORM{'Message_Header_BgColor'};
$New_Message_Footer_BgColor = $FORM{'Message_Footer_BgColor'};

$New_Font_Color = $FORM{'Font_Color'};

$New_Email_Icon = $FORM{'Email_Icon'};
$New_Homepage_Icon = $FORM{'Homepage_Icon'};

$New_Book_Language = $FORM{'Book_Language'};
$New_Vietuni = $FORM{'Vietuni'};
$New_Vietnamese_Typing_Script = $FORM{'Vietnamese_Typing_Script'};
$New_Owner_Homepage = $FORM{'Owner_Homepage'};
$New_CSS_Area = $FORM{'CSS_Area'};
$New_CSS_Area =~ s/\"//g;

######### Edit Options #################
$his_date = $FORM{'his_date'};
$his_time_in_sec = $FORM{'his_time_in_sec'};
$his_ip = $FORM{'his_ip'};
$my_reply = $FORM{'my_reply'};

$action = $FORM{'action'};

if($action eq "restore"){
	if(&password){
		&install;
	}
	else{
		$info_title = "ERROR!";
		$info = "The password you entered was not correct!";
		$info_reason  = qq(Note: this is the owner password.<br><br>
				 Click [<a href=\"javascript:history.back()\">here</a>] to go back!
				 );
		&info;
	}
}
elsif($action eq "control"){
	&read_files;
	$info_title = "$Owner_Name\'s Guestbook Control Panel";
	if($Owner_Name =~ /s$/i){
		$info_title = "$Owner_Name\' Guestbook Control Panel";
	}
	$info_title_color = "#7083c7";
	$info = qq(Only the owner can change the preferences of this guestbook. 
			Please choose an action and enter your owner password to continue!
		);
	$info_reason = "";
	if($control_number){
		$info = qq(Only the owner can edit, delete, reply messages. 
			Please choose an action and enter your owner password to continue!
		);
		$info_login = qq(<script language="javascript">
			function checkit(){
				var del = document.cp.action.options[document.cp.action.selectedIndex].value;
				if(del == "delete"){
					if(confirm("Are you sure you want to permanently delete the message number $control_number?")){
						return true;
					}
					else{
						return false;
					}
				}
			}
			</script>
			<form action="$ENV{'SCRIPT_NAME'}" method="post" name="cp" onSubmit="return checkit()">
			<table width="600" cellpadding="10" cellspacing="1" border="0" align=center>
			<tr>
				<td valign=top align=right><span class="text">Choose an action:</span></td>
				<td valign=top>
					<select name="action" size="2">
					<option value="edit" selected>Edit or reply message $control_number</option>
					<option value="delete">Permanently delete message $control_number</option>
					</select>
				</td>
			</tr>
			<tr>
				<td valign=top align=right><span class="text">Password:</span></td>
				<td valign=top><input type="password" name="password" size="20"></td>
			</tr>
			<tr>
				<td valign=top align=center colspan=2>
					<input type="hidden" value="$control_number" name="control_number">
					<input type="submit" value=" Submit " class="button">
				</td>
			</tr>
			</table>
			</form>);
	}
	else{
		$info_login = qq(<script language="javascript">
			function checkit(){
				var del = document.cp.action.options[document.cp.action.selectedIndex].value;
				if(del == "restore"){
					if(confirm("Are you sure you want to restore all changes you've made?")){
						return true;
					}
					else{
						return false;
					}
				}
			}
			</script>
			<form action="$ENV{'SCRIPT_NAME'}" method="post" name="cp" onSubmit="return checkit()">
			<table width="600" cellpadding="10" cellspacing="1" border="0" align=center>
			<tr>
				<td valign=top align=right><span class="text">Choose an action:</span></td>
				<td valign=top>
					<select class="select" name="action" size="3">
					<option value="chpref" selected>Change password and guestbook preferences</option>
					<option value="chicons">Change FPG code options, icons and smileys</option>
					<option value="restore">Restore all changes (the entries stay intact)</option>
					</select>
				</td>
			</tr>
			<tr>
				<td valign=top align=right><span class="text">Password:</span></td>
				<td valign=top><input type="password" name="password" size="20"></td>
			</tr>
			<tr>
				<td valign=top align=center colspan=2>
					<input type="hidden" value="$control_number" name="control_number">
					<input type="submit" value=" Submit " class="button">
				</td>
			</tr>
			</table>
			</form>);
	}
	&info;
}
elsif($action eq "edit"){
	if(&password){
		&read_files;
		&get_icons;
		&create_edit_page;
	}
	else{
		$info_title = "INVALID PASSWORD!";
		$info = "<b>Invalid password!</b>";
		$info_reason = "Please try again!";
		$info_login = qq(<script language="javascript">
			function checkit(){
				var del = document.cp.action.options[document.cp.action.selectedIndex].value;
				if(del == "delete"){
					if(confirm("Are you sure you want to permanently delete the message number $control_number?")){
						return true;
					}
					else{
						return false;
					}
				}
			}
			</script>
			<form action="$ENV{'SCRIPT_NAME'}" method="post" name="cp" onSubmit="return checkit()">
			<table width="600" cellpadding="10" cellspacing="1" border="0" align=center>
			<tr>
				<td valign=top align=right><span class="text">Choose an action:</span></td>
				<td valign=top>
					<select name="action" size="2">
					<option value="edit" selected>Edit or reply message $control_number</option>
					<option value="delete">Permanently delete message $control_number</option>
					</select>
				</td>
			</tr>
			<tr>
				<td valign=top align=right><span class="text">Password:</span></td>
				<td valign=top><input type="password" name="password" size="20"></td>
			</tr>
			<tr>
				<td valign=top align=center colspan=2>
					<input type="hidden" value="$control_number" name="control_number">
					<input type="submit" value=" Submit " class="button">
				</td>
			</tr>
			</table>
			</form>);
		&info;
	}
}
elsif($action eq "delete"){
	if(&password){
		&read_files;
		&delete_now;
	}
	else{
		$info_title = "INVALID PASSWORD!";
		$info = "<b>Invalid password!</b>";
		$info_reason = "Please try again!";
		$info_login = qq(<script language="javascript">
			function checkit(){
				var del = document.cp.action.options[document.cp.action.selectedIndex].value;
				if(del == "delete"){
					if(confirm("Are you sure you want to permanently delete the message number $control_number?")){
						return true;
					}
					else{
						return false;
					}
				}
			}
			</script>
			<form action="$ENV{'SCRIPT_NAME'}" method="post" name="cp" onSubmit="return checkit()">
			<table width="600" cellpadding="10" cellspacing="1" border="0" align=center>
			<tr>
				<td valign=top align=right><span class="text">Choose an action:</span></td>
				<td valign=top>
					<select name="action" size="2">
					<option value="edit" selected>Edit or reply message $control_number</option>
					<option value="delete">Permanently delete message $control_number</option>
					</select>
				</td>
			</tr>
			<tr>
				<td valign=top align=right><span class="text">Password:</span></td>
				<td valign=top><input type="password" name="password" size="20"></td>
			</tr>
			<tr>
				<td valign=top align=center colspan=2>
					<input type="hidden" value="$control_number" name="control_number">
					<input type="submit" value=" Submit " class="button">
				</td>
			</tr>
			</table>
			</form>);
		&info;
	}
}
elsif($action eq "chpref"){
	if(&password){
		&read_files;
		&preferences;
	}
	else{
		$info_title = "INVALID PASSWORD!";
		$info = "<b>Invalid password!</b>";
		$info_reason = "";
		$info_login = qq([<a href="javascript:history.back()">Go back</a>] and try again!
			);
		&info;
	}
}
elsif($action eq "save_prefs"){
	if(&password){
		&read_files;
		&save_prefs;
	}
	else{
		$info_title_color = "red";
		$info_title = "ERROR!";
		$info = "Sorry, you cannot run this program from here!";
		$info_reason  = "Do not try to hack this guestbook!";
		$info_reason .= " Your IP (<b>$ENV{'REMOTE_ADDR'}</b>) has been sent to the guestbook owner!";
		$info_login = "";
		&hacked;
		&info;
	}
}

elsif($action eq "chicons"){
	if(&password){
		&read_files;
		&chicons;
	}
	else{
		$info_title = "INVALID PASSWORD!";
		$info = "<b>Invalid password!</b>";
		$info_reason = "";
		$info_login = qq([<a href="javascript:history.back()">Go back</a>] and try again!
			);
		&info;
	}
}
elsif($action eq "save_icons"){
	if(&password){
		&read_files;
		&save_icons;
	}
	else{
		$info_title_color = "red";
		$info_title = "ERROR!";
		$info = "Sorry, you cannot run this program from here!";
		$info_reason  = "Do not try to hack this guestbook!";
		$info_reason .= " Your IP (<b>$ENV{'REMOTE_ADDR'}</b>) has been sent to the guestbook owner!";
		$info_login = "";
		&hacked;
		&info;
	}
}

elsif($action eq "sign"){
	&check_user_pass;
	&read_files;
	&get_icons;
	&sign_gb;
}
elsif($action eq "add"){
	&check_user_pass;
	&read_files;
	&add_entry;
}
elsif($action eq "preview"){
	&check_user_pass;
	&read_files;
	&preview;
}
elsif($action eq "save_edited"){
	if(&password){
		&read_files;
		&save_edited;
	}
	else{
		$info_title_color = "red";
		$info_title = "ERROR!";
		$info = "Sorry, you cannot run this program from here!";
		$info_reason  = "Do not try to hack this guestbook!";
		$info_reason .= " Your IP (<b>$ENV{'REMOTE_ADDR'}</b>) has been sent to the guestbook owner!";
		$info_login = "";
		&hacked;
		&info;
	}
}
elsif($action eq "set_cookie"){
	open(PASS, "<$guestbook_private_pass") or die "Cannot check user password!";
	my $UserPass = <PASS>;
	close(PASS);
	
	if($user_pass eq $UserPass){
		&set_cookie;
		$conttype = "";
		$info_title_color = "#7083c7";
		$info_title = "Authorized!";
		$info = "You are logged in! Please click the button below to enter guestbook!";
		$info_reason = "<b>Note:</b> Don't forget to [<a href=\"$ENV{'SCRIPT_NAME'}?action=log_out\">log out</a>] if you are using a public computer (in internet cafe, in library...)";
		$info_login = qq(<form action="$ENV{'SCRIPT_NAME'}" method="post">
				<center>
					<input type="submit" value="Enter Guestbook!">
				</center>
				</form>);
		&info;
	}
	else{
		$info_title = "Authorization required!";
		$info_title_color = "red";
		$info = "<b>The password you entered was not correct!</b>";
		$info_reason = "Please enter password and click <b>Log in</b> to continue! You may have to contact the webmaster to get this password!";
		$info_login = qq(<form action="$ENV{'SCRIPT_NAME'}" method=post name="UserPass">
				<center>
				<div class=text>
					Password: <input type="password" name="user_pass" size="20">
					<input type="submit" value="Log in"><br>
					<input type=checkbox name="save_pass"> Save password
					<input type="hidden" value="set_cookie" name="action">
				</div>
				</center>
				</form>
			);
		&info;
	}
}
elsif($action eq "log_out"){
	&log_out;
	$conttype = "";
	$info_title_color = "#7083c7";
	$info_title = "Logged out!";
	$info = "You are logged out! Thank you for visiting!";
	$info_reason = "";
	$info_login = qq(<form action="$ENV{'SCRIPT_NAME'}" method="post">
			<center>
				<input type="submit" value="Enter Guestbook!">
			</center>
			</form>);
	&info;
}
elsif($action eq "last_entry"){
	&check_user_pass;
	&read_files;
	&last_entry;
}
else{
	&check_user_pass;
	&read_files;
	&create_page;
}

######### Time and Date ###############################################

sub zweistellig
{
	if(length ($_[0]) <2)
	{
		return "0".$_[0];
	}
	else
	{
		return $_[0];
	}
}
sub get_date{
	($sec, $min, $std, $tag, $mon, $jahr) = localtime(time);
	$sec  = &zweistellig ($sec);
	$min  = &zweistellig ($min);
	$std  = &zweistellig ($std);
	$tag  = &zweistellig ($tag);
	$mon  = &zweistellig (++$mon);
	$jahr = $jahr + 1900;
	$sign_time_in_sec = timelocal($sec,$min,$std,$tag,$mon-1,$jahr-1900);
	$sign_time = $jahr.".".$mon.".".$tag." - ".$std.":".$min.":".$sec;
	$sign_date = $jahr.$mon.$tag;
}	
#######################################################################


sub install{
####### SET UP ########################################################
$guestbook_setup_content = qq(STYLE===guestbook.style===
LANGUAGE===guestbook.lang===
MAIL_TO_ME===on===
MAIL_TO_HIM===on===
);

####### LANGUAGE #####
$guestbook_lang_content = qq(####### English #######
Charset="iso-8859-1"=

Owner_Name="Webmaster"=
Owner_Email="you\@yourserver.com"=
Owner_Replied="replied"=

Total_Entries="Total entries:"=
On_Page="on"=
Total_Pages="pages"=
Viewing_Page="Viewing page:"=
Homepage="Home page"=

User_Is_From="from"=
User_Wrote_On="wrote on"=
User_Wrote_At="at"=

JS_Last_Page="This is the last page!"=
JS_First_Page="This is the first page!"=
JS_Please_Fill_In_Required="Please fill in all required fields"=
FORM_Required="(required)"=
FORM_Select_Page="Select a page"=
FORM_Sign_Button="Sign guestbook"=

View_Guestbook="View guestbook"=
Feel_Free_To_Tell="Feel free to tell me what you think"=
Preview_Of_Your_Message="Preview of your message"=
Your_Name="Your name:"=
Your_Email="Your e-mail:"=
Your_URL="Your homepage:"=
Your_Home="You are from:"=
Your_Message="Your message:"=
FORM_View_Button="View guestbook"=
FORM_Write_Button="Write it down"=
FORM_Reset_Button="Reset all"=
FORM_Back_Button="  Go back  "=
Sign_Options="Options:"=
English_Typing="English typing"=
Vietnamese_Typing="Vietnamese typing (ki&#7875;u TELEX)"=
HTML_Disabled="HTML disabled"=
Preview="Show preview page before writing"=
Thank_Title="Thank you!"=
Thank_Message="Thank you! Your message has been added to my guestbook!"=
Email_Not_Valid="Email not valid!"=
Email_Not_Valid_Message="The e-mail you entered has a not valid format!"=
);

$guestbook_lang_content_de = qq(####### German #######
Charset="iso-8859-1"=

Owner_Name="Webmaster"=
Owner_Email="you\@yourserver.com"=
Owner_Replied="antwortet"=

Total_Entries="Eintr&auml;ge:"=
On_Page="auf"=
Total_Pages="Seiten"=
Viewing_Page="Aktuelle Seite:"=
Homepage="Homepage"=

User_Is_From="aus"=
User_Wrote_On="schrieb am"=
User_Wrote_At="um"=

JS_Last_Page="Dies ist die letzte Seite!"=
JS_First_Page="Dies ist die erste Seite!"=
JS_Please_Fill_In_Required="Bitte alle erforderlichen Felder ausfüllen!"=
FORM_Required="(erforderlich)"=
FORM_Select_Page="Seitenauswahl"=
FORM_Sign_Button="Eintragen"=

View_Guestbook="Eintr&auml;ge lesen"=
Feel_Free_To_Tell="Hier kannst Du Deine Meinung schreiben"=
Preview_Of_Your_Message="Vorschau von Deiner Nachricht"=
Your_Name="Dein Name:"=
Your_Email="Deine E-Mail:"=
Your_URL="Deine Homepage:"=
Your_Home="Du kommst aus:"=
Your_Message="Deine Nachricht:"=
FORM_View_Button="Eintr&auml;ge lesen"=
FORM_Write_Button="Eintragen"=
FORM_Reset_Button="Zur&uuml;cksetzen"=
FORM_Back_Button="  Zur&uuml;ck  "=
Sign_Options="Optionen:"=
English_Typing="English typing"=
Vietnamese_Typing="Vietnamese typing (ki&#7875;u TELEX)"=
HTML_Disabled="HTML deaktiviert"=
Preview="Vorschau-Funktion"=
Thank_Title="Vielen Dank!"=
Thank_Message="Deine Nachricht wurde erfolgreich &uuml;bertragen und gespeichert"=
Email_Not_Valid="Email ung&uuml;tig!"=
Email_Not_Valid_Message="Die von Dir eingegebene E-Mail Adresse hat kein g&uuml;tiges Format!"=
);


$guestbook_lang_content_vn = qq(####### Vietnamese #######
Charset="iso-8859-1"=

Owner_Name="Webmaster"=
Owner_Email="you\@yourserver.com"=
Owner_Replied="tr&#7843; l&#7901;i"=

Total_Entries="T&#7893;ng s&#7889; l&#432;u bút:"=
On_Page="tr&ecirc;n"=
Total_Pages="trang"=
Viewing_Page="&#272;ang xem trang:"=
Homepage="Trang ch&#7911;"=

User_Is_From="&#273;&#7871;n t&#7915;"=
User_Wrote_On="vi&#7871;t ngày"=
User_Wrote_At="l&uacute;c"=

JS_Last_Page="Day la trang cuoi!"=
JS_First_Page="Day la trang dau!"=
JS_Please_Fill_In_Required="Lam on dien day du cac o bat buoc!"=
FORM_Required="(b&#7855;t bu&#7897;c)"=
FORM_Select_Page="Xem trang kh&aacute;c"=
FORM_Sign_Button="Vi&#7871;t l&#432;u bút"=

View_Guestbook="Xem l&#432;u bút"=
Feel_Free_To_Tell="H&atilde;y &#273;&#7875; l&#7841;i v&agrave;i d&ograve;ng l&#432;u b&uacute;t"=
Preview_Of_Your_Message="Duy&#7879;t l&#7841;i l&#432;u b&uacute;t c&#7911;a b&#7841;n"=
Your_Name="T&ecirc;n b&#7841;n:"=
Your_Email="E-mail c&#7911;a b&#7841;n:"=
Your_URL="Homepage c&#7911;a b&#7841;n:"=
Your_Home="B&#7841;n &#273;&#7871;n t&#7915;:"=
Your_Message="L&#432;u b&uacute;t:"=
FORM_View_Button="Xem s&#7893; l&#432;u b&uacute;t"=
FORM_Write_Button="Vi&#7871;t l&#432;u b&uacute;t"=
FORM_Reset_Button="  So&#7841;n l&#7841;i  "=
FORM_Back_Button="  Quay l&#7841;i  "=
Sign_Options="L&#7921;a ch&#7885;n:"=
English_Typing="English typing"=
Vietnamese_Typing="Vietnamese typing (ki&#7875;u TELEX)"=
HTML_Disabled="kh&ocirc;ng h&#7895; tr&#7907; HTML"=
Preview="Duy&#7879;t l&#432;u bút tr&#432;&#7899;c khi ghi"=
Thank_Title="C&aacute;m &#417;n b&#7841;n!"=
Thank_Message="C&aacute;m &#417;n b&#7841;n &#273;ã b&#7899;t chút th&#7901;i gian vi&#7871;t l&#432;u bút."=
Email_Not_Valid="Ð&#7883;a ch&#7881; E-mail sai!"=
Email_Not_Valid_Message="Ð&#7883;a ch&#7881; E-mail b&#7841;n &#273;&#432;a không ch&iacute;nh x&aacute;c. Làm &#417;n xem l&#7841;i!"=
);


$guestbook_lang_content_fr = qq(####### Francais #######
Charset="iso-8859-1"=

Owner_Name="Webmaster"=
Owner_Email="you\@yourserver.com"=
Owner_Replied="r&eacute;pond"=

Total_Entries="Inscriptions totals:"=
On_Page="&agrave;"=
Total_Pages="pages"=
Viewing_Page="Page actuelle:"=
Homepage="Page d'accueil"=

User_Is_From="de"=
User_Wrote_On="a &eacute;crit &agrave;"=
User_Wrote_At=" - "=

JS_Last_Page="C'est la dernière page!"=
JS_First_Page="C'est la première page!"=
JS_Please_Fill_In_Required="Veuillez compléter tous les champs requis"=
FORM_Required="(entr&eacute;e obligatoire)"=
FORM_Select_Page="Choisissez une page"=
FORM_Sign_Button="Faire une inscription"=

View_Guestbook="Livre d'h&ocirc;tes"=
Feel_Free_To_Tell="Donnez-moi votre opinion..."=
Preview_Of_Your_Message="Aper&ccedil;u de votre message"=
Your_Name="Votre nom:"=
Your_Email="Votre e-mail:"=
Your_URL="Votre page web:"=
Your_Home="Votre localit&eacute;:"=
Your_Message="Votre commentaire:"=
FORM_View_Button="Livre d'h&ocirc;tes"=
FORM_Write_Button="Envoyer"=
FORM_Reset_Button="Annuler"=
FORM_Back_Button="  Retourner  "=
Sign_Options="Options:"=
English_Typing="English typing"=
Vietnamese_Typing="Vietnamese typing (ki&#7875;u TELEX)"=
HTML_Disabled="HTML handicap&eacute;"=
Preview="Indiquer pr&eacute;vision"=
Thank_Title="Merci!"=
Thank_Message="Merci! Votre message a &eacute;t&eacute; ajout&eacute; &agrave; mon livre d'h&ocirc;tes!"=
Email_Not_Valid="Email inadmissible!"=
Email_Not_Valid_Message="Le E-mail que vous avez &eacute;crit a un format inadmissible!"=
);

####### STYLE ########
$guestbook_style_content = qq(####### HTML Header ##########################
<-Anfang HTML Head->

<html>
<head>
	<title>== WELCOME TO MY GUESTBOOK! ==</title>
	<meta http-equiv="cache-control" content="no-cache">
	
<-Ende HTML Head->


####### CSS Datei fuers GB ###################
<-Anfang CSS->

<style type=text/css>
	body{
		scrollbar-base-color: #7083c7;
		scrollbar-arrow-color: red;
	}
	.button {
		background: #FF,99,00;
		border-bottom: 1px solid #104A7B;
		border-right: 1px solid #104A7B;
		border-left: 1px solid #AFC4D5;
		border-top:1px solid #AFC4D5;
		color:#000066;
		height:22px;
		text-decoration:none;
		cursor: hand
		}
	.select {
		color:#000066;
		background-color:#D6E7EF
		}
	.text_title{
		color: navy;
		font-size: 12px;
		font-family: Verdana, Arial;
		font-weight: bold;
		}
	.text_reply{
		color: navy;
		font-size: 10px;
		font-family: Verdana, Arial;
		}
	.text_red{
		color: red;
		font-size: 10px;
		font-family: Verdana, Arial;
		}
	.text_number{
		color: white;
		font-size: 12px;
		font-family: Verdana, Arial;
		}
	.text{
		color: black;
		font-size: 12px;
		font-family: Verdana, Arial;
		}
	a:link{
		text-decoration:none;
		color: navy;
		}
	a:hover{
		color:white;
		background:#7083c7;
		text-decoration:none;
		}
	a:visited{
		color:navy;
		text-decoration:none;
		}
</style>

<-Ende CSS->


####### HTML Body ###########################
<-Anfang HTML Body->

</head>
<body topmargin="20" leftmargin="10" bgcolor="#ffffff">

<-Ende HTML Body->


####### HTML Foot ###########################
<-Anfang HTML Foot->

</body>
</html>

<-Ende HTML Foot->


####### So soll die Seite aussehen ##########
####### Vorsicht bei der Mustererkennung ####

<-Anfang PAGE Definition->

Max_Entries_Per_Page="10"=
Max_Word_Length="40"=

Dirty_Words_Filter_Status="on"=
Dirty_Words_Filter_Option="error"=

Big_Table_Width="95%"=
Big_Table_BgColor="#7083c7"=
Big_Table_Background="$file_url/images/big_table_bg.gif"=
Big_Table_Padding="1"=
Big_Table_Spacing="0"=

Table_Width="100%"=
Table_BgColor="#7083c7"=
Table_Background="$file_url/images/table_head_bg.gif"=
Table_Padding="0"=
Table_Spacing="1"=

Font_Face="Verdana, Arial"=
Font_Size="2"=
Font_Color="#7083c7"=

Book_Title_Text="WELCOME TO MY GUESTBOOK!"=
Book_Title_Image="$file_url/images/guestbook.jpg"=

GB_BgColor="#ffffff"=
GB_Background=""=

Message_BgColor="#ffffff"=
Message_Header_BgColor="#f0f0f0"=
Message_Footer_BgColor="#f6f6f6"=

Email_Icon="$file_url/images/email_icon.gif"=
Homepage_Icon="$file_url/images/homepage_icon.gif"=

FPG_And_Smileys_Script="$file_url/scripts/fpg_and_smileys.js"=
FPG_Codes="on"=
Smileys="on"=

Vietuni="off"=
Vietnamese_Typing_Script="$file_url/scripts/vietuni.js"=
Owner_Homepage="http://www.tridung.de"=
TimezoneOffset="0"=

<-Ende PAGE Definition->
);

if($action eq "restore"){
	print $conttype;
	print qq~
		<html>
		<head>
		<title>Guestbook Restore</title>
		<style>
			a:hover{color:white; background:#7083c7}
			a:link{color:navy; text-decoration:none}
			a:visited{color:navy; text-decoration:none}
		</style>
		</head>
		<body bgcolor=#f0f0f0 topmargin=0 leftmargin=0 text=white>
		<table width=100% height=100% border=0 cellpadding=0 cellspacing=0>
		<tr><td width=100% valign=middle align=center>
			<table width=600 align=center border=0 cellpadding=10 cellspacing=1 bgcolor=silver>
			<tr>
			<td width=100% valign=top bgcolor=#7083c7 align=center>
			<font face="fixedsys, courier new, verdana" size=2 color=white>
				GUESTBOOK RESTORE
			</font>
			</td>
			</tr>
			<tr>
			<td width=100% valign=top bgcolor=#7083c7>
			<font face="fixedsys, courier new, verdana" size=2 color=white>
			Guestbook Restore has performed these tasks:<br>
			<ul>
			<font color=white face="fixedsys, courier new, verdana" size=2>
	~;
	
		open(SETUP, ">$guestbook_setup") or die "Cannot open $guestbook_setup $!";
		print SETUP $guestbook_setup_content;
		close(SETUP);
	print qq~
			<li>Created a setup file.
	~;
		
		open(LANG, ">$guestbook_lang") or die "Cannot open $guestbook_lang $!";
		print LANG $guestbook_lang_content;
		close(LANG);
	print qq~
			<li>Created a default language file (English).
	~;	
	
		open(LANG, ">$guestbook_lang_de") or die "Cannot open $guestbook_lang_de $!";
		print LANG $guestbook_lang_content_de;
		close(LANG);
	print qq~
			<li>Created a language file (German).
	~;	
	
		open(LANG, ">$guestbook_lang_vn") or die "Cannot open $guestbook_lang_vn $!";
		print LANG $guestbook_lang_content_vn;
		close(LANG);
	print qq~
			<li>Created a language file (Vietnamese).
	~;
		
		open(LANG, ">$guestbook_lang_fr") or die "Cannot open $guestbook_lang_fr $!";
		print LANG $guestbook_lang_content_fr;
		close(LANG);
	print qq~
			<li>Created a language file (French).
	~;
	
		open(STYLE, ">$guestbook_style") or die "Cannot open $guestbook_style $!";
		print STYLE $guestbook_style_content;
		close(STYLE);
	print qq~
			<li>Created a style file.
	~;
		
	if(&create_icons){
		print "<li>Created a icons file.";
	}
		
	if(not(-e $guestbook_datei)){
		open(DATEI, ">$guestbook_datei") or die "Cannot open $guestbook_datei $!";
		print DATEI "";
		close(DATEI);
		print qq~
			<li>Created an empty guestbook entries file.
		~;
	}
	else{
		print "<li>Your guestbook entries stay intact.";
	}
		
	$chmoded = chmod 0777, $guestbook_setup, $guestbook_lang, $guestbook_lang_de, $guestbook_lang_vn, $guestbook_lang_fr, $guestbook_style, $guestbook_icons, $guestbook_datei;
	
	print qq~
			<li>Your password stays intact.
			<li>$chmoded files successfully chmoded (777).
			</font>
			</ul>
			Enjoy your new FPG $Version!
			<p align=right>
			-- Tri Dung --
			</td>
			</tr>
			<tr>
			<form action="$ENV{'SCRIPT_NAME'}" method="post">
			<td align=center valign=middle bgcolor=#7083c7>
				<input type="submit" value="View your guestbook">
			</font>
			</td>
			</form>
			</tr>
			</table>
		</td>
		</tr>
		<tr>
		<td valign="bottom" align=center height=20>
			<span style="font-size:10px; font-family:verdana, arial; color:gray;">$tdpn_2</span>
		</td>
		</tr>
		</table>
		</body>
		</html>
	~;
}
else{
	
	print $conttype;
	print qq~
		<html>
		<head>
		<title>Setup Routine</title>
		<style>
			a:hover{color:white; background:#7083c7}
			a:link{color:navy; text-decoration:none}
			a:visited{color:navy; text-decoration:none}
		</style>
		</head>
		<body bgcolor=#f0f0f0 topmargin=0 leftmargin=0 text=white>
		<table width=100% height=100% border=0 cellpadding=0 cellspacing=0>
		<tr><td width=100% valign=middle align=center>
			<table width=600 align=center border=0 cellpadding=10 cellspacing=1 bgcolor=silver>
			<tr>
			<td colspan="2" width=100% valign=top bgcolor=#7083c7 align=center>
			<font face="fixedsys, courier new, verdana" size=2 color=white>
				SETUP ROUTINE
			</font>
			</td>
			</tr>
			<tr>
			<td colspan="2" width=100% valign=top bgcolor=#7083c7>
			<font face="fixedsys, courier new, verdana" size=2 color=white>
	~;
		
		mkdir ($dir, 0777) or die "Cannot create file directory. $! Please check write permission on your server!";
	print qq~
			This is the first time you use Free Perl Guestbook of VITINH.DE<br><br>
			Please wait while I'm setting up the guestbook for you...<br>
			<ul>
			<font color=white face="fixedsys, courier new, verdana" size=2>
			<li>File directory created.
	~;
	
		open(SETUP, ">$guestbook_setup") or die "Cannot open $guestbook_setup $!";
		print SETUP $guestbook_setup_content;
		close(SETUP);
	print qq~
			<li>Setup file created.
	~;
		
		open(LANG, ">$guestbook_lang") or die "Cannot open $guestbook_lang $!";
		print LANG $guestbook_lang_content;
		close(LANG);
	print qq~
			<li>Default language file created (English).
	~;	
	
		open(LANG, ">$guestbook_lang_de") or die "Cannot open $guestbook_lang_de $!";
		print LANG $guestbook_lang_content_de;
		close(LANG);
	print qq~
			<li>Language file created (German).
	~;	
	
		open(LANG, ">$guestbook_lang_vn") or die "Cannot open $guestbook_lang_vn $!";
		print LANG $guestbook_lang_content_vn;
		close(LANG);
	print qq~
			<li>Language file created (Vietnamese).
	~;
		
		open(LANG, ">$guestbook_lang_fr") or die "Cannot open $guestbook_lang_fr $!";
		print LANG $guestbook_lang_content_fr;
		close(LANG);
	print qq~
			<li>Language file created (French).
	~;
	
		open(STYLE, ">$guestbook_style") or die "Cannot open $guestbook_style $!";
		print STYLE $guestbook_style_content;
		close(STYLE);
	print qq~
			<li>Style file created.
	~;
	
	if(&create_icons){
		print "<li>Icons file created.";
		}
	
		open(DATEI, ">$guestbook_datei") or die "Cannot open $guestbook_datei $!";
		print DATEI "";
		close(DATEI);
	print qq~
			<li>An empty guestbook entries file created.
	~;
	
	$default_pass_crypted = crypt($default_pass, "tridung");
	
		open(PASS, ">$guestbook_pass");
		print PASS $default_pass_crypted;
		close(PASS);
		
	$chmoded = chmod 0777, $guestbook_setup, $guestbook_lang, $guestbook_lang_de, $guestbook_lang_vn, $guestbook_lang_fr, $guestbook_style, $guestbook_datei, $guestbook_icons, $guestbook_pass;
	
	print qq~
			<li>$chmoded files successfully chmoded (777).
			
			<li>Your default owner-password is: <font color=red>$default_pass</font>. You must change this password to protect your guestbook!
			    Go to the [<a href="$ENV{'SCRIPT_NAME'}?action=control"><font color=white>Control Panel</font></a>] of this guestbook to change 
			    the password!
			</font>
			</ul>
			Installation completed!
			Enjoy your new FPG $Version!
			<p align=right>
			-- Tri Dung --
			</td>
			</tr>
			<tr>
			<form action="$ENV{'SCRIPT_NAME'}" method="post">
			<td width="50%" align=center valign=middle bgcolor=#7083c7>
				<input type="hidden" name="action" value="chpref">
				<input type="hidden" name="password" value="$default_pass">
				<input type="submit" value="Enter Control Panel">
			</font>
			</td>
			</form>
			<form action="$ENV{'SCRIPT_NAME'}" method="post">
			<td width="50%" align=center valign=middle bgcolor=#7083c7>
				<input type="submit" value="View Your Guestbook">
			</font>
			</td>
			</form>
			</tr>
			</table>
		</td>
		</tr>
		<tr>
		<td valign="bottom" align=center height=20>
			<span style="font-size:10px; font-family:verdana, arial; color:gray;">$tdpn_2</span>
		</td>
		</tr>
		</table>
		</body>
		</html>
	~;
}
################# Ende Wichtige Variablen Definition #################
exit;
}

########## Anfang Funktion read_files ################################
sub read_files{
######## Lese guestbook.setup ########################################
$cop1 = "Please don't change the copyright notice!";
$cop2 = "The copyright notice must stay intact!";

if(not(-e $guestbook_icons)){
	&create_icons;
}

if(not(-e $guestbook_bad_words)){
$all_dirty_words = qq(fucks
			shithead
			shite
			shit
			shits
			twat
			nigger
			motherfucker
			fucker
			cunt
			sucker
			cock
			bastard
			fuck
			fucking
			wanks
			wank
			cunts
			bastards
			wankers
			wanker
			arsehole
			arseholes
			arse-hole
			arse-holes
			arse-licker
			arse-lickers
			arselicker
			arselickers
			arse
			arses
			ficken
			fickt
			ficke
			fickte
			fickst
			gefickt
			ficker
			arsch
			arschloch
			arschficker
			arschlecker
			wichser
			wichsen
			wichst
			wichse
			gewichst
			bumsen
			bumse
			bumst
			gebumst
			bumser
			nutte
			nutten
			hure
			huren
			hurensohn
			hurensöhne
			merde);
$all_dirty_words =~ s/\t//g; # entfernt Tabulatoren

	open(BAD, ">$guestbook_bad_words") or die "Cannot create dirty words list $!";
	print BAD $all_dirty_words;
	close(BAD);
}

	open(BAD, "<$guestbook_bad_words") or die "Cannot open $guestbook_bad_words $!";
	while(<BAD>){
		$Dirty_Words .= $_;
	}
	$Dirty_Words =~ s/\n/ /g;
	close(BAD);
		
	if(not(-e $guestbook_setup)){
		$info_title = "INTERNAL ERROR!";
		$guestbook_setup =~ s/$dir\///ig;
		$info = "The file <b>$guestbook_setup</b> does not exist!<br><br>This file must have been deleted or moved by you!";
		&info;
	}
	open(SETUP, "<$guestbook_setup") or die "Cannot open $guestbook_setup";
	while(<SETUP>){
		$setup_temp .= $_;
	}
	close(SETUP);
	my @setup_temp_array = split(/\n/, $setup_temp);
	my $sta = 0;
	while($sta < scalar @setup_temp_array){
		if($setup_temp_array[$sta] =~ m/^STYLE\=\=\=(.+)(\.style)\=\=\=$/ig)
		{
			$style_file = $setup_temp_array[$sta];
			$style_file =~ s/^STYLE\=\=\=(.+)(\.style)\=\=\=$/$1$2/ig;
			$style_file = "$dir/$style_file";
		}
		if($setup_temp_array[$sta] =~ m/^LANGUAGE\=\=\=(.*)(\.lang)\=\=\=$/ig)
		{
			$language_file = $setup_temp_array[$sta];
			$Book_Language = $language_file;
			$language_file =~ s/^LANGUAGE\=\=\=(.+)(\.lang)\=\=\=$/$1$2/ig;
			$language_file = "$dir/$language_file";
			$Book_Language =~ s/^LANGUAGE\=\=\=guestbook_(.*)(\.lang)\=\=\=$/$1/ig;
			if($Book_Language eq "LANGUAGE===guestbook.lang==="){
				$Book_Language = "en";
			}
		}
		if($setup_temp_array[$sta] =~ m/^MAIL_TO_ME\=\=\=(.+)\=\=\=$/ig)
		{
			$MTM = $setup_temp_array[$sta];
			$MTM =~ s/^MAIL_TO_ME\=\=\=(.+)\=\=\=$/$1/ig;
		}
		if($setup_temp_array[$sta] =~ m/^MAIL_TO_HIM\=\=\=(.+)\=\=\=$/ig)
		{
			$MTH = $setup_temp_array[$sta];
			$MTH =~ s/^MAIL_TO_HIM\=\=\=(.+)\=\=\=$/$1/ig;
		}
		$sta++;
	}
	#####################################################################
	if(!$tdpn_1){
		$info_title = "INTERNAL ERROR!";
		$info=$cop2;
		$info_reason = "";
		$info_login = "";
		&info;
	}	

	######## Lese Style File #################
	if(not(-e $style_file)){
		$info_title = "INTERNAL ERROR!";
		$style_file =~ s/$dir\///ig;
		$info = "The file: <b>$style_file</b> does not exist!";
		&info;
	}
	open(STYLE, "<$style_file") or die "Cannot open $style_file";
	while(<STYLE>){
		$style_temp .= $_;
		$style_temp =~ s/\r?\n/\<\<\>\>/;
	}
	close(STYLE);
	$css = $style_temp;
	if($css =~ m/\<\-Anfang CSS\-\>(.*)<\-Ende CSS\-\>/){
		$css =~ s/(.*)(\<\-Anfang CSS\-\>)(.*)(\<\-Ende CSS\-\>)(.*)/$3/;
		$css =~ s/\<\<\>\>/\n/g;
	}
	else{
		$info_title = "INTERNAL ERROR!";
		$info = "CSS area not found!<br>Check the file: <b>$style_file</b>!";
		&info;
	}

	$html_head = $style_temp;
	if($html_head =~ m/\<\-Anfang HTML Head\-\>(.*)<\-Ende HTML Head\-\>/){
		$html_head =~ s/(.*)(\<\-Anfang HTML Head\-\>)(.*)(\<\-Ende HTML Head\-\>)(.*)/$3/;
		$html_head =~ s/\<\<\>\>/\n/g;
	}
	else{
		$info_title = "INTERNAL ERROR!";
		$info = "Header area not found!<br>Check the file: <b>$style_file</b>!";
		&info;
	}
	
	$html_body = $style_temp;
	if($html_body =~ m/\<\-Anfang HTML Body\-\>(.*)<\-Ende HTML Body\-\>/){
		$html_body =~ s/(.*)(\<\-Anfang HTML Body\-\>)(.*)(\<\-Ende HTML Body\-\>)(.*)/$3/;
		$html_body =~ s/\<\<\>\>/\n/g;
	}
	else{
		$info_title = "INTERNAL ERROR!";
		$info = "Body area not found!<br>Check the file: <b>$style_file</b>!";
		&info;
	}
	
	$html_foot = $style_temp;
	if($html_foot =~ m/\<\-Anfang HTML Foot\-\>(.*)<\-Ende HTML Foot\-\>/){
		$html_foot =~ s/(.*)(\<\-Anfang HTML Foot\-\>)(.*)(\<\-Ende HTML Foot\-\>)(.*)/$3/;
		$html_foot =~ s/\<\<\>\>/\n/g;
	}
	else{
		$info_title = "INTERNAL ERROR!";
		$info = "Foot area not found!<br>Check the file: <b>$style_file</b>!";
		&info;
	}
	
	$page_definition = $style_temp;
	$CSS_Area = $style_temp;
	################# Checke Variablen in Style File ########################
	if($page_definition !~ /Max_Entries_Per_Page\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Max_Entries_Per_Page\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Max_Word_Length\=\"/){
		#Fuer alle Versionen bis 1.07
		$MxWL = "Max_Word_Length=\"40\"=\n";
		open(STYLE, "<$style_file") or die "Cannot open $style_file";
		while(<STYLE>){
			$MxWL_String .= $_;
		}
		close(STYLE);
		$MxWL_String =~ s/(.*)(Max_Entries_Per_Page\=\")(\d+)(\"\=\n)(.*)/$1$2$3$4$MxWL$5/;
		unless (open(STYLE, ">$style_file")){
			$style_file =~ s/$dir\///;
			$dir =~ s/\.\///;
			$info_title = "Access Denied!";
			$info = "Cannot write information to the file <b>$style_file</b> in folder <b>$dir</b>";
			$info_reason = "If you have edited this file before, please chmod <b>777</b> and try again!<br><br>";
			$info_login = "Version: <b>$Version</b>";
			&info;
		}
		print STYLE $MxWL_String;
		close(STYLE);
		undef $MxWL;
		undef $MxWL_String;
	}
	if($page_definition !~ /Vietuni\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Vietuni\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Vietnamese_Typing_Script\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Vietnamese_Typing_Script\=\"</b> not found!";
		&info;
	}


########## Anfang FPG Codes und Smileys ############################
	##### Erst die Varialblen prüfen ###########################
	if(($page_definition !~ /FPG_And_Smileys_Script\=\"/) and ($page_definition !~ /FPG_Codes\=\"/) and ($page_definition !~ /Smileys\=\"/)){
		# fuer alle Versionen bis 1.16 #
		$stl_116 = "FPG_And_Smileys_Script=\"$file_url/scripts/fpg_and_smileys.js\"=\nFPG_Codes=\"on\"=\nSmileys=\"on\"=\n\nVietuni=";
		open(STYLE, "<$style_file") or die "Cannot open $style_file $!";
		while(<STYLE>){
			$style_116 .= $_;
		}
		$style_116 =~ s/Vietuni=/$stl_116/gs;
		close(STYLE);
		
		unless (open(STYLE, ">$style_file")){
			$style_file =~ s/$dir\///;
			$dir =~ s/\.\///;
			$info_title = "Access Denied!";
			$info = "Cannot write information to the file <b>$style_file</b> in folder <b>$dir</b>";
			$info_reason = "If you have edited this file before, please chmod <b>777</b> and try again!<br><br>";
			$info_login = "Version: <b>$Version</b>";
			&info;
		}
		print STYLE $style_116;
		close(STYLE);
		
		$info_title = "Reload required!";
		$info = "The file <b>$style_file</b> has been updated/repaired!";
		$info .= "<script language=\"javascript\">function weiter\(\)\{location.href=\"$ENV{'SCRIPT_NAME'}\"\;\} setTimeout(\"weiter\(\)\", 3000\)\;</script>";
		$info_reason = "Please click on the button below to reload your guestbook!<br>";
		$info_reason .= "You see this message because you have just upgraded this guestbook or edited the style file";
		$info_login = qq(<form action="$ENV{'SCRIPT_NAME'}" method="post">
			<center>
				<input type="submit" value="Reload Guestbook!">
			</center>
			</form>);
		&info;
	}
			
	if($page_definition !~ /FPG_And_Smileys_Script\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>FPG_And_Smileys_Script\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Smileys\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Smileys\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /FPG_Codes\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>FPG_Codes\=\"</b> not found!";
		&info;
	}
########## Ende FPG Codes und Smileys ############################
	
	
	
	if($page_definition !~ /Owner_Homepage\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Owner_Homepage\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Book_Title_Text\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Book_Title_Text\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Book_Title_Image\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Book_Title_Image\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Email_Icon\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Email_Icon\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Homepage_Icon\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Homepage_Icon\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Big_Table_Width\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Big_Table_Width\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Big_Table_BgColor\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Big_Table_BgColor\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Big_Table_Background\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Big_Table_Background\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Big_Table_Spacing\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Big_Table_Spacing\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Big_Table_Padding\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Big_Table_Padding\=\"</b> not found!";
		&info;
	}
	
	if($page_definition !~ /Table_Width\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Table_Width\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Table_BgColor\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Table_BgColor\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Table_Background\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Table_Background\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Table_Spacing\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Table_Spacing\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Table_Padding\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Table_Padding\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Font_Face\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Font_Face\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Font_Color\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Font_Color\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Font_Size\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Font_Size\=\"</b> not found!";
		&info;
	}
	if(($page_definition !~ /Message_BgColor\=\"/) and ($page_definition !~ /Message_Header_BgColor\=\"/) and ($page_definition !~ /Message_Footer_BgColor\=\"/)){
		# fuer alle Versionen bis 1.12 #
		$stl_113 = "Message_BgColor=\"\#ffffff\"=\nMessage_Header_BgColor=\"\#f0f0f0\"=\nMessage_Footer_BgColor=\"\#f0f0f0\"=\n\nEmail_Icon=";
		open(STYLE, "<$style_file") or die "Cannot open $style_file $!";
		while(<STYLE>){
			$style_113 .= $_;
		}
		$style_113 =~ s/Email_Icon=/$stl_113/gs;
		close(STYLE);
		
		unless (open(STYLE, ">$style_file")){
			$style_file =~ s/$dir\///;
			$dir =~ s/\.\///;
			$info_title = "Access Denied!";
			$info = "Cannot write information to the file <b>$style_file</b> in folder <b>$dir</b>";
			$info_reason = "If you have edited this file before, please chmod <b>777</b> and try again!<br><br>";
			$info_login = "Version: <b>$Version</b>";
			&info;
		}
		print STYLE $style_113;
		close(STYLE);
		
		$info_title = "Reload required!";
		$info = "The file <b>$style_file</b> has been updated/repaired!";
		$info .= "<script language=\"javascript\">function weiter\(\)\{location.href=\"$ENV{'SCRIPT_NAME'}\"\;\} setTimeout(\"weiter\(\)\", 3000\)\;</script>";
		$info_reason = "Please click on the button below to reload your guestbook!<br>";
		$info_reason .= "You see this message because you have just upgraded this guestbook or edited the style file";
		$info_login = qq(<form action="$ENV{'SCRIPT_NAME'}" method="post">
			<center>
				<input type="submit" value="Reload Guestbook!">
			</center>
			</form>);
		&info;
	}
	if($page_definition !~ /Dirty_Words_Filter_Status\=\"/){
		$bwfst = "Dirty_Words_Filter_Status=\"on\"=\nDirty_Words_Filter_Option=\"error\"=\n\nBig_Table_Width=";
		open(STYLE, "$style_file") or die "Cannot open $style_file $!";
		while(<STYLE>){
			$style_bwfst .= $_;
		}
		$style_bwfst =~ s/Big_Table_Width=/$bwfst/gs;
		close(STYLE);
		
		unless (open(STYLE, ">$style_file")){
			$style_file =~ s/$dir\///;
			$dir =~ s/\.\///;
			$info_title = "Access Denied!";
			$info = "Cannot write information to the file <b>$style_file</b> in folder <b>$dir</b>";
			$info_reason = "If you have edited this file before, please chmod <b>777</b> and try again!<br><br>";
			$info_login = "Version: <b>$Version</b>";
			&info;
		}
		print STYLE $style_bwfst;
		close(STYLE);
	}
	if($page_definition !~ /Message_BgColor\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Message_BgColor\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Message_Header_BgColor\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Message_Header_BgColor\=\"</b> not found!";
		&info;
	}
	if($page_definition !~ /Message_Footer_BgColor\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$style_file</b> for error!<br>String <b>Message_Footer_BgColor\=\"</b> not found!";
		&info;
	}
	######## FUER ALLE VERSIONEN BIS 1.19 ################################
	if($page_definition !~ /TimezoneOffset\=\"/){
		open(DH, "<$style_file") or die "Cannot open $style_file! $!";
		while(<DH>){
			$style_119 .= $_;
		}
		close(DH);
		$stl_119 = "TimezoneOffset\=\"0\"\=\n\n\<\-Ende PAGE Definition\-\>";
		$style_119 =~ s/\<\-Ende PAGE Definition\-\>/$stl_119/igs;
		
		open(DH, ">$style_file") or die "Cannot open $style_file! $!";
		print DH $style_119;
		close(DH);
		
		$info_title = "Reload required!";
		$info = "The file <b>$style_file</b> has been updated/repaired!";
		$info .= "<script language=\"javascript\">function weiter\(\)\{location.href=\"$ENV{'SCRIPT_NAME'}\"\;\} setTimeout(\"weiter\(\)\", 3000\)\;</script>";
		$info_reason = "Please click on the button below to reload your guestbook!<br>";
		$info_reason .= "You see this message because you have just upgraded this guestbook or edited the style file";
		$info_login = qq(<form action="$ENV{'SCRIPT_NAME'}" method="post">
			<center>
				<input type="submit" value="Reload Guestbook!">
			</center>
			</form>);
		&info;
	}	
	################# Style Varablen ########################################
	@page_definition_array = split(/\<\<\>\>/, $page_definition);
	$tda = 0;
	while($tda < scalar @page_definition_array){
		
		if($page_definition_array[$tda] =~ m/Max_Entries_Per_Page\=\"(.*)\"\=/){
			$Max_Entries_Per_Page = $page_definition_array[$tda];
			$Max_Entries_Per_Page =~ s/Max_Entries_Per_Page\=\"(.*)\"\=/$1/;
		}
		
		if($page_definition_array[$tda] =~ m/Max_Word_Length\=\"(.*)\"\=/){
			$Max_Word_Length = $page_definition_array[$tda];
			$Max_Word_Length =~ s/Max_Word_Length\=\"(.*)\"\=/$1/;
		}
		
		if($page_definition_array[$tda] =~ m/Book_Title_Text\=\"(.*)\"\=/){
			$Book_Title_Text = $page_definition_array[$tda];
			$Book_Title_Text =~ s/Book_Title_Text\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Book_Title_Image\=\"(.*)\"\=/){
			$Book_Title_Image = $page_definition_array[$tda];
			$Book_Title_Image =~ s/Book_Title_Image\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/GB_BgColor\=\"(.*)\"\=/){
			$GB_BgColor = $page_definition_array[$tda];
			$GB_BgColor =~ s/GB_BgColor\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/GB_Background\=\"(.*)\"\=/){
			$GB_Background = $page_definition_array[$tda];
			$GB_Background =~ s/GB_Background\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Message_BgColor\=\"(.*)\"\=/){
			$Message_BgColor = $page_definition_array[$tda];
			$Message_BgColor =~ s/Message_BgColor\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Message_Header_BgColor\=\"(.*)\"\=/){
			$Message_Header_BgColor = $page_definition_array[$tda];
			$Message_Header_BgColor =~ s/Message_Header_BgColor\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Message_Footer_BgColor\=\"(.*)\"\=/){
			$Message_Footer_BgColor = $page_definition_array[$tda];
			$Message_Footer_BgColor =~ s/Message_Footer_BgColor\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Email_Icon\=\"(.*)\"\=/){
			$Email_Icon = $page_definition_array[$tda];
			$Email_Icon =~ s/Email_Icon\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Homepage_Icon\=\"(.*)\"\=/){
			$Homepage_Icon = $page_definition_array[$tda];
			$Homepage_Icon =~ s/Homepage_Icon\=\"(.*)\"\=/$1/;
		}
		
		if($page_definition_array[$tda] =~ m/Vietuni\=\"(.*)\"\=/){
			$Vietuni = $page_definition_array[$tda];
			$Vietuni =~ s/Vietuni\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Vietnamese_Typing_Script\=\"(.*)\"\=/){
			$Vietnamese_Typing_Script = $page_definition_array[$tda];
			$Vietnamese_Typing_Script =~ s/Vietnamese_Typing_Script\=\"(.*)\"\=/$1/;
		}
		
		if($page_definition_array[$tda] =~ m/FPG_And_Smileys_Script\=\"(.*)\"\=/){
			$FPG_And_Smileys_Script = $page_definition_array[$tda];
			$FPG_And_Smileys_Script =~ s/FPG_And_Smileys_Script\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Smileys\=\"(.*)\"\=/){
			$Smileys = $page_definition_array[$tda];
			$Smileys =~ s/Smileys\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/FPG_Codes\=\"(.*)\"\=/){
			$FPG_Codes = $page_definition_array[$tda];
			$FPG_Codes =~ s/FPG_Codes\=\"(.*)\"\=/$1/;
		}
		
		if($page_definition_array[$tda] =~ m/Owner_Homepage\=\"(.*)\"\=/){
			$Owner_Homepage = $page_definition_array[$tda];
			$Owner_Homepage =~ s/Owner_Homepage\=\"(.*)\"\=/$1/;
		}
		
		if($page_definition_array[$tda] =~ m/Dirty_Words_Filter_Status\=\"(.*)\"\=/){
			$Dirty_Words_Filter_Status = $page_definition_array[$tda];
			$Dirty_Words_Filter_Status =~ s/Dirty_Words_Filter_Status\=\"(.*)\"\=/$1/;
		}
		
		if($page_definition_array[$tda] =~ m/Dirty_Words_Filter_Option\=\"(.*)\"\=/){
			$Dirty_Words_Filter_Option = $page_definition_array[$tda];
			$Dirty_Words_Filter_Option =~ s/Dirty_Words_Filter_Option\=\"(.*)\"\=/$1/;
		}
		
		if($page_definition_array[$tda] =~ m/Big_Table_Width\=\"(.*)\"\=/){
			$Big_Table_Width = $page_definition_array[$tda];
			$Big_Table_Width =~ s/Big_Table_Width\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Big_Table_BgColor\=\"(.*)\"\=/){
			$Big_Table_BgColor = $page_definition_array[$tda];
			$Big_Table_BgColor =~ s/Big_Table_BgColor\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Big_Table_Background\=\"(.*)\"\=/){
			$Big_Table_Background = $page_definition_array[$tda];
			$Big_Table_Background =~ s/Big_Table_Background\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Big_Table_Spacing\=\"(.*)\"\=/){
			$Big_Table_Spacing = $page_definition_array[$tda];
			$Big_Table_Spacing =~ s/Big_Table_Spacing\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Big_Table_Padding\=\"(.*)\"\=/){
			$Big_Table_Padding = $page_definition_array[$tda];
			$Big_Table_Padding =~ s/Big_Table_Padding\=\"(.*)\"\=/$1/;
		}
		
		
		
		if($page_definition_array[$tda] =~ m/Table_Width\=\"(.*)\"\=/){
			$Table_Width = $page_definition_array[$tda];
			$Table_Width =~ s/Table_Width\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Table_BgColor\=\"(.*)\"\=/){
			$Table_BgColor = $page_definition_array[$tda];
			$Table_BgColor =~ s/Table_BgColor\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Table_Background\=\"(.*)\"\=/){
			$Table_Background = $page_definition_array[$tda];
			$Table_Background =~ s/Table_Background\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Table_Spacing\=\"(.*)\"\=/){
			$Table_Spacing = $page_definition_array[$tda];
			$Table_Spacing =~ s/Table_Spacing\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Table_Padding\=\"(.*)\"\=/){
			$Table_Padding = $page_definition_array[$tda];
			$Table_Padding =~ s/Table_Padding\=\"(.*)\"\=/$1/;
		}
		
		
		
		if($page_definition_array[$tda] =~ m/Font_Face\=\"(.*)\"\=/){
			$Font_Face = $page_definition_array[$tda];
			$Font_Face =~ s/Font_Face\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Font_Size\=\"(.*)\"\=/){
			$Font_Size = $page_definition_array[$tda];
			$Font_Size =~ s/Font_Size\=\"(.*)\"\=/$1/;
		}
		if($page_definition_array[$tda] =~ m/Font_Color\=\"(.*)\"\=/){
			$Font_Color = $page_definition_array[$tda];
			$Font_Color =~ s/Font_Color\=\"(.*)\"\=/$1/;
		}
		
		if($page_definition_array[$tda] =~ m/TimezoneOffset\=\"(.*)\"\=/){
			$TimezoneOffset = $page_definition_array[$tda];
			$TimezoneOffset =~ s/TimezoneOffset\=\"(.*)\"\=/$1/;
		}
		$tda++;
	}
	$CSS_Area =~ s/\<\<\>\>/\n/g;
	$CSS_Area =~ s/(.*)(\<style.*\<\/style\>)(.*)/$2/igs;
	$CSS_Area =~ s/\</&lt;/g;
	$CSS_Area =~ s/\>/&gt;/g;
	
	undef $page_definition;
	undef $style_temp;
	
	######## Lese Language File #########################################
	if((!$cop1) or (!$cop2)){
		$info_title = "INTERNAL ERROR!";
		$info="Error!";
		&info;
	}
	#####################################################################
	if(not(-e $language_file)){
		$info_title = "INTERNAL ERROR!";
		$language_file =~ s/$dir\///ig;
		$info = "The file: <b>$language_file</b> does not exist!";
		&info;
	}
	open(LANG, "$language_file") or die "Cannot open $language_file";
	while(<LANG>){
		$lang_temp .= $_;
		$lang_temp =~ s/\r?//ig;
	}
	
	######## Checke Variablen in Language File ###########################
	if($lang_temp !~ m/Owner_Name\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Owner_Name=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Owner_Email\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Owner_Email=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Owner_Replied\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Owner_Replied=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Total_Entries\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Total_Entries=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/On_Page\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>On_Page=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Total_Pages\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Total_Pages=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Viewing_Page\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Viewing_Page=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Homepage\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Homepage=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/JS_First_Page\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>JS_Firstpage=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/User_Is_From\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>User_Is_From=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/User_Wrote_On\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>User_Wrote_On=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/User_Wrote_At\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>User_Wrote_At=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/JS_Last_Page\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>JS_Last_Page=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/JS_Please_Fill_In_Required\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>JS_Please_Fill_In_Required=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/FORM_Required\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>FORM_Required=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/FORM_Select_Page\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>FORM_Select_Page=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/FORM_Sign_Button\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>FORM_Sign_Button=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/View_Guestbook\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>View_Guestbook=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Preview_Of_Your_Message\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Preview_Of_Your_Message=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Feel_Free_To_Tell\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Feel_Free_To_Tell=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Your_Name\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Your_Name=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Your_Email\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Your_Email=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Your_URL\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Your_URL=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Your_Home\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Your_Home=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Your_Message\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Your_Message=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/FORM_View_Button\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>FORM_View_Button=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/FORM_Write_Button\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>FORM_Write_Button=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/FORM_Reset_Button\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>FORM_Reset_Button=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/FORM_Back_Button\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>FORM_Back_Button=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Sign_Options\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Sign_Options=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/English_Typing\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>English_Typing=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Vietnamese_Typing\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Vietnamese_Typing=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/HTML_Disabled\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>HTML_Disabled=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Preview\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Preview=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Thank_Title\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Thank_Title=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Thank_Message\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Thank_Message=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Email_Not_Valid=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Email_Not_Valid=\"</b> not found!";
		&info;
	}
	if($lang_temp !~ m/Email_Not_Valid_Message\=\"/){
		$info_title = "INTERNAL ERROR!";
		$info = "Check the file: <b>$language_file</b> for error!<br>String <b>Email_Not_Valid_Message=\"</b> not found!";
		&info;
	}
	
	########## Language Variablen ########################################
	if(($tdpn_1 !~ m/v\w{5}\.\w\w/g) or ($tdpn_1 !~ m/D\w{7}\s\w{4}\s\w{3}l\s/)){
		$info_title="ERROR!";
		$info=$cop1;
		$info_reason="";
		$info_login="";
		&info;
	}
	######################################################################
	#       Bei unbekannten Fehler, Variablen-Namen checken, z.B.        #
	#               Table_Color=""= => Big_Table_Color=""=               #
	######################################################################
	@lang_temp_array = split(/\n/, $lang_temp);
	my $lta = 0;
	while($lta < scalar @lang_temp_array){
		if($lang_temp_array[$lta] =~ m/Charset\=\"(.*)\"\=/g){
			$Charset = $lang_temp_array[$lta];
			$Charset =~ s/Charset\=\"(.*)\"\=/$1/g;
			$Charset_Meta = "\<meta http-equiv=\"Content-Type\" content=\"text\/html\; charset=".$Charset."\"\>";
		}
		if($lang_temp_array[$lta] =~ m/Owner_Name\=\"(.*)\"\=/g){
			$Owner_Name = $lang_temp_array[$lta];
			$Owner_Name =~ s/Owner_Name\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Owner_Email\=\"(.*)\"\=/g){
			$Owner_Email = $lang_temp_array[$lta];
			$Owner_Email =~ s/Owner_Email\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Owner_Replied\=\"(.*)\"\=/g){
			$Owner_Replied = $lang_temp_array[$lta];
			$Owner_Replied =~ s/Owner_Replied\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Total_Entries\=\"(.*)\"\=/g){
			$Total_Entries = $lang_temp_array[$lta];
			$Total_Entries =~ s/Total_Entries\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/On_Page\=\"(.*)\"\=/g){
			$On_Page = $lang_temp_array[$lta];
			$On_Page =~ s/On_Page\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Total_Pages\=\"(.*)\"\=/g){
			$Total_Pages = $lang_temp_array[$lta];
			$Total_Pages =~ s/Total_Pages\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Viewing_Page\=\"(.*)\"\=/g){
			$Viewing_Page = $lang_temp_array[$lta];
			$Viewing_Page =~ s/Viewing_Page\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Homepage\=\"(.*)\"\=/g){
			$Homepage = $lang_temp_array[$lta];
			$Homepage =~ s/Homepage\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/User_Is_From\=\"(.*)\"\=/g){
			$User_Is_From = $lang_temp_array[$lta];
			$User_Is_From =~ s/User_Is_From\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/User_Wrote_On\=\"(.*)\"\=/g){
			$User_Wrote_On = $lang_temp_array[$lta];
			$User_Wrote_On =~ s/User_Wrote_On\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/User_Wrote_At\=\"(.*)\"\=/g){
			$User_Wrote_At = $lang_temp_array[$lta];
			$User_Wrote_At =~ s/User_Wrote_At\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/JS_First_Page\=\"(.*)\"\=/g){
			$JS_First_Page = $lang_temp_array[$lta];
			$JS_First_Page =~ s/JS_First_Page\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/JS_Last_Page\=\"(.*)\"\=/g){
			$JS_Last_Page = $lang_temp_array[$lta];
			$JS_Last_Page =~ s/JS_Last_Page\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/JS_Please_Fill_In_Required\=\"(.*)\"\=/g){
			$JS_Please_Fill_In_Required = $lang_temp_array[$lta];
			$JS_Please_Fill_In_Required =~ s/JS_Please_Fill_In_Required\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/FORM_Required\=\"(.*)\"\=/g){
			$FORM_Required = $lang_temp_array[$lta];
			$FORM_Required =~ s/FORM_Required\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/FORM_Select_Page\=\"(.*)\"\=/g){
			$FORM_Select_Page = $lang_temp_array[$lta];
			$FORM_Select_Page =~ s/FORM_Select_Page\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/FORM_Sign_Button\=\"(.*)\"\=/g){
			$FORM_Sign_Button = $lang_temp_array[$lta];
			$FORM_Sign_Button =~ s/FORM_Sign_Button\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/View_Guestbook\=\"(.*)\"\=/g){
			$View_Guestbook = $lang_temp_array[$lta];
			$View_Guestbook =~ s/View_Guestbook\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Feel_Free_To_Tell\=\"(.*)\"\=/g){
			$Feel_Free_To_Tell = $lang_temp_array[$lta];
			$Feel_Free_To_Tell =~ s/Feel_Free_To_Tell\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Preview_Of_Your_Message\=\"(.*)\"\=/g){
			$Preview_Of_Your_Message = $lang_temp_array[$lta];
			$Preview_Of_Your_Message =~ s/Preview_Of_Your_Message\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Your_Name\=\"(.*)\"\=/g){
			$Your_Name = $lang_temp_array[$lta];
			$Your_Name =~ s/Your_Name\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Your_Email\=\"(.*)\"\=/g){
			$Your_Email = $lang_temp_array[$lta];
			$Your_Email =~ s/Your_Email\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Your_URL\=\"(.*)\"\=/g){
			$Your_URL = $lang_temp_array[$lta];
			$Your_URL =~ s/Your_URL\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Your_Home\=\"(.*)\"\=/g){
			$Your_Home = $lang_temp_array[$lta];
			$Your_Home =~ s/Your_Home\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Your_Message\=\"(.*)\"\=/g){
			$Your_Message = $lang_temp_array[$lta];
			$Your_Message =~ s/Your_Message\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/FORM_View_Button\=\"(.*)\"\=/g){
			$FORM_View_Button = $lang_temp_array[$lta];
			$FORM_View_Button =~ s/FORM_View_Button\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/FORM_Write_Button\=\"(.*)\"\=/g){
			$FORM_Write_Button = $lang_temp_array[$lta];
			$FORM_Write_Button =~ s/FORM_Write_Button\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/FORM_Reset_Button\=\"(.*)\"\=/g){
			$FORM_Reset_Button = $lang_temp_array[$lta];
			$FORM_Reset_Button =~ s/FORM_Reset_Button\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/FORM_Back_Button\=\"(.*)\"\=/g){
			$FORM_Back_Button = $lang_temp_array[$lta];
			$FORM_Back_Button =~ s/FORM_Back_Button\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Sign_Options\=\"(.*)\"\=/g){
			$Sign_Options = $lang_temp_array[$lta];
			$Sign_Options =~ s/Sign_Options\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/English_Typing\=\"(.*)\"\=/g){
			$English_Typing = $lang_temp_array[$lta];
			$English_Typing =~ s/English_Typing\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Vietnamese_Typing\=\"(.*)\"\=/g){
			$Vietnamese_Typing = $lang_temp_array[$lta];
			$Vietnamese_Typing =~ s/Vietnamese_Typing\=\"(.*)\"\=/$1/g;
			##### Bei anderen Sprachen ausblenden ####################
			if($Vietnamese_Typing eq "no"){
				$Vietnamese_Typing = "";
			}
			else{
				$Vietnamese_Typing  = "\<input type\=\"radio\" name\=\"Vietnamese_Typing\" value\=\"on\" onFocus\=\"setTypingMode\(1\)\" \> $Vietnamese_Typing\n";
				$Vietnamese_Typing .= "\<input type\=\"radio\" name\=\"Vietnamese_Typing\" value\=\"off\" onFocus\=\"setTypingMode\(0\)\" checked\> $English_Typing\n";
			}
		}
		if($lang_temp_array[$lta] =~ m/HTML_Disabled\=\"(.*)\"\=/g){
			$HTML_Disabled = $lang_temp_array[$lta];
			$HTML_Disabled =~ s/HTML_Disabled\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Preview\=\"(.*)\"\=/g){
			$Preview = $lang_temp_array[$lta];
			$Preview =~ s/Preview\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Thank_Title\=\"(.*)\"\=/g){
			$Thank_Title = $lang_temp_array[$lta];
			$Thank_Title =~ s/Thank_Title\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Thank_Message\=\"(.*)\"\=/g){
			$Thank_Message = $lang_temp_array[$lta];
			$Thank_Message =~ s/Thank_Message\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Email_Not_Valid\=\"(.*)\"\=/g){
			$Email_Not_Valid = $lang_temp_array[$lta];
			$Email_Not_Valid =~ s/Email_Not_Valid\=\"(.*)\"\=/$1/g;
		}
		if($lang_temp_array[$lta] =~ m/Email_Not_Valid_Message\=\"(.*)\"\=/g){
			$Email_Not_Valid_Message = $lang_temp_array[$lta];
			$Email_Not_Valid_Message =~ s/Email_Not_Valid_Message\=\"(.*)\"\=/$1/g;
		}
		$lta++;
	}
	
	undef $lang_temp;

######## Die Guestbook Datei Ueberpruefen ######
	if(not(-e $guestbook_datei)){
		
		open(DATEI, ">$guestbook_datei") or die "Cannot open $guestbook_datei!";
		#flock(DATEI, 2);
		print DATEI "";
		#flock(DATEI, 8);
		close(DATEI);
		
		chmod 0777, $guestbook_datei;
	
		$info_title = "FILE NOT FOUND!";
		$guestbook_datei =~ s/$dir\///ig;
		$info = "Data file: <b>$guestbook_datei</b> not found!<br><br>\n";
		$info .= "Generating <b>$guestbook_datei</b>... Please wait...!";
		$info .= "<script language=\"javascript\">function weiter\(\)\{location.href=\"$ENV{'SCRIPT_NAME'}\"\;\} setTimeout(\"weiter\(\)\", 3000\)\;</script>";
		&info;
	}

######## Ende Funktion read_files ######################################
}
######## Letzten Eintrag ermitteln und anzeigen ########################
sub last_entry{
	my @temp;
	open(DATA, "<$guestbook_datei") or die "Cannot open $guestbook_datei";
	@temp = <DATA>;
	close(DATA);
	my $last_entry = pop @temp;
	chomp $last_entry;
	my @entry = split(/\|/, $last_entry);
	my $his_date = $entry[3] + ($TimezoneOffset * 3600);
	my ($sec, $min, $std, $tag, $mon, $jahr) = localtime($his_date);
	
		$jahr = $jahr + 1900;
		
		$sec  = &zweistellig ($sec);
		$min  = &zweistellig ($min);
		$std  = &zweistellig ($std);
		$tag  = &zweistellig ($tag);
		$mon  = &zweistellig (++$mon);
		
	$his_date = "$tag.$mon.$jahr";
		if($Book_Language eq "en"){
			$his_date = "$jahr-$mon-$tag";
		}
	$his_time = "$std:$min:$sec";
	$his_message = $entry[2];
	$his_name = $entry[1];
	
	&convert_from;
	&convert_fpg;
	
	print $conttype;
	print qq~
		$html_head
		<meta name="author" content="Tri Dung Nguyen">
		<meta name="description" content="Download Free Perl Guestbook @ www.vitinh.de">
		$Charset_Meta
		$css
		<base target="_new">
		<body bgcolor="$GB_BgColor" background="$GB_Background" topmargin="10" leftmargin="10" rightmargin="10" bottommargin="10">
		~;
	if(@temp != 0){
		print qq~
			<table width="100%" height="100%" cellpadding="3" cellspacing="0">
			<tr>
                   	<td bgcolor="$Message_Header_BgColor" valign="top" class="text">
                   	<small>
                		<b>$his_name</b> $User_Wrote_On $his_date $User_Wrote_At $his_time
                	</small>
                	</td>
                	</tr>
			<tr>
			<td height ="100%" bgcolor="$Message_BgColor" valign="top" class="text">
			<small>
				$his_message<br><br>
				<a href="$ENV{'SCRIPT_NAME'}" target="_blank">$FORM_View_Button &raquo;&raquo;&raquo;</a>
			</small>
			</td>
			</tr>
			</table>
			~;
		}
	else{
		print qq~
			<table width="100%" height="100%" cellpadding="3" cellspacing="0" bgcolor="$Message_BgColor">
			<tr>
			<td valign="top" class="text">
			<small>
				$Feel_Free_To_Tell<br><br>
				<a href="$ENV{'SCRIPT_NAME'}?action=sign" target="_blank">$FORM_Sign_Button &raquo;&raquo;&raquo;</a>
			</small>
			</td>
			</tr>
			</table>
			~;
		}
	print qq~
		$html_foot
		~;
}
######## Die Eintraege zeigen ##########################################
sub create_page{
	open(DATA, "<$guestbook_datei") or die "Cannot open $guestbook_datei";
	while(<DATA>){
		$temp .= $_;
	}
	close(DATA);

	print $conttype;
	print qq~
		$html_head
		<meta name="author" content="Tri Dung Nguyen">
		<meta name="description" content="Download Free Perl Guestbook @ www.vitinh.de">
		$Charset_Meta
		$css
		<base target="_new">
		$html_body
		~;
		
	if(($Book_Title_Text eq "") and ($Book_Title_Image eq "")){
		print qq~
		<center><font face="$Font_Face" color="$Font_Color" size="$Font_Size">$guestgook_title_images_online</font></center><br>
		~;
	}
	else{
		if($Book_Title_Image ne ""){
			print qq~
			<center><img src="$Book_Title_Image" border="0" alt="Free Perl Guestbook"></center><br>
			~;
		}
		else{
			print qq~
			<center><font face="$Font_Face" color="$Font_Color" size="$Font_Size"><b>$Book_Title_Text</b></font></center><br>
			~;
		}
	}
	
	@entries = split(/\n/, $temp);
	@entries = reverse @entries;
	my $total = scalar @entries; ### Anzahl der Eintraege
	$No_Message_Written = "";
	if($total == 0){
		$No_Message_Written = qq(<table border="0" width="$Big_Table_Width" bgcolor="$Big_Table_BgColor" cellpadding="$Table_Padding" cellspacing="$Table_Spacing" align="center"><tr>
			<td valign="top" background="$Table_Background" bgcolor="$Big_Table_BgColor">
		                <table width="100%" bgcolor="white" cellspacing="0" cellpadding="5">
		                   	<tr>
		                   		<td bgcolor="$Message_Footer_BgColor" valign="top">
		                			<span class="text"><i><b>$Owner_Name</b></i></span>
		                		</td>
		                	</tr>
		                   	<tr>
		                       		<td bgcolor="$Message_BgColor" valign="top">
		                       		  	<table width="100%" border="0" cellspacing="0" cellpadding="10">
		                       		  	<tr>
		                       		  	<td valign="top">
		                       				<div class="text">
		                       					$Feel_Free_To_Tell
		                       				</div>
		                       			</td>
		                       			</tr>
		                       			</table>
		                       		</td>
		                   	</tr>
		                   	<tr>
		                   		<td valign="top" align="right" bgcolor="$Message_Footer_BgColor">
		                   			<span class="text_reply">[No message written]</span>
		                   		</td>
		                   	</tr>
		                </table>
		        </td>
			</tr>
			</table>
			<br>);
	}
	
	$max_pp = $Max_Entries_Per_Page;
		if((!$max_pp) or ($max_pp < 0) or ($max_pp !~ m/^[0-9]{1,3}$/)){
			$max_pp = 10;
		}
	$num_of_pages = $total/$max_pp; ### Seitenanzahl

	
	if($num_of_pages > int ($num_of_pages)){
		$num_of_pages = int ($num_of_pages) + 1; ### abgerundet
	}
	elsif($num_of_pages < int ($num_of_pages)){
		$num_of_pages = int ($num_of_pages); ### aufgerundet
	}
	
	######### Verhindert, dass es null Eintraege auf null Seiten gibt #########
	$num_of_pages_to_show = $num_of_pages;
	if(($num_of_pages_to_show == 0) or ($num_of_pages_to_show == 1)){
		$num_of_pages_to_show = 1;
		
		############## Plural oder singular ##################
		if($Total_Pages eq "pages"){
			$Total_Pages = "page";
		}
		elsif($Total_Pages eq "Seiten"){
			$Total_Pages = "Seite";
		}
		elsif(($Total_Pages eq "pagina's") or ($Total_Pages eq "Pagina's")){
			$Total_Pages = "pagina";
		}
		elsif(($Total_Pages eq "pagine") or ($Total_Pages eq "Pagine")){
			$Total_Pages = "pagina";
		}
	}
	
	############ Zu klein oder zu gross vermeiden ##################
	
	if((!$page_to_show) or ($page_to_show < 1)){
		$page_to_show = 1;
	}
	elsif($page_to_show > $num_of_pages){
		$page_to_show = $num_of_pages;
	}
	
	############ Links erzeugen ####################################
	$start_entry = ($page_to_show - 1) * $max_pp;
	if($total){
		@entries_to_show = splice(@entries, $start_entry, $max_pp);
	}
	else{
		@entries_to_show = ();
	}
	$next_page = $page_to_show + 1;
	$previous_page = $page_to_show - 1;
	
	#### Total entries: 100 on 10 pages viewing page: 1 ############
	print qq~ 
	<script language="JavaScript">
		function view_page(){
			var num = document.page.select.options[document.page.select.selectedIndex].value;
			location.href = num;
		}
		function view_page_bottom(){
			var num = document.page.select_bottom.options[document.page.select_bottom.selectedIndex].value;
			location.href = num;
		}
		function sign(){
			location.href="$ENV{'SCRIPT_NAME'}\?action=sign";
		}
		function previous_page(){
			var pre = $page_to_show;
			if(pre < 2){
				alert("$JS_First_Page");
			}
			else{
				location.href="$ENV{'SCRIPT_NAME'}\?page_to_show=$previous_page";
			}
		}
		function next_page(){
			var nexx = $page_to_show;
			if(nexx > $num_of_pages || nexx == $num_of_pages){
				alert("$JS_Last_Page");
			}
			else{
				location.href="$ENV{'SCRIPT_NAME'}\?page_to_show=$next_page";
			}
		}
	</script>
	
	<form name="page" method="post">
	<table border="0" width="$Big_Table_Width" bgcolor="$Big_Table_BgColor" cellpadding="$Big_Table_Padding" cellspacing="$Big_Table_Spacing" align="center">
	<tr>
	<td bgcolor="$Big_Table_BgColor" valign="top" align="center">
		<table background="$Big_Table_Background" width="100%" cellpadding="10" cellspacing="0" border="0">
		<tr>
		<td valign="top">
			<input type="button" value="$FORM_Sign_Button" class="button" onClick="sign()">
		</td>
		<td valign="top" align="center" width="100%">
		<div class="text_reply">
			<font size="1">
			$Total_Entries <b>$total</b>
			$On_Page 
			<b>$num_of_pages_to_show</b> $Total_Pages<br>
			$Viewing_Page <b>$page_to_show</b>
			</font>
		</div>
		</td>
		<td valign="top" align="right" nowrap>
			<input type="button" value=" << " onClick="previous_page()" class="button">
			<select name="select" onChange="view_page()" class="select">
			<option value="1">$FORM_Select_Page</option>
		~;
		
		my $x = 1;
		while($x < ($num_of_pages + 1)){
			print qq~
			<option value="$ENV{'SCRIPT_NAME'}\?page_to_show=$x"> $x </option>
			~;
		$x++;
		}
	
	print qq~
		</select>
		<input type="button" value=" >> " onClick="next_page()" class="button">
		</td>
		</tr>
		</table>
	</td>
	</tr>
	</table>
	
	<br><br>
	$No_Message_Written
	~;
	
######## Hier kommt der Eintrag ###################################
my $count = 0;
while($count < scalar @entries_to_show){
	@e_t_s_array = split(/\|/, $entries_to_show[$count]);
	
	$his_num = $e_t_s_array[0];
	$his_name = $e_t_s_array[1];
	$his_message = $e_t_s_array[2];
	
	&convert_fpg;
	
	$his_email = $e_t_s_array[4];
		if($his_email =~ /^[^\@]*[\@][^\@]*?\.[^\@][^\@]*$/){
			if($Email_Icon){
				$his_email = "<a href=\"mailto:$his_email\"><img src=\"$Email_Icon\" border=\"0\" alt=\"Click here to send $his_name an e-mail!\"></a>&nbsp;&nbsp;&nbsp;";
			}
			else{
				$his_email = "[<a href=\"mailto:$his_email\" title=\"Click here to send $his_name an e-mail!\">e-mail</a>]&nbsp;";
			}
		}
	$his_url = $e_t_s_array[11];
		if(($his_url ne "") and ($his_url ne "http\:\/\/")){
			if($Homepage_Icon){
				$his_url = "<a href=\"http\:\/\/$his_url\" target=\"_new\"><img src=\"$Homepage_Icon\" border=\"0\" alt=\"Click here to visit the homepage of $his_name\"></a>&nbsp;&nbsp;&nbsp;";
			}
			else{
				$his_url = "[<a href=\"http\:\/\/$his_url\" target=\"_new\" title=\"Click here to visit the homepage of $his_name\">homepage</a>]&nbsp;";
			}
		}
	$my_reply = $e_t_s_array[6];
		if($my_reply ne ""){
			$my_reply  = "<tr><td bgcolor=\"$Message_Footer_BgColor\" valign=\"top\"><table width=\"100%\" cellspacing=\"0\" cellpadding=\"10\" border=\"0\"><tr><td valign=\"top\" width=\"100%\" bgcolor=\"$Message_Footer_BgColor\"><div class=\"text_reply\"><b>$Owner_Name $Owner_Replied:</b><br>$my_reply</div></td></tr></table></td></tr>";
		}
	$his_home = $e_t_s_array[5];
	$From_Where = $User_Is_From." ".$his_home." ";
		if($his_home eq ""){
			$From_Where = "";
		}
	
	$his_date = $e_t_s_array[3] + ($TimezoneOffset * 3600);
	($sec, $min, $std, $tag, $mon, $jahr) = localtime($his_date);
	
		$jahr = $jahr + 1900;
		
		$sec  = &zweistellig ($sec);
		$min  = &zweistellig ($min);
		$std  = &zweistellig ($std);
		$tag  = &zweistellig ($tag);
		$mon  = &zweistellig (++$mon);
	
	$his_date = "$tag.$mon.$jahr";
		if($Book_Language eq "en"){
			$his_date = "$jahr-$mon-$tag";
		}
	$his_time = "$std:$min:$sec";
	
	&convert_from;
	
	print qq~
	
	<table border="0" width="$Big_Table_Width" bgcolor="$Big_Table_BgColor" cellpadding="$Table_Padding" cellspacing="$Table_Spacing" align="center">
	<tr>
		<td valign="top" bgcolor="$Big_Table_BgColor">
		<table background="$Table_Background" width="100%" border="0" cellpadding="3" cellspacing="0">
			<tr>
			<td valign="top" width="20">
				<span class="text_number"><b>$his_num</b></span>
			</td>
			<td valign="top">
			 	<span class="text_title"><b>$his_name</b></span>
			</td>
			<td valign="top" align="right">
				<span class="text">$his_email $his_url</span>
			</td>
			</tr>
		</table>
		</td>
	</tr>
	<tr>
	<td valign="top" bgcolor="$Big_Table_BgColor">
                <table width="100%" bgcolor="$Message_BgColor" cellspacing="0" cellpadding="5">
                   	<tr>
                   		<td bgcolor="$Message_Header_BgColor" valign="top">
                			<span class="text"><i>$From_Where$User_Wrote_On $his_date $User_Wrote_At $his_time</i></span>
                		</td>
                	</tr>
                   	<tr>
                       		<td bgcolor="$Message_BgColor" valign="top">
                       		  	<table width="100%" border="0" cellspacing="0" cellpadding="10">
                       		  	<tr>
                       		  	<td valign="top">
                       				<div class="text">$his_message</div>
                       			</td>
                       			</tr>
                       			</table>
                       		</td>
                   	</tr>
                   	$my_reply
                   	<tr>
                   		<td valign="top" align="right" bgcolor="$Message_Footer_BgColor">
                   			<span class="text_reply">[<a href="$ENV{'SCRIPT_NAME'}?action=control&control_number=$his_num" title="Only the owner of this guestbook can use this function!" target="_self">edit</a>]</span>
                   		</td>
                   	</tr>
                </table>
        </td>
	</tr>
	</table>
	<br>
	~;
	$count++;
	}
###################################################################
	#### Total entries: 100 on 10 pages viewing page: 1 #######
	print qq~ 
	<br>
	<table border="0" width="$Big_Table_Width" bgcolor="$Big_Table_BgColor" cellpadding="$Big_Table_Padding" cellspacing="$Big_Table_Spacing" align="center">
	<tr>
	<td bgcolor="$Big_Table_BgColor" valign="top" align="center">
		<table background="$Big_Table_Background" width="100%" cellpadding="10" cellspacing="0" border="0">
		<tr>
		<td valign="top">
			<input type="button" value="$FORM_Sign_Button" class="button" onClick="sign()">
		</td>
		<td valign="top" align="center">
		<div class="text_reply">
			<font size="1">
			$Total_Entries <b>$total</b>
			$On_Page 
			<b>$num_of_pages_to_show</b> $Total_Pages<br>
			$Viewing_Page <b>$page_to_show</b>
			</font>
		</div>
		</td>
		<td valign="top" align="right" nowrap>
			<input type="button" value=" << " onClick="previous_page()" class="button">
			<select name="select_bottom" onChange="view_page_bottom()" class="select">
			<option value="1">$FORM_Select_Page</option>
		~;
		
		my $y = 1;
		while($y < ($num_of_pages + 1)){
			print qq~
			<option value="$ENV{'SCRIPT_NAME'}\?page_to_show=$y"> $y </option>
			~;
		$y++;
		}
	
	print qq~
		</select>
		<input type="button" value=" >> " onClick="next_page()" class="button">
		</td>
		</tr>
		</table>
	</td>
	</tr>
	</table>
	</form>
	
	<br><br>
	~;
	
	########### Fusszeile der View-Page #############################
	print qq~
	
	<center>
	<span class="text">
		[<a href="$ENV{'SCRIPT_NAME'}?action=control" target="_self" title="Only the owner can enter the Guestbook Control Panel!">Control Panel</a>]
		[<a href="$Owner_Homepage" target="_top" title="Click here to visit the homepage of $Owner_Name!">$Homepage</a>]
		$Log_Out
	</span>
	</center>
	
	<table border="0" width="$Big_Table_Width" $cellpadding="$Big_Table_Padding" cellspacing="$Big_Table_Spacing" align="center">
	<tr>
	<td valign="bottom" align="center">
		<span class="text_reply"><font color="gray">$tdpn_1</font></span>
	</td>
	</tr>
	</table>
	$html_foot
		~;
}

######## Formular fuer die Sign-Page ###################################
sub sign_gb{

	if((!$tdpn_2) or ($tdpn_2 !~ /vitinh/)){
		$info_title = "INTERNAL ERROR!";
		$info=$cop1;
		$info_reason = "";
		$info_login = "";
		&info;
	}
	
print $conttype;
print qq~
	$html_head
	<meta name="author" content="Tri Dung Nguyen">
	<meta name="description" content="Download Free Perl Guestbook @ www.vitinh.de">
	$Charset_Meta
	<script language="JavaScript">
	function check_form(){
		var sign_name, sign_email, sign_url, sign_home, sign_message;
		sign_name = document.sign.sign_name.value;
		sign_email = document.sign.sign_email.value;
		sign_url = document.sign.sign_url.value;
		sign_home = document.sign.sign_home.value;
		sign_message = document.sign.sign_message.value;

		if(sign_name == "" || sign_home == "" || sign_message == ""){
			alert("$JS_Please_Fill_In_Required");
			return false;
		}
		else{
			return true;
		}
	}
	</script>
	$css
	$html_body
	~;
			
	if(($Book_Title_Text eq "") and ($Book_Title_Image eq "")){
		print qq~
		<center><font face="$Font_Face" color="$Font_Color" size="$Font_Size">$guestgook_title_images_online</font></center><br>
		~;
	}
	else{
		if($Book_Title_Image ne ""){
			print qq~
			<center><img src="$Book_Title_Image" border="0"></center><br>
			~;
		}
		else{
			print qq~
			<center><font face="$Font_Face" color="$Font_Color" size="$Font_Size"><b>$Book_Title_Text</b></font></center><br>
			~;
		}
	}
	
print qq~
	<script language="JavaScript">
		function view_guestbook(){
			location.href="$ENV{'SCRIPT_NAME'}";
		}
	</script>
	~;

if($Vietuni eq "on"){
	print qq~
	<!-- Special thanks to T.A.T for the Unicode Script -->
	<script language="JavaScript1.2" src="$Vietnamese_Typing_Script" type='text/javascript'></script>
	~;
}
if(($FPG_Codes eq "on") or ($Smileys eq "on")){
	print qq~
	<!-- Enter Smileys and FPG Codes -->
	<script language="JavaScript" src="$FPG_And_Smileys_Script" type='text/javascript'></script>
	~;
}

print qq~	
	<form name="sign" action="$ENV{'SCRIPT_NAME'}" method="post" onSubmit="return check_form()">
	<table width="650" align="center" cellspacing="1" cellpadding="5" border="0" bgcolor="$Big_Table_BgColor">
	<tr>
		<td valign="top" background="$Table_Background">
			<input type="button" value="$FORM_View_Button" onClick="view_guestbook()" class="button">
		</td>
		<td valign="top" background="$Table_Background"><span class="text_number"><b>$Feel_Free_To_Tell</b></span></td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor" align="right">
			<span class="text">$Your_Name</span><br>
			<span class="text_red">$FORM_Required</span>
		</td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
	~;
	
if($Vietuni eq "on"){
	print qq~
			<input type="text" maxlength="100" size="25" class="select" name="sign_name" onkeyup="telexingVietUC(this,event)">
		~;
	}
else{
	print qq~
	
			<input type="text" maxlength="100" size="25" class="select" name="sign_name">
		~;
	}

print qq~
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">$Your_Email</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<input type="text" maxlength="100" size="25"  class="select" name="sign_email">
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">$Your_URL</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<input type="text" maxlength="100" size="25"  class="select" name="sign_url">
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right">
			<span class="text">$Your_Home</span><br>
			<span class="text_red">$FORM_Required</span>
		</td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
	~;
if($Vietuni eq "on"){
	print qq~
		<input type="text" maxlength="100" size="25"  class="select" name="sign_home" onkeyup="telexingVietUC(this,event)">
		~;
	}
else{
	print qq~
		<input type="text" maxlength="100" size="25"  class="select" name="sign_home">
		~;
	}
	print qq~
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right">
			<span class="text">$Your_Message</span>
			<br>
			<span class="text_red">$FORM_Required</span>
		</td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
	~;
	
if($FPG_Codes eq "on"){
	print $guestbook_format;
}

if($Vietuni eq "on"){
	if(($FPG_Codes eq "on") or ($Smileys eq "on")){
		print qq~
				<textarea  class="select" cols="50" rows="7" onkeyup="telexingVietUC(this,event); return storeCaret(this)" onSelect="return storeCaret(this);" onClick="return storeCaret(this);" name="sign_message"></textarea>
			~;
	}
	else{
		print qq~
				<textarea  class="select" cols="50" rows="7" onkeyup="telexingVietUC(this,event)" name="sign_message"></textarea>
			~;
	}
}
else{
	if(($FPG_Codes eq "on") or ($Smileys eq "on")){
		print qq~
				<textarea  class="select" cols="50" rows="7" onSelect="return storeCaret(this);" onClick="return storeCaret(this);" onKeyup="return storeCaret(this);" name="sign_message"></textarea>
			~;
	}
	else{
		print qq~
				<textarea  class="select" cols="50" rows="7" name="sign_message"></textarea>
			~;
	}
}

if($Smileys eq "on"){
	print $guestbook_smileys;
}

print qq~
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right">
			<span class="text">$Sign_Options</span><br>
			<span class="text_red">($HTML_Disabled)</span>
		</td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
	~;

if($Vietuni eq "on"){
	print qq~
			<div class="text_reply">$Vietnamese_Typing</div>
	~;
}

print qq~
			<input type="checkbox" name="sign_preview" checked><span class="text_reply">$Preview</span>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor" colspan="2" align="center">
			<input type="hidden" name="action" value="preview">
			<input type="submit" value="$FORM_Write_Button" class="button">
			<input type="reset" value="$FORM_Reset_Button" class="button">
		</td>
	</tr>
	</table>
	</form>
	<table border="0" width="$Big_Table_Width" $cellpadding="$Big_Table_Padding" cellspacing="$Big_Table_Spacing" align="center">
	<tr>
	<td valign="bottom" align="center">
		<span class="text_reply"><font color="gray">$tdpn_1</font></span>
	</td>
	</tr>
	</table>
	
	$html_foot
	~;
exit;
}

######## Konvertiere " ==> %&&2 #####################################
sub convert_to{
	########## Konvertiert | ############
	$sign_name =~ s/\|/\%\&\&3/g;
	$sign_email =~ s/\|/\%\&\&3/g;
	$sign_url =~ s/\|/\%\&\&3/g;
	$sign_home =~ s/\|/\%\&\&3/g;
	$sign_message =~ s/\|/\%\&\&3/g;
	$my_reply =~ s/\|/\%\&\&3/g;
	########## Konvertiert " ############
	$sign_name =~ s/\"/\%\&\&2/g;
	$sign_email =~ s/\"/\%\&\&2/g;
	$sign_url =~ s/\"/\%\&\&2/g;
	$sign_home =~ s/\"/\%\&\&2/g;
	$sign_message =~ s/\"/\%\&\&2/g;
	$my_reply =~ s/\"/\%\&\&2/g;
	########## Konvertiert > ############
	$sign_name =~ s/\>/\&gt\;/g;
	$sign_email =~ s/\>/\&gt\;/g;
	$sign_url =~ s/\>/\&gt\;/g;
	$sign_home =~ s/\>/\&gt\;/g;
	$sign_message =~ s/\>/\&gt\;/g;
	$my_reply =~ s/\>/\&gt\;/g;
	########## Konvertiert < ############
	$sign_name =~ s/\</\&lt\;/g;
	$sign_email =~ s/\</\&lt\;/g;
	$sign_url =~ s/\</\&lt\;/g;
	$sign_home =~ s/\</\&lt\;/g;
	$sign_message =~ s/\</\&lt\;/g;
	$my_reply =~ s/\</&lt\;/g;
}
######## Konvertiere | ==> %&&3 #####################################
sub convert_from{
	########## Konvertiert %&&3 ###########
	$his_name =~ s/\%\&\&3/\|/g;
	$his_email =~ s/\%\&\&3/\|/g;
	$his_url =~ s/\%\&\&3/\|/g;
	$his_home =~ s/\%\&\&3/\|/g;
	$From_Where =~ s/\%\&\&3/\|/g;
	$his_message =~ s/\%\&\&3/\|/g;
	$my_reply =~ s/\%\&\&3/\|/g;
	########## Konvertiert %&&2 ###########
	$his_name =~ s/\%\&\&2/\"/g;
	$his_email =~ s/\%\&\&2/\"/g;
	$his_url =~ s/\%\&\&2/\"/g;
	$his_home =~ s/\%\&\&2/\"/g;
	$From_Where =~ s/\%\&\&2/\"/g;
	$his_message =~ s/\%\&\&2/\"/g;
	$my_reply =~ s/\%\&\&2/\"/g;
	######### Konvertiert <br> ############
	$his_message =~ s/\-\-b\-r\-e\-a\-k\-\-/\<br\>/igs;
}
######## Anti Stoerer Codes #########################################
sub donot_hack{
&convert_to;
$sign_name =~ s/\n//gs;
$sign_email =~ s/\n//gs;
$sign_email =~ s/\\//gs;
$sign_url =~ s/\n//gs;
$sign_home =~ s/\n//gs;

if(!$sign_name){
		$info_title = $JS_Please_Fill_In_Required;
		$info = "Error! Do not try to hack this guestbook!";
		$info_reason = $JS_Please_Fill_In_Required;
		$info_login = "";
		&hacked;
		&info;
	}
if($sign_email !~ /^[^\@]*[\@][^\@]*?\.[^\@][^\@]*$/){
		$sign_email = "";
	}
$sign_url =~ s/^http\:\/\///is;
if((!$sign_home) and ($action ne "save_edited")){
		$info_title = $JS_Please_Fill_In_Required;
		$info = "Error! Do not try to hack this guestbook!";
		$info_reason = $JS_Please_Fill_In_Required;
		$info_login = "";
		&hacked;
		&info;
	}
$sign_message =~ s/\r?//igs;
$check_word = $sign_message;
$check_word =~ s/\n/ /g;
	if(($FPG_Codes eq "on") or ($action eq "save_edited")){
		$check_word =~ s/\[url=(.+?)\](.+?)\[\/url\]/$2/ig;
		$check_word =~ s/\[email=(.+?)\](.+?)\[\/email\]/$2/ig;
	}
$check_word =~ s/--b-r-e-a-k--/ /g;
	@all_words = split / /, $check_word;
	foreach $one_word (@all_words) {
		$wi = 0;
		my @chars = map $wi++, split //, $one_word;
		if ($wi > $Max_Word_Length) {
		$info_title = "Invalid input!";
		$info_title_color = "red";
		$info = "You have entered too many characters (more than <b>$Max_Word_Length</b>) without space between!";
		$info_reason = "<b>$one_word</b><br><br>";
		$info_login = "Click [<a href=\"javascript:history.back()\">here</a>] to go back!";
		&info;
		}
	}
$sign_message =~ s/\n/--b-r-e-a-k--/ig;
$sign_message_check = $sign_message;
$sign_message_check =~ s/\s//gs;
$sign_message_check =~ s/\n//gs;
$sign_message_check =~ s/\t//gs;
	if(!$sign_message_check){
		$info_title = $JS_Please_Fill_In_Required;
		$info = "Error! Do not try to hack this guestbook!";
		$info_reason = $JS_Please_Fill_In_Required;
		$info_login = "";
		&hacked;
		&info;
	}

}
######## Preview Meldung  ###########################################
sub preview{

######## Kein Hack ###############
&donot_hack;
######## Filter ##################
&bad_words_filter;
	
$sign_message_preview = $sign_message;
	$sign_message_preview =~ s/\-\-b\-r\-e\-a\-k\-\-/<br>/igs;
	$sign_message_preview =~ s/\%\&\&2/\"/gs;
	$sign_message_preview =~ s/\%\&\&3/\|/gs;
$sign_name_preview = $sign_name;
	$sign_name_preview =~ s/\%\&\&2/\"/gs;
	$sign_name_preview =~ s/\%\&\&3/\|/gs;
$sign_email_preview = $sign_email;
	$sign_email_preview =~ s/\%\&\&2/\"/gs;
	$sign_email_preview =~ s/\%\&\&3/\|/gs;
$sign_url_preview = $sign_url;
	$sign_email_preview =~ s/\%\&\&2/\"/gs;
	$sign_email_preview =~ s/\%\&\&3/\|/gs;
#$sign_home_preview = $sign_home;

######## Wenn ohne Preview #######
if(($sign_preview ne "on") or (!$sign_preview)){
	&add_entry;
	exit;
}
##################################
&convert_fpg_preview;

print $conttype;
print qq~
$html_head
<meta name="author" content="Tri Dung Nguyen">
<meta name="description" content="Download Free Perl Guestbook @ www.vitinh.de">
$Charset_Meta
$css
$html_body
<table width="100%" height="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
<td width="100%" valign="top">
	~;
			
	if(($Book_Title_Text eq "") and ($Book_Title_Image eq "")){
		print qq~
		<center><font face="$Font_Face" color="$Font_Color" size="$Font_Size">$guestgook_title_images_online</font></center><br>
		~;
	}
	else{
		if($Book_Title_Image ne ""){
			print qq~
			<center><img src="$Book_Title_Image" border="0"></center><br>
			~;
		}
		else{
			print qq~
			<center><font face="$Font_Face" color="$Font_Color" size="$Font_Size"><b>$Book_Title_Text</b></font></center><br>
			~;
		}
	}
	
print qq~
	<table border="0" width="$Big_Table_Width" bgcolor="$Big_Table_BgColor" cellpadding="$Big_Table_Padding" cellspacing="$Big_Table_Spacing" align="center">
	<tr>
	<td bgcolor="$Big_Table_BgColor" valign="top" align="center">
		<form name="page">
		<table background="$Big_Table_Background" width="100%" cellpadding="15" cellspacing="0" border="0">
		<tr>
		<td valign="top" align="center">
		<div class="text_title">
			$Preview_Of_Your_Message
		</div>
		</td>
		</tr>
		</table>
	</td>
	</tr>
	</table>
	<br><br>
	<table border="0" width="$Big_Table_Width" bgcolor="$Big_Table_BgColor" cellpadding="$Table_Padding" cellspacing="$Table_Spacing" align="center">
	<tr>
		<td valign="top" background="$Table_Background" bgcolor="$Big_Table_BgColor">
		<table width="100%" border="0" cellpadding="3" cellspacing="0">
			<tr>
			<td valign="top">
			 	<span class="text_title"><b>$sign_name_preview</b></span>
			</td>
			<td valign="top" align="right">
				<span class="text">
~;
if($sign_email ne ""){
	if($Email_Icon){
			print qq~
				<a href="mailto:$sign_email_preview"><img src="$Email_Icon" border="0"></a>&nbsp;&nbsp;&nbsp;
			~;
		}
	else{
			print qq~
				<a href="mailto:$sign_email_preview">e-mail</a>&nbsp;&nbsp;&nbsp;
			~;
		}
}
if($sign_url ne ""){
	if($Homepage_Icon){
			print qq~
				<a href="http://$sign_url_preview" target="_new"><img src="$Homepage_Icon" border="0"></a>&nbsp;&nbsp;&nbsp;
			~;
		}
	else{
			print qq~
				<a href="http://$sign_url_preview" target="_new">homepage</a>&nbsp;&nbsp;&nbsp;
			~;
		}
			
}
print qq~
				</span>
			</td>
			</tr>
		</table>
		</td>
	</tr>
	<tr>
	<td valign="top" bgcolor="$Big_Table_BgColor">
                <table width="100%" bgcolor="$Message_BgColor" cellspacing="0" cellpadding="15">
                   <tr>
                       <td bgcolor="$Message_BgColor" valign="top"><div class="text">$sign_message_preview</div></td>
                   </tr>
                </table>
        </td>
	</tr>
	</table>
	<br><br>
	<form action="$ENV{'SCRIPT_NAME'}" method="post">
	<center>
		<input type="hidden" name="sign_name" value="$sign_name">
		<input type="hidden" name="sign_email" value="$sign_email">
		<input type="hidden" name="sign_url" value="$sign_url">
		<input type="hidden" name="sign_home" value="$sign_home">
		<input type="hidden" name="sign_message" value="$sign_message">
		
		<input type="hidden" value="add" name="action">
		<input type="submit" value="$FORM_Write_Button" class="button">
		<input type="button" value="$FORM_Back_Button" onClick="javascript:history.back()" class="button">
	</center>
	</form>
	
</td>
</tr>
<tr>
	<td width="100%" align="center" valign="bottom">
		<span class="text_reply"><font color="gray">$tdpn_1</font></span>
	</td>
</tr>
</table>
$html_foot
~;

exit;
}

######### Add the entries #############################################
sub add_entry{
	
&donot_hack;
if($FPG_Codes ne "on"){
	&filter_fpg_codes;
}
else{
	&filter_fpg_code_by_one;		
}
if($Smileys ne "on"){
	&filter_smileys;
}

	########## Neu nummerieren ##################
	open(DATEI, "<$guestbook_datei") or die "Cannot open $guestbook_datei";
	while(<DATEI>){
		my($first, $rest) = split(/\|/, $_, 2);
		$gb_entries_old .= "$.\|$rest";
	}
	close(DATEI);
	
	########## Die letzte Nummer ermitteln ######
        @gbeo_array = split(/\n/, $gb_entries_old);
        $last_gb_entry = pop @gbeo_array;
        ($num, $shit) = split(/\|/, $last_gb_entry, 2);
        undef $shit;
        $num++;
	
	#|num|name|message|3|email|home|reply|IP|8|date|10|url|12||||||||||||||||||
	$sign_ip = $ENV{'REMOTE_ADDR'};
	$entry_to_add = "$num|$sign_name|$sign_message|$sign_time_in_sec|$sign_email|$sign_home||$sign_ip||$sign_date||$sign_url|||||||||||||||||||";
	$gb_temp = $gb_entries_old.$entry_to_add."\n";
	
	
	####### Mehrfachen Eintrag verhindern #######
	@old_temp_array = split(/\|/, $last_gb_entry);
		$old_temp = $old_temp_array[1].$old_temp_array[2].$old_temp_array[4].$old_temp_array[5].$old_temp_array[7].$old_temp_array[11];
	@new_temp_array = split(/\|/, $entry_to_add);
		$new_temp = $new_temp_array[1].$new_temp_array[2].$new_temp_array[4].$new_temp_array[5].$new_temp_array[7].$new_temp_array[11];

	if($old_temp eq $new_temp){
		&thank_message;
	}
	
	open(DATEI, ">$guestbook_datei") or die "Cannot open $guestbook_datei";
	#flock(DATEI, 2);
	print DATEI $gb_temp;
	#flock(DATEI, 8);
	close(DATEI);
	
	############ Checke ob E-Mail gesendet werden soll #############
	if(($MTM eq "on") and ($demo == 0)){
		&mail_me;
	}
	if(($MTH eq "on") and ($demo == 0)){
		&mail_him;
	}
	############ Say thank you! #####################################
	&thank_message;
}

############ Edit Entry #################################################
sub create_edit_page{
	open(DATEI, "<$guestbook_datei") or die "Cannot open $guestbook_datei";
	@gbda = <DATEI>;
	close(DATEI);
	
	$entry_to_load = $gbda[$control_number - 1];
	@etl_array = split(/\|/, $entry_to_load);
	$num = $etl_array[0];
	$his_name = $etl_array[1];
	$his_message = $etl_array[2];
		
	$his_time_in_sec = $etl_array[3] + ($TimezoneOffset * 3600);
	my ($sec, $min, $std, $tag, $mon, $jahr) = localtime($his_time_in_sec);
	
		$jahr = $jahr + 1900;
		
		$sec  = &zweistellig ($sec);
		$min  = &zweistellig ($min);
		$std  = &zweistellig ($std);
		$tag  = &zweistellig ($tag);
		$mon  = &zweistellig (++$mon);
	
	$his_date_faked = "$tag.$mon.$jahr";
		if($Book_Language eq "en"){
			$his_date_faked = "$jahr-$mon-$tag";
		}
	$his_time = "$std:$min:$sec";
	
	$his_email = $etl_array[4];
	$his_home = $etl_array[5];
	$my_reply = $etl_array[6];
		$my_reply =~ s/\<br\>/\n/ig;
	$his_ip = $etl_array[7];
	$his_date = $etl_array[9];
	$his_url = $etl_array[11];
	
	&convert_from;
	$his_message =~ s/\<br\>/\n/ig;

print $conttype;
print qq~
	$html_head
	<meta name="author" content="Tri Dung Nguyen">
	<meta name="description" content="Download Free Perl Guestbook @ www.vitinh.de">
	$Charset_Meta
	$css
	<script language="JavaScript">
	function check_form(){
		var sign_name, sign_email, sign_url, sign_home, sign_message;
		sign_name = document.sign.sign_name.value;
		sign_email = document.sign.sign_email.value;
		sign_url = document.sign.sign_url.value;
		sign_home = document.sign.sign_home.value;
		sign_message = document.sign.sign_message.value;

		if(sign_name == "" || sign_message == ""){
			alert("$JS_Please_Fill_In_Required");
			return false;
		}
		else{
			return true;
		}
	}
	</script>
	<script language="JavaScript">
		function view_guestbook(){
			location.href="$ENV{'SCRIPT_NAME'}";
		}
	</script>
	$html_body
~;
		
	if(($Book_Title_Text eq "") and ($Book_Title_Image eq "")){
		print qq~
		<center><font face="$Font_Face" color="$Font_Color" size="$Font_Size">$guestgook_title_images_online</font></center><br>
		~;
	}
	else{
		if($Book_Title_Image ne ""){
			print qq~
			<center><img src="$Book_Title_Image" border="0"></center><br>
			~;
		}
		else{
			print qq~
			<center><font face="$Font_Face" color="$Font_Color" size="$Font_Size"><b>$Book_Title_Text</b></font></center><br>
			~;
		}
	}
	
if($Vietuni eq "on"){
print qq~
	<!-- Special thanks to T.A.T for the Unicode Script -->
	<script language="JavaScript1.2" src="$Vietnamese_Typing_Script" type='text/javascript'></script>
	~;
}
	
print qq~
	<form name="sign" action="$ENV{'SCRIPT_NAME'}" method="post" onSubmit="return check_form()">
	<table width="650" align="center" cellspacing="1" cellpadding="5" border="0" bgcolor="$Big_Table_BgColor">
	<tr>
		<td valign="top" background="$Table_Background">
			<input type="button" value="$FORM_View_Button" onClick="view_guestbook()" class="button">
		</td>
		<td valign="top" background="$Table_Background"><span class="text_number"><b>Edit message number $control_number</b></span></td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor" align="right">
			<span class="text">Name:</span>
		</td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<input type="text" maxlength="100" size="25" class="select" name="sign_name" value="$his_name" onkeyup="telexingVietUC(this,event)">
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">E-mail</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<input type="text" maxlength="100" size="25"  class="select" name="sign_email" value="$his_email">
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">URL:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<span class="text">http://<input type="text" maxlength="100" size="25"  class="select" name="sign_url" value="$his_url"></span>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">IP address:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<span class="text"><input type="text" maxlength="100" size="25"  class="select" name="sign_ip" value="$his_ip" readonly></span>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Time and date:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<span class="text"><input type="text" maxlength="100" size="25"  class="select" name="his_date_faked" value="$his_date_faked  $his_time" readonly></span>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right">
			<span class="text">Location:</span>
		</td>
		<td valign="top" bgcolor="$Message_Footer_BgColor"><input type="text" maxlength="100" size="25"  class="select" name="sign_home" value="$his_home"></td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right">
			<span class="text">Message:</span>
		</td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
~;

if($Vietuni eq "on"){
	print qq~
			<textarea  class="select" cols="50" rows="7" onkeyup="telexingVietUC(this,event)" name="sign_message">$his_message</textarea>
		~;
}
else{
	print qq~
			<textarea  class="select" cols="50" rows="7" name="sign_message">$his_message</textarea>
		~;
}
		
print qq~
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right">
			<span class="text">Reply:</span>
		</td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
~;

if($Vietuni eq "on"){
	print qq~
			<textarea  class="select" cols="50" rows="4" onkeyup="telexingVietUC(this,event)" name="my_reply">$my_reply</textarea>
	~;
}
else{
	print qq~
			<textarea  class="select" cols="50" rows="4" name="my_reply">$my_reply</textarea>
	~;
}

print qq~
		</td>
	</tr>
	~;
	
if($Vietuni eq "on"){
	print qq~
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right">
			<span class="text">$Sign_Options</span><br>
			<span class="text_red">($HTML_Disabled)</span>
		</td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<div class="text_reply">$Vietnamese_Typing</div>
		</td>
	</tr>
	~;
}
else{
	print qq~
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right">
			<span class="text">$Sign_Options</span>
		</td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<span class="text">$HTML_Disabled</span>
		</td>
	</tr>
	~;
}
print qq~
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor" colspan="2" align="center">
			<input type="hidden" name="action" value="save_edited">
			<input type="hidden" name="his_time_in_sec" value="$his_time_in_sec">
			<input type="hidden" name="his_date" value="$his_date">
			<input type="hidden" name="password" value="$password">
			<input type="hidden" name="control_number" value="$control_number">
			<input type="submit" value="Save message" class="button">
			<input type="reset" value="Reset all" class="button">
		</td>
	</tr>
	</table>
	</form>
	<table border="0" width="$Big_Table_Width" $cellpadding="$Big_Table_Padding" cellspacing="$Big_Table_Spacing" align="center">
	<tr>
	<td valign="bottom" align="center">
		<span class="text_reply"><font color="gray">$tdpn_1</font></span>
	</td>
	</tr>
	</table>
	
	$html_foot
	~;
}

############ Editierter Eintrag wird gespeichert ########################
sub save_edited{
######## Kein HTML ###############
	&donot_hack;
	
	########## Kein <br> in Reply ################
	$my_reply =~ s/\n/ /gs;
	
	open(DATEI, "<$guestbook_datei");
	my @gbdti = <DATEI>;
	close(DATEI);
	
	$edited_entry = "$control_number|$sign_name|$sign_message|$his_time_in_sec|$sign_email|$sign_home|$my_reply|$sign_ip||$his_date||$sign_url|||||||||||||||||||\n";
	splice @gbdti, $control_number - 1, 1, $edited_entry;
	$edited_gbdti = join "", @gbdti;
	
	open(DATEI, ">$guestbook_datei");
	print DATEI $edited_gbdti;
	close(DATEI);
	
	my $total = scalar @gbdti;
	my $max_pp = $Max_Entries_Per_Page;
		if(($max_pp == 0) or ($max_pp < 0)){
			$max_pp = 10;
		}
	my $page_to_go_back = int(($total - $control_number)/$max_pp) + 1;
	
	$info_title = "MESSAGE EDITED!";
	$info_title_color = "#7083c7";
	$info = "Message number <b>$control_number</b> has been edited!";
	$info_reason = "";
	$info_login = qq(<form action=\"$ENV{'SCRIPT_NAME'}\" method=\"post\">
				<input type="hidden" name="page_to_show" value="$page_to_go_back">
				<center><input type=\"submit\" value=\"$FORM_View_Button\" class=\"button\"></center>
			 </form>);
	&info;
}

############ Lösche Eintrag aus Datei ###################################
sub delete_now{
	my $backup_file = "$dir/guestbook.backup";
	open(DATEI, "<$guestbook_datei") or die "Cannot open $guestbook_datei!";
	my @gbdatei = <DATEI>;
	close(DATEI);
	if(&password){
		@deleted_entry = splice @gbdatei, $control_number - 1, 1, "";
		$new_gbdatei = join "", @gbdatei;
		open(DATEI, ">$guestbook_datei") or die "Cannot open $guestbook_datei!";
		#flock(DATEI, 2);
		print DATEI $new_gbdatei;
		#flock(DATEI, 8);
		close(DATEI);
		
		open(ENTRY, ">>$backup_file") or die "Cannot open $backup_file!";
		#flock(DATEI, 2);
		print ENTRY $deleted_entry[0];
		#flock(DATEI, 8);
		close(ENTRY);
		
		open(DATEI, "<$guestbook_datei") or die "Cannot open $guestbook_datei!";
		while(<DATEI>){
			my($first, $rest) = split(/\|/, $_, 2);
			$gb_entries_new .= "$.\|$rest";
		}
		close(DATEI);
		open (DATEI, ">$guestbook_datei") or die "Cannot open $guestbook_datei!";
		#flock(DATEI, 2);
		print DATEI $gb_entries_new;
		#flock(DATEI, 8);
		close(DATEI);
		
		my $total = scalar @gbdatei;
		my $max_pp = $Max_Entries_Per_Page;
			if(($max_pp == 0) or ($max_pp < 0)){
				$max_pp = 10;
			}
		my $page_to_go_back = int(($total - $control_number)/$max_pp) + 1;
		
		$info_title_color = "#7083c7";
		$info_title = "Entry deleted!";
		$info = "The entry number <b>$control_number</b> has been deleted!";
		$info_reason = "";
		$info_login = qq(<form method="post" action="$ENV{'SCRIPT_NAME'}">
				<input type="hidden" value="$page_to_go_back" name="page_to_show">
				<center><input type="submit" value="$View_Guestbook" class="button"></center>
				</form>);
		&info;
	}
	else{
		$info_title_color = "red";
		$info_title = "Invalid password!";
		$info = "The password you entered was not correct!";
		$info_reason = "";
		$info_login = qq(<script language="javascript">
			function checkit(){
				var del = document.cp.action.options[document.cp.action.selectedIndex].value;
				if(del == "delete"){
					if(confirm("Are you sure you want to permanently delete the message number $control_number?")){
						return true;
					}
					else{
						return false;
					}
				}
			}
			</script>
			<form action="$ENV{'SCRIPT_NAME'}" method="post" name="cp" onSubmit="return checkit()">
			<table width="600" cellpadding="10" cellspacing="1" border="0" align=center>
			<tr>
				<td valign=top align=right><span class="text">Choose an action:</span></td>
				<td valign=top>
					<select name="action" size="2">
					<option value="edit" selected>Edit or reply message $control_number</option>
					<option value="delete">Permanently delete message $control_number</option>
					</select>
				</td>
			</tr>
			<tr>
				<td valign=top align=right><span class="text">Password:</span></td>
				<td valign=top><input type="password" name="password" size="20"></td>
			</tr>
			<tr>
				<td valign=top align=center colspan=2>
					<input type="hidden" value="$control_number" name="control_number">
					<input type="submit" value=" Submit " class="button">
				</td>
			</tr>
			</table>
			</form>);
		&info;
	}
}

############ Guestbook Optionen Aendern #################################
sub preferences{
$closed_group_checked = "";
$non_images_message = qq(<br><span class=text>
				<font size=1>
					Leave this field blank if you don't want to use image
				</font>
			</span>);
			
if(-e "$dir/guestbook.hack"){
	$hack_info = "<font color=red><b><br>Someone tried to hack your guestbook. See the information below:</b>";
	$hack_info .= "<ul>";
	open(HACK, "<$dir/guestbook.hack");
	while(<HACK>){
		$hack_info .= "<li><span class=text>".$_."</span><br>\n";
	}
	close (HACK);
	$hack_info .= "</ul>";
	$hack_info .= "</font>";
	$hack_info .= "<input type=\"checkbox\" name=\"delete_hacks\"> clear hack information on save";
}
if(-e $guestbook_private_pass){
	open(PASS, "<$guestbook_private_pass") or die "Cannot check group password!";
	$UserPass = <PASS>;
	close(PASS);
	$closed_group_checked = "checked";
}
if(not(-e $guestbook_bad_words)){
	open(BAD, ">$guestbook_bad_words") or die "Cannot create dirty words list $!";
	print BAD "shit\nshits\nfuck\nfucked";
	close(BAD);
}

print $conttype;
print qq~
	$html_head
	<meta name="author" content="Tri Dung Nguyen">
	<meta name="description" content="Download Free Perl Guestbook @ www.vitinh.de">
	$Charset_Meta
	$css
	<script language="JavaScript">
		function view_guestbook(){
			location.href="$ENV{'SCRIPT_NAME'}";
		}
	</script>
	$html_body
	~;
		
	if(($Book_Title_Text eq "") and ($Book_Title_Image eq "")){
		print qq~
		<center><font face="$Font_Face" color="$Font_Color" size="$Font_Size">$guestgook_title_images_online</font></center><br>
		~;
	}
	else{
		if($Book_Title_Image ne ""){
			print qq~
			<center><img src="$Book_Title_Image" border="0"></center><br>
			~;
		}
		else{
			print qq~
			<center><font face="$Font_Face" color="$Font_Color" size="$Font_Size"><b>$Book_Title_Text</b></font></center><br>
			~;
		}
	}
	
	
print qq~
	<!-- Special thanks to T.A.T for the Unicode Script -->
	<script language="JavaScript1.2" src="$Vietnamese_Typing_Script" type='text/javascript'></script>
	
	<form name="pref" action="$ENV{'SCRIPT_NAME'}" method="post">
	<table width="90%" align="center" cellspacing="1" cellpadding="7" border="0" bgcolor="$Big_Table_BgColor">
	<tr>
		<td valign="top" background="$Big_Table_Background">
			<input type="button" value="$FORM_View_Button" onClick="view_guestbook()" class="button">
		</td>
		<td valign="top" background="$Big_Table_Background"><span class="text_number"><b>Edit Guestbook Preferences</b></span></td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor" colspan="2">
			<div class="text">
				Here you can change the preferences of your guestbook.
				To edit, reply or delete a message, you must click
				[<b>edit</b>] on the View-Page! Please change the content of <b>all red cells</b>!
				<br>$demo_info
				$hack_info
			</div>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">Your Name:</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<input type="text" name="Owner_Name" class="select" value="$Owner_Name" size="25" $readonly>
		</td>
	</tr>
	
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Your E-mail:</span></td>
~;

if(($Owner_Email eq 'you\@yourserver.com') or ($Owner_Email eq 'you@yourserver.com')){
	print qq~	
		<td valign="top" bgcolor="red">
			<table cellpadding=3 cellspacing=0 border=0>
			<tr>
			<td valign=middle>
				<input type="text" name="Owner_Email" class="select" value="$Owner_Email" size="25" $readonly>
			</td>
			<td valign=middle>
				<span class="text"><font color=white size=1>
					This cell is red because you are using the default e-mail address.
					Please enter your e-mail address! New guestbook entries will be sent to
					this address if "Mail new entries to owner" is enabled.
				</font></span>
			</td>
			</tr>
			</table>
		</td>
	~;
	}
else{
	print qq~
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<input type="text" name="Owner_Email" class="select" value="$Owner_Email" size="25">
		</td>
	~;
	}
	
print qq~
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">E-Mail Options:</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<input type="checkbox" name="Mail_To_Me" checked> <span class="text">Mail new entries to owner</span>
			<input type="checkbox" name="Mail_To_Him" checked> <span class="text">Send thanks mail to guest</span>
			<script language="JavaScript">
				var mtm, mth;
				mtm = "$MTM";
				mth = "$MTH";
				if(mtm == "off"){
					document.pref.Mail_To_Me.checked = 0;
				}
				if(mth == "off"){
					document.pref.Mail_To_Him.checked = 0;
				}
			</script>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">New Password:</span></td>
~;

if($password eq "tridung"){
	print qq~	
		<td valign="top" bgcolor="red">
			<table cellpadding=3 cellspacing=0 border=0>
			<tr>
			<td valign=middle>
				<input type="text" name="New_Password" class="select" value="$password" size="25" $readonly>
			</td>
			<td valign=middle>
				<span class="text"><font color=white size=1>
					This cell is red because you are using the default password.
					You have to change this password to protect your guestbook!
				</font></span>
			</td>
			</tr>
			</table>
		</td>
		~;
	}
else{
	print qq~		
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<input type="text" name="New_Password" class="select" value="$password" size="25">
		</td>
	~;
	}
	
print qq~
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">Guestbook Width:</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<div class="text">
				<input type="text" class="select" name="Big_Table_Width" value="$Big_Table_Width" size="5" maxlength="4"> 
					(example: 95% in percent or 750 in pixel)
			</div>	
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Entries Per Page:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<div class="text">
				<input type="text" class="select" name="Max_Entries_Per_Page" value="$Max_Entries_Per_Page" size="5" maxlength="3"> 
					(recommended: 10)
			</div>	
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">Maximal Word Length Allowed:</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<div class="text">
				<input type="text" class="select" name="Max_Word_Length" value="$Max_Word_Length" size="5" maxlength="2"> characters
					(allowed: 10 - 99, recommended: 40)
			</div>	
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Guestbook Language:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<select  class="select" name="Book_Language">
				<option value="English" selected> English Interface </option>
				<option value="German"> German Interface </option>
				<option value="Vietnamese"> Vietnamese Interface </option>
				<option value="French"> French Interface </option>
	~;

		if(-e $guestbook_lang_own){
			print qq~
				<option value="Other"> Other Language </option>
				~;
		}

print qq~
			</select>
			<br>
			<span class=text>
				<font size=1>
					If your language is not listed on the menu above, you can download
					a specific file for your language from vitinh.de
					or create your own language file. Click [<a href="$language_page" target="_new">here</a>] to get help!
					
				</font>
			</span>
		<script language="JavaScript">
			blang = "$Book_Language";
			langnum = 0;
			if(blang == "de"){
				langnum = 1;
			}
			else if(blang == "vn"){
				langnum = 2;
			}
			else if(blang == "fr"){
				langnum = 3;
			}
			else if(blang == "own"){
				langnum = 4;
			}
			document.pref.Book_Language.selectedIndex = langnum;
		</script>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor" align="right">
			<span class="text">Guestbook Title:</span>
		</td>
		<td valign="top" bgcolor="$Message_Footer_BgColor" >
			<input type="text" size="70" class="select" name="Book_Title_Text" value="$Book_Title_Text" onkeyup="telexingVietUC(this,event)" $readonly>
			<br><span class=text>
				<font size=1>
					This title will be shown if you leave the field "Guestbook Title Image" blank.
				</font>
			</span>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Guestbook Title Color:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<input type="text" size="10"  class="select" name="Font_Color" value="$Font_Color" $readonly>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">Guestbook Title Image URL:</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<input type="text" size="70"  class="select" name="Book_Title_Image" value="$Book_Title_Image" $readonly>
			$non_images_message
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Guestbook Background Color:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<input type="text" size="10"  class="select" name="GB_BgColor" value="$GB_BgColor" $readonly>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">Guestbook Background Image URL:</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<input type="text" size="70"  class="select" name="GB_Background" value="$GB_Background" $readonly>
			$non_images_message
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Menu Background Color:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<input type="text" size="10"  class="select" name="Big_Table_BgColor" value="$Big_Table_BgColor" $readonly>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">Menu Background URL:</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<input type="text" size="70"  class="select" name="Big_Table_Background" value="$Big_Table_Background" $readonly>
			$non_images_message
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Entry Background Color:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<input type="text" size="10"  class="select" name="Table_BgColor" value="$Table_BgColor" $readonly>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">Entry Backgroun