#!/usr/bin/perl

$rem1=chr(13);
$rem2=chr(10);
$file = "/usr/local/etc/httpd/htdocs/bball/cgi-bin";

#$file="";

$index=0;
   open (INPUT, "$file/bbs/index_msgs");
	while (<INPUT>) {
	  $index++;
	  chop();
	  $i[$index] = $_;
	}
   close (INPUT);

$index=0;
   open (INPUT, "$file/bbs/index_low");
	while (<INPUT>) {
	  $index++;
	  chop();
	  $il[$index] = $_;
	}
   close (INPUT);



$file2 = "/usr/local/etc/httpd/htdocs/bball/cgi-bin/dummydate";

unlink($file2);

	open (FILE,">$file/dummydate");
		print FILE "makeadate";
	close(FILE); 
	$mtime = (stat($file))[9];
        ($sec, $min, $hr, $day, $month, $year, $day_of_week, $julianDate, $dst) = localtime($mtime);
        $month++;

if ($year >! 100) {
	$year = $year - 100;

	$yyy = length($year);

	if ($yyy == 1) {
		$year = "0" . $year;
	}

#	$year = "20".$year;
}
	$da = $month . "/" . $day . "/" . $year;

if ($month<10) {
	$month="0".$month;	
}

if ($day<10) {
	$day="0".$day;	
}

if ($hr<10) {
	$hr="0".$hr;	
}

if ($min<10) {
	$min="0".$min;	
}


$adjyear=2000+$year;

$figure=$adjyear.$month.$day.$hr.$min;

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

open (LIST, "$file/waitlist");
	@thelist=<LIST>;
close(LIST);

$numlist=@thelist;

for ($ix=0; $ix<$numlist; $ix++) {
	$_=$thelist[$ix];
	s/$rem1//g;
	s/$rem2//g;
	$thelist[$ix]=$_;
	
	print qq($thelist[$ix]<P>\n);


	@listparts=split(/\^/,$thelist[$ix]);
	
	if ($figure > $listparts[0]) {


		#then add one to totacclinks

		open (TL, "$file/totacclinks");
			@tl=<TL>;
		close(TL);

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

		$tl++;

		#open (TL, ">$file/totacclinks");
		#	print TL "$tl\n";
		#close(TL);

		print qq(totacclinks=$tl<BR>\n);

		@info="";
		$infom=0;

		open (TEMP, "$file/tempthreads/$listparts[1]");
			while (<TEMP>) {
				s/$rem1//g;
				s/$rem2//g;
				$info[$infom]=$_;
				$infom++;
			}
		close (TEMP);

		#print the new thread

		Doit();


		$info[9]=$firstmessage;
		$info[10]="0";
		$info[8]="$listparts[1]";

		$numinfo=$infom-1;

		  #open (INPUT, ">$file/threads/$tl");  
			for ($fff=0; $fff<$numinfo; $fff++) {

				$addit="";

				if ($fff<11) {
					$addit="\n";
				}

				#print INPUT "$info[$fff]$addit";

				print qq(thread-info[$fff]=$info[$fff]$addit<P>\n);

			}

		 #  close (INPUT);

		$info[8]=$tl;

  		#open (INPUT, ">$file/tempthreads/$listparts[1]");  
			for ($fff=0; $fff<$numinfo; $fff++) {

				$addit="";

				if ($fff<11) {
					$addit="\n";
				}

				#print INPUT "$info[$fff]$addit";

				print qq(tempthread-info[$fff]=$info[$fff]$addit<P>\n);
			}

   		#close (INPUT);


		#resave tempthread with newthread as #9

		#open (LIST, ">$file/waitlist");

		#for ($xx=0; $xx<$numlist; $xx++) {
		#	if ($xx != $ix) {
		#		print LIST "$thelist[$xx]\n";
		#	}
		#}
		#close(LIST);




	}




}

exit;

