#!/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 Background URL:</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<input type="text" size="70"  class="select" name="Table_Background" value="$Table_Background" $readonly>
			$non_images_message
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Message Header Background Color:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<input type="text" size="10"  class="select" name="Message_Header_BgColor" value="$Message_Header_BgColor" $readonly>
			<br><span class=text>
				<font size=1>
					(Background of the field that contains "user from... wrote on..." over the guestbook message)
				</font>
			</span>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">Message Background Color:</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<input type="text" size="10"  class="select" name="Message_BgColor" value="$Message_BgColor" $readonly>
			<br><span class=text>
				<font size=1>
					(Background of the field that contains the guestbook message)
				</font>
			</span>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Message Footer Background Color:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<input type="text" size="10"  class="select" name="Message_Footer_BgColor" value="$Message_Footer_BgColor" $readonly>
			<br><span class=text>
				<font size=1>
					(Background of the reply-field under the guestbook message)
				</font>
			</span>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">E-mail Icon URL:</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<input type="text" size="70"  class="select" name="Email_Icon" value="$Email_Icon" $readonly>
			$non_images_message
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Homepage Icon URL:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<input type="text" size="70"  class="select" name="Homepage_Icon" value="$Homepage_Icon" $readonly>
			$non_images_message
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">Vietnamese typing:<br>(This page only)</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<div class="text">
				<input type="radio" name="unicode" onFocus="setTypingMode(1)"> on
				<input type="radio" name="unicode" onFocus="setTypingMode(0)" checked> off
			</div>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Vietnamese typing:<br>(Sign-page)</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<div class="text">
				<input type="radio" name="Vietuni" value="on" checked> on
				<input type="radio" name="Vietuni" value="off"> off
				<br><font size=1>Set to on if you want to allow typing vietnamese on the sign-page</font>
			</div>
		<script language="JavaScript">
			var vietuni = "$Vietuni";
			if(vietuni == "on"){
				document.pref.Vietuni[0].checked = 1;
			}
			else{
				document.pref.Vietuni[1].checked = 1;
			}
		</script>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">Vietnamese Typing Script URL:</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<input type="text" size="70"  class="select" name="Vietnamese_Typing_Script" value="$Vietnamese_Typing_Script" $readonly>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Your Homepage URL:</span></td>
~;

if($Owner_Homepage eq "http://www.tridung.de"){
	print qq~	
		<td valign="top" bgcolor="red">
			<input type="text" size="70"  class="select" name="Owner_Homepage" value="$Owner_Homepage" $readonly>
			<br>
			<span class="text"><font color=white size=1>
				This cell is red because you are using the default URL. Please change the URL!
				This is the link to your homepage, it will help the guest to 
				go back to your page after signing or viewing the guestbook
			</font></span>
		</td>
		~;
	}
else{
	print qq~
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<div class="text">
				<input type="text" size="70"  class="select" name="Owner_Homepage" value="$Owner_Homepage">
				<br><font size=1>This is the link to your homepage, it will help the guest to go back to your page after signing or viewing the guestbook</font>
			</div>
		</td>
	~;
}

print qq~
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">Cascading Style Sheet:</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor">
			<div class="text">
				<textarea cols=57 rows=10 name="CSS_Area" $readonly>$CSS_Area</textarea><br>
				<font size=1>
					For advanced user with CSS knowledges only!
				</font>
			</div>
		</td>
	</tr>
	
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Dirty Words List:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<div class="text">
				<textarea cols=57 rows=5 name="Dirty_Words" $readonly>$Dirty_Words</textarea><br>
				<font size=1>
					Enter the dirty words that you want to filter from entries. Words are separated by space.
				</font>
			</div>
		</td>
	</tr>
	<script language="JavaScript">
		function check_bad_words_list(){
			var bad_words = document.pref.Dirty_Words.value;
			var filter_status = document.pref.Dirty_Words_Filter_Status.checked;
			if(bad_words == "" && filter_status == 1){
				alert("Dirty words list is empty!");
				document.pref.Dirty_Words_Filter_Status.checked = 0;
			}
		}
	</script>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Dirty Words Filter:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<div class="text">
				<input type="checkbox" onClick="check_bad_words_list()" name="Dirty_Words_Filter_Status">
				Activate dirty words filter
			</div>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor"  align="right"><span class="text">Dirty Words Filter Options:</span></td>
		<td valign="top" bgcolor="$Message_Header_BgColor">
			<div class="text">
				<input type="radio" name="Dirty_Words_Filter_Option" value="replace">
				Replace letters of dirty words with dots (word -> w...)<br>
				<input type="radio" name="Dirty_Words_Filter_Option" value="error">
				Show an error message and suggest visitor to remove dirty words
			</div>
		</td>
	</tr>
	<script language="JavaScript">
		var filter_option = "$Dirty_Words_Filter_Option";
		if(filter_option == "error"){
			document.pref.Dirty_Words_Filter_Option[1].checked = 1;
		}
		else if(filter_option == "replace"){
			document.pref.Dirty_Words_Filter_Option[0].checked = 1;
		}
		var filter_stat = "$Dirty_Words_Filter_Status";
		if(filter_stat == "on"){
			document.pref.Dirty_Words_Filter_Status.checked = 1;
		}
	</script>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor"  align="right"><span class="text">Timezone Offset:</span></td>
		<td valign="top" bgcolor="$Message_Footer_BgColor" class="text">
			<input type="text" size="5" maxlength="5" class="select" name="TimezoneOffset" value="$TimezoneOffset" $readonly>
			<br><font size=1> This is the difference between your local time and server time in hours</font>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="#feedd1"  align="right"><span class="text">Group password:</span></td>
~;
if($UserPass eq $password){
	print qq~
		<td valign="top" bgcolor="red">
			<table cellpadding=3 cellspacing=0 border=0>
			<tr>
			<td valign=middle>
				<input type="text" name="closed_group_pass" class="select" value="$UserPass" size="25" $readonly>
			</td>
			<td valign=middle>
				<span class="text"><font color=white size=1>
					This cell is red because you are using the owner-password for the group.
					Please choose an another password!
				</font></span>
			</td>
			</tr>
			</table>
		</td>
	~;
}
else{
	print qq~
		<td valign="top" bgcolor="#feedd1">
			<div class="text">
				<input $readonly type="text" class="select" size="25" name="closed_group_pass" value="$UserPass">
			</div>
		</td>
	~;
}

print qq~
	</tr>
	
	<tr>
		<td valign="top" bgcolor="#feedd1"  align="right"><span class="text">Closed group only:</span></td>
		<td valign="top" bgcolor="#feedd1">
			<div class="text">
				<input $closed_group_checked type="checkbox" name="closed_group">
				Visitors must enter the group-password to view or sign this guestbook. 
			</div>
		</td>
	</tr>
	
	<tr>
		<td valign="top" bgcolor="$Big_Table_BgColor" align="center" colspan="2">
			<input type="hidden" name="password" value="$password">
			<input type="hidden" name="action" value="save_prefs">
			<input type="submit" value="Save preferences" class="button">
			<input type="reset" value="    Reset all   " class="button">
		</td>
	</tr>
	</table>
	</form>
	
	<br><br><br><br>
	
	<table width="90%" align="center" cellspacing="1" cellpadding="7" border="0" bgcolor="$Big_Table_BgColor">
	<tr>
		<td valign="top" background="$Big_Table_Background" bgcolor="$Big_Table_BgColor">
			<span class="text_number"><b>Update Notification</b></span>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor">
		<iframe src="$update_service?version=$Version&user_name=$Owner_Name&lang=$Book_Language&url=$ENV{'HTTP_REFERER'}" width="100%" height="100" frameborder=0 framespacing=0></iframe>
		</td>
	</tr>
	</table>
	
	<br><br>
	<form method=POST action="http://cgi.resourceindex.com/rate/index.cgi" target="_new">
	<table width="90%" align="center" cellspacing="1" cellpadding="7" border="0" bgcolor="$Big_Table_BgColor">
	<tr>
		<td valign="top" background="$Big_Table_Background" bgcolor="$Big_Table_BgColor">
			<span class="text_number"><b>Rate This Guestbook @ The CGI Resources Index</b></span>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor">
		<span class="text">The scale is 1 - 10, with 1 being poor and 10 being excellent</span><br><br>

		<center>
	        <input type=hidden name="referer" value="http://cgi.resourceindex.com/">
	        <input type=hidden name="link_code" value="08783">
	        <input type=hidden name="category_name" value="Programs and Scripts/Perl/Guestbooks/">
	        <input type=hidden name="link_name" value="Free Perl Guestbook">
	        <select name="rating" class="select">
	          <option>10
	          <option>9
	          <option>8
	          <option>7
	          <option>6
	          <option selected>5
	          <option>4
	          <option>3
	          <option>2
	          <option>1
	        </select>
	      	<input type=submit value="Rate this guestbook!" class="button"><br><br>
	      	</center>
	</td>
	</tr>
	</table>
	</form>
	<br>
	
	<form method=POST action="http://www.vitinh.de/cgi-bin/fpg_worldwide/fpg_worldwide.cgi" target="_new">
	<table width="90%" align="center" cellspacing="1" cellpadding="7" border="0" bgcolor="$Big_Table_BgColor">
	<tr>
		<td valign="top" background="$Big_Table_Background" bgcolor="$Big_Table_BgColor">
			<span class="text_number"><b>Register your FPG @ vitinh.de</b></span>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor">
		<div class="text">
			Want more visitors? Register FPG and vitinh.de will 
			automatically create a link to your guestbook on the 
			[<a href="http://www.vitinh.de/cgi-bin/fpg_worldwide/fpg_worldwide.cgi" target="_new">FPG worldwide</a>] page!
			If you want vitinh.de to inform you about FGP updates, please enter your e-mail address, otherwise leave the e-mail field blank!
			</div>
			<br>
			<table width="100%" cellpadding="3" cellspacing="0" border="0">
			<tr>
			<td valign="top" align="right">
				<span class="text">Page Title:</span>
			</td>
			<td valign="top">
				<input type="text" name="Title" value="Free Perl Guestbook" size="50" maxlength="40">
				<input type="hidden" name="Version" value="$Version">
			</td>
			</tr>
			<tr>
			<td valign="top" align="right">
				<span class="text">Homepage URL:</span>
			</td>
			<td valign="top">
				<input type="text" name="URL" value="http://$ENV{'SERVER_NAME'}" size="50">
			</td>
			</tr>
			<tr>
			<td valign="top" align="right">
				<span class="text">Guestbook URL:</span>
			</td>
			<td valign="top">
				<input type="text" name="GBURL" value="$ENV{'HTTP_REFERER'}" size="50">
			</td>
			</tr>
			<tr>
			<td valign="top" align="right">
				<span class="text">Your E-Mail:</span>
			</td>
			<td valign="top">
				<input type="text" name="Email" value="$Owner_Email" size="50">
			</td>
			</tr>
			<tr>
			<td valign="top" align="center" colspan="2">
				<input type="hidden" name="action" value="register">
		      		<input type=submit value="Register FPG" class="button">
		      	</td>
		      	</tr>
		      	</table>
	</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
	~;
}

