#!/usr/bin/perl

# Change to correct path. If unsure what path you have, telnet to your account
# and type "which perl" without quotes. There you have it.

################################################################################
# YOU'VE GOT SCRIBBLE!
# A piece of free guestbook software by Mr. Smith @ www.subademic.com.
# Email: smith@subademic.com
# --------------------
# SCRIBBLE VERSION 0.5
# --------------------
# This script and this header is tightly married, never separate the two.
# You are not allowed to re-distribute this script in any shape, form or style.
# Link www.subademic.com instead please.
# 
# Please modify, enhance, trash, clean up, fix, or whatever you feel like. 
# Author takes no responsibility for anything, pre nor post modifies.
#
# Hope you find SCRIBBLE halfwhat useful! Drop me a note.
#############################################################################



# If you alter names of the files, please reflect that here:
# Do not change the extensions from 'cgi', they need be to "hide" the files.

$cfg = 			"scribble_cfg.cgi";

$datafile = 	"scribble_dat.cgi";


# Leave scripturl as is or give the full system path to your script
# Should be something like /cgi-bin/scribble/scribble.cgi

$scripturl = 		"/cgi-bin/mrgtbk/scribble.cgi'}";

# Specify the scripts full adress ie 
# http://www.yoururl.to/scribble.cgi

$script_http_url = 	"/scribble.cgi";

# cookie will expire in how many days? (adminpage access, consult documentation)

$cookiedays = "365";




#############################################################################
# NO NEED TO MODIFY ANYTHING ELSE BELOW, DO IT ONLY IF YOU KNOW WHAT YOU'RE DOING.
# You control your SCRIBBLE from the adminpage.
#############################################################################

$query = 		"$ENV{'QUERY_STRING'}";
$method = 		"$ENV{'REQUEST_METHOD'}";
$storeip = 		"$ENV{'REMOTE_ADDR'}";

$query =~ tr/+/ /;
$query =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

&loadsettings;
&getpostcount;

if ($method eq "POST"){
	&postquery;
	}
else {
	if ($query eq ""){
		&$style_select;
		}
	else {
		&$query;
		}
	}


	
	
######################################################################################
# MY OWN STYLE START.
######################################################################################
# IF YOU WANT TO CREATE YOUR OWN LOOK OF THE POSTS,
# DO SO HERE! IT'S EASY, IT'S FUN, IT'S GOOD FOR YOUR SITES LOOK & FEEL!
# FIRST, PICK A NAME OR NUMBER OR SOMETHING FOR YOUR STYLE BELOW.
# CHANGE "my_own_style" TO SOMETHING MORE APPEALING.
# THIS WILL BE THE URL TO YOUR STYLE 
# (http://www.yourserver.com/cgi-bin/scribble/scribble.cgi?my_own_style
######################################################################################
sub my_own_style { 

	if (open(FILE,"$datafile")) {
		flock(FILE,2);
		}
	print "Content-Type: text/html\n\n";
	&style_head;
	while ($DATA = <FILE>) {
		if ($localcount == "$shownumb") {
			&style_foot;
			flock(FILE,8);
			close(FILE);
			exit;
			}
		else {
			&style_db_read;
			&allowcoding;
			&smileyconversion;
			
					
			print <<HTML;
<table width=$tablewidth bgcolor=$table_bgcolor cellpadding=$table_cellpadding cellspacing=$table_cellspacing border="0">
<tr><td valign="top" align=$tdalign1 bgcolor="\#$tdcolor1">
$font1
Name: <a href="mailto:$email">$name.</a> From $city. <a href="mailto:$email">Email: $email</a></font>
</td></tr><tr><td valign="top" align=$tdalign2 bgcolor="\#$tdcolor2">
$font2$title</font></td></tr><tr><td valign="top" align=$tdalign3 bgcolor="\#$tdcolor3">
$font3$msg</font>
</td></tr><tr><td valign="top" bgcolor="\#$tdcolor4" align=$tdalign4>
$font4 $date $ipnumb</font></td></tr></table>

		$table_separator			
HTML
			$localcount++;
			}			
		}					
 	&style_foot;
	flock(FILE,8);
	close(FILE);	
	}
