#!/usr/bin/perl
#
### ULTIMATE.CGI SCRIPT FOR THE ULTIMATE BULLETIN BOARD ##
#
# Ultimate Bulletin Board is copyright Madrona Park, Inc.
#
# you assume all liability that
# may result due to installation problems and/or
# content posted on your bulletin board.  You must also 
# keep all copyright notices on applicable pages.
#
# For more info on the Ultimate BB, 
# see http://www.ultimatebb.com
#
#######################################################

print ("Content-type: text/html\n\n");

eval {
  ($0 =~ m,(.*)/[^/]+,)   && unshift (@INC, "$1"); # Get the script location: UNIX / or Windows /
  ($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1"); # Get the script location: Windows \
 
#substitute all require files here for the file

require "cgi-lib.pl";
require "UltBB.setup";
require "Date.pl";
require "mods.file";
require "ubb_htmlALT.pl";
require "Styles.file";
};

if ($@) {
    print "Error including required files: $@\n";
    print "Make sure these files exist, permissions are set properly, and paths are set correctly.";
 exit;
}


&ReadParse;

foreach $row(@in) {
	($Name, $Value) = split ("=", $row);
	$Name = &decodeURL($Name);
	$Value = &decodeURL($Value);
		
		if ($Name eq "forum") {
			$Forum = $Value;
			$ForumCoded = $Forum;
			$ForumCoded =~ tr/ /+/;
	}
		if ($Name eq "TopicSubject") {
			$TopicSubject = $Value;
			$TopicSubject =~ s/<.+?>//g;
			$TopicSubject =~ s/"/&quot;/g;
			$TopicSubject =~ s/'/&\#039;/g;		
				
	}
		if ($Name eq "UserName") {
			$UserName = $Value;
	}
		if ($Name eq "ReplyMessage") {
			$ReplyMessage = $Value;
		
	}
		if ($Name eq "PasswordConfirm") {
			$PasswordConfirm = $Value;
		}
		if ($Name eq "Message") {
			$Message = $Value;
		
	}
		if ($Name eq "number") {
			$number = $Value;
	}
		if ($Name eq "DaysPrune") {
			$DaysPrune = $Value;
	}
	if ($Name eq "topic") {
			$topic = $Value;
	}
	if ($Name eq "Browser") {
			$Browser = $Value;
	}
	if ($Name eq "Email") {
			$Email = $Value;
			$Email =~tr/A-Z/a-z/; 
	}
	if ($Name eq "URL") {
			$URL = $Value;
	}
	if ($Name eq "Permissions") {
			$Permissions = $Value;
	}
	if ($Name eq "Occupation") {
			$Occupation = $Value;
	}
	if ($Name eq "Location") {
			$Location = $Value;
	}
	if ($Name eq "TotalPosts") {
			$TotalPosts = $Value;
	}
	if ($Name eq "Status") {
			$Status = $Value;
	}
	if ($Name eq "Interests") {
			$Interests = $Value;
	}
}  # end FOREACH $row

if ($VariablesPath eq "") {
			$VariablesPath = $CGIPath;
		}

@censored = split(/ /, $censorwords);

if ($Censor eq "ON") {
	for (@censored) {
		$wordlength = length($_);
		$replaceword = "*" x $wordlength;
		$TopicSubject =~ s/$_/$replaceword/isg;
	}
}
		$SubjectCoded = $TopicSubject;
		$SubjectCoded =~ tr/ /+/;
		

if (@in == 0) {
&Intro;
}
 
if ($in{'action'} eq "intro") {
 &Intro;
 }  

if ($in{'action'} eq "topics") {
 &Topics;
 }  

if ($in{'action'} eq "threadlist") {
 &Threadlist;
 }  
 

if ($in{'action'} eq "reply") {
 &Reply;
 }  

if ($in{'action'} eq "postreply") {
 &PostReply;
 }  
 
if ($in{'action'} eq "newtopic") {
 &NewTopic;
 }  
 
if ($in{'action'} eq "posttopic") {
 &PostTopic;
 }  
 
if ($in{'action'} eq "getbio") {
 &GetBio;
 } 
 
if ($in{'action'} eq "editbio") {
 &EditBio;
 } 
if ($in{'action'} eq "setprefs") {
 &SetPrefs;
 } 
 if ($in{'action'} eq "PrefsSubmit") {
 &PrefsSubmit;
 } 
if ($in{'action'} eq "checkbioid") {
&CheckBioID;
 } 
 
if ($in{'action'} eq "modifybio") {
   &ModifyBio;
 }  
 
if ($in{'action'} eq "register") {
   &Register;
 }  
 if ($in{'action'} eq "RegSubmit") {
 &RegSubmit;
 }
 if ($in{'action'} eq "faq") {
 &FAQ;
 }
 
if ($in{'action'} eq "lostpw") {
 &LostPW;
 }
 
sub Intro {

&ForumsTopHTML;

for ($x = 1; $x < 10; $x++) {
opendir (FORUMDIR, "$ForumsPath/Forum$x/"); 
    @files = readdir(FORUMDIR);
   closedir (FORUMDIR);
 @datesummary = "";
@sortedfiles = sort(@files);
@sortedfiles = grep(/msg/, @sortedfiles);
$numberOfPosts = grep(/msg/, @sortedfiles);

if ($numberOfPosts > 0) {

foreach $checkdate(@sortedfiles) {
($postStuff, $Trash) = split (/\./, $checkdate);
($Trash2, $Trash3, $LastDate, $Trash4) = split ("-", $postStuff);

## we need to move year up front for ordering purposes

$LastYear = substr($LastDate, 4, 2);
$LastRest = substr($LastDate, 0, 4);
$LastDate = ("$LastYear" . "$LastRest");
push (@datesummary, $LastDate);
}

@sortdates = sort(@datesummary);
@sortdates = reverse(@sortdates);
$LatestDate = $sortdates[0];

$Year = substr($LatestDate, 0, 2);
$Month = substr($LatestDate, 2, 2);
$Day = substr($LatestDate, 4, 2);
}  else {
$Month = "";
$Day = "";
$Year = "";
}

$ForumName = ("Forum" . "$x");
$ForumName = $$ForumName;
$Moderator = ("Forum" . "$x" . "Moderator");
$Moderator = $$Moderator;
$ForumDesc = ("Forum" . "$x" . "Desc");
$ForumDesc = $$ForumDesc;
$OnOff = ("ForumStatus" . "$x");
$OnOff = $$OnOff;

$ForumCoded = $ForumName;
$ForumCoded =~ tr/ /+/;

if ($OnOff eq "On") {
&ForumsGutsHTML;
} ## End IF ONOFF Conditional
}

&ForumsBottomHTML;
}  #END INTRO SR ###


sub Topics {

if ($DaysPrune == 1) {
	$Days1 = "SELECTED";
}

if ($DaysPrune == 2) {
	$Days2 = "SELECTED";
}

if ($DaysPrune == 5) {
	$Days5 = "SELECTED";
}

if ($DaysPrune == 10) {
	$Days10 = "SELECTED";
}

if ($DaysPrune == 20) {
	$Days20 = "SELECTED";
}

if ($DaysPrune == 30) {
	$Days30 = "SELECTED";
}

if ($DaysPrune == 45) {
	$Days45 = "SELECTED";
}

if ($DaysPrune == 60) {
	$Days60 = "SELECTED";
}

if ($DaysPrune == 75) {
	$Days75 = "SELECTED";
}

if ($DaysPrune == 100) {
	$Days100 = "SELECTED";
}

$ForumDesc = ("Forum" . "$number" . "Desc");
$ForumDesc = $$ForumDesc;
$Moderator = ("Forum" . "$number" . "Moderator");
$Moderator = $$Moderator;
$Forum = ("Forum" . "$number");
$Forum = $$Forum;

$ForumCoded = $Forum;
$ForumCoded =~ tr/ /+/;
$Moderator =~ s/ /_/g; 

open (GETHOST, "$MembersPath/$Moderator.cgi");
	@ModData = <GETHOST>;
close (GETHOST);

@GetEmail = split(/\|/, $ModData[0]);

$ModeratorEmail = "$GetEmail[2]";

&TopicTopHTML;


&TopicMidNonIEhtml;

#get Forum Messages
opendir (FORUMDIR, "$ForumsPath/Forum$number/"); 
    @forummsgs = readdir(FORUMDIR);
closedir (FORUMDIR);

foreach $message(@forummsgs) {
$MessageNumber = substr($message, 0, 6);
$MessageReply = substr($message, 7, 6);
$DateOfMessage = substr($message, 14, 6);
	if ($MessageReply eq "000000") {
				push (@topicarray, $message);
	}
}

## do date pruning 

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);

#convert Closing and Current Dates to Julian Dates
$CurrentJulian = &jday($mon, $mday, $year);
$CloseJulian = $CurrentJulian - $DaysPrune;

#configure memo date to Julian
foreach $item(@topicarray) {
	
$MonthOfMessage = substr($item, 14, 2);
$DayOfMessage = substr($item, 16, 2);
$YearOfMessage = substr($item, 18, 2);

	$MonthOfMessage = $MonthOfMessage - 1;
	$CheckJulian = &jday($MonthOfMessage, $DayOfMessage, $YearOfMessage);
		
	if ($CheckJulian >= $CloseJulian) {
		push (@finalarray, $item);
	}  
} #end FOREACH $item


#sort topics by date, then by time
foreach $one(@finalarray) {
($messagenumber, $trash5, $sortkey, $replytotals) = split("-", $one);

($replytotals, $trashthis) = split(/\./, $replytotals);

## sortkey is the date...
## but we need to move year up front for ordering purposes

$topicdater = "$sortkey";
$sortyear = substr($sortkey, 4, 2);
$sortrest = substr($sortkey, 0, 4);
$sortkey = ("$sortyear" . "$sortrest");

open (THETOPIC, "$ForumsPath/Forum$number/$one");
	@stuff = <THETOPIC>;
close (THETOPIC);

$getauthor = "$stuff[0]";
$timetopic = "$stuff[2]";
$getsubject = "$stuff[3]";
chomp($getauthor);
chomp($timetopic);
chomp($getsubject);

if ($replytotals eq "000000") {
	$thetime = "$timetopic";
	}  else {
		$TheLastReply = ("$messagenumber-$replytotals-$topicdater-000000.msg");
		
		open (LASTREPLY, "$ForumsPath/Forum$number/$TheLastReply");
			@replyguts = <LASTREPLY>;
		close (LASTREPLY);
		
		$thetime = "$replyguts[2]";
		chomp($thetime);
	}  #END IF/ELSE $replytotals eq 000000
	
## CONVERT $thetime to sortable time equivalent
($Front, $TimePiece) = split(/ /, $thetime);
# $TimePiece is either AM or PM
($GetHour, $GetMinutes) = split(/\:/, $Front);

if ($TimePiece eq "PM") {
	if ($GetHour != 12) {
		$NewHour = $GetHour + 12;
		}  else {
			$NewHour = $GetHour;
		}
	}  else {
		if ($GetHour == 12) {
			$NewHour = 0;
			}  else {
				$NewHour = $GetHour;
			}
}  #END IF/ELSE $TimePiece eq PM
	
$FormattedHour = sprintf("%2d", $NewHour);
$FormattedMinutes = sprintf("%2d", $GetMinutes);
$FormattedHour =~ tr/ /0/;
$FormattedMinutes =~ tr/ /0/;
$settime = ("$FormattedHour" . "$FormattedMinutes");

$sortline = ("$sortkey" . "|$settime" . "|$getauthor" . "|$getsubject" . "|$thetime" . "|$one");
push(@sortthis, $sortline);
}

@sortedthat = sort(@sortthis);
@sortedthat = reverse(@sortedthat);

# now we have the array of topics in the forum
# next... deconstruct each topic to show last post, original author, #topic subject

foreach $topic2(@sortedthat) {

($trash, $trash2, $author, $subject, $settime, $topic) = split(/\|/, $topic2);

$MessageNumber = substr($topic, 0, 6);
$MessageReply = substr($topic, 7, 6);
$DateOfMessage = substr($topic, 14, 6);
$Replies = substr($topic, 21, 6);

$RepliesFormat = $Replies + 0;

$Month = substr($DateOfMessage, 0, 2);
$Day = substr($DateOfMessage, 2, 2);
$Year = substr($DateOfMessage, 4, 2);

&TopicGutsNonIEhtml;

}

&TopicBottomNonIEhtml;

&TopicBottom2NonIEhtml;

}  ## END TOPICS SR ####


