#!/usr/bin/perl

$_=$ENV{'QUERY_STRING'};

$item="";

if (/\-/) {

@ddw=split(/\-/,$_);

$who=$ddw[0];
$item=$ddw[1];


}
else {

$who=$ENV{'QUERY_STRING'};

}

$whodat=$who;

if ($who==0) {
	print "Location: http://www.baseballgeeks.com\n\n";
}


print "Set-Cookie: startup=$who; path=/;\n";


$mn[1]="January";
$mn[2]="February";
$mn[3]="March";
$mn[4]="April";
$mn[5]="May";
$mn[6]="June";
$mn[7]="July";
$mn[8]="August";
$mn[9]="September";
$mn[10]="October";
$mn[11]="November";
$mn[12]="December";


open (WHO, "bbs/users/blogs/$who");
	@ft=<WHO>;
close(WHO);


$numft=@ft;

open (CFG,"bbs/users/blogs/$who.cfg");
	@cfg=<CFG>;
close(CFG);

$numcfg=@cfg;

$out1=chr(13);
$out2=chr(10);

for ($ix=0; $ix<$numcfg; $ix++) {
	$_=$cfg[$ix];
	s/$out1//g;
	s/$out2//g;
	$cfg[$ix]=$_;
}

$cfg[0]++;

open (CFG,"bbs/users/blogs/$who.hts");
	@hits=<CFG>;
close(CFG);

$_=$hits[0];
s/$out1//g;
s/$out2//g;
$hits[0]=$_;
$hits[0]++;

$numsitehits=$hits[0];

open (CFG,">bbs/users/blogs/$who.hts");
	print CFG "$hits[0]\n";
close(CFG);

open (CFG,"bbs/users/$who");
	@bloguser=<CFG>;
close(CFG);

$numblogusr=@bloguser;

$out1=chr(13);
$out2=chr(10);

for ($ix=0; $ix<$numblogusr; $ix++) {
	$_=$bloguser[$ix];
	s/$out1//g;
	s/$out2//g;
	$bloguser[$ix]=$_;
}

if ($numblogusr==0) {
	print "Location: http://www.baseballgeeks.com\n\n";
}


if ($numcfg) {

open (HITS, ">bbs/users/blogs/$who.cfg");
	for ($ix=0; $ix<$numcfg; $ix++) {
		print HITS "$cfg[$ix]\n";
	}
close(HITS);

}

$blogwho=$who;


if ($bloguser[17] != 1) {

	$cfg[2]="www.baseballgeeks.com/cgi-bin/blog?$who";


}



#if ($cfg[4] eq "") {
#	$cfg[4] = "arial";
#}


if ($cfg[5] eq "") {
	$cfg[5] = "gray";
}


#if ($cfg[6] eq "") {
#	$cfg[6] = "white";
#}


if ($cfg[7] eq "") {
	$cfg[7] = "beige";
}


if ($cfg[8] eq "") {
	$cfg[8] = "#ccccff";
}

if ($cfg[9] eq "") {
	$cfg[9] = "arial";
}


if ($cfg[10] eq "") {
	$cfg[10] = "black";
}

if ($cfg[11] eq "") {
	$cfg[11] = "arial";
}

if ($cfg[12] eq "") {
	$cfg[12] = "black";
}


if ($cfg[16] eq "") {
	$cfg[16] = "#ccccff";
}

if ($cfg[17] eq "") {
	$cfg[17] = "blue";
}

if ($cfg[18] eq "") {
	$cfg[18] = "Georgia";
}

if ($cfg[19] eq "") {
	$cfg[19] = "black";
}




		if ($cfg[3] == 0 or $cfg[3]<0) {

			$cfg[3]=10;

		}

		$pgs2=$numft/$cfg[3];

		$pgs=int($numft/$cfg[3]);


		$pgs3=$pgs2-$pgs;

		if ($pgs3>0) {
			$pgs++;
		}


		$lo=0;


if ($item<0) {

	$item=0;

}

		if ($item) {
	
			$lo=$item;

			if ($lo<0 or $lo>$numft) {
				$lo=0;
			}


		}

		$hi=$lo+$cfg[3];

		if ($hi>$numft) {

			$hi=$numft;
		
		}



		$prev=$lo-$cfg[3];

		if ($prev<0) {

			$prev=0;

		}


		$nextone="";
		$prevone="";

		$bottomprev="";
		$bottomnext="";


		if ($item > 0) {

			#then, there is a previous; it is "prev" - prev=lo


			$amtprev=$item-$prev;

			$amtend="IES";

			if ($amtprev==1) {

				$amtend="Y";

			}

			$prevone="[<a href=\"http://www.baseballgeeks.com/cgi-bin/blog?$who-$prev\">PREVIOUS $amtprev ENTR$amtend</a>]<P><P>";

			$bottomprev="<a href=\"http://www.baseballgeeks.com/cgi-bin/blog?$who-$prev\"><img src=\"http://www.rrbbs.com/images/prev.jpg\" border=0></a>";


		}


		if ($hi<$numft) {

			#then there is a next, next=$hi+1

			$amtnext=$hi;


			$dumhi=$hi+$cfg[3];

			if ($dumhi > $numft) {

				$dumhi=$numft;

			}


			$hmamtnext=$dumhi-$hi;

			$amtend="IES";

			if ($hmamtnext==1) {

				$amtend="Y";

			}



			$nextone="[<a href=\"http://www.baseballgeeks.com/cgi-bin/blog?$who-$hi\">NEXT $hmamtnext ENTR$amtend</a>]<P><P>";

			$bottomnext="<a href=\"http://www.baseballgeeks.com/cgi-bin/blog?$who-$hi\"><img src=\"http://www.rrbbs.com/images/next.jpg\" border=0></a>";

		}