######################################################################################
# MY OWN STYLE END.
######################################################################################




		
#############################################
# NEW ENTRY.
#############################################
sub postquery {
	&getdate;	
	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$value =~ tr/+/ /;
   		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

   		# dont remove html tags at this point
   		#$value =~ s/<([^>]|\n)*>//g;
   		$FORM{$name} = $value; 
   		$FORM{'message'} =~ s/\cM\n/<br>/g;
   		}
   	$action = $FORM{'actioncode'};		
	if ($action eq "newentry") {
		$name = $FORM{'name'};
		$city = $FORM{'city'};
		$email = $FORM{'email'};
		$title = $FORM{'title'};
		$msg = $FORM{'message'};
		
		#check so that stuff is posted
		
		if ($name eq "") {
			&diebook('Please enter your name. <br>Use your browsers back button to correct this.');
			}
		if ($title eq "") {
			&diebook('Please enter a title for the message.<br>Use your browsers back button to correct this.');
			}
		if ($msg eq "") {
			&diebook('This is a guestbook, not much use unless you type a message! <br>Use your browsers back button to correct this.');
			}
		
		$name =~ s/<.*?>//g;
		$city =~ s/<.*?>//g;
		$email =~ s/<.*?>//g;
		$title =~ s/<.*?>//g;
		$msg =~ s/<br>/[linebreak]/g; 
		
		# proceed to put info into the database		   
		if (open (FILE, "$datafile")) {
			flock(FILE,2);
			}
		@save = <FILE>;
		flock(FILE,8);
		close(FILE);
		if (open (FILE, ">$datafile")) {
			flock(FILE,2);
			}
		print FILE "$name``x$email``x$title``x$date``x$city``x$msg``x$storeip\n";
		print FILE "@save";
		flock(FILE,8);
		close(FILE);		
		print "Content-Type: text/html\n\n";
		print <<HTML;	
		$htmlhead $bodytag
		$font2 Thank you $name <p> <br><br></font>
		$font3
		<a href=$script_http_url?$style_select>$pagetitle</a><p>
		$htmlfoot
HTML
		}
	elsif ($action eq "savesettings") {
	
		$FORM{'table_separator'} =~ s/\cM\n//g;
		$FORM{'body_header'} =~ s/\cM\n//g;		
		$FORM{'body_footer'} =~ s/\cM\n//g;	
		$separator = "``x";
		$guestnumber = "$FORM{'guestnumber'}";
		$password = "$FORM{'password'}";
		$allowcode = "$FORM{'allowcode'}";
		#$convert_to_url = "$FORM{'convert_to_url'}";
		$imagepath = "$FORM{'imagepath'}";
		$showip = "$FORM{'showip'}";	
		$pagetitle = "$FORM{'pagetitle'}";
		$bodycolor = "$FORM{'bodycolor'}";
		$bodyimage = "$FORM{'bodyimage'}";
		$link_color1 = "$FORM{'link_color1'}";
		$link_state1 = "$FORM{'link_state1'}";
		$link_color2 = "$FORM{'link_color2'}";
		$link_state2 = "$FORM{'link_state2'}";	
		$tablewidth = "$FORM{'tablewidth'}";
		$tdcolor1 = "$FORM{'tdcolor1'}";
		$tdcolor2 = "$FORM{'tdcolor2'}";
		$tdcolor3 = "$FORM{'tdcolor3'}";
		$tdcolor4 = "$FORM{'tdcolor4'}";
		$body_footer = "$FORM{'body_footer'}";
		$font1_face = "$FORM{'font1_face'}";
		$font1_size = "$FORM{'font1_size'}";
		$font1_color = "$FORM{'font1_color'}";
		$font1_style = "$FORM{'font1_style'}";
		$font2_face = "$FORM{'font2_face'}";
		$font2_size = "$FORM{'font2_size'}";
		$font2_color = "$FORM{'font2_color'}";
		$font2_style = "$FORM{'font2_style'}";
		$font3_face = "$FORM{'font3_face'}";
		$font3_size = "$FORM{'font3_size'}";
		$font3_color = "$FORM{'font3_color'}";
		$font3_style = "$FORM{'font3_style'}";
		$font4_face = "$FORM{'font4_face'}";
		$font4_size = "$FORM{'font4_size'}";
		$font4_color = "$FORM{'font4_color'}";
		$font4_style = "$FORM{'font4_style'}";	
		$shownumb = "$FORM{'shownumb'}";	
		$table_cellpadding = "$FORM{'table_cellpadding'}";
		$table_cellspacing = "$FORM{'table_cellspacing'}";
		$table_bgcolor = "$FORM{'table_bgcolor'}";
		$tdalign1 = "$FORM{'tdalign1'}";
		$tdalign2 = "$FORM{'tdalign2'}";
		$tdalign3 = "$FORM{'tdalign3'}";
		$tdalign4 = "$FORM{'tdalign4'}";
		$table_separator = "$FORM{'table_separator'}";
		$body_header = "$FORM{'body_header'}";
		$style_select = "$FORM{'style_select'}";
		$convert_to_smiley = "$FORM{'convert_to_smiley'}";
		#$body_bg_img = "$FORM{'body_bg_img'}";
		#$table_bg_image = "$FORM{'body_bg_img'}";
		#$td1_bg_img = "$FORM{'td1_bg_img'}";
		#$td2_bg_img = "$FORM{'td2_bg_img'}";
		#$td3_bg_img = "$FORM{'td3_bg_img'}";
		#$td4_bg_img = "$FORM{'td4_bg_img'}";

		if (open (FILE, ">$cfg")) {
			flock(FILE,2);
			}
		print FILE "guestnumber$separator$guestnumber\n";
		print FILE "pagetitle$separator$pagetitle\n";
		print FILE "password$separator$password\n";
		print FILE "allowcode$separator$allowcode\n";
		print FILE "showip$separator$showip\n";
		print FILE "imagepath$separator$imagepath\n";
		print FILE "bodycolor$separator$bodycolor\n";
		print FILE "bodyimage$separator$bodyimage\n";
		print FILE "link_color1$separator$link_color1\n";
		print FILE "link_state1$separator$link_state1\n";
		print FILE "link_color2$separator$link_color2\n";
		print FILE "link_state2$separator$link_state2\n";
		print FILE "tablewidth$separator$tablewidth\n";
		print FILE "tdcolor1$separator$tdcolor1\n";
		print FILE "tdcolor2$separator$tdcolor2\n";
		print FILE "tdcolor3$separator$tdcolor3\n";
		print FILE "tdcolor4$separator$tdcolor4\n";
		print FILE "font1_face$separator$font1_face\n";
		print FILE "font1_size$separator$font1_size\n";
		print FILE "font1_color$separator$font1_color\n";
		print FILE "font1_style$separator$font1_style\n";
		print FILE "font2_face$separator$font2_face\n";
		print FILE "font2_size$separator$font2_size\n";
		print FILE "font2_color$separator$font2_color\n";
		print FILE "font2_style$separator$font2_style\n";
		print FILE "font3_face$separator$font3_face\n";
		print FILE "font3_size$separator$font3_size\n";
		print FILE "font3_color$separator$font3_color\n";
		print FILE "font3_style$separator$font3_style\n";
		print FILE "font4_face$separator$font4_face\n";
		print FILE "font4_size$separator$font4_size\n";
		print FILE "font4_color$separator$font4_color\n";
		print FILE "font4_style$separator$font4_style\n";
		print FILE "body_footer$separator$body_footer\n";		
		print FILE "shownumb$separator$shownumb\n";	
		print FILE "body_header$separator$body_header\n";
		print FILE "table_cellpadding$separator$table_cellpadding\n";
		print FILE "table_cellspacing$separator$table_cellspacing\n";
		print FILE "table_bgcolor$separator$table_bgcolor\n";
		print FILE "tdalign1$separator$tdalign1\n";
		print FILE "tdalign2$separator$tdalign2\n";
		print FILE "tdalign3$separator$tdalign3\n";
		print FILE "tdalign4$separator$tdalign4\n";
		print FILE "table_separator$separator$table_separator\n";
		print FILE "style_select$separator$style_select\n";
		#print FILE "convert_to_url$separator$convert_to_url\n";
		print FILE "convert_to_smiley$separator$convert_to_smiley\n";		
		#print FILE "body_bg_img$separator$body_bg_img\n";

		flock(FILE,8);
		close(FILE);	
		print "Content-Type: text/html\n\n";
		print <<HTML;
		$htmlhead $bodytag
		$font2 <b>SAVE!</b><p>
		$font3 Your settings should now have been saved. <br>
		(btw, if it's not saved it's likely you have wrong rights on the config file)<p>
		<a href=$script_http_url?$style_select>Check it out</a>.<p>
		$htmlfoot
HTML
		}
	elsif ($action eq "loginadmin") {
		&loginadmin;
		}		
	else {
		&diebook;
		}
	}
	