sub Threadlist {

$TopicNumber = substr($topic, 0, 13);
&GrabTopic;

open (GETTOPIC, "$ForumsPath/Forum$number/$TopicFile");
	@topicguts = <GETTOPIC>;
close (GETTOPIC);

$UNCoded = $topicguts[0];
$UNCoded =~ tr/ /+/;
$TopicSubject = $topicguts[3];
	$SubjectCoded = $TopicSubject;
			$SubjectCoded =~ tr/ /+/;

&ThreadTopHTML;


if ($Browser ne "IE4") {
			
chomp ($topicguts[1]);
chomp ($topicguts[2]);
chomp ($topicguts[5]);

&ThreadGutsNonIEhtml;

#get Replies to this topic
opendir (FORUMDIR, "$ForumsPath/Forum$number/"); 
    @forummsgs = readdir(FORUMDIR);
closedir (FORUMDIR);

$ThisTopicNumber = substr($topic, 0,6);

#sort to find all replies to this topic

foreach $msg(@forummsgs) {
	$TopicNumber = substr($msg, 0, 6);
	if ($TopicNumber eq "$ThisTopicNumber") {
		$ReplyNumber = substr($msg, 7, 6);
		if ($ReplyNumber > 0) {
			push  (@replyarray, $msg);
		}
	}
}
@replyarray = sort(@replyarray);

#### @replyarray holds all replies to the topic in question

foreach $matchreply(@replyarray) {
	open (REPLY, "$ForumsPath/Forum$number/$matchreply");
		@replyguts = <REPLY>;
	close (REPLY);
	
$UserNameCoded = $replyguts[0];
$UserNameCoded =~ tr/ /+/;
			
chomp ($replyguts[1]);
chomp ($replyguts[2]);
chomp ($replyguts[5]);

&ThreadRepliesNonIEhtml;

}

&ThreadBottomNonIEhtml;

&ThreadBottom2NonIEhtml;

}  else {

&ThreadIEhtml;
&GetForumSelectList;
&ThreadIE2html;
}  ##END IF BROWSER NE IE4 Loop

} #END THREADLIST SR ####