open(CFG,"bbs/bbsconfig");
	while (<CFG>) {
		chomp($_);
		$config[$ct]=$_;
		$ct++;
	}
close(CFG);


$guestsok=0;
if ($config[18]==1) {
	$guestsok=1;
	$u[11]=1;
}


@mfields=("ma","num");

$mct=0;
open (MSGS,"bbs/msgconfig");
	while (<MSGS>) {
		chomp($_);
		if (/\^/) {	#if not the instruction line or blank spaces
			@msgs{@mfields}=split(/\^/,$_);
			$mct++;
			$msga[$mct]=$msgs{'ma'};
			$msgan[$mct]=$msgs{'num'};
		}
		
	}
close(MSGS);


#if no cookie, then end the page

if ($ENV{'HTTP_COOKIE'} eq "") {
	$anycookie=0;
	if ($guestsok) {
		$anycookie=2;
	}

}

#cookies{num}, cookies{start}   num = user number  start is true if 
#started from opening page

my(%cookies) = getCookies();

if ($cookies{'num'}>0) {

$uindex=0;
   open (INPUT, "bbs/users/$cookies{'num'}");
	while (<INPUT>) {
	  $uindex++;
	  chop();
	  $u[$uindex] = $_;
	}
   close (INPUT);

}


$anycookie=1;


if ($cookies{'num'} == 0) {
	$anycookie=0;
	if ($guestsok) {
		$anycookie=2;
	}
}
else {


   @fieldlist = ("name","pass","number");
   $wefoundpass=1;
   $pass=uc($cookies{'pass'});

   open (IN, "<bbs/passes");
	while (<IN>) {
	chop();
        $regular = $_;
        @data{@fieldlist} = split(/\^/,$regular);

	if ($data{'number'} == $cookies{'num'}) {

		$pass2=uc($data{'pass'});

		if ($pass ne $pass2) {
			$anycookie=0;
			if ($guestsok) {
				$anycookie=2;
			}
		}
		else {
			$wefoundpass=0;
			last;
		}

	}
	}	

   close (IN);


	if ($wefoundpass) {
		$anycookie=0;
		if ($guestsok) {
			$anycookie=2;
		}

	}


}


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


if ($bloguser[17] == 1) {


open (HTM, "bbs/users/blogs/$who.htm");
	@htm=<HTM>;
close(HTM);


if ($htm[0]) {


	$numhtm=@htm;

  for ($iii=0; $iii<$numhtm; $iii++) {

	$_=$htm[$iii];

	s/$out1//g;
	s/$out2//g;

	#print qq(-$_-<P><P>\n);


	$commnd=0;
$line="";

	if ($_ eq "[**BLOGENTRIES**]") {

		PrintBlogEntries();


	}

	if ($_ eq "[**PREVENTRIES**]") {


		PrevEntry();

	}


	if ($_ eq "[**XML**]") {


		print qq(<a href="http://www.baseballgeeks.com/rss/$ENV{'QUERY_STRING'}.rss" target="_blank"><img src="http://www.baseballgeeks.com/images/xml.gif" border=0></a>\n);

		$commnd=1;
	}

	if ($_ eq "[**HITS**]") {

		print qq($numsitehits\n);

		$commnd=1;
	}


	if ($commnd==0) {

		print qq($htm[$iii]);

	}


  }

print qq(
<div align=right>

<!--WEBBOT bot="HTMLMarkup" startspan ALT="Site Meter" -->
<a href="http://sm1.sitemeter.com/stats.asp?site=sm1bgeeks" target="_top">
<img src="http://sm1.sitemeter.com/meter.asp?site=sm1bgeeks" alt="Site Meter" border=0></a>
<!--WEBBOT bot="HTMLMarkup" Endspan -->
</div>\n);


exit;


}



}


#else {

#if no special code


if ($cfg[1]) {
	$blogtitle=$cfg[1];
}
else {
	$blogtitle="BaseballGeeks Blogs >> $bloguser[0]";
}


#$also=" onLoad=\"self.focus();document.entry.name.focus()\"";