#############################################
# COOKIES.
#############################################
sub loginpage {
	print "Content-Type: text/html\n\n";
	print <<HTML;
	<html><head><title>Login</title>
	<body bgcolor=$tdcolor3>$font3
	PLEASE LOGIN TO ACCESS SCRIBBLE ADMINISTRATION<p>
	<form name=login action=$script_http_url method=post>
	<input type=hidden name=actioncode value=loginadmin>
	I take it you have the admin password up your sleeve somewhere.<br>
	Give it to me! :)<p>
	<input type=password name=adminpassword><p>
	<input type=submit value="Login" style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:100;">
	</form></body></html>
HTML
	}	
sub loginadmin {
	if ($FORM{'adminpassword'} eq "$password") {
		&setcookie;
		}
	else {
		&diebook('Wrong password.');
		}
	}		
sub setcookie {
	$diecookiedate = cookieexpire($cookiedays);
	print "Set-Cookie: scribbleadmin=$password; path=/; $diecookiedate;";
	print "Content-Type: text/html\n\n";
	print <<HTML;
	<html><head><title>SCRIBBLE</title>
	<body bgcolor=$tdcolor3>$font3
	EVERYTHING SEEMS TO BE IN ORDER<p>	
	<a href=$script_http_url?loadadmin>Move on</a>	
	</body></html>
HTML
	}	
sub adminlogout {
	print "Set-Cookie: scribbleadmin=x; expires=Thu, 03-Feb-2000 00:00:00 GMT";
	&$style_select;
	}


#############################################
# DIEBOOK.
#############################################
sub diebook {
	print "Content-Type: text/html\n\n";
	print <<HTML;
	$htmlhead
	<body bgcolor=$tdcolor3> $font3
	Ooops, something did not go as you wanted.
	<br>
	Description:<b> @_
	</b><p>
	
	<a href=$script_http_url?$style_select>$pagetitle</a>
	
	$htmlfoot
HTML
exit;
	}

#############################################
# GET DATE.
#############################################
sub getdate {
	@days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
    @months = ('January','February','Mars','April','May','June','July','August','September','October','November','December');
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
    $wday = $days[$wday];
    $mon = $months[$mon];
    $hour = sprintf("%2.2d",$hour);
    $min = sprintf("%2.2d",$min);
    $year = $year + 1900;
    $date = "$wday, $mday $mon $year \@ $hour:$min";
    }
    
    
    
#############################################
# CODING OF POSTS, WHAT TO ALLOW AND NOT.
#############################################
sub allowcoding {
	if ($allowcode eq "none") {
		$msg =~ s/<.*?>//g;
		$msg =~ s/\[linebreak\]/<br>/g;
		#clean up display from scribblecode
		$msg =~ s/\[(.){3,9}?\]//g;
		}	
	if ($allowcode eq "scribblecode") {
		#clean up display from htmlcode			
		$msg =~ s/<.*?>//g;
		#safe to convert our linebreaks back to html
		$msg =~ s/\[linebreak\]/<br>/g;		
		#scribblecode conversion
		$msg =~ s/\[bold\]/<b>/ig;
		$msg =~ s/\[\/bold\]/<\/b>/ig;
		$msg =~ s/\[italic\]/<i>/ig;
		$msg =~ s/\[\/italic\]/<\/i>/ig;
		$msg =~ s/\[underline\]/<u>/ig;
		$msg =~ s/\[\/underline\]/<\/u>/ig;
		$msg =~ s/\[red\]/<font color=red>/ig;
		$msg =~ s/\[\/red\]/$font3/ig;
		$msg =~ s/\[blue\]/<font color=blue>/ig;
		$msg =~ s/\[\/blue\]/$font3/ig;
		$msg =~ s/\[orange\]/<font color=orange>/ig;
		$msg =~ s/\[\/orange\]/$font3/ig;
		$msg =~ s/\[green\]/<font color=green>/ig;
		$msg =~ s/\[\/green\]/$font3/ig;
		}
	if ($allowcode eq "htmlcode") {
		$msg =~ s/\[linebreak\]/<br>/g;
		#clean up display from scribblecode
		$msg =~ s/\[(.){3,9}?\]//g;
		}			
	}		