sub Reply {

@forumHTML = ("$Forum1HTML", "$Forum2HTML", "$Forum3HTML", "$Forum4HTML", "$Forum5HTML", "$Forum6HTML", "$Forum7HTML", "$Forum8HTML",  "$Forum9HTML");
  
if ($forumHTML[$number-1] eq "is") {
	$ISHTML = "*HTML is enabled.";
	$HTMLAllowed = "yes";
}  else {
	$ISHTML = "*HTML is NOT enabled.";
	$HTMLAllowed = "no";
}

&ReplyFormHTML;
&GenerateThread;
&ReplyFormBottom;

}  ## END Reply SR #####


sub PostReply {
if (($ReplyMessage eq "") || ($UserName eq "") || ($in{'Password'} eq "")) {
&MissingFields;
 }  else {
##get current date/time

&GetDateTime;

##verify user name/password
$match = "no";
$verified = "false";

opendir (MEMBERDIR, "$MembersPath/"); 
    @members = readdir(MEMBERDIR);
closedir (MEMBERDIR);

$UserNameFile = $UserName;
$UserNameFile =~ s/ /_/g; #remove spaces

CHECKPROFILES: foreach $member(@members) {
	if ($member eq "$UserNameFile.cgi") {
		$match = "yes";
		
		open (CHECKPROFILE, "$MembersPath/$UserNameFile.cgi");
			@profile = <CHECKPROFILE>;
		close (CHECKPROFILE);
		
	@profilestats = split (/\|/, $profile[0]);
	
		if ($profilestats[1] eq "$in{'Password'}") {
				$verified = "true";
				$Email = "$profilestats[2]";
				$UserName = "$profilestats[0]";
				$TotalPosts = "$profilestats[7]";
				$Permission = "$profilestats[4]";
				$Password = "$profilestats[1]";
				$URL = "$profilestats[3]"; 
				$Occupation = "$profilestats[5]";
				$Location = "$profilestats[6]";
				$Status = "$profilestats[8]";
				$Interests = "$profilestats[9]";
			last CHECKPROFILES;
		}  #END IF profilestats
	
	} #END IF $MEMBER
		
}  #end FOREACH $member

&CheckPermissions;

if ($match eq "no") {
&NoMatch
}

if ($match eq "yes" && $verified eq "false") {
&WrongPassword;
}

if ($match eq "yes" && $verified eq "true") {
   if ($PermissionToWrite eq "true") {

##create filenumber for reply based on father message

## recheck topic number, in case someone
## posted reply while user was typing
$TopicNumber = substr($topic, 0, 13);
&GrabTopic;
####

($father, $replynum, $dater, $replytotal) = split(/\-/, $TopicFile);
$oldreplytotal = $replytotal;
$oldreplytotal++;
$newreplynum = sprintf("%6d", $oldreplytotal);
$newreplynum =~tr/ /0/;
$father = sprintf("%6d", $father);
$father =~tr/ /0/;
$ReplyFile = ("$father" . "-" . "$newreplynum" . "-" . "$RunonDate" . "-" . "000000.msg");

#now we have to add the message to the forum directory

## IF HTML is not allowed, remove HTML tags from $Message
if ($in{'HTMLAllowed'} eq "no") {
	$ReplyMessage =~ s/<.+?>//g;
 }
 
if ($Censor eq "ON") {
	for (@censored) {
		$wordlength = length($_);
		$replaceword = "*" x $wordlength;
		$ReplyMessage =~ s/$_/$replaceword/isg;
	}
}

#convert newlines/carriage returns to HTML
$ReplyMessage =~ s/\n\r\n/<p>/g;
$ReplyMessage =~ s/\n/<br>/g;


#Auto-Code URLs, Emails, and Images

$ReplyMessage =~ s/(\[URL\])(http:\/\/\S+)(\[\/URL\])/ <A HREF="$2" TARGET=_blank>$2<\/A> /isg;

$ReplyMessage =~ s/(\[URL\])(\S+)(\[\/URL\])/ <A HREF="http:\/\/$2" TARGET=_blank>$2<\/A> /isg;

$ReplyMessage =~ s/(\[EMAIL\])(\S+\@\S+)(\[\/EMAIL\])/ <A HREF="mailto:$2">$2<\/A> /isg;

$ReplyMessage =~ s/(\[IMG\])(\S+)(\[\/IMG\])/ <IMG SRC="$2"> /isg;
$ReplyMessage =~ s/(\[QUOTE\])(.+)(\[\/QUOTE\])/ <bLOCKQUOTE><font size="1" face="$FontFace">quote:<\/font><HR>$2<HR><\/BLOCKQUOTE>/isg;
&Lock ("lock.file");
open (THISFILE, ">$ForumsPath/Forum$number/$ReplyFile");
print THISFILE ("$UserName\n");
print THISFILE ("$HyphenDate\n");
print THISFILE ("$Time\n");
print THISFILE ("$TopicSubject\n");
print THISFILE ("$Email\n");
print THISFILE ("$ReplyMessage\n");
close (THISFILE);



## Amend father message to reflect new reply
($oldreplytotal, $trash) = split(/\./, $replytotal);
$oldreplytotal++;
$newreplytotal = sprintf("%6d", $oldreplytotal);
$newreplytotal =~tr/ /0/;
$newFileName = "$father-000000-$RunonDate-$newreplytotal.msg";

### can't use rename for certain NT systems, thus, here's the fix:
open (THISFILE, "$ForumsPath/Forum$number/$TopicFile");
@topicstuff = <THISFILE>;
close(THISFILE);

open (RENAME, ">$ForumsPath/Forum$number/$newFileName");
for $line(@topicstuff) {
chomp($line);
print RENAME "$line\n";
}
close(RENAME);

unlink ("$ForumsPath/Forum$number/$TopicFile");
### END NEW RENAME ALTERNATIVE SECTION
#OLD RENAME PROCESS (Much easier, but NT doesn't fully support...)
#rename ("$ForumsPath/Forum$number/$TopicFile", #"$ForumsPath/Forum$number/$newFileName");

&Unlock ("lock.file");

$UserInfo = ("$UserName" . "|$in{'Password'}");

&ReplyConfirmHTML;

##Add reply to user's profile (total posts)
$TotalPosts++;
#Bump user up to Member if Total Posts reaches $MemberMinimum
if (($TotalPosts == $MemberMinimum)  && ($Status eq "Junior Member")) {
$Status = "Member";
}
open (MEMBERSHIP, ">$MembersPath/$UserNameFile.cgi") or die("Unable to open Members directory.");

	print MEMBERSHIP ("$UserName|");
	print MEMBERSHIP ("$Password|");
	print MEMBERSHIP ("$Email|");
	print MEMBERSHIP ("$URL|");
	print MEMBERSHIP ("$Permission|");
	print MEMBERSHIP ("$Occupation|");
	print MEMBERSHIP ("$Location|");
	print MEMBERSHIP ("$TotalPosts|");
	print MEMBERSHIP ("$Status|");
	print MEMBERSHIP ("$Interests\n");
close (MEMBERSHIP);

} else {

&PermissionDeniedHTML;

} #END Check Permission block
}  ## END match yes and verified true block
}
}  ## END Post Reply SR