#if ($anycookie) {
#	$also="";
#}


if ($cfg[6]) {
	$also="background=\"http://$cfg[6]\"";
}



if ($u[11]==1) {
$where="topics.pl?$ix";
$where2="topics.pl?";
}
else {
$where="messages.pl?$ix-$u[22+$ix]";
$where2="messages.pl?";
}


#cfg6=bgcolor

#    border-top-color:blue;
#    border-bottom-color:red;
#    border-left-color:yellow;



#$tempcfg=$cfg[5];

#if ($cfg[4] eq "black") {

#	$tempcfg=white;

#}

#if ($cfg[4] eq "white" or $cfg[5] eq "") {
#	$tempcfg=$black;
#}



#$vlink="blue";
#$alink="blue";
#$link="blue";

#if ($cfg[6] eq "blue") {

#$vlink="red";
#$alink="red";
#$link="red";


#}

print qq(<html>
<head>
<title>$blogtitle</title>
<style>
 <!--
.border {
	border-color:black;
	border-style:solid;
	border-top-color:black;
	border-left-color:black;
	border-bottom-color:black;
	border-right-color:gray;
	border-top-width:1px;
	border-right-width:0px;
   	border-left-width:0px;
	border-bottom-width:1px;
	}

.border2 {
	border-color:black;
	border-style:solid;
	border-top-color:black;
	border-left-color:black;
	border-bottom-color:black;
	border-right-color:black;
	border-top-width:1px;
	border-right-width:1px;
   	border-left-width:1px;
	border-bottom-width:1px;
	}

.border3 {
	border-color:black;
	border-style:solid;
	border-top-color:black;
	border-left-color:#B7B19A;
	border-bottom-color:black;
	border-right-color:#B7B19A;
	border-top-width:0px;
	border-right-width:4px;
   	border-left-width:4px;
	border-bottom-width:0px;
	}

.qborder {border-color:#000000;
		border-style:dotted;
        border-width:1}


.border1 {
	border-color:black;
	border-style:dotted;
	border-top-color:gray;
	border-left-color:gray;
	border-bottom-color:black;
	border-right-color:gray;
	border-top-width:0px;
	border-right-width:1px;
   	border-left-width:0px;
	border-bottom-width:0px;
	}


 //-->
 </style>
</head>

<body bgcolor="$cfg[5]" topmargin=0 bottommargin=0 vlink="$cfg[17]" alink="$cfg[17]" link="$cfg[17]">

<center>

<table width=700 class=border3 bgcolor="$cfg[16]" height=1000 cellpadding=0 cellspacing=0>
<tr>
<td valign=top>



\n);


if ($cfg[15]) {


print qq(<img src="http://$cfg[15]">
<table class=border bgcolor=beige cellpadding=0 cellspacing=0 width=100%>
<tr>
<td align=center>

<table width=95%>
<tr>
<td>
<font face="arial"><b><i>$cfg[14]</i></b></font>
</td>
<td width=1%>
<table><tr><td><nobr><a href="http://www.baseballgeeks.com" target="_blank"><font face="Franklin Gothic Medium Cond" size=2>A BASEBALLGEEKS BLOG</font></a> &nbsp &nbsp </nobr></td><td><a href="http://www.baseballgeeks.com/rss/$who.rss" target="_blank"><img src="http://www.baseballgeeks.com/images/xml.gif" border=0></a></td></tr></table>
</td>
</tr>
</table>

</td>
</tr>
</table>
\n);

}

else {

print qq(


<table class=border bgcolor=beige cellpadding=0 cellspacing=0 width=100%>
<tr>
<td align=center>

<table width=95%>
<tr>
<td>
<font size=6 face="arial"><b><i>$blogtitle</i></b></font>
</td>
<td width=1%>
<table><tr><td><nobr><a href="http://www.baseballgeeks.com" target="_blank"><font face="Franklin Gothic Medium Cond" size=2>A BASEBALLGEEKS BLOG</font></a> &nbsp &nbsp </nobr></td><td><a href="http://www.baseballgeeks.com/rss/$who.rss" target="_blank"><img src="http://www.baseballgeeks.com/images/xml.gif" border=0></a></td></tr></table>
</td>
</tr>
</table>

</td>
</tr>
</table>

\n);

}

print qq(

<table width=100% bgcolor="$cfg[16]">

<tr>
<td width=75% valign=top align=center style="border-style:dotted; border-color:black; border-top-width:0px; border-right-width:1px; border-left-width:0px; border-bottom-width:0px;">

\n);

if ($cfg[15] eq "") {

	print qq(<table width=95%><tr><td><font face="arial" size=2><i>$cfg[14]</i></font></td></tr></table><P>\n);


}


print qq(

<table width=95% bgcolor="$cfg[16]">
<tr>
<td>

\n);


PrintBlogEntries();