sub smileyconversion {
	if ($convert_to_smiley eq "yes") {
		$msg =~ s/(:\))/<img src=$imagepath\/smile.gif border=0>/g;
		$msg =~ s/(:\()/<img src=$imagepath\/sad.gif border=0>/g;
		$msg =~ s/(;\))/<img src=$imagepath\/wink.gif border=0>/g;
		$msg =~ s/(:D)/<img src=$imagepath\/grin.gif border=0>/ig;
		}
	}
	
#############################################
# POSTCOUNT. 
#############################################
	
sub getpostcount {
	$postcount = "0";
	if (open(FILE,"$datafile")) {
		flock(FILE,2);
		}
	while ($DATA = <FILE>) {
		$postcount++;
		}
	flock(FILE,8);
	close(FILE);
	}

#############################################
# READ/SHOW.
############################################# 
sub style01 { 
	if (open(FILE,"$datafile")) {
		flock(FILE,2);
		}
	print "Content-Type: text/html\n\n";
	&style_head;
	while ($DATA = <FILE>) {
		if ($localcount == "$shownumb") {
			&style_foot;
			flock(FILE,8);
			close(FILE);
			exit;
			}
		else {
			&style_db_read;
			&allowcoding;
			&smileyconversion;
			
					
			print <<HTML;
		<table width=$tablewidth bgcolor=$table_bgcolor cellpadding=$table_cellpadding cellspacing=$table_cellspacing border="0">
		<tr><td valign="top" align=$tdalign1 bgcolor="\#$tdcolor1">$font1
		 Name: <a href="mailto:$email">$name.</a> From $city. <a href="mailto:$email">Email: $email</a></font>
		 </td></tr><tr><td valign="top" align=$tdalign2 bgcolor="\#$tdcolor2">
		$font2$title</font></td></tr><tr><td valign="top" align=$tdalign3 bgcolor="\#$tdcolor3">
		$font3$msg</font>
		</td></tr><tr><td valign="top" bgcolor="\#$tdcolor4" align=$tdalign4>
		$font4 $date $ipnumb</font></td></tr></table>
		$table_separator			
HTML
			$localcount++;
			}			
		}					
 	&style_foot;
	flock(FILE,8);
	close(FILE);	
	}



sub style02 { 
	if (open(FILE,"$datafile")) {
		flock(FILE,2);
		}
	print "Content-Type: text/html\n\n";
	&style_head;
	while ($DATA = <FILE>) {
		if ($localcount == "$shownumb") {
			&style_foot;
			flock(FILE,8);
			close(FILE);
			exit;
			}
		else {
			&style_db_read;
			&allowcoding;
			&smileyconversion;
			
					
			print <<HTML;
		<table width=$tablewidth bgcolor=$table_bgcolor cellpadding=$table_cellpadding cellspacing=$table_cellspacing border="0">
		<tr><td rowspan=3 width=100 valign="top" align=$tdalign1 bgcolor="\#$tdcolor1">$font1
		 <b>Name:</b><br><a href="mailto:$email">$name.</a><p>
		 <b>From:</b> <br>$city.<p>
		 <a href="mailto:$email">(send email)</a></font></td>		 
		 <td valign="top" align=$tdalign2 bgcolor="\#$tdcolor2">$font2
		 $title</font></td></tr>		 
		<tr><td valign="top" align=$tdalign3 bgcolor="\#$tdcolor3">
		$font3$msg</font></td></tr>		 
		<tr><td valign="top" align=$tdalign4 bgcolor="\#$tdcolor4">
		$font4$date $ipnumb</font>		
		</td></tr></table>
		$table_separator			
HTML
			$localcount++;
			}			
		}					
 	&style_foot;
	flock(FILE,8);
	close(FILE);	
	}


sub style03 { 
	if (open(FILE,"$datafile")) {
		flock(FILE,2);
		}
	print "Content-Type: text/html\n\n";
	&style_head;
	while ($DATA = <FILE>) {
		if ($localcount == "$shownumb") {
			&style_foot;
			flock(FILE,8);
			close(FILE);
			exit;
			}
		else {
			&style_db_read;
			&allowcoding;
			&smileyconversion;
			
					
			print <<HTML;
		<table width=$tablewidth border="0">
		<tr><td valign=top align=$tdalign1 bgcolor=\#$tdcolor3>$font3
		"$msg" </font>$font1 <br>/ <a href=mailto:$email>$name</a> \@ $date
		</td></tr></table>
		$table_separator			
HTML
			$localcount++;
			}			
		}					
 	&style_foot;
	flock(FILE,8);
	close(FILE);	
	}
	

sub style04 { 
	if (open(FILE,"$datafile")) {
		flock(FILE,2);
		}
	print "Content-Type: text/html\n\n";
	&style_head;
	while ($DATA = <FILE>) {
		if ($localcount == "$shownumb") {
			&style_foot;
			flock(FILE,8);
			close(FILE);
			exit;
			}
		else {
			&style_db_read;
			&allowcoding;
			&smileyconversion;
			
					
			print <<HTML;
		<table width=$tablewidth bgcolor=$table_bgcolor cellpadding=$table_cellpadding cellspacing=$table_cellspacing border="0">
		<tr><td valign=top align=$tdalign1 bgcolor=\#$tdcolor1>$font1
		<b>Name:</b> <a href=mailto:$email>$name</a><br>
		<b>Hometown:</b> $city<br>
		<b>Email:</b> <a href=mailto:$email>$email</a><br>
		<b>Sent:</b> $date <br>
		<b>$title</b><br>
		$msg
		</td></tr><tr><td valign=top align=$tdalign4 bgcolor=\#$tdcolor4>$font4
		$ipnumb	
		</td></tr></table>
		$table_separator			
HTML
			$localcount++;
			}			
		}					
 	&style_foot;
	flock(FILE,8);
	close(FILE);	
	}


