#Discus board tree viewer script
#-------------------------------------------------------------------------------
#This script is copyright (c) 1997-98 by Kevin W. Paulisse and William F. Polik,
#all rights reserved.  You may not modify or delete this copyright header.
#The use of this product is subject to a license agreement.  Contact Kevin
#Paulisse (paulisse@mulliken.chem.hope.edu) for further information.
#-------------------------------------------------------------------------------

open (FILE, "$discus_conf");
@file = <FILE>;
close (FILE);
$evals = "";
foreach $line (@file) {
	if ($line =~ /^(\w+)=(.*)/) {
		$varname = $1;
		$value = $2;
		$value =~ s/'/\\'/g;
		$evals .= "\$$varname='$value'; ";
	}
}
eval($evals);
require "$admin_dir/source/src-board-subs-common";

&parse_form;
&read_cookie;

$browser = $ENV{'HTTP_USER_AGENT'};
if ($browser !~ /MSIE/) {
	if ($browser =~ m|Mozilla/(\d+)|) {
		$dig = $1;
		if ($dig < 4 && $interface eq "noframes") {
			$nsbug = 1;
		}
	}
}

&header;
&ex('printuntil',1, 1, 0, "$L{TVTITLE}");
print "<CENTER><FONT SIZE=+1><B>$L{TVTITLE}</B></FONT></CENTER><HR>";
&ex('build_graphical_tree', "", "*", 0, "", "<A HREF=\"$html_url/messages/", 0, 0, 1, $nsbug);
for ($i = 3; $i <= 17; $i += 2) {
	&ex('printuntil', $i, $i, 0,"");
}
exit(0);