print qq(

</td>
</tr>
</table>


</td>

<td width=25% valign=top align=center>

<table width=100% bgcolor="$cfg[16]">
<tr>
<td>

<font size=2 face="verdana">
\n);


	if ($cookies{'num'} == $blogwho) {

		print qq(<b>Hey, $bloguser[0]</b>.  Click <a href="http://www.baseballgeeks.com/cgi-bin/bbs/blogsetup.pl">here</a> to edit your blog configuration (colors, etc.).<P>\n);



	}


if ($cookies{'num'}==0) {


print qq(<table class=border2 bgcolor=beige width=100%>
<tr>
<td align=center>
<font face="verdana" size=1><b>BASEBALLGEEKS LOGIN</b></font></b>
</td>
</tr>
</table><P>

<table width=100% class=border2 bgcolor="#CCDDAA"><form action="../cgi-bin/bbs/login.pl" method=post name="myForm"><input type=hidden name="url" value="blog?$blogwho"><tr><td align=center><font size=2 face="Courier New">Name</font></td><td align=center><input size=10 name="name"></td></tr><tr><td align=center><font size=2 face="Courier New">Pass</font></td><td align=center><input size=10 type=password name="pass"></td></tr><tr><td colspan=2 align=right><input type=submit value="login"></td></tr></form><tr><td colspan=2 align=center><font face="verdana" size=1><a href="http://www.baseballgeeks.com/cgi-bin/register.pl"><b>New Users</b></a></font></td></tr></table>\n);

}


else {

if ($cookies{'num'} != $blogwho) {

print qq(<center><font size=1>Welcome, <b>$u[1]</b>!</font></center>\n);

}

}

if ($line) {

print qq(
<P>
<table class=border2 bgcolor=beige width=100%>
<tr>
<td align=center>
<font face="verdana" size=1><b>NAVIGATE/ARCHIVE</b></font></b>
</td>
</tr>
</table><P>

\n);

#navigate stuff

print qq(<center><b><font size=1>$line</font></b></center>\n);


}

open (CL, "blogads");
	@cls=<CL>;
close(CL);

$numcls=@cls;

if ($numcls > 9) {
	$numcls=10;
}

$whiledummy=0;

while ($numrands != $numcls) {

$whiledummy++;

if ($whiledummy>500) {

	exit;

}

	$random=int(rand($numcls));

	$nooops=1;

	for ($jj=0; $jj<$numrands; $jj++) {
		if ($ad[$jj] eq $cls[$random]) {
			$nooops=0;
		}
	}

	if ($nooops) {
		$ad[$numrands]=$cls[$random];
		$numrands++;
	}

}

@adfields=("title","link","threadnum","msg","expire");

for ($ix=0; $ix<$numcls;$ix++) {

	$_=$ad[$ix];
	s/$rem1//g;
	s/$rem2//g;
	@addata{@adfields}=split(/\^/,$_);

	open (CLSTHD,"threads/$addata{'threadnum'}");
		@clsthd=<CLSTHD>;
	close(CLSTHD);

	$numclsthd=@clsthd;

	for ($qqq=0; $qqq<$numclsthd; $qqq++) {
		$_=$clsthd[$qqq];
		s/$rem1//g;
		s/$rem2//g;
		$clsthd[$qqq]=$_;
	}	


	print qq(
	<table width=95% cellpadding=10 cellspacing=10>
	<tr>	
	<td align=center>
	<font face="verdana" size=2>
	<a href="http://www.baseballgeeks.com/cgi-bin/goto.pl?$addata{'threadnum'}" target="_blank">$addata{'title'}</a><BR>
	<a href="http://www.baseballgeeks.com/cgi-bin/bbs/thread.pl?35-$addata{'msg'}"><font color=black size=1 face="verdana"><b>Comments ($clsthd[1])</b></font></a>
	</font>
	</td>
	</tr>
	</table>
	\n);


}


#$dacats=1;

#for ($be=0; $be<$numft; $be++) {

#	@bep=split(/\^/,$ft[$be]);
#	if ($bep[1]) {

#		for ($chkc=1; $chkc<$dacats+1; $chkc++) {

#			if ($bep[1] ne $mycats[$chkc] and $bep[1] ne "") {
#				$mycats[$dacats]=$bep[1];
#				$dacats++;
#			}

#		}

#	}
#}


if ($dacats>1) {

print qq(

<table class=border2 bgcolor=beige width=100%>
<tr>
<td align=center>
<font face="verdana" size=1><b>BLOG CATEGORIES</a></b></font></b>
</td>
</tr>
</table><P>

<center>
<font size=1 face="arial">
\n);


for ($cc=1; $cc<$dacats; $cc++) {
	print qq($mycats[$cc]<P>\n);
}


print qq(</font>
</center><P>
\n);


}

print qq(
<table class=border2 bgcolor=beige width=100%>
<tr>
<td align=center>
<font face="verdana" size=1><b><a href="http://www.baseballgeeks.com/cgi-bin/bgeeksblogs.pl" target="_blank">BGEEK BLOG UPDATES</a></b></font></b>
</td>
</tr>
</table><P>

<table width=100%>

\n);