sub style05 { 
	if (open(FILE,"$datafile")) {
		flock(FILE,2);
		}
	print "Content-Type: text/html\n\n";
	&style_head;
	while ($DATA = <FILE>) {
		if ($localcount == "$shownumb") {
			&style_foot;
			flock(FILE,8);
			close(FILE);
			exit;
			}
		else {
			&style_db_read;
			&allowcoding;
			&smileyconversion;
			
					
			print <<HTML;
		<table width=$tablewidth bgcolor=$table_bgcolor cellpadding=$table_cellpadding cellspacing=$table_cellspacing border="0">
		<tr><td valign=top align=$tdalign2 bgcolor=\#$tdcolor2>$font2
		$title
		
		<tr><td valign=top align=$tdalign3 bgcolor=\#$tdcolor3>$font3
		$msg
		
		<tr><td valign=top align=$tdalign1 bgcolor=\#$tdcolor1>$font1
		$name, &lt;<a href=mailto:$email>$email</a>&gt;<br>
		$city, $date. $ipnumb

		</td></tr></table>
		
		$table_separator			
HTML
			$localcount++;
			}			
		}					
 	&style_foot;
	flock(FILE,8);
	close(FILE);	
	}

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

#################################################################################
# DEALING OUT DIFF STYLES. THESE SUBS ARE SHARED.
#################################################################################

sub style_head {
	print "$htmlhead\n";
	print "$bodytag\n";
	print "$body_header\n";
	print "$font1 Total number of guestbook posts: $postcount<p>\n";
	}

sub style_db_read {			
	chop $DATA;
	($name, $email, $title, $date, $city, $msg, $ip) = split "``x", $DATA;
	if ($showip eq "yes") {
		$ipnumb = "IP: $ip";
		}
	else {
		$ipnumb = "";
		}
	}

sub style_foot {
	print "$body_footer ";
	print "<font face=helvetica size=1>";
	print "Displaying the $localcount latest post out of $postcount total.<p>";
	print "<a href=http://www.mitchryder.com/ target=_blank>Powered by: The New Mitch Ryder On-Line</a>";
	print "$htmlfoot\n";
	}



#############################################
# LOADSETTINGS
############################################# 
sub loadsettings {
	open(FILE,$cfg);
	my @SETTINGS = <FILE>;
	close(FILE);
	foreach $i (@SETTINGS) {
		($name, $value) = split(/``x/, $i);
		$value =~ s/\n//g;
		$Config{$name} = $value;
		}

	
	
	$guestnumber = "$Config{'guestnumber'}";
	$password = "$Config{'password'}";
	$allowcode = "$Config{'allowcode'}";
	$imagepath = "$Config{'imagepath'}";
	$showip = "$Config{'showip'}";
	$pagetitle = "$Config{'pagetitle'}";
	$bodycolor = "$Config{'bodycolor'}";
	$bodyimage = "$Config{'bodyimage'}";
	
	$shownumb = "$Config{'shownumb'}";

	$link_color1 = "$Config{'link_color1'}";
	$stylestatic = "$Config{'stylestatic'}";
	$link_state1 = "$Config{'link_state1'}";
	$stylehover = "$Config{'stylehover'}";
	$link_color2 = "$Config{'link_color2'}";
	$stylehover2 = "$Config{'stylehover2'}";
	$link_state2 = "$Config{'link_state2'}";
	
	$tablewidth = "$Config{'tablewidth'}";
	$tdcolor1 = "$Config{'tdcolor1'}";
	$tdcolor2 = "$Config{'tdcolor2'}";
	$tdcolor3 = "$Config{'tdcolor3'}";
	$tdcolor4 = "$Config{'tdcolor4'}";
	$body_footer = "$Config{'body_footer'}";
	
	$table_cellpadding = "$Config{'table_cellpadding'}";
	$table_cellspacing = "$Config{'table_cellspacing'}";
	$tdalign1 = "$Config{'tdalign1'}";
	$tdalign2 = "$Config{'tdalign2'}";
	$tdalign3 = "$Config{'tdalign3'}";
	$tdalign4 = "$Config{'tdalign4'}";
	$table_bgcolor = "$Config{'table_bgcolor'}";
	
	$table_separator = "$Config{'table_separator'}";
	
	$style_select = "$Config{'style_select'}";
	#$convert_to_url = "$Config{'convert_to_url'}";
	
	$convert_to_smiley = "$Config{'convert_to_smiley'}";
	
	
	#create the 4 different fonttags
	$font1 = "<$Config{'font1_style'}><font face=$Config{'font1_face'} size=$Config{'font1_size'} color=\#$Config{'font1_color'}>";
	$font2 = "<$Config{'font2_style'}><font face=$Config{'font2_face'} size=$Config{'font2_size'} color=\#$Config{'font2_color'}>";
	$font3 = "<$Config{'font3_style'}><font face=$Config{'font3_face'} size=$Config{'font3_size'} color=\#$Config{'font3_color'}>";
	$font4 = "<$Config{'font4_style'}><font face=$Config{'font4_face'} size=$Config{'font4_size'} color=\#$Config{'font4_color'}>";
	#create the style type/css, html header, bodytag and htmlfoot
	$linkstyle = "\<style type=text/css\> A	\{COLOR: \#$Config{'link_color1'}\; TEXT-DECORATION: $Config{'link_state1'}\;\} A:hover \{COLOR: \#$Config{'link_color2'}\; TEXT-DECORATION: $Config{'link_state2'}\;\}\</style\>";
	$htmlhead = "<html><head><title>$Config{'pagetitle'}</title> $linkstyle </head>";
	#$body_bg_img = "$Config{'body_bg_img'}";
	$bodytag = "<body bgcolor=\#$Config{'bodycolor'} background=$Config{'bodyimage'} marginwidth=0 marginheight=0 topmargin=0 leftmargin=0>";
	$body_header = "$Config{'body_header'}";
	$htmlfoot = "</body></html>";

	}   