sub NewTopic {

@forumHTML = ("$Forum1HTML", "$Forum2HTML", "$Forum3HTML", "$Forum4HTML", "$Forum5HTML", "$Forum6HTML", "$Forum7HTML", "$Forum8HTML",  "$Forum9HTML");
  
if ($forumHTML[$number-1] eq "is") {
	$ISHTML = "*HTML is enabled.";
	$HTMLAllowed = "yes";
}  else {
	$ISHTML = "*HTML is NOT enabled.";
	$HTMLAllowed = "no";
}

&TopicFormHTML;

}  ## END NEWTOPIC SR ##

sub PostTopic {

#make sure all fields completed
if (($TopicSubject eq "") || ($Message eq "") || ($UserName eq "") || ($in{'Password'} eq "")) {
&MissingFields;
 }  else {

##get current date/time

&GetDateTime;

##verify user name/password
$match = "no";
$verified = "false";

opendir (MEMBERDIR2, "$MembersPath/"); 
    @members2 = readdir(MEMBERDIR2);
closedir (MEMBERDIR2);

$UserNameFile = $UserName;
$UserNameFile =~ s/ /_/g; #remove spaces

GETUSER: foreach $member2(@members2) {
	if ($member2 eq "$UserNameFile.cgi") {
		$match = "yes";
		
		open (CHECKPROFILE2, "$MembersPath/$UserNameFile.cgi");
			@profile2 = <CHECKPROFILE2>;
		close (CHECKPROFILE2);
		
	@profilestats2 = split (/\|/, $profile2[0]);
	
		if ($profilestats2[1] eq "$in{'Password'}") {
				$verified = "true";
				$Location = "$profilestats2[6]";
				$Occupation = "$profilestats2[5]";
				$Email = "$profilestats2[2]";
				$Status = "$profilestats2[8]";
				$TotalPosts = "$profilestats2[7]";
				$Interests = "$profilestats2[9]";
				$URL = "$profilestats2[3]";
				$Permission = "$profilestats2[4]";
			last GETUSER;
		}  #END IF profilestats
	
	} #END IF $MEMBER
		
}  #end FOREACH $member


&CheckPermissions;

if ($match eq "no") {
&NoMatch
}

if ($match eq "yes" && $verified eq "false") {
&WrongPassword;
}

if ($match eq "yes" && $verified eq "true") {

if ($PermissionToWrite eq "true") {
##determine last topic number and increment by 1

opendir (FORUMCOUNT, "$ForumsPath/Forum$number/"); 
    @forumcounter = readdir(FORUMCOUNT);
closedir (FORUMCOUNT);

#make sure we are only sorting  msg files
@forumcounter = grep(/msg/, @forumcounter);
$count = @forumcounter;

if ($count > 0) {
@sortedforum = sort(@forumcounter);
@sortedforum = reverse(@sortedforum);
$lasttopic = $sortedforum[0];
($lastnumber, $trash, $trash2, $trash3) = split("-", $lasttopic);
$lasttopic++;
$newtopic = sprintf("%6d", $lasttopic);
$newtopic =~tr/ /0/;

##create filenumber for new topic
$newtopicfile = ("$newtopic-000000-$RunonDate-000000.msg");
}  else {
$newtopicfile = ("000000-000000-$RunonDate-000000.msg");
}
#now we have to add the message to the forum directory

## IF HTML is not allowed, remove HTML tags from $Message
if ($in{'HTMLAllowed'} eq "no") {
		$Message =~ s/<.+?>//g;
    }
	

if ($Censor eq "ON") {
	for (@censored) {
		$wordlength = length($_);
		$replaceword = "*" x $wordlength;
		$Message =~ s/$_/$replaceword/isg;
	}
}
#convert newlines/carriage returns to <br> and <p> html tags
	$Message =~ s/\n\r\n/<p>/g;
	$Message =~ s/\n/<br>/g;
	
#Auto-Code URLs, Emails, Images

$Message =~ s/(\[URL\])(http:\/\/\S+)(\[\/URL\])/ <A HREF="$2" TARGET=_blank>$2<\/A> /isg;

$Message =~ s/(\[URL\])(\S+)(\[\/URL\])/ <A HREF="http:\/\/$2" TARGET=_blank>$2<\/A> /isg;

$Message =~ s/(\[EMAIL\])(\S+\@\S+)(\[\/EMAIL\])/ <A HREF="mailto:$2">$2<\/A> /isg;

$Message =~ s/(\[IMG\])(\S+)(\[\/IMG\])/ <IMG SRC="$2"> /isg;
$Message =~ s/(\[QUOTE\])(.+)(\[\/QUOTE\])/ <bLOCKQUOTE><font size="1" face="$FontFace">quote:<\/font><HR>$2<HR><\/BLOCKQUOTE>/isg;
&Lock ("lock.file");
open (FORUM, ">$ForumsPath/Forum$number/$newtopicfile"); 
print FORUM ("$UserName\n");
print FORUM ("$HyphenDate\n");
print FORUM ("$Time\n");
print FORUM ("$TopicSubject\n");
print FORUM ("$Email\n");
print FORUM ("$Message\n");
close (FORUM);
&Unlock ("lock.file");

&TopicConfirmHTML;


##Add reply to user's profile (total posts)
$TotalPosts++;
#Bump user up to Member if Total Posts reaches $MemberMinimum
if (($TotalPosts == $MemberMinimum)  && ($Status eq "Junior Member")) {
$Status = "Member";
}

open (MEMBERS, ">$MembersPath/$UserNameFile.cgi") or die("Unable to open Members directory.");
	print MEMBERS ("$UserName|");
	print MEMBERS ("$in{'Password'}|");
	print MEMBERS ("$Email|");
	print MEMBERS ("$URL|");
	print MEMBERS ("$Permission|");
	print MEMBERS ("$Occupation|");
	print MEMBERS ("$Location|");
	print MEMBERS ("$TotalPosts|");
	print MEMBERS ("$Status|");
	print MEMBERS ("$Interests\n");
close (MEMBERS);


} else {

&PermissionDeniedHTML;

} #END Check Permission block
}  # END IF block
}
}  ## END POST TOPIC SR ###
 
