#!/usr/bin/perl

if ($ENV{'QUERY_STRING'} eq "") {

	print "Location: http://www.baseballgeeks.com\n\n";

}


$themsg=$ENV{'QUERY_STRING'};

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


#print qq([$themsg]);

#exit;



open (TD, "../cgi-bin/threads/$themsg");
	@info=<TD>;
close(TD);



if ($info[0] eq "" or $info[0] eq "X") {

	print "Location: http://www.baseballgeeks.com\n\n";

}

$numinfo=@info;
$rem=chr(13);
$rem2=chr(10);
$tempnuminfo=@tempinfo;

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

	$_=$info[$ix];
	s/$rem//g;
	s/$rem2//g;
	$info[$ix]=$_;



}

if ($info[8]>0) {

open (TD, "../cgi-bin/tempthreads/$info[8]");
	@tempinfo=<TD>;
close(TD);
$numtempinfo=@tempinfo;

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


	$_=$tempinfo[$ix];
	s/$rem//g;
	s/$rem2//g;
	$tempinfo[$ix]=$_;

}


$tempinfo[0]++;

}

$info[0]++;


unlink ("../cgi-bin/threads/$themsg");

open (TD,">../cgi-bin/threads/$themsg");

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

	$addn="\n";
	if ($ix>10) {
		$addn="";
	}

	#print qq($info[0]<P><P>$info[4]--$themsg--<P>\n);

	print TD "$info[$ix]$addn";


}

close(TD);


#exit;

if ($info[8]>0) {

open (TD,">../cgi-bin/tempthreads/$info[8]");

for ($ix=0; $ix<$numtempinfo; $ix++) {
	$addn="\n";
	if ($ix>10) {
		$addn="";
	}
	print TD "$tempinfo[$ix]$addn";


}

close(TD);

}

if ($info[5] ne "ARTICLE") {


	print "Location: http://$info[5]\n\n";

}

else {

	print "Location: http://www.baseballgeeks.com/cgi-bin/bbs/thread.pl?1-$info[9]\n\n";


}


exit;