#############################################
# LOAD ADMIN.
#############################################
    
sub loadadmin {

	if ($ENV{'HTTP_COOKIE'}) {
		foreach (split(/; /,$ENV{'HTTP_COOKIE'})) {
			($cookie,$cookievalue) = split(/=/);
			$Cookies{$cookie} = $cookievalue;
			}		
		if ($Cookies{'scribbleadmin'} eq "$password") {



	#get possible html formatting in footertext translated
	$body_footer =~ s/</&lt;/g;
	$body_footer =~ s/>/&gt;/g;
	$body_footer =~ s/"//g;
	
	$body_header =~ s/</&lt;/g;
	$body_header =~ s/>/&gt;/g;
	$body_header =~ s/"//g;

	
	$table_separator =~ s/</&lt;/g;
	$table_separator =~ s/>/&gt;/g;
	$table_separator =~ s/"//g;


	print "Content-Type: Text/html\n\n";
	print <<HTML;
$htmlhead
<body bgcolor="#8b0000">
<center>


<form action=$script_http_url method=post>
<input type=hidden name=actioncode value=savesettings>

<table width=98% bgcolor="#ffffff" cellpadding=5><tr><td colspan=2 bgcolor=#000000>
<font face=helvetica size=4 color=#dcdcdc><b>$pagetitle - Adminpage</b><br></font>
<font face=helvetica size=1 color=#ffffff> ADMINPAGE FOR SCRIBBLE VERSION 0.5. <a href=$scripturl?adminlogout>Logout</a> (delete cookie)<br>
Review and alter your settings as described. Consult the documentation if you're unsure of a setting.

</tr></td><tr><td colspan=2 valign=top align=center bgcolor=#000000>
<font face=helvetica size=2 color=#ffffff> 
<B>MAIN SETTINGS</B>

</td></tr><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
If you would like a new password, set it here.<br>
You need to login again later with the new password.
</td><td valign=top bgcolor=#696969>
<input type=password size=60 name=password value="$password" style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">


</tr></td><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Enter the title you wish to use for your Scribble pages.
</td><td valign=top bgcolor=#696969>
<input type=text size=60 name=pagetitle value="$pagetitle" style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
</td></tr>

<tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
The full url to your images.<br>
Ie http://www.yourserver.com/scribble/scribbleimg<br>
<b>No trailing slash!</b>
</td><td valign=top bgcolor=#696969>
<input type=text size=60 name=imagepath value="$imagepath" style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
</td></tr>

<tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Body background color for the guestbookpage.
</td><td valign=top bgcolor=#696969>
<input type=text size=60 name=bodycolor value=$bodycolor style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">

</td></tr>

<tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Body background image for the guestbookpage.
</td><td valign=top bgcolor=#696969>
<input type=text size=60 name=bodyimage value="$bodyimage" style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">


</tr></td><tr><td colspan=2 valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
What will be displayed on top of the generated scribblepage?<br>
HTML is allowed, so let it rip!<p>
<textarea cols=60 rows=35 name=body_header style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:98%;Height:200px;">
$body_header
</textarea>

</td></tr>

<tr><td colspan=2 valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
What will be displayed on the bottom of the generated scribblepage?<br>
You know what? You can go ahead and use HTML here too! Bloody great if you ask me, which you dont. So, uh, dont be shy customy! (had to misspell for it in order to rhyme there)
<p>
<textarea cols=60 rows=35 name=body_footer style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:98%;Height:200px;">
$body_footer
</textarea>

</td></tr>

<tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5>
Styleselect. Choose what style to use.<br>
If you want visitors so see all styles just point them to the different url's ie yoururl/scribble.cgi?style01 - 05.<br>

</td><td valign=top bgcolor=#696969><font face=helvetica size=2 color=#f5f5f5>
<select name=style_select style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$style_select selected>$style_select
<option value=style01>Style 01
<option value=style02>Style 02
<option value=style03>Style 03
<option value=style04>Style 04
<option value=style05>Style 05
</select>
</td></tr>

<tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5>
Allow posters to use some easy scribble coding, htmlcoding or no coding in their posts?<br>
What scribblecode that is available can be learned in SCRIBBLE 0.3 documentation, or in the example add_post.html file.<br>
<b>I strongly discourage you to allow html coding!</b> If you allow htmlcoding in posts visitors can easily destroy
the page using improper tags, they can link in nasty pics and stuff too, not that fun (unless it's nice good looking chicks. Nah, kidding :))
</td><td valign=top bgcolor=#696969><font face=helvetica size=2 color=#f5f5f5>
<select name=allowcode style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$allowcode selected>$allowcode
<option value=none>Allow no coding
<option value=scribblecode>Allow scribble code
<option value=htmlcode>Allow html code (I warned you)
</select>

</td></tr>

<tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5>
Smiley conversion?<br>
Set option wether or not you wish to convert smileys in posts into graphics. If you want that,
make sure you've uploaded the include smileys.<br>
A little something worth mentioning, since this conversion takes place when the guestbook loads,
you can turn this feature (as well as others) on or off whenever you wish. All smileys in all posts (old as new) 
will be converted even though you turn this on later. This goes for coding options too (html, ubb or none). 
</td><td valign=top bgcolor=#696969><font face=helvetica size=2 color=#f5f5f5>
<select name=convert_to_smiley style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$convert_to_smiley selected>$convert_to_smiley
<option value=yes>Yeah
<option value=no>Nah
</select>



</tr></td><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Do you want to show the posters ip-number?
</td><td valign=top bgcolor=#696969><font face=helvetica size=2 color=#f5f5f5>
<select name=showip style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$showip selected>$showip
<option value=yes>Yeah
<option value=no>Nah
</select>

</tr></td><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Display how many posts?
</td><td valign=top bgcolor=#696969><font face=helvetica size=2 color=#f5f5f5>
<input type=text size=10 name=shownumb value=$Config{'shownumb'} style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">


</tr></td><tr><td colspan=2 valign=top align=center bgcolor=#000000>
<font face=helvetica size=2 color=#ffffff> 
<B>FONT SETTINGS:</B> One post - 4 fonts. Crazy!

</tr></td><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Font 1.<br>
$font1 This is font1.
</td><td valign=top bgcolor=#696969><font face=helvetica size=2 color=#f5f5f5> 
Face:<br>
<select name=font1_face style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'font1_face'} selected>$Config{'font1_face'}
<option value=helvetica>Helvetica
<option value=Arial>Arial
<option value=Verdana>Verdana
<option value=Times>Times
<option value=Courier>Courier
<option value=Geneva>Geneva
</select>
<font face=helvetica size=2 color=#f5f5f5>
<p>
Size:<br>
<select name=font1_size style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'font1_size'} selected>$Config{'font1_size'}
<option value=1>1
<option value=2>2
<option value=3>3
<option value=4>4
<option value=5>5
<option value=6>6
</select>

<p>
Style:<br>
<select name=font1_style style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'font1_style'} selected>$Config{'font1_style'}
<option value=font>Plain
<option value=b>Bold
<option value=i>Italic
<option value=u>Underline
<option value=strike>Strikeout
<option value=tt>Teletype
<option value=blink>Blink
</select>

<p><font face=helvetica size=2 color=#f5f5f5>
Color (just the code, no beginning #):<br>
<input type=text size=10 name=font1_color value=$Config{'font1_color'} style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">

</tr></td><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Font 2.<br>
$font2 This is font2.
</td><td valign=top bgcolor=#696969><font face=helvetica size=2 color=#f5f5f5> 
Face:<br>
<select name=font2_face style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'font2_face'} selected>$Config{'font2_face'}
<option value=helvetica>Helvetica
<option value=Arial>Arial
<option value=Verdana>Verdana
<option value=Times>Times
<option value=Courier>Courier
<option value=Geneva>Geneva
</select>
<font face=helvetica size=2 color=#f5f5f5>
<p>
Size:<br>
<select name=font2_size style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'font2_size'} selected>$Config{'font2_size'}
<option value=1>1
<option value=2>2
<option value=3>3
<option value=4>4
<option value=5>5
<option value=6>6
</select>
<p>
Style:<br>
<select name=font2_style style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'font2_style'} selected>$Config{'font2_style'}
<option value=font>Plain
<option value=b>Bold
<option value=i>Italic
<option value=u>Underline
<option value=strike>Strikeout
<option value=tt>Teletype
<option value=blink>Blink
</select>
<p><font face=helvetica size=2 color=#f5f5f5>
Color (just the code, no beginning #):<br>
<input type=text size=10 name=font2_color value=$Config{'font2_color'} style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">



</tr></td><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Font 3.<br>
$font3 This is font3.
</td><td valign=top bgcolor=#696969><font face=helvetica size=2 color=#f5f5f5> 
Face:<br>
<select name=font3_face style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'font3_face'} selected>$Config{'font3_face'}
<option value=helvetica>Helvetica
<option value=arial>Arial
<option value=verdana>Verdana
<option value=Times>Times
<option value=Courier>Courier
<option value=Geneva>Geneva
</select>
<font face=helvetica size=2 color=#f5f5f5>
<p>
Size:<br>
<select name=font3_size style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'font3_size'} selected>$Config{'font3_size'}
<option value=1>1
<option value=2>2
<option value=3>3
<option value=4>4
<option value=5>5
<option value=6>6
</select>
<p>
Style:<br>
<select name=font3_style style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'font3_style'} selected>$Config{'font3_style'}
<option value=font>Plain
<option value=b>Bold
<option value=i>Italic
<option value=u>Underline
<option value=strike>Strikeout
<option value=tt>Teletype
<option value=blink>Blink
</select>
<p><font face=helvetica size=2 color=#f5f5f5>
Color (just the code, no beginning #):<br>
<input type=text size=10 name=font3_color value=$Config{'font3_color'} style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">


</tr></td><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Font 4.<br>
$font4 This is font4.
</td><td valign=top bgcolor=#696969><font face=helvetica size=2 color=#f5f5f5> 
Face:<br>
<select name=font4_face style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'font4_face'} selected>$Config{'font4_face'}
<option value=helvetica>Helvetica
<option value=Arial>Arial
<option value=Verdana>Verdana
<option value=Times>Times
<option value=Courier>Courier
<option value=Geneva>Geneva
</select>
<font face=helvetica size=2 color=#f5f5f5>
<p>
Size:<br>
<select name=font4_size style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'font4_size'} selected>$Config{'font4_size'}
<option value=1>1
<option value=2>2
<option value=3>3
<option value=4>4
<option value=5>5
<option value=6>6
</select>
<p>
Style:<br>
<select name=font4_style style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'font4_style'} selected>$Config{'font4_style'}
<option value=font>Plain
<option value=b>Bold
<option value=i>Italic
<option value=u>Underline
<option value=strike>Strikeout
<option value=tt>Teletype
<option value=blink>Blink
</select>
<p><font face=helvetica size=2 color=#f5f5f5>
Color (just the code, no beginning #):<br>
<input type=text size=10 name=font4_color value=$Config{'font4_color'} style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">

</td></tr><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Link color.<br>
<font color=#$Config{'link_color1'}>Example of the color.
</td><td valign=top bgcolor=#696969>
<input type=text size=60 name=link_color1 value=$link_color1 style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">

</td></tr><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
The style of the link.<br>
<a href=http://www.subademic.com>Example link</a>
</td><td valign=top bgcolor=#696969>
<select name=link_state1 style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'link_state1'} selected>$Config{'link_state1'}
<option value=none>None
<option value=underline>Underline
<option value=overline>Overline
<option value=line-through>Line-through
<option value=blink>Blink
</select>