sub GetBio {

$UserNameFile = $UserName;
$UserNameFile =~ s/ /_/g; #remove spaces

open (GETPROFILE, "$MembersPath/$UserNameFile.cgi");
	@thatprofile = <GETPROFILE>;
close (GETPROFILE);

@thisprofile = split(/\|/, $thatprofile[0]);

&ViewBioHTML;

}  ## END GET BIO sr


sub CheckBioID {
opendir (MEMS, "$MembersPath/");
@memberlist = readdir(MEMS);
closedir (MEMS);

$UserNameFile = $UserName;
$UserNameFile =~ s/ /_/g; #remove spaces

GETBIO: foreach $member(@memberlist) {
	if ($member eq "$UserNameFile.cgi") {
		$found = "yes";
		#Check Password Now
		
open (MEM, "$MembersPath/$member") or die("Unable to open Members directory.");
@checkpw = <MEM>;
close (MEM);

	@thisprofile = split (/\|/, $checkpw[0]);
	
         if ($in{'Password'} eq "$thisprofile[1]") {
		     $pwmatch = "true";
			 $Password = $thisprofile[1];
			 $Email = $thisprofile[2];
			 $URL = $thisprofile[3];
			 $Occupation = $thisprofile[5];
			 $Location = $thisprofile[6];
			 $Interests = $thisprofile[9];
			 $Status = $thisprofile[8];
			 $TotalPosts = $thisprofile[7];
			 $Permissions = $thisprofile[4];
            &ProcessEdit;
			last GETBIO;
         }
    } ## END IF MEMBER = Username.cgi condition

}  ## END FOREACH MEMBER loop

if ($found ne "yes") {
   &NoMatch;
}
if (($found eq "yes") && ($pwmatch ne "true")) {
   &WrongPassword;
}
}  ## END CheckBioID SR ###

sub ModifyBio {
if (($Email eq "") || ($in{'NewPassword'} eq "") || ($Email !~ /\@/)) {
&MissingFields;
 }  else {
 
$UserNameFile = $UserName;
$UserNameFile =~ s/ /_/g; #remove spaces

##print profile fields to file
open (MEMBERSHIP, ">$MembersPath/$UserNameFile.cgi") || die("Unable to open Members directory.");

	print MEMBERSHIP ("$UserName|");
	print MEMBERSHIP ("$in{'NewPassword'}|");
	print MEMBERSHIP ("$Email|");
	print MEMBERSHIP ("$URL|");
	print MEMBERSHIP ("$Permissions|");
	print MEMBERSHIP ("$Occupation|");
	print MEMBERSHIP ("$Location|");
	print MEMBERSHIP ("$TotalPosts|");
	print MEMBERSHIP ("$Status|");
	print MEMBERSHIP ("$Interests\n");
close (MEMBERSHIP);

#confirm processing to user, provide links to other places

&BioModifyConfirmHTML;
}
}  ## END Modify Bio SR




sub RegSubmit {
if (($PasswordConfirm eq "") || ($in{'Email'} eq "") || ($UserName eq "") || ($in{'Password'} eq "")) {
&MissingFields;
 }  else {
if ($in{'Password'} eq "$PasswordConfirm")  {
	&GoAhead;
	}  
else {
		&GoBack;
	}

}
}  ## END RegSubmit SR ##


sub GoAhead  {	
$UserNameFile = $UserName;
$UserNameFile =~ s/ /_/g; #remove spaces

#check for illegal (non alphanumeric characters)
$_ = "$UserNameFile";

if (m/\W+/) {
&IllegalNameHTML;
}  else {

#check to make sure Username is unique
opendir (MEMBERDIR, "$MembersPath/"); 
    @members = readdir(MEMBERDIR);
closedir (MEMBERDIR);

@members = grep(/cgi/, @members);

$duplicate = "no";

CHECKDUPES: for (@members) {
	if ($_ eq "$UserNameFile.cgi") {
		$duplicate = "yes";
		&Duplicate;
		last CHECKDUPES;
	}
#CHECK to make sure email isn't a duplicate too

if (($duplicate ne "yes") && ($EmailCheck eq "true")) {

open (MEM, "$MembersPath/$_") or die("Unable to open Members directory.");
@checkemail = <MEM>;
close (MEM);

	@profile = split (/\|/, $checkemail[0]);
	
if ($Email eq "$profile[2]") {
$duplicate = "yes";
&Duplicate;
}
}  #END if duplicate ne yes

}

if ($duplicate ne "yes") {

#Check to make sure email is not duplicate too

open (MEMBERSHIP, ">$MembersPath/$UserNameFile.cgi") or die("Unable to open Members directory.");

	print MEMBERSHIP ("$UserName|");
	print MEMBERSHIP ("$in{'Password'}|");
	print MEMBERSHIP ("$Email|");
	print MEMBERSHIP ("$URL|");
	print MEMBERSHIP ("Write|");
	print MEMBERSHIP ("$Occupation|");
	print MEMBERSHIP ("$Location|");
	print MEMBERSHIP ("0|");
	print MEMBERSHIP ("Junior Member|");
	print MEMBERSHIP ("$Interests\n");
close (MEMBERSHIP);

&PrintRegistrationHTML;
}  

} ### /m end if -- remove later

}  # end GoAhead subroutine




sub decodeURL  {
$_ = shift;
tr/+/ /;
s/%(..)/pack('c', hex($1))/eg;
return($_);
}

