elsif ($action eq "forum") {
	$forum = qq~$cgi?action=forum&board=$currentboard~;
		if ($currentboard ne "" and $op eq "") {
		open(FILE, "$boardsdir/$currentboard.dat") || error("$err{'001'} $boardsdir/$currentboard.dat");
		lock(FILE);
		chomp(@boardinfo=<FILE>);
		unlock(FILE);
		close(FILE);

		$boardname = "$boardinfo[0]";
		$boardmoderator = "$boardinfo[2]";

		open(MODERATOR, "$memberdir/$boardmoderator.dat");
		lock(MODERATOR);
		chomp(@modprop = <MODERATOR>);
		unlock(MODERATOR);
		close(MODERATOR);

		$moderatorname = "$modprop[1]";

		require "$sourcedir/forum.pl";
		messageindex();