############ Einstellungen speichern ####################################
sub save_prefs{

&check_if_demo;

if($FORM{'Dirty_Words'}){
	$FORM{'Dirty_Words'} =~ s/\"//g;
	$FORM{'Dirty_Words'} =~ s/\>//g;
	$FORM{'Dirty_Words'} =~ s/\<//g;
	$FORM{'Dirty_Words'} =~ s/\s/\n/g;
	while($FORM{'Dirty_Words'} =~ m/\n\n/g){
		$FORM{'Dirty_Words'} =~ s/\n\n/\n/g;
	}
	open(BAD, ">$guestbook_bad_words") or die "Cannot create dirty words list $!";
	print BAD $FORM{'Dirty_Words'};
	close(BAD);
}

if(($FORM{'Dirty_Words_Filter_Status'} eq "on") and (!$FORM{'Dirty_Words'})){
	$info_title = "Error!";
	$info_title_color = "red";
	$info = "You have activated the <b>Dirty Words Filter</b> but the <b>Dirty Words List</b> is empty!";
	$info_reason = "Click [<a href=\"javascript:history.back()\">here</a>] to go back!";
	$info_login = "";
	&info;
}

if(!$FORM{'Dirty_Words_Filter_Status'}){
	$FORM{'Dirty_Words_Filter_Status'} = "off";
}

if((!$FORM{'Dirty_Words_Filter_Option'}) or (($FORM{'Dirty_Words_Filter_Option'} ne "replace") and ($FORM{'Dirty_Words_Filter_Option'} ne "error"))){
	$FORM{'Dirty_Words_Filter_Option'} = "error";
}

if(!$New_Password){
	$info_title_color = "red";
	$info_title = "PASSWORD REQUIRED!";
	$info = "You <b>must</b> enter a password to protect your guestbook!";
	$info_reason = "";
	$info_login = qq([<a href="javascript:history.back()">Go back</a>] and try again!
			);
	&info;
	}
if(($New_Password =~ /\"/g) or ($New_Password =~ /\>/g) or ($New_Password =~ /\</g)){
	$info_title_color = "red";
	$info_title = "Invalid password!";
	$info = "Your password contains invalid characters (<b>\"</b> or <b>&lt;</b> or <b>&gt;</b>)";
	$info_reason = "";
	$info_login = qq([<a href="javascript:history.back()">Go back</a>] and try again!
			);
	&info;
}
if($FORM{'delete_hacks'} eq "on"){
	unlink("$dir/guestbook.hack");
}
if($FORM{'closed_group'} eq "on"){
	$closed_group_pass = $FORM{'closed_group_pass'};
	if(!$closed_group_pass){
		$info_title = "Group password required!";
		$info_title_color = "red";
		$info = "You have activated <b>Closed group</b> but didn't enter a password for the group!";
		$info_reason = "Please <b>don't use</b> your <b>owner password</b> for the group!<br><br>";
		$info_login = "Click [<a href=\"javascript:history.back()\">here</a>] to go back!";
		&info;
	}
	open(PASS, ">$guestbook_private_pass") or die "Cannot create password file $!";
	print PASS $closed_group_pass;
	close(PASS);
}
else{
	if((-e $guestbook_private_pass) and ($demo == 0)){
		unlink($guestbook_private_pass);
	}
}
if(!$New_Owner_Name){
	$New_Owner_Name = $Owner_Name;
	}
$New_Owner_Name =~ s/\"/'/g;

if(!$New_Owner_Email){
	$New_Owner_Email = $Owner_Email;
	}
$New_Owner_Email =~ s/\"//g;

if(!$New_Font_Color){
	$New_Font_Color = $Font_Color;
	}
$New_Font_Color =~ s/\"//g;

if(!$New_Table_BgColor){
	$New_Table_BgColor = $Table_BgColor;
	}
$New_Table_BgColor =~ s/\"//g;

$FORM{'Big_Table_Width'} =~ s/\s//g;
if(!$FORM{'Big_Table_Width'}){
	$FORM{'Big_Table_Width'} = "95%";
}
else{
	if($FORM{'Big_Table_Width'} =~ /%/){
		if(($FORM{'Big_Table_Width'} !~ /^(\d{2,3})(%)$/) or ($1 > 100)){
			$info_title = "Invalid input!";
			$info_title_color = "red";
			$info = "Invalid Guestbook Width: <b>$FORM{'Big_Table_Width'}</b> (minimum: 10%, maximum: 100%)";
			$info_reason = "";
			$info_login = "Click here [<a href=\"javascript:history.back()\">here</a>] to go back!";
			&info;
		}
	}
	else{
		if($FORM{'Big_Table_Width'} !~ /^\d{3,4}$/){
			$info_title = "Invalid input!";
			$info_title_color = "red";
			$info = "Invalid Guestbook Width: <b>$FORM{'Big_Table_Width'}</b> (must be a number between 100 and 9999)";
			$info_reason = "";
			$info_login = "Click here [<a href=\"javascript:history.back()\">here</a>] to go back!";
			&info;
		}
		elsif($FORM{'Big_Table_Width'} < 100){
			$info_title = "Invalid input!";
			$info_title_color = "red";
			$info = "Invalid Guestbook Width: <b>$FORM{'Big_Table_Width'}</b> (minimum: 100 pixels)";
			$info_reason = "";
			$info_login = "Click here [<a href=\"javascript:history.back()\">here</a>] to go back!";
			&info;
		}
	}
}
	
if(!$New_Big_Table_BgColor){
	$New_Big_Table_BgColor = $Table_BgColor;
	}
$New_Big_Table_BgColor =~ s/\"//g;

if((!$New_Max_Entries_Per_Page) or ($New_Max_Entries_Per_Page < 1)){
	$New_Max_Entries_Per_Page = 10;
	}
$New_Max_Entries_Per_Page =~ s/\"//g;
if($New_Max_Entries_Per_Page !~ m/^[0-9]{1,3}$/){
	$info_title = "Invalid Input!";
	$info_title_color = "red";
	$info = "Check the field <b>Entries Per Page</b>!";
	$info_reason = "This field contents an invalid input. The value must be a number between <b>1</b> and <b>999</b> (inclusive)<br><br>";
	$info_login = "Click [<a href=\"javascript:history.back()\">here</a>] to go back!";
	&info;
	}
if((!$FORM{'Max_Word_Length'}) or ($FORM{'Max_Word_Length'} < 0)){
	$FORM{'Max_Word_Length'} = 40;
	}
$FORM{'Max_Word_Length'} =~ s/\"//g;

if(($FORM{'Max_Word_Length'} !~ m/^[0-9]{1,2}$/) or ($FORM{'Max_Word_Length'} < 10)){
	$info_title = "Invalid Input!";
	$info_title_color = "red";
	$info = "Check the field <b>Maximal Word Length Allowed</b>!";
	$info_reason = "This field contents an invalid input. The value must be a number between <b>10</b> and <b>99</b> (inclusive)<br><br>";
	$info_login = "Click [<a href=\"javascript:history.back()\">here</a>] to go back!";
	&info;
	}
if(!$New_Book_Title_Text){
	$New_Book_Title_Text = $Book_Title_Text;
	}
$New_Book_Title_Text =~ s/\"/\'/g;
if(!$New_Vietnamese_Typing_Script){
	$New_Vietnamese_Typing_Script = $Vietnamese_Typing_Script;
	}
	
if(!$New_Owner_Homepage){
	$New_Owner_Homepage = $Owner_Homepage;
	}
$New_Owner_Homepage =~ s/\"//g;

if($New_GB_BgColor){
	$New_GB_BgColor =~ s/\"//g;
	$Tag_GB_BgColor = "bgcolor\=\"$New_GB_BgColor\"";
	}
if($New_GB_Background){
	$New_GB_Background =~ s/\"//g;
	$Tag_GB_Background = "background\=\"$New_GB_Background\"";
	}
if(!$New_Message_BgColor){
	$New_Message_BgColor = "#ffffff";
	}
$New_Message_BgColor =~ s/\"//g;

if(!$New_Message_Header_BgColor){
	$New_Message_Header_BgColor = "#f0f0f0";
	}
$New_Message_Header_BgColor =~ s/\"//g;

if(!$New_Message_Footer_BgColor){
	$New_Message_Footer_BgColor = "#f0f0f0";
	}
$New_Message_Footer_BgColor =~ s/\"//g;

$New_TimezoneOffset = $FORM{'TimezoneOffset'};
if((!$New_TimezoneOffset) or ($New_TimezoneOffset !~ /^\-?\d\d?$/)){
	$New_TimezoneOffset = "0";
}

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

<html>
<head>
	<title>$New_Book_Title_Text</title>
	<meta http-equiv="cache-control" content="no-cache">

<-Ende HTML Head->


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

$New_CSS_Area

<-Ende CSS->
);

################ Netfirms ###################
if($ENV{'SERVER_NAME'} =~ m/netfirms\.com/ig){
$edited_style .= qq(

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

</head>
<body topmargin="20" leftmargin="10" $Tag_GB_BgColor $Tag_GB_Background>
<noembed><noscript>
<body topmargin="20" leftmargin="10" $Tag_GB_BgColor $Tag_GB_Background>
</noscript></noembed>

<-Ende HTML Body->
);
}
else{
$edited_style .= qq(

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

</head>
<body topmargin="20" leftmargin="10" $Tag_GB_BgColor $Tag_GB_Background>

<-Ende HTML Body->
);
}
$edited_style .= qq(
####### 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="$New_Max_Entries_Per_Page"=
Max_Word_Length="$FORM{'Max_Word_Length'}"=

Dirty_Words_Filter_Status="$FORM{'Dirty_Words_Filter_Status'}"=
Dirty_Words_Filter_Option="$FORM{'Dirty_Words_Filter_Option'}"=

Big_Table_Width="$FORM{'Big_Table_Width'}"=
Big_Table_BgColor="$New_Big_Table_BgColor"=
Big_Table_Background="$New_Big_Table_Background"=
Big_Table_Padding="1"=
Big_Table_Spacing="0"=

Table_Width="100%"=
Table_BgColor="$New_Table_BgColor"=
Table_Background="$New_Table_Background"=
Table_Padding="0"=
Table_Spacing="1"=

Font_Face="Verdana, Arial"=
Font_Size="2"=
Font_Color="$New_Font_Color"=

Book_Title_Text="$New_Book_Title_Text"=
Book_Title_Image="$New_Book_Title_Image"=

GB_BgColor="$New_GB_BgColor"=
GB_Background="$New_GB_Background"=

Message_Header_BgColor="$New_Message_Header_BgColor"=
Message_BgColor="$New_Message_BgColor"=
Message_Footer_BgColor="$New_Message_Footer_BgColor"=

Email_Icon="$New_Email_Icon"=
Homepage_Icon="$New_Homepage_Icon"=

FPG_And_Smileys_Script="$FPG_And_Smileys_Script"=
FPG_Codes="$FPG_Codes"=
Smileys="$Smileys"=

Vietuni="$New_Vietuni"=
Vietnamese_Typing_Script="$New_Vietnamese_Typing_Script"=
Owner_Homepage="$New_Owner_Homepage"=
TimezoneOffset="$New_TimezoneOffset"=

<-Ende PAGE Definition->
);
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 $edited_style;
close(STYLE);

$lang = "";
if($New_Book_Language eq "German"){
	$lang = "_de";
}
elsif($New_Book_Language eq "Vietnamese"){
	$lang = "_vn";
}
elsif($New_Book_Language eq "French"){
	$lang = "_fr";
}
elsif($New_Book_Language eq "Other"){
	$lang = "_own";
}
	
$edited_setup = qq(STYLE===guestbook.style===
LANGUAGE===guestbook$lang.lang===
MAIL_TO_ME===$Mail_To_Me===
MAIL_TO_HIM===$Mail_To_Him===
);

unless (open(SETUP, ">$guestbook_setup")){
	$guestbook_setup =~ s/$dir\///;
	$dir =~ s/\.\///;
	$info_title = "Access Denied!";
	$info = "Cannot write information to the file <b>$guestbook_setup</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 SETUP $edited_setup;
close(SETUP);


$new_language_file = $dir."/guestbook".$lang.".lang";
open(LANG, "<$new_language_file") or die "Cannot open $new_language_file";
while(<LANG>){
	$lg_temp .= $_;
}
close(LANG);

if($New_Owner_Email !~ /\\\@/){
	$New_Owner_Email =~ s/\@/\\\@/;
}
$lg_temp =~ s/Owner_Name\=\"(.*)\"\=\n/Owner_Name\=\"$New_Owner_Name\"\=\n/;
$lg_temp =~ s/Owner_Email\=\"(.*)\"\=\n/Owner_Email\=\"$New_Owner_Email\"\=\n/;
open(LANG, ">$new_language_file") or die "Cannot open $new_language_file";
print LANG $lg_temp;
close(LANG);

$new_password = crypt($New_Password, "tridung");
open(PASS, ">$guestbook_pass") or die "Cannot check password!";
print PASS $new_password;
close(PASS);

$info_title = "Guestbook Preferences Saved";
$info_title_color = "#7083c7";
$info = "The edited guestbook preferences have been saved";
	if(($FORM{'closed_group'} eq "on") and ($closed_group_pass)){
		$info .= " and the option <b>Closed group</b> has been activated. Visitors must enter the <b>group-password</b> to view or sign this guestbook";
	}
$info .= "!";
$info_reason="Click the button below to view your guestbook!";
$info_login = qq(<form method="post" action="$ENV{'SCRIPT_NAME'}">
				<center><input type="submit" value="$View_Guestbook" class="button"></center>
				</form>);
&info;
}

############ Change Icons, Smileys and FPG Code Options #################
sub chicons{
&get_icons;

print $conttype;
print qq~
	$html_head
	<meta name="author" content="Tri Dung Nguyen">
	<meta name="description" content="Download Free Perl Guestbook @ www.vitinh.de">
	$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~	
	<form name="icons" 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: FPG Codes, Icons and Smileys</b></span></td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor" colspan="2">
			<div class="text">
				Here you can change the URL of icons, smileys and FPG code options. 
				To help us saving bandwidth, please use your own icons or 
				[<a href="$file_url/files/icons.zip">download</a>] 
				these icons for using on your server.
				<br>$demo_info
			</div>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor" align="right" class="text">
			<b>FPG Codes are:</b><br><br>
			<span class="text_reply"><a href="$file_url/fpg_code.htm">[FPG Code Help]</a></span>
		</td>
		<td valign="top" bgcolor="$Message_Header_BgColor" class="text">
			<input type="radio" name="FPG_Codes" value="on">
			enabled (allow visitors to format entries using FPG codes)<br>
			<input type="radio" name="FPG_Codes" value="off">
			disabled
		</td>
	</tr>
	<script language="javascript">
		var fpg = "$FPG_Codes";
		if(fpg == "on"){
			document.icons.FPG_Codes[0].checked = 1;
		}
		else{
			document.icons.FPG_Codes[1].checked = 1;
		}
	</script>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor" align="right" class="text">
			<b>FPG Icon URLs:</b><br><br>
			<span class="text_reply">Icon size: 22 x 22 px</span>
		</td>
		<td valign="top" bgcolor="$Message_Header_BgColor" class="text">
			<table align="left" cellpadding="2" cellspacing="0" border="0">
			<tr>
				<td class="text" width="20"><img src="$Icon_Edit_Bold" border="0" alt="Bold"></td>
				<td class="text">
					<input name="URL_Icon_Edit_Bold" value="$Icon_Edit_Bold" type="text" size="70" class="select" $readonly>
				</td>
				<td class="text">
					<input type="radio" name="UIE_Bold" value="on" checked> on
					<input type="radio" name="UIE_Bold" value="off"> off
				</td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Icon_Edit_Italic" border="0" alt="Italic"></td>
				<td class="text">
					<input name="URL_Icon_Edit_Italic" value="$Icon_Edit_Italic" type="text" size="70" class="select" $readonly>
				</td>
				<td class="text">
					<input type="radio" name="UIE_Italic" value="on" checked> on
					<input type="radio" name="UIE_Italic" value="off"> off
				</td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Icon_Edit_Underline" border="0" alt="Underline"></td>
				<td class="text">
					<input name="URL_Icon_Edit_Underline" value="$Icon_Edit_Underline" type="text" size="70" class="select" $readonly>
				</td>
				<td class="text">
					<input type="radio" name="UIE_Underline" value="on" checked> on
					<input type="radio" name="UIE_Underline" value="off"> off
				</td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Icon_Edit_Left" border="0" alt="Left"></td>
				<td class="text">
					<input name="URL_Icon_Edit_Left" value="$Icon_Edit_Left" type="text" size="70" class="select" $readonly>
				</td>
				<td class="text">
					<input type="radio" name="UIE_Left" value="on"> on
					<input type="radio" name="UIE_Left" value="off" checked> off
				</td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Icon_Edit_Center" border="0" alt="Center"></td>
				<td class="text">
					<input name="URL_Icon_Edit_Center" value="$Icon_Edit_Center" type="text" size="70" class="select" $readonly>
				</td>
				<td class="text">
					<input type="radio" name="UIE_Center" value="on" checked> on
					<input type="radio" name="UIE_Center" value="off"> off
				</td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Icon_Edit_Right" border="0" alt="Right"></td>
				<td class="text">
					<input name="URL_Icon_Edit_Right" value="$Icon_Edit_Right" type="text" size="70" class="select" $readonly>
				</td>
				<td class="text">
					<input type="radio" name="UIE_Right" value="on" checked> on
					<input type="radio" name="UIE_Right" value="off"> off
				</td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Icon_Edit_Blockquote" border="0" alt="Blockquote"></td>
				<td class="text">
					<input name="URL_Icon_Edit_Blockquote" value="$Icon_Edit_Blockquote" type="text" size="70" class="select" $readonly>
				</td>
				<td class="text">
					<input type="radio" name="UIE_Blockquote" value="on" checked> on
					<input type="radio" name="UIE_Blockquote" value="off"> off
				</td>
				</td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Icon_Edit_URL" border="0" alt="URL"></td>
				<td class="text">
					<input name="URL_Icon_Edit_URL" value="$Icon_Edit_URL" type="text" size="70" class="select" $readonly>				
				</td>
				<td class="text">
					<input type="radio" name="UIE_URL" value="on" checked> on
					<input type="radio" name="UIE_URL" value="off"> off
				</td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Icon_Edit_Email" border="0" alt="Email"></td>
				<td class="text">
					<input name="URL_Icon_Edit_Email" value="$Icon_Edit_Email" type="text" size="70" class="select" $readonly>
				</td>
				<td class="text">
					<input type="radio" name="UIE_Email" value="on" checked> on
					<input type="radio" name="UIE_Email" value="off"> off
				</td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Icon_Help" border="0" alt="Help"></td>
				<td class="text">
					<input name="URL_Icon_Help" value="$Icon_Help" type="text" size="70" class="select" $readonly>
				</td>
				<td class="text">
					<input type="radio" name="UIE_Help" value="on" checked> on
					<input type="radio" name="UIE_Help" value="off"> off
				</td>
			</tr>
			</table>
			
			<script language="javascript">
				if("$UIE_Bold" == "on"){
					document.icons.UIE_Bold[0].checked = 1;
				}
				else{
					document.icons.UIE_Bold[1].checked = 1;
				}
				if("$UIE_Italic" == "on"){
					document.icons.UIE_Italic[0].checked = 1;
				}
				else{
					document.icons.UIE_Italic[1].checked = 1;
				}
				if("$UIE_Underline" == "on"){
					document.icons.UIE_Underline[0].checked = 1;
				}
				else{
					document.icons.UIE_Underline[1].checked = 1;
				}
				if("$UIE_Left" == "on"){
					document.icons.UIE_Left[0].checked = 1;
				}
				else{
					document.icons.UIE_Left[1].checked = 1;
				}
				if("$UIE_Center" == "on"){
					document.icons.UIE_Center[0].checked = 1;
				}
				else{
					document.icons.UIE_Center[1].checked = 1;
				}
				if("$UIE_Right" == "on"){
					document.icons.UIE_Right[0].checked = 1;
				}
				else{
					document.icons.UIE_Right[1].checked = 1;
				}
				if("$UIE_Blockquote" == "on"){
					document.icons.UIE_Blockquote[0].checked = 1;
				}
				else{
					document.icons.UIE_Blockquote[1].checked = 1;
				}
				if("$UIE_URL" == "on"){
					document.icons.UIE_URL[0].checked = 1;
				}
				else{
					document.icons.UIE_URL[1].checked = 1;
				}
				if("$UIE_Email" == "on"){
					document.icons.UIE_Email[0].checked = 1;
				}
				else{
					document.icons.UIE_Email[1].checked = 1;
				}
				if("$UIE_Help" == "on"){
					document.icons.UIE_Help[0].checked = 1;
				}
				else{
					document.icons.UIE_Help[1].checked = 1;
				}
			</script>
		</td>
	</tr>
	
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor" align="right" class="text">
			<b>Smileys are:</b>
		</td>
		<td valign="top" bgcolor="$Message_Footer_BgColor" class="text">
			<input type="radio" name="Smileys" value="on">
			enabled (allow visitors to insert smileys to entries)<br>
			<input type="radio" name="Smileys" value="off">
			disabled
		</td>
	</tr>
	<script language="javascript">
		var fpg = "$Smileys";
		if(fpg == "on"){
			document.icons.Smileys[0].checked = 1;
		}
		else{
			document.icons.Smileys[1].checked = 1;
		}
	</script>
	<tr>
		<td valign="top" bgcolor="$Message_Footer_BgColor" align="right" class="text">
			<b>Smileys URLs:</b><br><br>
			<span class="text_reply">Icon size: 15 x 15 px</span>
		</td>
		<td valign="top" bgcolor="$Message_Footer_BgColor" class="text">
			<table width="100%" cellpadding="2" cellspacing="0" border="0">
			<tr>
				<td class="text" width="20"><img src="$Smileys_Smile" border="0" alt="Smile"></td>
				<td class="text"><input name="URLSmile" value="$Smileys_Smile" type="text" size="70" class="select" $readonly></td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Smileys_Wink" border="0" alt="Smile"></td>
				<td class="text"><input name="URLWink" value="$Smileys_Wink" type="text" size="70" class="select" $readonly></td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Smileys_Sad" border="0" alt="Sad"></td>
				<td class="text"><input name="URLSad" value="$Smileys_Sad" type="text" size="70" class="select" $readonly></td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Smileys_Mad" border="0" alt="Smile"></td>
				<td class="text"><input name="URLMad" value="$Smileys_Mad" type="text" size="70" class="select" $readonly></td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Smileys_BigGrin" border="0" alt="Big-Grin"></td>
				<td class="text"><input name="URLBigGrin" value="$Smileys_BigGrin" type="text" size="70" class="select" $readonly></td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Smileys_Confused" border="0" alt="Confused"></td>
				<td class="text"><input name="URLConfused" value="$Smileys_Confused" type="text" size="70" class="select" $readonly></td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Smileys_Tongue" border="0" alt="Tongue"></td>
				<td class="text"><input name="URLTongue" value="$Smileys_Tongue" type="text" size="70" class="select" $readonly></td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Smileys_RedFace" border="0" alt="RedFace"></td>
				<td class="text"><input name="URLRedFace" value="$Smileys_RedFace" type="text" size="70" class="select" $readonly></td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Smileys_RollEyes" border="0" alt="RollEyes"></td>
				<td class="text"><input name="URLRollEyes" value="$Smileys_RollEyes" type="text" size="70" class="select" $readonly></td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Smileys_Eek" border="0" alt="Eek"></td>
				<td class="text"><input name="URLEek" value="$Smileys_Eek" type="text" size="70" class="select" $readonly></td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Smileys_ThumbUp" border="0" alt="ThumbUp"></td>
				<td class="text"><input name="URLThumbUp" value="$Smileys_ThumbUp" type="text" size="70" class="select" $readonly></td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Smileys_ThumbDown" border="0" alt="ThumbDown"></td>
				<td class="text"><input name="URLThumbDown" value="$Smileys_ThumbDown" type="text" size="70" class="select" $readonly></td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Smileys_Lamp" border="0" alt="Lamp"></td>
				<td class="text"><input name="URLLamp" value="$Smileys_Lamp" type="text" size="70" class="select" $readonly></td>
			</tr>
			<tr>
				<td class="text" width="20"><img src="$Smileys_Question" border="0" alt="Question"></td>
				<td class="text"><input name="URLQuestion" value="$Smileys_Question" type="text" size="70" class="select" $readonly></td>
			</tr>
			</table>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Message_Header_BgColor" align="right" class="text">
			<b>Script for FPG Codes<br>and Smileys:</b>
		</td>
		<td valign="top" bgcolor="$Message_Header_BgColor" class="text">
			<input name="FPG_And_Smileys_Script" value="$FPG_And_Smileys_Script" type="text" size="70" class="select" $readonly>
		</td>
	</tr>
	<tr>
		<td valign="top" bgcolor="$Big_Table_BgColor" align="center" colspan="2">
			<input type="hidden" name="password" value="$password">
			<input type="hidden" name="action" value="save_icons">
			<input type="submit" value="Save preferences" 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
	~;
}
############ Save changes: Icons, Smileys, FPG Codes ####################
sub save_icons{

&check_if_demo;

my $new_icons_content = qq(Icon_Edit_Bold="$FORM{'URL_Icon_Edit_Bold'}"=="$FORM{'UIE_Bold'}"=
			Icon_Edit_Italic="$FORM{'URL_Icon_Edit_Italic'}"=="$FORM{'UIE_Italic'}"=
			Icon_Edit_Underline="$FORM{'URL_Icon_Edit_Underline'}"=="$FORM{'UIE_Underline'}"=
			Icon_Edit_Left="$FORM{'URL_Icon_Edit_Left'}"=="$FORM{'UIE_Left'}"=
			Icon_Edit_Center="$FORM{'URL_Icon_Edit_Center'}"=="$FORM{'UIE_Center'}"=
			Icon_Edit_Right="$FORM{'URL_Icon_Edit_Right'}"=="$FORM{'UIE_Right'}"=
			Icon_Edit_Blockquote="$FORM{'URL_Icon_Edit_Blockquote'}"=="$FORM{'UIE_Blockquote'}"=
			Icon_Edit_URL="$FORM{'URL_Icon_Edit_URL'}"=="$FORM{'UIE_URL'}"=
			Icon_Edit_Email="$FORM{'URL_Icon_Edit_Email'}"=="$FORM{'UIE_Email'}"=
			Icon_Help="$FORM{'URL_Icon_Help'}"=="$FORM{'UIE_Help'}"=
			
			Smileys_Smile="$FORM{'URLSmile'}"=="on"=
			Smileys_Wink="$FORM{'URLWink'}"=="on"=
			Smileys_Sad="$FORM{'URLSad'}"=="on"=
			Smileys_Mad="$FORM{'URLMad'}"=="on"=
			Smileys_BigGrin="$FORM{'URLBigGrin'}"=="on"=
			Smileys_Confused="$FORM{'URLConfused'}"=="on"=
			Smileys_Tongue="$FORM{'URLTongue'}"=="on"=
			Smileys_RedFace="$FORM{'URLRedFace'}"=="on"=
			Smileys_RollEyes="$FORM{'URLRollEyes'}"=="on"=
			Smileys_Eek="$FORM{'URLEek'}"=="on"=
			Smileys_ThumbUp="$FORM{'URLThumbUp'}"=="on"=
			Smileys_ThumbDown="$FORM{'URLThumbDown'}"=="on"=
			Smileys_Lamp="$FORM{'URLLamp'}"=="on"=
			Smileys_Question="$FORM{'URLQuestion'}"=="on"=
			);
$new_icons_content =~ s/\t//g;

	open(ICON, ">$guestbook_icons") or die "Cannot open $guestbook_icons $!";
	print ICON $new_icons_content;
	close(ICON);
	
	open(STYLE, "<$style_file") or die "Cannot open $style_file $!";
	while(<STYLE>){
		$fpg_code_option .= $_;
	}
	close(STYLE);
	
	if($fpg_code_option =~ m/(.*)FPG_Codes=\"(.*)\"=(.*)/g){
		if(($FORM{'FPG_Codes'} ne "on") and ($FORM{'FPG_Codes'} ne "off")){
			$FORM{'FPG_Codes'} = "off";
		}
		$fpg_code_option =~ s/(.*)(\nFPG_Codes=\")(.*)(\"=)(.*)/$1$2$FORM{'FPG_Codes'}$4$5/g;
	}
	if($fpg_code_option =~ m/(.*)Smileys=\"(.*)\"=(.*)/g){
		if(($FORM{'FPG_Codes'} ne "on") and ($FORM{'FPG_Codes'} ne "off")){
			$FORM{'FPG_Smileys'} = "off";
		}
		$fpg_code_option =~ s/(.*)(\nSmileys=\")(.*)(\"=)(.*)/$1$2$FORM{'Smileys'}$4$5/g;
	}
	if($fpg_code_option =~ m/(.*)FPG_And_Smileys_Script=\"(.*)\"=(.*)/g){
		if(!$FORM{'FPG_And_Smileys_Script'}){
			$info_title = "Invalid input!";
			$info_title_color = "red";
			$info = "You must enter the Java Script URL (for FPG Codes and Smileys)!";
			$info_reason = "";			
			$info_login = "Click [<a href=\"javascript:history.back()\">here</a>] to go back!";
			&info;
		}
		$fpg_code_option =~ s/(.*)(\nFPG_And_Smileys_Script=\")(.*)(\"=)(.*)/$1$2$FORM{'FPG_And_Smileys_Script'}$4$5/g;
	}
	
	open(STYLE, ">$style_file") or die "Cannot open $style_file $!";
	print STYLE $fpg_code_option;
	close(STYLE);
	
	$info_title = "Preferences saved!";
	$info_title_color = "#7083c7";
	$info = "The edited preferences have been saved!";
	$info_reason = qq(<ul>
			<li class="text">FPG Codes are <b>$FORM{'FPG_Codes'}</b></li>
			<li class="text">Smileys are <b>$FORM{'Smileys'}</b></li>
			</ul>);
				
	$info_login = qq(<form method="post" action="$ENV{'SCRIPT_NAME'}">
				<center><input type="submit" value="$View_Guestbook" class="button"></center>
				</form>);
	&info;
}
############ Passwortvergleich, -verschlüsselung ########################
sub password{
	$your_password = crypt($password, "tridung");
	if(not(-e $guestbook_pass)){
		$guestbook_pass =~ s/$dir\///;
		$dir =~ s/\.\///;
		
		$info_title_color="red";
		$info_title = "PASSWORD CHECK FAILED!";
		$info = "Cannot find the password file!";
		$info_reason = "Did you delete the file <b>$guestbook_pass</b>?";
		$info_login = qq(You must re-install this guestbook! Do the steps below:
					<ul>
					<font size=2 face="verdana, arial">
						<li>Backup all files in folder <b>$dir</b>
						<li>Delete folder <b>$dir</b>
						<li>Open your guestbook with the browser - the guestbook program will install itself.
						<li>Upload all backup-files to the folder <b>$dir</b> and chmod them to 777
					</font>
					</ul>
				);
		&info;
		}
			 
	open(PASS, "<$guestbook_pass") or die "Cannot check password!";
	$my_password = <PASS>;
	close(PASS);
	if($your_password eq $my_password){
		return 1;
		}
	else{
		return 0;
		}
}

############ Vorbereitung des E-Mail Versands ###########################
sub undo_convert_to{
	########## Konvertiert %&&3 ###########
	$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;
	########## Konvertiert %&&2 ###########
	$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;
	########## Konvertiert <br> ###########
	$sign_message =~ s/\n/\n\<br\>/igs;
	$sign_message =~ s/\-\-b\-r\-e\-a\-k\-\-/\n\<br\>/igs;
}
############ Eintrag an Webmaster mailen ################################
sub mail_me{

	&undo_convert_to;
	
	$entry_to_me = $sign_message;
	
	$correct_sign_date = $sign_date;
	$correct_sign_date =~ s/(\d{4})(\d\d)(\d\d)/$1\-$2\-$3/;
	
	$mail_me  = "Entry number: $num<br><br>\n";
	$mail_me .= "From: $sign_name<br><br>\n";
	$mail_me .= "E-Mail: $sign_email<br><br>\n";
	$mail_me .= "Homepage: $sign_url<br><br>\n";
	$mail_me .= "From: $sign_home<br><br>\n";
	$mail_me .= "IP-Address: $ENV{'REMOTE_ADDR'}<br><br>\n";
	$mail_me .= "Date: $correct_sign_date<br><br>\n";
	$mail_me .= "Message: $entry_to_me<br><br>\n";
	
	$Correct_Owner_Email = $Owner_Email;
	$Correct_Owner_Email =~ s/\\//g;
	if($Correct_Owner_Email =~ /^[^\@]*[\@][^\@]*?\.[^\@]*$/){
		if($SEND_MAIL){
			open (MAIL,"| $SEND_MAIL $Correct_Owner_Email");
			print MAIL "To: $Correct_Owner_Email\n";
			print MAIL "From: $Correct_Owner_Email\n";
			print MAIL "Reply-to: $Correct_Owner_Email\n";
			print MAIL "X-Mailer: Guestbook Mail Service\n";
			print MAIL "Subject: New Guestbook Entry\n";
			print MAIL "Content-type: text/html\n\n";
			
			print MAIL "$mail_me";
			print MAIL "\n\n";
			close (MAIL);
		}
		if($smtp){
			$smtp->mail($Correct_Owner_Email);
			$smtp->to($Correct_Owner_Email);
			$smtp->data();
			$smtp->datasend("To: $Correct_Owner_Email\n");
			$smtp->datasend("From: $Correct_Owner_Email\n");
			$smtp->datasend("Subject: New Guestbook Entry\n");
			$smtp->datasend("Content-type: text/html\n\n");
			$smtp->datasend("$mail_me\n\n");
			$smtp->dataend();
			$smtp->quit;
		}
	}
}
############ Danke an Besucher mailen ###################################
sub mail_him{

	&undo_convert_to;
	
	$entry_to_him = $sign_message;
	
	$mail_him  = "Thank you for signing my guestbook!<br><br>\n";
	$mail_him .= "$Owner_Name<br>$ENV{'HTTP_REFERER'}<br><hr>\n";
	$mail_him .= "Your message:<br><br>\n";
	$mail_him .= "$entry_to_him<br>\n";
	
	$correct_sign_email = $sign_email;
	$correct_sign_email =~ s/\\//g;
	$Correct_Owner_Email = $Owner_Email;
	$Correct_Owner_Email =~ s/\\//g;
	
	if(($correct_sign_email =~ /^[^\@]*[\@][^\@]*?\.[^\@]*$/) and ($Correct_Owner_Email =~ /^[^\@]*[\@][^\@]*?\.[^\@]*$/)){
		if($SEND_MAIL){
			open (MAIL,"| $SEND_MAIL $correct_sign_email");
			print MAIL "To: $correct_sign_email\n";
			print MAIL "From: $Correct_Owner_Email\n";
			print MAIL "Reply-to: $Correct_Owner_Email\n";
			print MAIL "X-Mailer: Guestbook Mail Service\n";
			print MAIL "Subject: Thank you!\n";
			print MAIL "Content-type: text/html\n\n";
					
			print MAIL "$mail_him";
			print MAIL "\n\n";
			close (MAIL);
		}
		if($smtp){
			$smtp->mail($correct_sign_email);
			$smtp->to($correct_sign_email);
			$smtp->data();
			$smtp->datasend("To: $correct_sign_email\n");
			$smtp->datasend("From: $Correct_Owner_Email\n");
			$smtp->datasend("Subject: Thank you!\n");
			$smtp->datasend("Content-type: text/html\n\n");
			$smtp->datasend("$mail_him\n\n");
			$smtp->dataend();
			$smtp->quit;
		}
	}
}

############ Sub register hacks #########################################
sub hacked{
	$guestbook_hack = "$dir/guestbook.hack";
	$hack_log = "Date: $sign_time -- IP: $ENV{'REMOTE_ADDR'} -- action: $action\n";
	open(HACK, ">>$guestbook_hack");
	print HACK $hack_log;
	close(HACK);
}
############ Dirty Words Filter ###########################################
sub bad_words_filter{
	if($Dirty_Words_Filter_Status eq "on"){
		open(BAD, "<$guestbook_bad_words") or die "Cannot open $guestbook_bad_words $!";
		@bad_words = <BAD>;
		close(BAD);
		
		foreach $bad_word (@bad_words){
			chomp $bad_word;
			if($Dirty_Words_Filter_Option eq "replace"){
				if($sign_message =~ /\b$bad_word\b/i){
					$bw_length = @bw_chars = split(//, $bad_word);
					$good_word = $bw_chars[0]. ("." x ($bw_length - 1));
					$sign_message =~ s/\b$bad_word\b/$good_word/ig;
				}
				if($sign_name =~ /\b$bad_word\b/i){
					$bw_length = @bw_chars = split(//, $bad_word);
					$good_word = $bw_chars[0]. ("." x ($bw_length - 1));
					$sign_name =~ s/\b$bad_word\b/$good_word/ig;
				}
				if($sign_home =~ /\b$bad_word\b/i){
					$bw_length = @bw_chars = split(//, $bad_word);
					$good_word = $bw_chars[0]. ("." x ($bw_length - 1));
					$sign_home =~ s/\b$bad_word\b/$good_word/ig;
				}
			}
			else{
				if($sign_name =~ /\b$bad_word\b/i){
					$info_title = "Dirty words detected!";
					$info_title_color = "red";
					$info = "The <b>name</b> you entered contains a dirty word (<b>$bad_word</b>)";
					$info_reason = "";
					$info_login = "Click [<a href=\"javascript:history.back()\">here</a>] to go back and remove it!";
					&info;
				}
				if($sign_home =~ /\b$bad_word\b/i){
					$info_title = "Dirty words detected!";
					$info_title_color = "red";
					$info = "The <b>city/country</b> you entered contains a dirty word (<b>$bad_word</b>)";
					$info_reason = "";
					$info_login = "Click [<a href=\"javascript:history.back()\">here</a>] to go back and remove it!";
					&info;
				}
				if($sign_message =~ /\b$bad_word\b/i){
					$info_title = "Dirty words detected!";
					$info_title_color = "red";
					$info = "The <b>message</b> you entered contains a dirty word (<b>$bad_word</b>)";
					$info_reason = "";
					$info_login = "Click [<a href=\"javascript:history.back()\">here</a>] to go back and remove it!";
					&info;
				}
			}
		}
	}
}
#################### Check User Pass ####################################
sub check_user_pass{
	if(-e $guestbook_private_pass){
		open(PASS, "<$guestbook_private_pass") or die "Cannot check user password!";
		my $UserPass = <PASS>;
		close(PASS);
		
		$Log_Out = "[<a href=\"$ENV{'SCRIPT_NAME'}?action=log_out\" target=\"_self\">Log out</a>]";
	
		$pass_cookie = cookie("UserPass");
		
		if($pass_cookie ne $UserPass){
			$info_title = "Authorization required!";
			$info_title_color = "red";
			$info = "<b>This guestbook requires a password-authorization!</b>";
			$info_reason = "Note: please 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;
		}
	}
}
################### Cookie setzen #######################################
sub set_cookie{
	open(PASS, "<$guestbook_private_pass") or die "Cannot check user password!";
	my $UserPass = <PASS>;
	close(PASS);
	$cookie_to_set = cookie( -NAME 		=> "UserPass",
				 -VALUE 	=> "$UserPass");
	####### Setzt Verfalldatum auf 2 Monate wenn Save Password aktiviert!
	if($FORM{'save_pass'} eq "on"){
		$cookie_to_set = cookie( -NAME 		=> "UserPass",
					 -VALUE 	=> "$UserPass",
					 -EXPIRES 	=> "+2M");
	}
	print header(-COOKIE => $cookie_to_set);
}
################## Cookie aendern #######################################
sub log_out{
	$cookie_to_set = cookie( -NAME 		=> "UserPass",
				 -VALUE 	=> "1 2 3 4 5 6 7 8 9 a b c d e f g h i j k l m n o p q r s t u v w x y z www.tridung.de www.vitinh.de");
	print header(-COOKIE => $cookie_to_set);
}
################## Check if Demo ########################################
sub check_if_demo{
	if($demo == 1){
		$info_title = "Not allowed!";
		$info_title_color = "red";
		$info = $demo_info;
		$info_reason = "";
		$info_login = "Click [<a href=\"javascript:history.back()\">here</a>] to go back!";
		&info;
	}		
}
################## Icons ################################################
sub convert_fpg{
	&get_icons;
	
	$his_message =~ s/\[b\]/<b>/ig;
	$his_message =~ s/\[\/b\]/<\/b>/ig;
	$his_message =~ s/\[i\]/<i>/ig;
	$his_message =~ s/\[\/i\]/<\/i>/ig;
	$his_message =~ s/\[u\]/<u>/ig;
	$his_message =~ s/\[\/u\]/<\/u>/ig;
	$his_message =~ s/\[left\]/<p align=left>/ig;
	$his_message =~ s/\[\/left\]/<\/p>/ig;
	$his_message =~ s/\[center\]/<center>/ig;
	$his_message =~ s/\[\/center\]/<\/center>/ig;
	$his_message =~ s/\[right\]/<p align=right>/ig;
	$his_message =~ s/\[\/right\]/<\/p>/ig;
	$his_message =~ s/\[blockquote\]/<blockquote>/ig;
	$his_message =~ s/\[\/blockquote\]/<\/blockquote>/ig;
	
	$his_message =~ s/\[url=(.+?)\](.+?)\[\/url\]/<a href=$1>$2<\/a>/ig;
	$his_message =~ s/\[email=(.+?)\](.+?)\[\/email\]/<a href=mailto:$1\>$2<\/a>/ig;

	$his_message =~ s/\[smileys:smile\]/<img src=\"$Smileys_Smile\" border=0>/ig;	
	$his_message =~ s/\[smileys:wink\]/<img src=\"$Smileys_Wink\" border=0>/ig;	
	$his_message =~ s/\[smileys:sad\]/<img src=\"$Smileys_Sad\" border=0>/ig;	
	$his_message =~ s/\[smileys:mad\]/<img src=\"$Smileys_Mad\" border=0>/ig;	
	$his_message =~ s/\[smileys:biggrin\]/<img src=\"$Smileys_BigGrin\" border=0>/ig;	
	$his_message =~ s/\[smileys:confused\]/<img src=\"$Smileys_Confused\" border=0>/ig;	
	$his_message =~ s/\[smileys:tongue\]/<img src=\"$Smileys_Tongue\" border=0>/ig;	
	$his_message =~ s/\[smileys:redface\]/<img src=\"$Smileys_RedFace\" border=0>/ig;	
	$his_message =~ s/\[smileys:rolleyes\]/<img src=\"$Smileys_RollEyes\" border=0>/ig;	
	$his_message =~ s/\[smileys:eek\]/<img src=\"$Smileys_Eek\" border=0>/ig;	
	$his_message =~ s/\[smileys:thumbup\]/<img src=\"$Smileys_ThumbUp\" border=0>/ig;	
	$his_message =~ s/\[smileys:thumbdown\]/<img src=\"$Smileys_ThumbDown\" border=0>/ig;	
	$his_message =~ s/\[smileys:lamp\]/<img src=\"$Smileys_Lamp\" border=0>/ig;	
	$his_message =~ s/\[smileys:question\]/<img src=\"$Smileys_Question\" border=0>/ig;

}

sub convert_fpg_preview{
	&get_icons;
	
	if($FPG_Codes eq "on"){
		if($UIE_Bold ne "on"){
			$sign_message_preview =~ s/\[b\]//ig;
			$sign_message_preview =~ s/\[\/b\]//ig;
		}
		else{
			$sign_message_preview =~ s/\[b\]/<b>/ig;
			$sign_message_preview =~ s/\[\/b\]/<\/b>/ig;
		}
		
		if($UIE_Italic ne "on"){
			$sign_message_preview =~ s/\[i\]//ig;
			$sign_message_preview =~ s/\[\/i\]//ig;
		}
		else{
			$sign_message_preview =~ s/\[i\]/<i>/ig;
			$sign_message_preview =~ s/\[\/i\]/<\/i>/ig;
		}
		if($UIE_Underline ne "on"){
			$sign_message_preview =~ s/\[u\]//ig;
			$sign_message_preview =~ s/\[\/u\]//ig;
		}
		else{
			$sign_message_preview =~ s/\[u\]/<u>/ig;
			$sign_message_preview =~ s/\[\/u\]/<\/u>/ig;
		}
		if($UIE_Left ne "on"){
			$sign_message_preview =~ s/\[left\]//ig;
			$sign_message_preview =~ s/\[\/left\]//ig;
		}
		else{
			$sign_message_preview =~ s/\[left\]/<p align=left>/ig;
			$sign_message_preview =~ s/\[\/left\]/<\/p>/ig;
		}
		if($UIE_Center ne "on"){
			$sign_message_preview =~ s/\[center\]//ig;
			$sign_message_preview =~ s/\[\/center\]//ig;
		}
		else{
			$sign_message_preview =~ s/\[center\]/<center>/ig;
			$sign_message_preview =~ s/\[\/center\]/<\/center>/ig;
		}
		if($UIE_Right ne "on"){
			$sign_message_preview =~ s/\[right\]//ig;
			$sign_message_preview =~ s/\[\/right\]//ig;
		}
		else{
			$sign_message_preview =~ s/\[right\]/<p align=right>/ig;
			$sign_message_preview =~ s/\[\/right\]/<\/p>/ig;
		}
		if($UIE_Blockquote ne "on"){
			$sign_message_preview =~ s/\[blockquote\]//ig;
			$sign_message_preview =~ s/\[\/blockquote\]//ig;
		}
		else{
			$sign_message_preview =~ s/\[blockquote\]/<blockquote>/ig;
			$sign_message_preview =~ s/\[\/blockquote\]/<\/blockquote>/ig;
		}
		if($UIE_URL ne "on"){
			$sign_message_preview =~ s/\[url=(.+?)\](.+?)\[\/url\]/$2/ig;
		}
		else{
			$sign_message_preview =~ s/\[url=(.+?)\](.+?)\[\/url\]/<a href=$1>$2<\/a>/ig;
		}
		if($UIE_Email ne "on"){
			$sign_message_preview =~ s/\[email=(.+?)\](.+?)\[\/email\]/$2/ig;
		}
		else{
			$sign_message_preview =~ s/\[email=(.+?)\](.+?)\[\/email\]/<a href=mailto:$1\>$2<\/a>/ig;
		}
	}
	else{
		$sign_message_preview =~ s/\[b\]//ig;
		$sign_message_preview =~ s/\[\/b\]//ig;
		$sign_message_preview =~ s/\[i\]//ig;
		$sign_message_preview =~ s/\[\/i\]//ig;
		$sign_message_preview =~ s/\[u\]//ig;
		$sign_message_preview =~ s/\[\/u\]//ig;
		$sign_message_preview =~ s/\[left\]//ig;
		$sign_message_preview =~ s/\[\/left\]//ig;
		$sign_message_preview =~ s/\[center\]//ig;
		$sign_message_preview =~ s/\[\/center\]//ig;
		$sign_message_preview =~ s/\[right\]//ig;
		$sign_message_preview =~ s/\[\/right\]//ig;
		$sign_message_preview =~ s/\[blockquote\]//ig;
		$sign_message_preview =~ s/\[\/blockquote\]//ig;
		
		$sign_message_preview =~ s/\[url=(.+?)\](.+?)\[\/url\]/$2/ig;
		$sign_message_preview =~ s/\[email=(.+?)\](.+?)\[\/email\]/$2/ig;
	}
	
	if($Smileys eq "on"){
		$sign_message_preview =~ s/\[smileys:smile\]/<img src=\"$Smileys_Smile\" border=0>/ig;	
		$sign_message_preview =~ s/\[smileys:wink\]/<img src=\"$Smileys_Wink\" border=0>/ig;	
		$sign_message_preview =~ s/\[smileys:sad\]/<img src=\"$Smileys_Sad\" border=0>/ig;	
		$sign_message_preview =~ s/\[smileys:mad\]/<img src=\"$Smileys_Mad\" border=0>/ig;	
		$sign_message_preview =~ s/\[smileys:biggrin\]/<img src=\"$Smileys_BigGrin\" border=0>/ig;	
		$sign_message_preview =~ s/\[smileys:confused\]/<img src=\"$Smileys_Confused\" border=0>/ig;	
		$sign_message_preview =~ s/\[smileys:tongue\]/<img src=\"$Smileys_Tongue\" border=0>/ig;	
		$sign_message_preview =~ s/\[smileys:redface\]/<img src=\"$Smileys_RedFace\" border=0>/ig;	
		$sign_message_preview =~ s/\[smileys:rolleyes\]/<img src=\"$Smileys_RollEyes\" border=0>/ig;	
		$sign_message_preview =~ s/\[smileys:eek\]/<img src=\"$Smileys_Eek\" border=0>/ig;	
		$sign_message_preview =~ s/\[smileys:thumbup\]/<img src=\"$Smileys_ThumbUp\" border=0>/ig;	
		$sign_message_preview =~ s/\[smileys:thumbdown\]/<img src=\"$Smileys_ThumbDown\" border=0>/ig;	
		$sign_message_preview =~ s/\[smileys:lamp\]/<img src=\"$Smileys_Lamp\" border=0>/ig;	
		$sign_message_preview =~ s/\[smileys:question\]/<img src=\"$Smileys_Question\" border=0>/ig;
	}
	else{
		$sign_message_preview =~ s/\[smileys:smile\]/:-)/ig;	
		$sign_message_preview =~ s/\[smileys:wink\]/;-)/ig;	
		$sign_message_preview =~ s/\[smileys:sad\]/:-(/ig;	
		$sign_message_preview =~ s/\[smileys:mad\]/~:-(/ig;	
		$sign_message_preview =~ s/\[smileys:biggrin\]/:-D/ig;	
		$sign_message_preview =~ s/\[smileys:confused\]/*:-(/ig;	
		$sign_message_preview =~ s/\[smileys:tongue\]/:-p/ig;	
		$sign_message_preview =~ s/\[smileys:redface\]/:-o/ig;	
		$sign_message_preview =~ s/\[smileys:rolleyes\]/%-)/ig;	
		$sign_message_preview =~ s/\[smileys:eek\]/8-o/ig;	
		$sign_message_preview =~ s/\[smileys:thumbup\]/*thumb-up*/ig;	
		$sign_message_preview =~ s/\[smileys:thumbdown\]/*thumb-down*/ig;	
		$sign_message_preview =~ s/\[smileys:lamp\]/*light-up*/ig;	
		$sign_message_preview =~ s/\[smileys:question\]/(?)/ig;
	}
}

sub filter_fpg_codes{
	&get_icons;
	
	$sign_message =~ s/\[b\]//ig;
	$sign_message =~ s/\[\/b\]//ig;
	$sign_message =~ s/\[i\]//ig;
	$sign_message =~ s/\[\/i\]//ig;
	$sign_message =~ s/\[u\]//ig;
	$sign_message =~ s/\[\/u\]//ig;
	$sign_message =~ s/\[left\]//ig;
	$sign_message =~ s/\[\/left\]//ig;
	$sign_message =~ s/\[center\]//ig;
	$sign_message =~ s/\[\/center\]//ig;
	$sign_message =~ s/\[right\]//ig;
	$sign_message =~ s/\[\/right\]//ig;
	$sign_message =~ s/\[blockquote\]//ig;
	$sign_message =~ s/\[\/blockquote\]//ig;
	
	$sign_message =~ s/\[url=(.+?)\](.+?)\[\/url\]/$2/ig;
	$sign_message =~ s/\[email=(.+?)\](.+?)\[\/email\]/$2/ig;
}

sub filter_fpg_code_by_one{
	&get_icons;
	
	if($UIE_Bold ne "on"){
		$sign_message =~ s/\[b\]//ig;
		$sign_message =~ s/\[\/b\]//ig;
	}
	if($UIE_Italic ne "on"){
		$sign_message =~ s/\[i\]//ig;
		$sign_message =~ s/\[\/i\]//ig;
	}
	if($UIE_Underline ne "on"){
		$sign_message =~ s/\[u\]//ig;
		$sign_message =~ s/\[\/u\]//ig;
	}
	if($UIE_Left ne "on"){
		$sign_message =~ s/\[left\]//ig;
		$sign_message =~ s/\[\/left\]//ig;
	}
	if($UIE_Center ne "on"){
		$sign_message =~ s/\[center\]//ig;
		$sign_message =~ s/\[\/center\]//ig;
	}
	if($UIE_Right ne "on"){
		$sign_message =~ s/\[right\]//ig;
		$sign_message =~ s/\[\/right\]//ig;
	}
	if($UIE_Blockquote ne "on"){
		$sign_message =~ s/\[blockquote\]//ig;
		$sign_message =~ s/\[\/blockquote\]//ig;
	}
	if($UIE_URL ne "on"){
		$sign_message =~ s/\[url=(.+?)\](.+?)\[\/url\]/$2/ig;
	}
	if($UIE_Email ne "on"){
		$sign_message =~ s/\[email=(.+?)\](.+?)\[\/email\]/$2/ig;
	}
}

sub filter_smileys{
	&get_icons;
	
	$sign_message =~ s/\[smileys:smile\]/:-)/ig;	
	$sign_message =~ s/\[smileys:wink\]/;-)/ig;	
	$sign_message =~ s/\[smileys:sad\]/:-(/ig;	
	$sign_message =~ s/\[smileys:mad\]/~:-(/ig;	
	$sign_message =~ s/\[smileys:biggrin\]/:-D/ig;	
	$sign_message =~ s/\[smileys:confused\]/*:-(/ig;	
	$sign_message =~ s/\[smileys:tongue\]/:-p/ig;	
	$sign_message =~ s/\[smileys:redface\]/:-o/ig;	
	$sign_message =~ s/\[smileys:rolleyes\]/%-)/ig;	
	$sign_message =~ s/\[smileys:eek\]/8-o/ig;	
	$sign_message =~ s/\[smileys:thumbup\]/*thumb-up*/ig;	
	$sign_message =~ s/\[smileys:thumbdown\]/*thumb-down*/ig;	
	$sign_message =~ s/\[smileys:lamp\]/*light-up*/ig;	
	$sign_message =~ s/\[smileys:question\]/(?)/ig;
}

sub create_icons{
$all_icons_content = qq(Icon_Edit_Bold="$file_url/images/icons/edit_bold.gif"=="on"=
			Icon_Edit_Italic="$file_url/images/icons/edit_italic.gif"=="on"=
			Icon_Edit_Underline="$file_url/images/icons/edit_underline.gif"=="on"=
			Icon_Edit_Left="$file_url/images/icons/edit_left.gif"=="off"=
			Icon_Edit_Center="$file_url/images/icons/edit_center.gif"=="on"=
			Icon_Edit_Right="$file_url/images/icons/edit_right.gif"=="off"=
			Icon_Edit_Blockquote="$file_url/images/icons/edit_blockquote.gif"=="on"=
			Icon_Edit_URL="$file_url/images/icons/edit_url.gif"=="on"=
			Icon_Edit_Email="$file_url/images/icons/edit_email.gif"=="on"=
			Icon_Help="$file_url/images/icons/edit_help.gif"=="on"=
			
			Smileys_Smile="$file_url/images/icons/smileys_smile.gif"=="on"=
			Smileys_Wink="$file_url/images/icons/smileys_wink.gif"=="on"=
			Smileys_Sad="$file_url/images/icons/smileys_sad.gif"=="on"=
			Smileys_Mad="$file_url/images/icons/smileys_mad.gif"=="on"=
			Smileys_BigGrin="$file_url/images/icons/smileys_biggrin.gif"=="on"=
			Smileys_Confused="$file_url/images/icons/smileys_confused.gif"=="on"=
			Smileys_Tongue="$file_url/images/icons/smileys_tongue.gif"=="on"=
			Smileys_RedFace="$file_url/images/icons/smileys_redface.gif"=="on"=
			Smileys_RollEyes="$file_url/images/icons/smileys_rolleyes.gif"=="on"=
			Smileys_Eek="$file_url/images/icons/smileys_eek.gif"=="on"=
			Smileys_ThumbUp="$file_url/images/icons/smileys_thumbup.gif"=="on"=
			Smileys_ThumbDown="$file_url/images/icons/smileys_thumbdown.gif"=="on"=
			Smileys_Lamp="$file_url/images/icons/smileys_lamp.gif"=="on"=
			Smileys_Question="$file_url/images/icons/smileys_question.gif"=="on"=
			
			);
$all_icons_content =~ s/\t//g;		
			
	open(ICON, ">$guestbook_icons") or die "Cannot create $guestbook_icons $!";
	print ICON $all_icons_content;
	close(ICON);
}
sub get_icons{
	open(ICON, "<$guestbook_icons") or die "Cannot open $guestbook_icons $!";
	@all_icons = <ICON>;
	close(ICON);
	foreach (@all_icons){
		if($_ =~ /Icon_Edit_Bold=\"(.*)\"==\"(.*)\"=/){
			$Icon_Edit_Bold = $1;
			$UIE_Bold = $2;
		}
		if($_ =~ /Icon_Edit_Italic=\"(.*)\"==\"(.*)\"=/){
			$Icon_Edit_Italic = $1;
			$UIE_Italic = $2;
		}
		if($_ =~ /Icon_Edit_Underline=\"(.*)\"==\"(.*)\"=/){
			$Icon_Edit_Underline = $1;
			$UIE_Underline = $2;
		}
		if($_ =~ /Icon_Edit_Left=\"(.*)\"==\"(.*)\"=/){
			$Icon_Edit_Left = $1;
			$UIE_Left = $2;
		}
		if($_ =~ /Icon_Edit_Center=\"(.*)\"==\"(.*)\"=/){
			$Icon_Edit_Center = $1;
			$UIE_Center = $2;
		}
		if($_ =~ /Icon_Edit_Right=\"(.*)\"==\"(.*)\"=/){
			$Icon_Edit_Right = $1;
			$UIE_Right = $2;
		}
		if($_ =~ /Icon_Edit_Blockquote=\"(.*)\"==\"(.*)\"=/){
			$Icon_Edit_Blockquote = $1;
			$UIE_Blockquote = $2;
		}
		if($_ =~ /Icon_Edit_URL=\"(.*)\"==\"(.*)\"=/){
			$Icon_Edit_URL = $1;
			$UIE_URL = $2;
		}
		if($_ =~ /Icon_Edit_Email=\"(.*)\"==\"(.*)\"=/){
			$Icon_Edit_Email = $1;
			$UIE_Email = $2;
		}
		if($_ =~ /Icon_Help=\"(.*)\"==\"(.*)\"=/){
			$Icon_Help = $1;
			$UIE_Help = $2;
		}
		
		
		
		if($_ =~ /Smileys_Smile=\"(.*)\"==\"(.*)\"=/){
			$Smileys_Smile = $1;
		}
		if($_ =~ /Smileys_Wink=\"(.*)\"==\"(.*)\"=/){
			$Smileys_Wink = $1;
		}
		if($_ =~ /Smileys_Sad=\"(.*)\"==\"(.*)\"=/){
			$Smileys_Sad = $1;
		}
		if($_ =~ /Smileys_Mad=\"(.*)\"==\"(.*)\"=/){
			$Smileys_Mad = $1;
		}
		if($_ =~ /Smileys_BigGrin=\"(.*)\"==\"(.*)\"=/){
			$Smileys_BigGrin = $1;
		}
		if($_ =~ /Smileys_Confused=\"(.*)\"==\"(.*)\"=/){
			$Smileys_Confused = $1;
		}
		if($_ =~ /Smileys_Tongue=\"(.*)\"==\"(.*)\"=/){
			$Smileys_Tongue = $1;
		}
		if($_ =~ /Smileys_RedFace=\"(.*)\"==\"(.*)\"=/){
			$Smileys_RedFace = $1;
		}
		if($_ =~ /Smileys_RollEyes=\"(.*)\"==\"(.*)\"=/){
			$Smileys_RollEyes = $1;
		}
		if($_ =~ /Smileys_Eek=\"(.*)\"==\"(.*)\"=/){
			$Smileys_Eek = $1;
		}
		if($_ =~ /Smileys_ThumbUp=\"(.*)\"==\"(.*)\"=/){
			$Smileys_ThumbUp = $1;
		}
		if($_ =~ /Smileys_ThumbDown=\"(.*)\"==\"(.*)\"=/){
			$Smileys_ThumbDown = $1;
		}
		if($_ =~ /Smileys_Lamp=\"(.*)\"==\"(.*)\"=/){
			$Smileys_Lamp = $1;
		}
		if($_ =~ /Smileys_Question=\"(.*)\"==\"(.*)\"=/){
			$Smileys_Question = $1;
		}
	}
	$guestbook_format = qq(<table cellpadding="0" cellspacing="0" border="0"><tr>);
		if($UIE_Bold eq "on"){		
			$guestbook_format .= qq(<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, '[b]', '[/b]', 'Bold');"><img src="$Icon_Edit_Bold" border="0" alt="[b]text[/b]" width="22" height="22"></a></td>);
		}
		if($UIE_Italic eq "on"){
			$guestbook_format .= qq(<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, '[i]', '[/i]', 'Italic');"><img src="$Icon_Edit_Italic" border="0" alt="[i]text[/i]" width="22" height="22"></a></td>);
		}
		if($UIE_Underline eq "on"){
			$guestbook_format .= qq(<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, '[u]', '[/u]', 'Underline');"><img src="$Icon_Edit_Underline" border="0" alt="[u]text[/u]" width="22" height="22"></a></td>);
		}
		if($UIE_Left eq "on"){
			$guestbook_format .= qq(<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, '[left]', '[/left]', 'Left');"><img src="$Icon_Edit_Left" border="0" alt="[left]text[/left]" width="22" height="22"></a></td>);
		}
		if($UIE_Center eq "on"){
			$guestbook_format .= qq(<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, '[center]', '[/center]', 'Center');"><img src="$Icon_Edit_Center" border="0" alt="[center]text[/center]" width="22" height="22"></a></td>);
		}
		if($UIE_Right eq "on"){
			$guestbook_format .= qq(<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, '[right]', '[/right]', 'Right');"><img src="$Icon_Edit_Right" border="0" alt="[right]text[/right]" width="22" height="22"></a></td>);
		}
		if($UIE_Blockquote eq "on"){
			$guestbook_format .= qq(<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, '[blockquote]', '[/blockquote]', 'Blockquote');"><img src="$Icon_Edit_Blockquote" border="0" alt="[blockquote]text[/blockquote]" width="22" height="22"></a></td>);
		}
		if($UIE_URL eq "on"){
			$guestbook_format .= qq(<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, '[url]', '[/url]', 'URL');"><img src="$Icon_Edit_URL" border="0" alt="[url=http://www.you.me]text[/url]" width="22" height="22"></a></td>);
		}
		if($UIE_Email eq "on"){
			$guestbook_format .= qq(<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, '[email]', '[/email]', 'E-Mail');"><img src="$Icon_Edit_Email" border="0" alt="[email=mail\@to.me]text[/email]" width="22" height="22"></a></td>);
		}
		if($UIE_Help eq "on"){
			$guestbook_format .= qq(<td><a style="cursor:hand" onClick="javascript:window.open(\'$file_url/fpg_code.htm\')"><img src="$Icon_Help" border="0" alt="Click here to get help" width="22" height="22"></a></td>);
		}
	$guestbook_format .= qq(</tr></table>);
			
	$guestbook_smileys = qq(
			<table cellpadding="0" cellspacing="0" border="0">
				<tr valign="bottom">
				<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, ' [smileys:smile] ', '', 'Smileys');"><img src="$Smileys_Smile" border="0" alt="[smileys:smile]" width="15" height="15"></a>&nbsp;&nbsp;</td>
				<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, ' [smileys:wink] ', '', 'Smileys');"><img src="$Smileys_Wink" border="0" alt="[smileys:wink]" width="15" height="15"></a>&nbsp;&nbsp;</td>
				<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, ' [smileys:sad] ', '', 'Smileys');"><img src="$Smileys_Sad" border="0" alt="[smileys:sad]" width="15" height="15"></a>&nbsp;&nbsp;</td>
				<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, ' [smileys:mad] ', '', 'Smileys');"><img src="$Smileys_Mad" border="0" alt="[smileys:mad]" width="15" height="15"></a>&nbsp;&nbsp;</td>
				<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, ' [smileys:biggrin] ', '', 'Smileys');"><img src="$Smileys_BigGrin" border="0" alt="[smileys:biggrin]" width="15" height="15"></a>&nbsp;&nbsp;</td>
				<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, ' [smileys:confused] ', '', 'Smileys');"><img src="$Smileys_Confused" border="0" alt="[smileys:confused]" width="15" height="22"></a>&nbsp;&nbsp;</td>
				<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, ' [smileys:tongue] ', '', 'Smileys');"><img src="$Smileys_Tongue" border="0" alt="[smileys:tongue]" width="15" height="15"></a>&nbsp;&nbsp;</td>
				<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, ' [smileys:redface] ', '', 'Smileys');"><img src="$Smileys_RedFace" border="0" alt="[smileys:redface]" width="15" height="15"></a>&nbsp;&nbsp;</td>
				<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, ' [smileys:rolleyes] ', '', 'Smileys');"><img src="$Smileys_RollEyes" border="0" alt="[smileys:rolleyes]" width="15" height="15"></a>&nbsp;&nbsp;</td>
				<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, ' [smileys:eek] ', '', 'Smileys');"><img src="$Smileys_Eek" border="0" alt="[smileys:eek]" width="15" height="15"></a>&nbsp;&nbsp;</td>
				<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, ' [smileys:thumbup] ', '', 'Smileys');"><img src="$Smileys_ThumbUp" border="0" alt="[smileys:thumbup]" width="15" height="15"></a>&nbsp;&nbsp;</td>
				<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, ' [smileys:thumbdown] ', '', 'Smileys');"><img src="$Smileys_ThumbDown" border="0" alt="[smileys:thumbdown]" width="15" height="15"></a>&nbsp;&nbsp;</td>
				<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, ' [smileys:lamp] ', '', 'Smileys');"><img src="$Smileys_Lamp" border="0" alt="[smileys:lamp]" width="15" height="15"></a>&nbsp;&nbsp;</td>
				<td><a style="cursor:hand" onClick="return insertAtCaret(document.sign.sign_message, ' [smileys:question] ', '', 'Smileys');"><img src="$Smileys_Question" border="0" alt="[smileys:question]" width="15" height="15"></a>&nbsp;&nbsp;</td>
				</tr>
			</table>);
}