sub GetDateTime  {

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);

$mon++;

if ($hour < 12) {
$AMPM = "AM";
}

if ($hour > 12) {
	$hour = $hour - 12;
	$AMPM = "PM";
	}  	
if ($hour == 12) {
	$AMPM = "PM";
	}  	
	
if ($hour == 0) {
	$hour = "12";
	}
$min = sprintf ("%2d", $min);
$min =~tr/ /0/;
$mon = sprintf ("%2d", $mon);
$mon =~tr/ /0/;
$mday = sprintf ("%2d", $mday);
$mday =~tr/ /0/;
$HyphenDate = ("$mon" . "-" . "$mday" . "-" . "$year");
$RunonDate = ("$mon$mday$year");
$Time = ("$hour" . ":" . "$min" . " " . "$AMPM");


}  #end GetDateTime sr

sub GetForumSelectList {
if ($ForumStatus1 eq "On" && $number eq "1") {
print<<SelectHTML;
<OPTION value=1 SELECTED>$Forum1
SelectHTML
} 
if ($ForumStatus1 eq "On" && $number ne "1") {
print<<SelectHTML;
<OPTION value=1>$Forum1
SelectHTML
} 

if ($ForumStatus2 eq "On" && $number eq "2") {
print<<SelectHTML;
<OPTION value=2 SELECTED>$Forum2
SelectHTML
} 
if ($ForumStatus2 eq "On" && $number ne "2") {
print<<SelectHTML;
<OPTION value=2>$Forum2
SelectHTML
} 

if ($ForumStatus3 eq "On" && $number eq "3") {
print<<SelectHTML;
<OPTION value=3 SELECTED>$Forum3
SelectHTML
} 
if ($ForumStatus3 eq "On" && $number ne "3") {
print<<SelectHTML;
<OPTION value=3>$Forum3
SelectHTML
} 

if ($ForumStatus4 eq "On" && $number eq "4") {
print<<SelectHTML;
<OPTION value=4 SELECTED>$Forum4
SelectHTML
} 
if ($ForumStatus4 eq "On" && $number ne "4") {
print<<SelectHTML;
<OPTION value=4>$Forum4
SelectHTML
} 

if ($ForumStatus5 eq "On" && $number eq "5") {
print<<SelectHTML;
<OPTION value=5 SELECTED>$Forum5
SelectHTML
} 
if ($ForumStatus5 eq "On" && $number ne "5") {
print<<SelectHTML;
<OPTION value=5>$Forum5
SelectHTML
} 

if ($ForumStatus6 eq "On" && $number eq "6") {
print<<SelectHTML;
<OPTION value=6 SELECTED>$Forum6
SelectHTML
} 
if ($ForumStatus6 eq "On" && $number ne "6") {
print<<SelectHTML;
<OPTION value=6>$Forum6
SelectHTML
} 

if ($ForumStatus7 eq "On" && $number eq "7") {
print<<SelectHTML;
<OPTION value=7 SELECTED>$Forum7
SelectHTML
} 
if ($ForumStatus7 eq "On" && $number ne "7") {
print<<SelectHTML;
<OPTION value=7>$Forum7
SelectHTML
} 

if ($ForumStatus8 eq "On" && $number eq "8") {
print<<SelectHTML;
<OPTION value=8 SELECTED>$Forum8
SelectHTML
} 
if ($ForumStatus8 eq "On" && $number ne "8") {
print<<SelectHTML;
<OPTION value=8>$Forum8
SelectHTML
} 

if ($ForumStatus9 eq "On" && $number eq "9") {
print<<SelectHTML;
<OPTION value=9 SELECTED>$Forum9
SelectHTML
} 
if ($ForumStatus9 eq "On" && $number ne "9") {
print<<SelectHTML;
<OPTION value=9>$Forum9
SelectHTML
} 
}  ## End GetForumSelectList

sub GenerateThread {

open (GETTOPIC, "$ForumsPath/Forum$number/$topic");
	@topicguts = <GETTOPIC>;
close (GETTOPIC);

$UNCoded = $topicguts[0];
$UNCoded =~ tr/ /+/;
$TopicSubject = $topicguts[3];
chomp ($TopicSubject);
chomp ($topicguts[1]);
chomp ($topicguts[2]);
chomp ($topicguts[5]);

&ThreadGutsNonIEhtml;

#get Replies to this topic
opendir (FORUMDIR, "$ForumsPath/Forum$number/"); 
    @forummsgs = readdir(FORUMDIR);
closedir (FORUMDIR);

$ThisTopicNumber = substr($topic, 0,6);

#sort to find all replies to this topic

foreach $msg(@forummsgs) {
	$TopicNumber = substr($msg, 0, 6);
	if ($TopicNumber eq "$ThisTopicNumber") {
		$ReplyNumber = substr($msg, 7, 6);
		if ($ReplyNumber > 0) {
			push  (@replyarray, $msg);
		}
	}
}
@replyarray = sort(@replyarray);

#### @replyarray holds all replies to the topic in question

foreach $matchreply(@replyarray) {
	open (REPLY, "$ForumsPath/Forum$number/$matchreply");
		@replyguts = <REPLY>;
	close (REPLY);
	
$UserNameCoded = $replyguts[0];
$UserNameCoded =~ tr/ /+/;
			
chomp ($replyguts[1]);
chomp ($replyguts[2]);
chomp ($replyguts[5]);

&ThreadRepliesNonIEhtml;
}
}  ## end Generate Thread sr

sub CheckPermissions {

		$matchWrite = $Permission =~ m/Write/;
		if ($matchWrite eq "1")  {
			$PermissionToWrite = "true";
		} else {
			$PermissionToWrite = "false";
		}
		


} #end CheckPermissions

sub GrabTopic {

	opendir (TOPICGRAB, "$ForumsPath/Forum$number/");
		@topiclist = readdir(TOPICGRAB);
	closedir (TOPICGRAB);
	
	GRABBER: for (@topiclist) {
	if (m/^$TopicNumber/) {
		$TopicFile = $_;
		last GRABBER;
	}
	}
} ## End GrabTopic SR

sub Lock {
local ($lockname) = @_;
local ($endtime);
$endtime = 15;
$endtime = time + $endtime;

while (-e $lockname && time < $endtime) {
open (LOCKFILE, ">$lockname");
} #end lock sr

sub Unlock {

local ($lockname) = @_;
close (LOCKFILE);
unlink ($lockname);
} # end Unlock sr

}