sub Doit {

$tindex=0;
   open (INPUT, "$file/bbs/today");
	while (<INPUT>) {
	  $tindex++;
	  s/$rem1//g;
	  s/$rem2//g;
	  $t[$tindex] = $_;
	}
   close (INPUT);

$addtotoday=0;  #already increased the index_msgs
$daindex=0;
$allindex=0;

@dt=("date","time");
@ui=("user","id");

$msgarea=1;

if ($info[6] eq "CLASSIFIEDS") {
	$msgarea=35;
}

$message=$i[$msgarea]++;
$firstmessage=$message;


@date{@dt}=split(/\^/,$info[2]);
@user{@ui}=split(/\^/,$info[3]);
@newdate=split(/ /,$date{'date'});

$day=$newdate[1];
$_=$day;
s/,//g;
$day=$_;

$l=length($newdate[2]);

$year=substr($newdate[2],2,2);

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

for ($xxx=1; $xxx<13; $xxx++) {

	if ($newdate[0] eq $mon[$xxx]) {

		last;

	}


}


#post the message and update index

open (USR, "$file/bbs/users/$user{'id'}");
	@stats=<USR>;
close(USR);

$numstats=@stats;

	for ($xx=0; $xx<$numstats; $xx++) {
		$_=$stats[$xx];
		s/$rem1//g;
		s/$rem2//g;
		$stats[$xx]=$_;
	}

$city="$stats[1]/$stats[2]";


#$message++;

$addtotoday++;

$forindex="$message:";

$classifiedmsg=$message;

if ($info[7] ne "BaseballGeeks") {

#open (MSG, ">$file/bbs/$msgarea/$message");

print ">$file/bba/$msgarea/$message - this is in doit()<P>\n";

#print MSG "$user{'id'}\n";
#print MSG "0\n";
#print MSG "All\n";
#print MSG "$user{'user'}^$tl\n";
#print MSG "$info[4]      \n";
#print MSG "$xxx/$day/$year, $date{'time'}\n";


#for ($jjj=11; $jjj<$numinfo+1; $jjj++) {

#	print MSG "$info[$jjj]\n";


#}

if ($user{'user'} eq "Anonymous") {

	$city="Unknown/??";

}


#print MSG "[$user{'user'} from $city]\n";
#print MSG "Replies: ";

#close(MSG);



$origmessage=$message;
$origuser=$user{'user'};
$reply=$info[4];

$thdmsg="";

open (THD,"$file/tempthreads/$thetempthread.thd");

	while (<THD>) {

		$thdmsg=$thdmsg.$_;


	}

close(THD);

$dummy="<dathread>";

@dathreads=split(/$dummy/,$thdmsg);

$numreplies=@dathreads;

if ($numreplies>0) {

for ($kkk=1; $kkk<$numreplies; $kkk++) {

print qq(it is in kkk now... $kkk<BR>\n);

$addtotoday++;

$message++;

$forindex=$forindex."$message^";

@stuff=split(/\^/,$dathreads[$kkk]);

open (USR, "$file/bbs/users/$stuff[1]");
	@stats=<USR>;
close(USR);

$numstats=@stats;

	for ($xx=0; $xx<$numstats; $xx++) {
		$_=$stats[$xx];
		s/$rem1//g;
		s/$rem2//g;
		$stats[$xx]=$_;
	}

$city="$stats[1]/$stats[2]";

$stats[8]++;

if ($stuff[1]>0) {

#open (USR, ">$file/bbs/users/$stuff[1]");

#	for ($xx=0; $xx<$numstats; $xx++) {

#		print USR "$stats[$xx]\n";

#	}



#close(USR);



}

#open (MSG, ">$file/bbs/$msgarea/$message");

#print MSG "$stuff[1]\n";
#print MSG "$origmessage\n";
#print MSG "$origuser\n";
#print MSG "$stuff[0]^$tl\n";
#print MSG "Re: $reply    \n";

@date{@dt}=split(/\|/,$stuff[2]);
@newdate=split(/ /,$date{'date'});
#@newtime=split(/ /,$date{'time'});

$day=$newdate[1];
$_=$day;
s/,//g;
$day=$_;

$l=length($newdate[2]);

$year=substr($newdate[2],2,2);

for ($xxx=1; $xxx<13; $xxx++) {

	if ($newdate[0] eq $mon[$xxx]) {

		last;

	}


}


$lengthm=length($date{'time'});
$dumg=0;
$wholethread="";
$time="";


for ($ggg=1; $ggg<$lengthm+1; $ggg++) {

	$a=substr($date{'time'},$ggg,1);

	if ($dumg) {

		$wholethread=$wholethread.$a;

	}
	else {

		$time=$time.$a;
	}

	$b=ord($a);

	if ($dumg==0 and $b==10) {

		$dumg=1;
	}



}


#print MSG "$xxx/$day/$year, $time\n";


#print MSG "$wholethread\n";
#print MSG "[$stuff[0] from $city]\n";
#print MSG "Replies: ";


#close(MSG);


} 


$_=$forindex;
chop();
$forindex=$_;

}
$i[$msgarea]=$message;


print qq(i[$msgarea]=$message - then save it!<P>$forindex=forindex\n);

#open (IDX, ">$file/bbs/index_msgs");
	#for ($hh=1; $hh<$iindex+1; $hh++) {
	#	print IDX "$i[$hh]\n";
	#}
#close(IDX);


open (IDX, "$file/bbs/$msgarea/index");
	@index=<IDX>;
close(IDX);

$numidx=@index;

#open (IDX, ">$file/bbs/$msgarea/index");
#	print IDX "$forindex\n";

#	for ($xxx=0; $xxx<$numidx; $xxx++) {
#		print IDX "$index[$xxx]";
#	}

#close(IDX);	


}

if ($addtotoday>0) {

$t[4]=$t[4]+$addtotoday;
$t[5]=$t[5]+$addtotoday;

#open (TOD, ">$file/bbs/today");
#	for ($tt=1; $tt<$tindex+1; $tt++) {
#		print TOD "$t[$tt]\n";
#	}
#close(TOD);

}


$numrss=0;

for ($rr=$tl; $rr>0; $rr--) {

   open (INPUT, "$file/threads/$rr");
	@info=<INPUT>;
   close (INPUT);

	#$numinfo=@info;

	for ($xx=0; $xx<11; $xx++) {
		$_=$info[$xx];
		s/$rem1//g;
		s/$rem2//g;
		$info[$xx]=$_;
	}

	#@date{@dt}=split(/\^/,$info[2]);
	#@user{@ui}=split(/\^/,$info[3]);

	if ($info[10] ne "X" and $info[10] ne "-" and $info[6] ne "CLASSIFIEDS" and $info[10] ne "P") {

		$numrss++;

		$rss[$numrss]=$info[9];

		#print qq($rr-[$info[4]][$info[10]]-$numrss-$rss[$numrss]<P><P>\n);

		if ($numrss==50) {
			last;
		}


	}



}





#open (RSS, ">/usr/local/etc/httpd/htdocs/bball/bgeeks.rss");
#print RSS "<?xml version=\"1.0\" encoding=\"ISO-8859-1\" ?>
# <rss version=\"0.91\">

# <channel>
# <title>BaseballGeeks.com</title>
# <link>http://www.baseballgeeks.com</link>
# <description>Baseball news links, baseball blogs, and baseball discussions</description>
# <language>en-us</language>\n";


#for ($iix=1; $iix<$numrss+1; $iix++) {

#	open (MMSG,"$file/bbs/1/$rss[$iix]");
#		@message=<MMSG>;
#	close (MMSG);

#	$eeee=@message;

#		$leng = length($message[4]);

#	$pp="";
#	$dum=0;
#	for ($iii=0; $iii<$leng; $iii++) {
#		$part = substr($message[4],$iii,1);
#		$pp = $pp . $part;
#		if ($part eq "[") {
#			$dum = 1;
#			last;
#		}
#	}

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

#		$message[4] = $pp;

#		$_ = $message[4];
#		#$a = s/Re: //;

#		$a = s/ <FONT COLOR=BLACK><b//;
#		$message[4] = $_;

#		$a = s/\"/\'/g;
#		$message[4] = $_;

#		$a = s/&/&amp;/g;
#		$message[4] = $_;

#		$a = s/"/&quot;/g;
#		$message[4] = $_;

#		$a = s/'/&apos;/g;
#		$message[4] = $_;

#		$a = s/\>/&gt;/g;
#		$message[4] = $_;

#		$a = s/\</&lt;/g;
#		$message[4] = $_;


#	$writetext="";

#	GetDescription();
	#repaired=description

#print RSS "<item>
 # <title>$message[4]</title>
 # <link>http://www.baseballgeeks.com/cgi-bin/bbs/thread.pl?1-$rss[$ix]</link>
 # <description>
#	$writetext
#  </description>
#</item>\n";


#}

#print RSS " </channel>
# </rss>\n";

#close(RSS);

#}


}  #end of the sub

sub GetDescription {

	$numspaces=0;
	$flag=0;
	$cut=0;
	$writetext="";
	$text="";

	
	$datext="";

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

		$_=$message[$i];
		s/$r1/ /g;
		s/$r2/ /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>80) {
				$last;
				$cut=1;
				last;
			}

		}

			$writetext=$writetext.$a;

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

	}


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


$writetext =~ s/&i-/<i>/g;
$writetext =~ s/-i&/<\/i>/g;

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

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

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

$writetext =~ s/&/&amp;/g;
$writetext =~ s/"/&quot;/g;
$writetext =~ s/'/&apos;/g;
$writetext =~ s/\>/&gt;/g;
$writetext =~ s/\</&lt;/g;



}