$features=0;
@ft="";

open (FT, "updatedblogs");

	while (<FT>) {

		s/$rem1//g;
		s/$rem2//g;
		@parts=split(/\^/,$_);

		$whichblog[$features]=$parts[0];
		$ft[$features]=$parts[1];

		$features++;

	}


close(FT);

$totf=$features;

if ($totf>10) {
	$totf=10;
}

for ($ix=0; $ix<$totf; $ix++) {

	@daf=split(/-/,$ft[$ix]);

	open (MSG, "bbs/$daf[0]/$daf[1]");
		@message=<MSG>;
	close(MSG);

	$eeee=@message;

	open (USR, "bbs/users/$message[0]");
		@uu=<USR>;
	close(USR);

	$_=$message[0];
	s/$rem1//g;
	s/$rem2//g;
	@msgzele=split(/\^/,$_);
	$message[0]=$msgzele[0];
	$contest=$msgzele[1];

	$chopsubj=$message[4];
	ChopSubject();


		if ($message[1] == 0) {
			$amsg=$daf[1];
		}
		else {
			$amsg=$message[1];
		}

	if ($message[0]) {
	$who="<font size=1 face=\"verdana\"><a href=\"http://www.baseballgeeks.com/cgi-bin/bbs/member.pl?$message[0]\" target=\"_blank\">$message[3]</a></font>";
	}
	else {
		$who=$message[3];
	}


	if ($u[11] == 1 or $anycookie==0) {
		$whtp="thread.pl";
	}
	else {
		$whtp="onethread.pl";
	}

	#$reps2="<div align=right>...<b>[<a href=\"http://www.baseballgeeks.com/cgi-bin/bbs/$whtp?$daf[0]-$amsg#$daf[1]\">Click here to go to BBS thread</a>]</b></div>";

	@teste=split(/\(/,$message[5]);
	$message[5]=$teste[0];


open (CFG,"bbs/users/blogs/$whichblog[$ix].cfg");
	@ubloguser=<CFG>;
close(CFG);

$numublogusr=@ubloguser;

for ($xix=0; $xix<$numublogusr; $xix++) {
	$_=$ubloguser[$xix];
	s/$rem1//g;
	s/$rem2//g;
	$ubloguser[$xix]=$_;
}

open (USR, "bbs/users/$whichblog[$ix]");
	@ubu=<USR>;
close(USR);

$_=$ubu[0];
s/$rem1//g;
s/$rem2//g;
$ubu[0]=$_;


if ($ubloguser[1] eq "") {

	$ubloguser[1]=$ubu[0]."'s Blog";


}



print qq(<tr><td valign=top><font size=1 face="verdana"><a href="http://www.baseballgeeks.com/cgi-bin/blog?$whichblog[$ix]" target="_blank">$ubloguser[1]</a></font></td></tr>
	<tr><td align=right><table width=75%><tr><font size=1 face="$cfg[9]" color="$cfg[10]">$chopsubj-[$cfg[10]]</font></td></tr></table></td></tr>\n);


}



print qq(

</table>

<P>

<table class=border2 bgcolor=beige width=100%>
<tr>
<td align=center>
<font face="verdana" size=1><b>OTHER LINKS/BLOGROLL</b></font></b>
</td>
</tr>
</table><P>
<table width=100%>

\n);


open (ROLL, "bbs/users/blogs/$blogwho.br");
	while (<ROLL>) {
		s/$rem1//g;
		s/$rem2//g;
		@blogroll=split(/\^/,$_);
		print qq(<tr><td valign=top>&#149</td><td valign=top><font size=1 face="verdana"><a href="http://$blogroll[1]" target="_blank">$blogroll[0]</a></font></td></tr>\n);
		
	}
close(ROLL);







print qq(

</table><P>
</font>

</td>
</tr>
</table>

</td>

</tr>
</table>

</td>
</tr>
</table>

\n);








exit;

sub ChopSubject {

$leng = length($chopsubj);

$pp="";
$dum=0;
for ($iiii=0; $iiii<$leng; $iiii++) {
	$part = substr($chopsubj,$iiii,1);
	$pp = $pp . $part;
	if ($part eq "[") {
		$dum = 1;
		last;
	}
}

if ($dum) {
	chop($pp);
}
chop($pp);

$chopsubj = $pp;

$_ = $chopsubj;
#$a = s/Re: //;

#$message[4] = $_;

$a = s/ <FONT COLOR=BLACK><b//;
$chopsubj = $_;


$a = s/\"/\'/g;
$chopsubj = $_;

}


sub PrintMsg {

	$rem1=chr(13);
	$rem2=chr(10);
	$numspaces=0;
	$flag=0;
	$cut=0;
	$writetext="";
	$text="";

	$rep1="&:";
	$rep2=":&";
	
	$datext="";

	for ($i=6; $i < $eeee-3; $i++) {

		$_=$message[$i];
		s/$rem1/$rep1/g;
		s/$rem2/$rep2/g;
		$message[$i]=$_;

		$text=$text.$message[$i];
		

	}

	$ltext=length($text);

	for ($xx=0; $xx<$ltext; $xx++) {

		$a=substr($text,$xx,1);

		if ($a eq "<") {
			$flag=1;
		}

		if ($flag==0) {

			if ($a eq " ") {
				$numspaces++;
			}

			if ($numspaces>120) {
				$last;
				$cut=1;
				last;
			}

		}

			$writetext=$writetext.$a;

		if ($a eq ">") {
			$flag=0;
		}

	}


	$addwt="";
	$addwtt="";

	$_=$writetext;

	$aaaa=s/&box-//g;
	$bbbb=s/-box&//g;

	if ($bbbb eq "") {

		$bbbb=0;

	}

	$cccc=$aaaa-$bbbb;

	for ($dddd=1; $dddd<$cccc+1; $dddd++) {

		$addwtt=$addwtt."-box&";


	}



	if ($cut) {
	
		$addwt=$addwt."</i></b></u>...".$reps3.$addwtt;
	}

	else {

		$addwt=$addwt."<P>";
	}

	$writetext=$writetext.$addwt.$reps2;


	#$rem=$rem1.$rem2;
	#$_=$writetext;
	#s/$rem/<P>/g;
	#$writetext=$_;

	#$rem="  ";
	#$_=$writetext;
	#s/$rem/<P>/g;

	$junky="&::&&::&";
	$junky2="&::&";
	$junky3=":&:&";
	$junky4=":&";
	$repjunky2="<BR>";
	$repjunky="<P><P>";
		
	$_=$writetext;
	s/$junky/$repjunky/g;
	s/$junky2/$repjunky2/g;
	s/$junky3/$repjunky/g;
	s/$junky4//g;
	
	$writetext=$_;

$repaired=$writetext;

#$repaired =~ s/:\)/<img src="\/images\/happy.jpg">/g;
#$repaired =~ s/:\(/<img src="\/images\/sad.jpg">/g;
#$repaired =~ s/;\)/<img src="\/images\/wink.jpg">/g;

#$repaired =~ s/:\)/<img src="$config[12]\/images\/happy.gif">/g;
#$repaired =~ s/:\(/<img src="$config[12]\/images\/sad.gif">/g;
#$repaired =~ s/;\)/<img src="$config[12]\/images\/wink.gif">/g;


if ($cfg[4] eq "" or $cfg[4] eq "." or $cfg[4] eq "YES") {

$repaired =~ s/&img-/<center><img width=450 src="/g;

}

else {

$repaired =~ s/&img-/<center><img src="/g;

}

$repaired =~ s/-img&/"><\/center><p>/g;

$repaired =~ s/&box-/<center><table width=85% bgcolor="#ccddaa" class=qborder><tr><td align=center><table width=97%><tr><td><font face="arial New" size=2>/g;

$repaired =~ s/-box&/<\/font><\/td><\/tr><\/table><\/td><\/tr><\/table><\/center><p>/g;
$repaired =~ s/&i-/<i>/g;
$repaired =~ s/-i&/<\/i>/g;

$repaired =~ s/&b-/<b>/g;
$repaired =~ s/-b&/<\/b>/g;

$repaired =~ s/&u-/<u>/g;
$repaired =~ s/-u&/<\/u>/g;

$repaired =~ s/&rj-/<div align=right>/g;
$repaired =~ s/-rj&/<\/div>/g;


print qq($repaired </i></b></u></center>);

#	print qq(<tr><td align=center><table width=99%><tr><td><font face="arial" size=2>$writetext</font></td></tr></table></td></tr>\n);
#

}


sub getCookies {

my(%cookies);

foreach (split (/; /, $ENV{'HTTP_COOKIE'})) {
	my($key) = split(/=/, $_);
	$cookies{$key} = substr($_, index($_, "=")+1);
}

return(%cookies)

}

sub PrintBlogEntries {

		for ($oooo=$lo; $oooo<$hi; $oooo++) {

			#if ($oooo != $lo) {
			#print qq(<pre>

			#	</pre>\n);
			#}

			if ($oooo==$lo) {

				$testpage=$lo/$cfg[3];
				$testpage2=int($lo/$cfg[3]);

				if ($testpage == $testpage2 and $testpage != 0) {
					$testpage3=$testpage2+1;
					$line="PAGE $testpage3/$pgs<P>";
				}


				if ($prevone) {

					$line=$line.$prevone;

					if ($nextone eq "") {


						$ucblog=uc($cfg[1]);

						$line=$line." [<a href=\"http://www.baseballgeeks.com/cgi-bin/blog?$who\">$ucblog FIRST PAGE</a>]";

					}


				}


				if ($nextone) {

					$line=$line.$nextone;

				}

				#if ($line) {

#					print qq(<table width=100% class="border1" bgcolor=white><tr><td align=right><font face="verdana" size=1><b>$line</b></font></td></tr></table><BR>\n);


#				}


			}

			@df=split(/-/,$ft[$oooo]);

			@cf=split(/\^/,$df[1]);
			$df[1]=$cf[0];


			$_=$df[1];
			s/$out1//g;
			s/$out2//g;
			$df[1]=$_;


			$_=$cf[1];
			s/$out1//g;
			s/$out2//g;
			$cf[1]=$_;

			open (MSG, "bbs/$df[0]/$df[1]");
				@message=<MSG>;
			close(MSG);

			$eeee=@message;

			for ($xxo=0; $xxo<6; $xxo++) {
				$_=$message[$xxo];
				s/$out1//g;
				s/$out2//g;
				$message[$xxo]=$_;
			}


			@msgf=split(/,/,$message[5]);
			@msgff=split(/\//,$msgf[0]);
			$month=$mn[$msgff[0]];

			$date=$month. " ".$msgff[1].", "."20".$msgff[2];

		$chopsubj=$message[4];
		ChopSubject();

		if ($message[1] == 0) {
			$amsg=$df[1];
		}
		else {
			$amsg=$message[1];
		}

		@fieldlist2=("num","msgs");
		$reps=0;
			open (MSG,"bbs/$df[0]/index");
				while (<MSG>) {
					chop();
					@b{@fieldlist2}=split(/:/,$_);
					if ($b{'num'} == $amsg) {
						@dareps=split(/\^/,$b{'msgs'});
						$reps=@dareps;
						last;
					}
				}
			close(MSG);
		#if ($amsg != 0) {
		#	$reps++;
		#}


		$comments="";

		if ($reps > 1 or $reps==0) {
			$comments="s";
		}

		$fixreps=$reps-1;


		open (MS, "bbs/$df[0]/$dareps[$reps-1]");
			@msg=<MS>;
		close(MS);

		$_=$msg[3];
		s/$out1//g;
		s/$out2//g;
		$msg[3]=$_;


		$_=$msg[5];
		s/$out1//g;
		s/$out2//g;
		$msg[5]=$_;


		@msgfive=split(/\(/,$msg[5]);
		$msg[5]=$msgfive[0];


		$lastreply="";

		if ($msg[3] and $fixreps>-1) {
		@spmsg=split(/\^/,$msg[3]);
		$msg[3]=$spmsg[0];

		$lastreply="<b><i>Last comment by</i></b>: $msg[3] @ $msg[5]";
		}


			if ($anycookie) {


				$who="<a href=\"http://www.baseballgeeks.com/cgi-bin/bbs/member.pl?$message[0]\" target=\"_blank\">$message[3]</a>";


				$delentry="";

				if ($cookies{'num'} == $blogwho) {
		
					$delentry=">> <a href=\"http://www.baseballgeeks.com/cgi-bin/bbs/blogremover.pl?$oooo\">Delete</a> <font color=red>*</font> >> <a href=\"http://www.baseballgeeks.com/cgi-bin/bbs/blogup.pl?$oooo\">&uarr;</a> <font color=red>*</font> >> <a href=\"http://www.baseballgeeks.com/cgi-bin/bbs/blogdown.pl?$oooo\">&darr;</a> <font color=red>*</font>";

				}


				$amsgadd="$amsg#$df[1]";

				if ($df[1] == $amsg) {
					$amsgadd=$amsg;
				}

				$reps2="<table width=100%><tr><td align=right width=1%><nobr><font face=\"arial\" size=2><b><a href=\"#$oooo\" onclick=\"window.open('http://www.baseballgeeks.com/cgi-bin/bbs/blogthread.pl?$whodat-$df[0]-$amsg#$df[1]','_blank','scrollbars=yes,resizable=yes,width=500,height=550')\">$reps comment$comments</a> >> <a href=\"http://www.baseballgeeks.com/cgi-bin/bbs/thread.pl?$df[0]-$amsgadd\" target=\"_blank\">Link</b></a></b> <b>$delentry</b> </font> &nbsp </nobr></td></tr></table><table width=100%><tr><td align=right><font face=\"arial\" color=\"$cfg[13]\" size=2>$lastreply</font></td></tr></table><P>";
				$reps3="<P><div align=right>...[<b><a href=\"#$oooo\" onclick=\"window.open('http://www.baseballgeeks.com/cgi-bin/bbs/blogthread.pl?$whodat-$df[0]-$amsg#$df[1]','blogreply','scrollbars=yes,width=500,height=550')\">More</a></b>]</div><P>";
				$reps=$reps. "&nbsp &nbsp &nbsp <b><a href=\"http://www.baseballgeeks.com/cgi-bin/bbs/blogthread.pl?$df[0]-$amsg#$df[1]\">Go to this topic</a></b>";

			}

			else {
				$who=$message[3];
			}


				@teste=split(/\(/,$message[5]);
				$message[5]=$teste[0];



		$category="<font face=\"arial\" size=2><b>$cf[1]</b></font>";


		print qq(<a name="$oooo"></a><table width=100% bgcolor="$cfg[7]"><tr><td><table width=100% class=border2 bgcolor=beige><tr><td width=99%> &nbsp <font face="arial" size=2><b>$date</b></font></td>\n);

		if ($cf[1] and $cookies{'num'} != $blogwho) {

			print qq(<td width=1%><nobr> &nbsp $category &nbsp </nobr></td>\n);


		}

		else {

			if ($cookies{'num'} == $blogwho) {

			print qq(<td width=1%><table><form action="http://www.baseballgeeks.com/cgi-bin/bbs/setcategory" method=post><tr><input type=hidden name="bloginfo" value="$blogwho-$oooo"><td><nobr> &nbsp 
			<select name="category">
			<option>[Categorize]\n);
			
			open (BLGC, "bbs/users/blogs/$blogwho.cat");
				$dum=0;
				while (<BLGC>) {
					$dum=1;
					s/$out1//g;
					s/$out2//g;
					$_=uc($_);
					if ($_ eq $cf[1]) {
						print qq(<option selected>$_\n);
					}
					else {
						print qq(<option>$_\n);
					}

				}
			close (BLGC);

				if ($dum==0) {
					print qq(<option>[Empty]\n);
				}

			print qq(</select> <input type=submit value="go"></nobr></td></form></tr></table></td>\n);

			}


		}

		@partm=split(/\^/,$message[3]);

		$message[3]=$partm[0];


		print qq(</tr></table><P><P><font size=2 face="$cfg[12]" color="$cfg[13]">
		<table width=100% bgcolor="$cfg[8]"><tr><td><font size=4 face="$cfg[9]"><i><b>$chopsubj</b></i><BR><font size=1>(By: <a href="http://www.baseballgeeks.com/cgi-bin/bbs/member.pl?$message[0]" target="_blank">$message[3]</a>)</font></font></td></tr></table>
		<P>
		\n);

		PrintMsg();


		print qq(</td></tr></table><P>\n);



		}

	print qq(<div align=right>$bottomprev &nbsp &nbsp &nbsp $bottomnext</div></font>\n);

	

		$commnd=1;



}

sub PrevEntry {


		$addi="Click a link below to jump to a specific page of blog entries (<b>$cfg[3] per page</b>), or click the <b>NEXT ENTRIES</b> or <b>PREVIOUS ENTRIES</b> links to jump to the closest page(s) of entries.";


		if ($pgs==1) {

			$addi="This is the only page of blog entries thus far.";


		}
		


		print qq(<center><table width=100% class=border bgcolor="$cfg[8]"><tr><td><font face="$cfg[18]" size=1 color="$cfg[19]"><b>$numft blog entries</b> from this blog are currently stored in the <a href="http://www.baseballgeeks.com/cgi-bin/sysstats.pl" target="_blank"><b>BaseballGeeks Bulletin Board System</a></b>.<P><P>
		$addi</font></td></tr></table><P><P>\n);


	
		if ($pgs>1) {


			print qq(<table width=100% class=border bgcolor="$cfg[8]"><tr><td align=center><font face="verdana" size=1><b>\n);

			for ($xxd=0; $xxd<$pgs; $xxd++) {

				$nextn=$cfg[3]*$xxd;

				if ($nextn>$numft) {
					$nextn=$numft;
				}

				$nextnu=$xxd+1;

				if ($nextn == $item) {

					print qq($nextnu \n);

				}

				else {

					print qq(<a href="http://www.baseballgeeks.com/cgi-bin/blog?$who-$nextn">$nextnu</a> \n);

				}


				if ($xxd < $pgs-1) {


					print qq(. \n);

				}


			}

			print qq(</font></b></td></tr></table>\n);


		}





		print qq(
		</center>\n);

		

		$commnd=1;




}

sub MakeNext {

$line="";

				$testpage=$lo/$cfg[3];
				$testpage2=int($lo/$cfg[3]);

				if ($testpage == $testpage2 and $testpage != 0) {
					$testpage3=$testpage2+1;
					$line="PAGE $testpage3/$pgs<P>";
				}


				if ($prevone) {

					$line=$line.$prevone;

					if ($nextone eq "") {


						$ucblog=uc($cfg[1]);

						$line=$line." [<a href=\"http://www.baseballgeeks.com/cgi-bin/blog?$blogwho\">$ucblog FIRST PAGE</a>]<P><P>";

					}


				}


				if ($nextone) {

					$line=$line.$nextone;

				}

				if ($line) {

					print qq(<center><b><font size=1 face="$cfg[18]" color="$cfg[19]">$line</font></b></center>\n);


				}




}