sub PWRequest {
print<<DUMMY;
<HTML>
<body BGCOLOR="$BGColor"  text="$TextColor" link="$LinkColor" vlink="$VisitedLinkColor"><!--'"</title></head>-->
<script type="text/javascript">
//Compete
__compete_code = '667f89f26d96c30e99728fe6a608804d';
(function () { var s=document.createElement('script'),d=document.getElementsByTagName('head')[0]||document.getElementsByTagName('body')[0],t='https:'==document.location.protocol?'https://c.compete.com/bootstrap/':'http://c.compete.com/bootstrap/';s.src=t+__compete_code+'/bootstrap.js';s.type='text/javascript';s.async='async';if(d){d.appendChild(s);}})();
//Quantcast
function channValidator(chann){ return (typeof(chann) == 'string' && chann != '');}
function lycosQuantcast(){ var lb = ""; if(typeof(cm_host) !== 'undefined' && channValidator(cm_host)){ lb += cm_host.split('.')[0] + '.'; }
if(typeof(cm_taxid) !== 'undefined' && channValidator(cm_taxid)){ lb += cm_taxid; lb = lb.replace('/',''); } else { lb = lb.replace('.',''); } return lb; }
var _qevents = _qevents || [];
(function() {
var elem = document.createElement('script');
elem.src = (document.location.protocol == "https:" ? "https://secure" :"http://edge") + ".quantserve.com/quant.js";
elem.async = true;
elem.type = "text/javascript";
var scpt = document.getElementsByTagName('script')[0];
scpt.parentNode.insertBefore(elem, scpt);
})();
_qevents.push({ qacct:"p-6eQegedn62bSo", labels:lycosQuantcast() });
//OwnerIQ
var __oiq_pct = 50;
if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) {
var _oiqq = _oiqq || [];
_oiqq.push(['oiq_addPageBrand','Lycos']);
_oiqq.push(['oiq_addPageCat','Internet > Websites']);
_oiqq.push(['oiq_addPageLifecycle','Intend']);
_oiqq.push(['oiq_doTag']);
(function() {
var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true;
oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s);
})();
}
//Google Analytics
var _gaq = _gaq || [];
_gaq.push(['_setAccount','UA-21402695-19']);
_gaq.push(['_setDomainName','tripod.com']);
_gaq.push(['_setCustomVar',1,'member_name','pimp_daddy14',3]);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
//Lycos Init
function getReferrer() {
var all= this.document.cookie;
if (all== '') return false;
var cookie_name = 'REFERRER=';
var start = all.lastIndexOf(cookie_name);
if (start == -1) return false;
start += cookie_name.length;
var end = all.indexOf(';', start);
if (end == -1) end = all.length;
return all.substring(start, end);
}
function getQuery() {
var rfr = getReferrer();
if (rfr == '') return false;
var q = extractQuery(rfr, 'yahoo.com', 'p=');
if (q) return q;
q = extractQuery(rfr, '', 'q=');
return q ? q : "";
}
function extractQuery(full, site, q_param) {
var start = full.lastIndexOf(site);
if (start == -1) return false;
start = full.lastIndexOf(q_param);
if (start == -1) return false;
start += q_param.length;
var end = full.indexOf('&', start);
if (end == -1) end = full.length;
return unescape(full.substring(start, end)).split(" ").join("+");
}
function generateHref(atag, template){
atag.href=template.replace('_MYURL_', window.location.href.replace('http://', '')).replace('_MYTITLE_','Check%20out%20this%20Tripod%20Member%20site!'); 
}
var lycos_ad = Array();
var lycos_onload_timer;
var cm_role = "live";
var cm_host = "tripod.lycos.com";
var cm_taxid = "/memberembedded";
var tripod_member_name = "pimp_daddy14";
var tripod_member_page = "pimp_daddy14/Ultimate.cgi";
var tripod_ratings_hash = "1418067899:86ee774251ea822934b01830a24ac54f";

var lycos_ad_category = null;

var lycos_ad_remote_addr = "192.99.32.115";
var lycos_ad_www_server = "www.tripod.lycos.com";
var lycos_ad_track_small = "http://members.tripod.com/adm/img/common/ot_smallframe.gif?rand=639010";
var lycos_ad_track_served = "http://members.tripod.com/adm/img/common/ot_adserved.gif?rand=639010";
var lycos_search_query = getQuery();
//Criteo
var cto_conf = { a:true, i: "294", c:"img", kw: "" } ;
(function (){
var c = document.createElement("script"); c.type = "text/javascript"; c.async = true;
c.src = "http://members.tripod.com/adm/partner/criteo_ld_kw.js";
var s = document.getElementsByTagName("body")[0]; s.appendChild(c);
})(); 
</script>
<script type="text/javascript" src="http://scripts.lycos.com/catman/init.js"></script>

<script type="text/javascript"> 
(function(isV)
{
    if( !isV )
    {
        return;
    }
    var adMgr = new AdManager();
    var lycos_prod_set = adMgr.chooseProductSet();
    var slots = ["leaderboard", "leaderboard2", "toolbar_image", "toolbar_text", "smallbox", "top_promo", "footer2", "slider"];
    var adCat = this.lycos_ad_category;
    adMgr.setForcedParam('page', (adCat && adCat.dmoz) ? adCat.dmoz : 'member');
    if (this.lycos_search_query)
    {
        adMgr.setForcedParam("keyword", this.lycos_search_query);
    } 
    else if(adCat && adCat.find_what)
    {
        adMgr.setForcedParam('keyword', adCat.find_what);
    }
    
    for (var s in slots)
    {
        var slot = slots[s];
        if (adMgr.isSlotAvailable(slot))
        {
            this.lycos_ad[slot] = adMgr.getSlot(slot);
        }
    }

    adMgr.renderHeader();
    adMgr.renderFooter();
}((function() {

var w = 0, h = 0, minimumThreshold = 300;

if (top == self)
{
    return true;
}
if (typeof(window.innerWidth) == 'number' )
{
    w = window.innerWidth;
    h = window.innerHeight;
}
else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight))
{
    w = document.documentElement.clientWidth;
    h = document.documentElement.clientHeight;
}
else if (document.body && (document.body.clientWidth || document.body.clientHeight))
{
    w = document.body.clientWidth;
    h = document.body.clientHeight;
}
return ((w > minimumThreshold) && (h > minimumThreshold));
}())));