############ Thank Message ##############################################
sub thank_message{
	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="middle">
	
		<table border="0" width="500" 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%" cellpadding="5" cellspacing="0" border="0">
				<tr>
				<td valign="middle" class="text_title">
					$Thank_Title
				</td>
				</tr>
				</table>
			</td>
		</tr>
		
		<tr>
		<td valign="top" bgcolor="$Big_Table_BgColor">
	                <table width="100%" bgcolor="$Message_BgColor" cellspacing="0" cellpadding="20">
	                   <tr>
	                       <td bgcolor="$Message_BgColor" valign="top">
	                       <div class="text">
	                       		$Thank_Message
	                       </div>
	                       </td>
	                   </tr>
	                </table>
	        </td>
		</tr>
		</table>
		
		<br>
		<script language="javascript">
			function weiter(){
				location.href="$ENV{'SCRIPT_NAME'}";
			} 
			setTimeout("weiter()", 3000);
		</script>
		<form action="$ENV{'SCRIPT_NAME'}" method="post">
			<center><input type="submit" value="$FORM_View_Button" 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;
}
############ Informiert den Benutzer ueber Fehler #######################
sub info{
print $conttype;
print qq~
	<html>
	<head>
	<title>$info_title</title>
	<meta http-equiv="cache-control" content="no-cache">
	$Charset_Meta
	<style>
		a:hover{color:white; background: $info_title_color}
		a:link{color:navy; text-decoration:none}
		a:visited{color:navy; text-decoration:none}
		
		.text{	font-family: verdana, arial;
			color: black;
			font-size: 12px;
			}
	</style>
	</head>
	<body bgcolor=#f0f0f0 topmargin=0 leftmargin=0 text=black>
	<table width=100% height=100% border=0 cellpadding=0 cellspacing=0>
	<tr><td width=100% valign=middle align=center>
		<table width=80% align=center border=0 cellpadding=10 cellspacing=1 bgcolor=silver>
		<tr>
		<td width=100% valign=top bgcolor="$info_title_color" align=center>
		<div class=text>
		<font color=white>
			<b>$info_title</b>
		</font>
		</div>
		</td>
		</tr>
		<tr>
		<td width=100% valign=top bgcolor="#e0e0e0">
		<div class=text>
			$info<br><br>
			$info_reason
			$info_login
		</div>
		</td>
		</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>
~;

exit;
}