</td></tr><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Link color 2 (on mouse over).<br>
<font color=#$Config{'link_color2'}>Example of the color when the cursor is on the link.
</td><td valign=top bgcolor=#696969>
<input type=text size=60 name=link_color2 value=$link_color2 style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">

</td></tr><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
The on mouse over style of the link.<br>
<a href=http://www.subademic.com>Example link</a>
</td><td valign=top bgcolor=#696969>
<select name=link_state2 style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'link_state2'} selected>$Config{'link_state2'}
<option value=none>None
<option value=underline>Underline
<option value=overline>Overline
<option value=line-through>Line-through
<option value=blink>Blink
</select>


</td></tr><tr><td colspan=2 valign=top align=center bgcolor=#000000><font face=helvetica size=2 color=#ffffff>
<b>TABLE SETTINGS:</b> One post - one table. What are the options Sir?

</td></tr><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Each post gets a good looking table like this.
</td><td valign=top bgcolor=#696969><font face=helvetica size=2 color=#f5f5f5>
Table width, in percent (i.e 98%) or pixels (i.e 520)<br>
<input type=text size=60 name=tablewidth value=$tablewidth style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<p>Table cellpadding<br>
<input type=text size=60 name=table_cellpadding value=$table_cellpadding style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<p>Table cellspacing<br>
<input type=text size=60 name=table_cellspacing value=$table_cellspacing style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<p>Table bgcolor<br>
<input type=text size=60 name=table_bgcolor value=$table_bgcolor style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">