window.onload = function()
{
    var f = document.getElementById("FooterAd");
    var b = document.getElementsByTagName("body")[0];
    b.appendChild(f);
    f.style.display = "block";
    document.getElementById('lycosFooterAdiFrame').src = '/adm/ad/footerAd.iframe.html';
    


    
    // DOM Inj Ad
    (function(isTrellix)
    {
        var e = document.createElement('iframe');
        e.style.border = '0';
        e.style.margin = 0;
        e.style.display = 'block';
        e.style.cssFloat = 'right';
        e.style.height = '254px';
        e.style.overflow = 'hidden';
        e.style.padding = 0;
        e.style.width = '300px';


        var isBlokedByDomain = function( href )
        {
            var blockedDomains = [
                "ananyaporn13000.tripod.com",
                "xxxpornxxx.tripod.com"
            ];
            var flag = false;
            
            for( var i=0; i<blockedDomains.length; i++ )
            {
                if( href.search( blockedDomains[ i ] ) >= 0 )
                {
                    flag = true;
                }
            }
            return flag;
        }

        var getMetaContent = function( metaName )
        {
            var metas = document.getElementsByTagName('meta');
            for (i=0; i<metas.length; i++)
            { 
                if( metas[i].getAttribute("name") == metaName )
                { 
                    return metas[i].getAttribute("content"); 
                } 
            }
            return false;
        }
        
        var getCommentNodes = function(regexPattern)
        {
            var nodes = {};
            var nodesA = [];
            var preferredNodesList = ['a', 'c', 'b'];
        
            (function getNodesThatHaveComments(n, pattern)
            {
                if (n.hasChildNodes())
                {
                    if (n.tagName === 'IFRAME')
                    {
                        return false;
                    }
                    for (var i = 0; i < n.childNodes.length; i++)
                    {
                        if ((n.childNodes[i].nodeType === 8) && (pattern.test(n.childNodes[i].nodeValue)))
                        {
                            var areaName = pattern.exec(n.childNodes[i].nodeValue)[1];
                            nodes[areaName] = n;
                        }
                        else if (n.childNodes[i].nodeType === 1)
                        {
                            getNodesThatHaveComments(n.childNodes[i], pattern);
                        }
                    }
                }
            }(document.body, regexPattern));

            for (var i in preferredNodesList)
            {
                if (nodes[preferredNodesList[i]])
                {
                    if( isTrellix && nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode )
                    {
                        nodesA.push(nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode);
                    }
                    else
                    {
                        nodesA.push( nodes[preferredNodesList[i]] );
                    }
                }
            }
            return nodesA;
        }
        
        
        var properNode = null;
        var areaNodes = getCommentNodes( new RegExp( '^area Type="area_(\\w+)"' ) );

        for (var i = 0; i < areaNodes.length; i++)
        {
            var a = parseInt(getComputedStyle(areaNodes[i]).width);
            if ((a >= 300) && (a <= 400))
            {
                properNode = areaNodes[i];
                break;
            }
        }


        var propertyName = getMetaContent("property") || false;
        if( isTrellix && (properNode) )
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            properNode.insertBefore(e, properNode.firstChild);
        }
        else if( isTrellix && !( properNode ) ) // Slap the ad eventhought there is no alocated slot
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            e.style.cssFloat = 'none';
            var cdiv = document.createElement('div');
            cdiv.style = "width:300px;margin:10px auto;";
            cdiv.appendChild( e );
            b.insertBefore(cdiv, b.lastChild);
        }
        else if( !isBlokedByDomain( location.href ) )
        {
            var injF = document.createElement('iframe');
            injF.style.border = '0';
            injF.style.margin = 0;
            injF.style.display = 'block';
            injF.style.cssFloat = 'none';
            injF.style.height = '254px';
            injF.style.overflow = 'hidden';
            injF.style.padding = 0;
            injF.style.width = '300px';
            injF.src = '/adm/ad/injectAd.iframe.html';

            if( b && ( !isTrellix || ( typeof isTrellix == "undefined" ) ) ) // All other tripod props
            {
                var cdiv = document.createElement('div');
                cdiv.style = "width:300px;margin:10px auto;";
                cdiv.appendChild( injF );
                b.insertBefore(cdiv, b.lastChild);
            } 
        }
  }( document.isTrellix ));
}

</script>

<style>
#body .adCenterClass{margin:0 auto}
</style>
<div id="tb_container" style="background:#DFDCCF; border-bottom:1px solid #393939; position:relative; z-index:999999999!important">
<div id="tb_ad" class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">
<a href="http://adtrack.ministerial5.com/clicknew/?a=637394" title="build your own website at Tripod.com" style="float:left; width:186px; border:0">
<img src="http://ly.lygo.com/ly/tpSite/images/freeAd2.jpg" alt="Make your own free website on Tripod.com" style="border:0; display:block" />
</a> 
<div id="ad_container" style="display:block!important; float:left; width:728px ">
<script type="text/javascript">document.write(lycos_ad['leaderboard']);</script>
</div>
</div>
</div>
<script type="text/javascript">document.write(lycos_ad['slider']);</script> <!-- added 7/22 -->
<div id="FooterAd" style="background:#DFDCCF; border-top:1px solid #393939; clear:both; display:none; width:100%!important; position:relative; z-index:999999!important; height:90px!important"> 
<div class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">
<a href="http://adtrack.ministerial5.com/clicknew/?a=637394" title="build your own website at Tripod.com" style="float:left; display:block; width:186px; border:0">
<img src="http://ly.lygo.com/ly/tpSite/images/freeAd2.jpg" alt="Make your own free website on Tripod.com" style="border:0; display:block; " />
</a> 
<div id="footerAd_container" style="display:block!important; float:left; width:728px">
<iframe id="lycosFooterAdiFrame" style="border:0; display:block; float:left; height:96px; overflow:hidden; padding:0; width:750px"></iframe>
</div>
</div>
</div>
<noscript>
<img src="http://members.tripod.com/adm/img/common/ot_noscript.gif?rand=639010" alt="" width="1" height="1" />
<!-- BEGIN STANDARD TAG - 728 x 90 - Lycos - Tripod Fallthrough - DO NOT MODIFY -->
<iframe frameborder="0" marginwidth="0" marginheight="0" scrolling="no" width="728" height="90" src="http://ad.yieldmanager.com/st?ad_type=iframe&amp;ad_size=728x90&amp;section=209094"></iframe>
<!-- END TAG -->
</noscript>
<!--Ybrant-->
<img src="http://ad.yieldmanager.com/pixel?id=1901600&t=2" width="1" height="1" />
<!--Datonics-->
<script type="text/javascript" src="http://ads.pro-market.net/ads/scripts/site-132783.js"></script>
<!--Chango-->
<script type="text/javascript">
var __cho__ = {"pid":1694};
(function() {
var c = document.createElement('script');
c.type = 'text/javascript';
c.async = true;
c.src = document.location.protocol + '//cc.chango.com/static/o.js';
var s = document.getElementsByTagName('script')[0];
s.parentNode.insertBefore(c, s);
})();
</script>
<!-- // -->

<IMG SRC="$NonCGIURL/$BBTitle" BORDER=0>
<P>
Sorry, this feature is not yet enabled... coming soon!
</body></HTML>
DUMMY
}  ## END PWREQUEST SR