</td></tr><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Cell 1 settings.<br>
This cell contains the posters name, where he/she/it is from and email adress.<br>
This cell uses Font 1 which you've specified above.
</td><td valign=top bgcolor=#696969><font face=helvetica size=2 color=#f5f5f5>
Background color<br>
<input type=text size=60 name=tdcolor1 value=$tdcolor1 style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<p>Alignment, left right or center<br>
<select name=tdalign1 style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'tdalign1'} selected>$Config{'tdalign1'}
<option value=left>left
<option value=right>right
<option value=center>center
</select>


</td></tr><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Cell 2 settings.<br>
This cell contains the title of the post.<br>
And, not to much surprise, uses Font 2.
</td><td valign=top bgcolor=#696969><font face=helvetica size=2 color=#f5f5f5>
Background color<br>
<input type=text size=60 name=tdcolor2 value=$tdcolor2 style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<p>Alignment, left right or center<br>
<select name=tdalign2 style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'tdalign2'} selected>$Config{'tdalign2'}
<option value=left>left
<option value=right>right
<option value=center>center
</select>

</td></tr><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Cell 3 settings.<br>
This cell contains the actual message.<br>
Dear cell number 3 uses nice Font 3.

</td><td valign=top bgcolor=#696969><font face=helvetica size=2 color=#f5f5f5>
Background color<br>
<input type=text size=60 name=tdcolor3 value=$tdcolor3 style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<p>Alignment, left right or center<br>
<select name=tdalign3 style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'tdalign3'} selected>$Config{'tdalign3'}
<option value=left>left
<option value=right>right
<option value=center>center
</select>

</td></tr><tr><td valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
Cell 4 settings.<br>
This cell contains the message date and if you wish, his/her/its ip-adress.<br>
Font 4 is used in this one.
</td><td valign=top bgcolor=#696969><font face=helvetica size=2 color=#f5f5f5>
Background color<br>
<input type=text size=60 name=tdcolor4 value=$tdcolor4 style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<p>Alignment, left right or center<br>
<select name=tdalign4 style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:200px;">
<option value=$Config{'tdalign4'} selected>$Config{'tdalign4'}
<option value=left>left
<option value=right>right
<option value=center>center
</select>

</tr></td><tr><td colspan=2 valign=top bgcolor=#696969>
<font face=helvetica size=2 color=#f5f5f5> 
At last, if you wish anything special to go in between each post, like a &lt;hr&gt;, &lt;br&gt; or &lt;p&gt; for example.<br>
Or, since you may use HTML you could go ahead and make your viewers day and make them stay!<p>

<textarea cols=60 rows=35 name=table_separator style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:98%;Height:200px;">
$table_separator
</textarea>

</td></tr><tr><td colspan=2 valign=top align=center bgcolor=#000000><font face=helvetica size=2 color=#ffffff>
<b>THAT'S IT</b> <br>
I'm sure you've come up with some good looking stuff now, save it and your SCRIBBLE is freshbaked and flying in some real style.


</td></tr>
<tr><td colspan=2 align=center bgcolor=#000000>
<input type=submit value="Click me to save your new settings" style="FONT-SIZE:10px;Color:#000000;Family:Verdana;Background:#dcdcdc;Width:98%;">

</table></form>

</center><div align="right">
$htmlfoot

HTML
			} 
		else {
			&loginpage;
			}
		}
	else {
		&loginpage;
		}
	} 
	
sub cookieexpire {
	my (@Wdy, @Mon, $time, @time);
	@Wdy = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat',);
	@Mon = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
	$time = time + $_[0] * 3600 * 24;
	@time = gmtime $time;
	sprintf ("expires=%s, %02d-%s-%02d %02d:%02d:%02d GMT", $Wdy[$time[6]], $time[3], $Mon[$time[4]], $time[5], $time[2], $time[1], $time[0]);
	}