# FILE: src-board-subs-1
#-------------------------------------------------------------------------------
# This script is copyright (c) 1998 by DiscusWare, LLC, all rights reserved.
# Its use is subject to the license agreement that can be found at the following
# URL:  http://www.chem.hope.edu/discus/license
#-------------------------------------------------------------------------------

#---SEPARATOR---#
#REQ:get_number
#REQ:new_file
#REQ:get_date_time

sub add_topic {
	local ($new_topic, $new_topic_group, $privs, $templ, $topic_unformatted) = @_;
	local ($topic_number,$topic_name,$me_name,$num,$dt,$lm,@main,$group);
	local ($main_line,$str,$time,$posted, $num_local);
	$num_local = &get_number;
	&lock("$admin_dir/posting.txt");
	open (FILE, ">>$admin_dir/posting.txt");
	print FILE "$num_local:", ":$new_topic_group:$new_topic_group:\n" if $privs ne "public";
	print FILE "$num_local:~:$new_topic_group:$new_topic_group:\n" if $privs eq "public";
	close (FILE);
	&unlock("$admin_dir/posting.txt");
	&lock("$admin_dir/security.txt");
	open (FILE, ">>$admin_dir/security.txt");
	print FILE "$num_local:~:::\n";
	close (FILE);
	&unlock("$admin_dir/security.txt");
	$group = $new_topic_group;
	mkdir ("$message_dir/$num_local",0777) || &error_message("Directory Creation Error", "Could not create new directory for this topic! (System returned the error: '$!'.)  If you are running unix, check that permissions on the 'messages' subdirectory are 0777 (rwxrwxrwx).");
	chmod (0777, "$message_dir/$num_local");
	$topic_number = $num_local;
	$topic_name = $new_topic;
	$me_name = $new_topic;
	$dt = &get_date_time('long');
	$dt =~ s/\W//g;
	&new_file($num_local,$num_local,0,$new_topic_group,$new_topic,"SublistCreateAbout") if $templ eq "yes";
	&new_file($num_local,$num_local,0,$new_topic_group,$new_topic,"Sublist") if $templ ne "yes";
	if ($templ) {
		$message_hold = $L{WELCOME_TO_TOPIC};
		$message_hold =~ s/\%topicname/$topic_unformatted/g;
		($message) = &ex('webtags', $message_hold);
		&ex('change_about_message', "$message_dir/$num_local/$num_local.$ext", $message_hold, $message);
	}
	open (BLANKINDEX, ">$message_dir/$num_local/index.html"); close (BLANKINDEX);
	chmod (0666, "$message_dir/$num_local/index.html");
	&lock("$message_dir/board-topics.html");
	open(MAIN_1, "$message_dir/board-topics.html") || &error_message("File Error", "Could not open main topics file (board-topics.html).");
	@main = <MAIN_1>;
	close(MAIN_1);
	$posted = 0;
	open(MAIN_1, ">$message_dir/board-topics.html") || &error_message("File Error", "Could not write main topics file (board-topics.html).");
	foreach $main_line (@main) {
		if ($main_line =~ /<!-Posting-!>/ && $posted == 0) {
			if (open (FILE_c, "$admin_dir/frontpage_conf.txt")) {
				@file_c = <FILE_c>;
				close (FILE_c);
				foreach $line_c (@file_c) {
					if ($line_c =~ m|^(\w+)=(.*)|) {
						$FPCONFIG{$1} = $2;
					}
				}
			} else {
				$FPCONFIG{"Bold"} = "1";
				$FPCONFIG{"Group"} = "0";
				$FPCONFIG{"Date"} = "1";
			}
			$new_topic = &remove_links($new_topic);
			$str = &JavaScript_prepare($new_topic);
			print MAIN_1 "<!-Top: $num_local-!><LI>";
			print MAIN_1 "<B>" if $FPCONFIG{"Bold"} == 1;
			print MAIN_1 "<A HREF=\"$html_url/messages/$num_local/$num_local.$ext";
			print MAIN_1 "?$dt" if !$noqm;
			print MAIN_1 "\" onMouseOver=\"return setStatus('$str')\">$new_topic</a>";
			print MAIN_1 "</B>" if $FPCONFIG{"Bold"} == 1;
			print MAIN_1 " ";
			print MAIN_1 "(\u$new_topic_group)" if $FPCONFIG{"Group"} == 1;
			print MAIN_1 " ";
			$time = &get_date_time('short');
			print MAIN_1 "<FONT SIZE=-1>$time</FONT>" if $FPCONFIG{"Date"} == 1;
			print MAIN_1 "\n<!-Description: $num_local-!><P class=\"desc\"><BR></P>\n";
			$posted = 1;
			print MAIN_1 "<!-Posting-!>\n";
		} elsif ($main_line =~ /<!-Posting-!>/) {
		} else {
			print MAIN_1 $main_line;
		}
	}
	close(MAIN_1);
	&unlock("$message_dir/board-topics.html");
	return $num_local;
}

#---SEPARATOR---#
#REQ:recurse

sub remove_topic {
	local ($remove_number) = @_;
	local (@lines,$line,$filenumber,$topic_number);
	&lock("$message_dir/board-topics.html");
	open(MAIN_1, "$message_dir/board-topics.html") || &error_message("File Error", "Could not open main topics file (board-topics.html).");
	@lines = <MAIN_1>;
	close(MAIN_1);
	open(MAIN_1, ">" . "$message_dir/board-topics.html") || &error_message("File Error", "Could not write main topics file (board-topics.html).");
	foreach $line (@lines) {
		if ($line =~ /<!-Top: (\d+)-!>/) {
			print MAIN_1 $line if ($1 != $remove_number);
		} elsif ($line =~ /<!-Description: (\d+)-!>/) {
			print MAIN_1 $line if ($1 != $remove_number);
		} elsif ($line =~ /<!-Source: (\d+)-!>/) {
			print MAIN_1 $line if ($1 != $remove_number);
		} else {
			print MAIN_1 $line;
		}
	}
	close (MAIN_1);
	&unlock("$message_dir/board-topics.html");
	if (-e "$message_dir/$remove_number") {
		$dir = "$message_dir/$remove_number";
	} else {
		$dir = "$secdir/$remove_number";
	}
	opendir(DIR, $dir);
	while ($f = readdir(DIR)) {
		unlink ("$dir/$f");
	}
	closedir(DIR);
	rmdir("$dir/$f");
	&lock("$admin_dir/log.txt");
	open (LOG, "$admin_dir/log.txt");
	@LOG = <LOG>;
	close (LOG);
	foreach $line (@LOG) {
		($what, $who, $when, $where) = split(/;/, $line);
		($topic, $page) = split(/\//, $where);
		if ($topic == $remove_number) {
			$line = "";
		}
	}
	@LOG = grep(/\S/, @LOG);
	open (LOG, ">$admin_dir/log.txt");
	print LOG @LOG;
	close (LOG);
	&unlock("$admin_dir/log.txt");
	&lock("$admin_dir/posting.txt");
	open (POSTING, "$admin_dir/posting.txt"); @posting = <POSTING>; close (POSTING);
	@posting = grep(!/^$remove_number:/, @posting);
	open (POSTING, ">$admin_dir/posting.txt"); print POSTING @posting; close (POSTING);
	&unlock("$admin_dir/posting.txt");
	&lock("$admin_dir/postoptions.txt");
	open (POSTING, "$admin_dir/postoptions.txt"); @posting = <POSTING>; close (POSTING);
	@posting = grep(!/^$remove_number:/, @posting);
	open (POSTING, ">$admin_dir/postoptions.txt"); print POSTING @posting; close (POSTING);
	&unlock("$admin_dir/postoptions.txt");
	&lock("$admin_dir/security.txt");
	open (READING, "$admin_dir/security.txt"); @reading = <READING>; close (READING);
	@reading = grep(!/^$remove_number:/, @reading);
	open (READING, ">$admin_dir/security.txt"); print READING @reading; close (READING);
	&unlock("$admin_dir/security.txt");
}

#---SEPARATOR---#
#REQ:recurse
#REQ:extract_lastmodified
#REQ:get_date_time

sub rename_topic {
	local ($topic_number_in, $newname) = @_;
	local ($line_top,$url,$lm,$str,@lines_top);
	&lock("$message_dir/board-topics.html");
	open(MAIN_1, "$message_dir/board-topics.html") || &error_message("File Error", "Could not open main topics file (board-topics.html).");
	@lines_top = <MAIN_1>;
	close(MAIN_1);
	foreach $line_top (@lines_top) {
		if ($line_top =~ /^<!-Top: $topic_number_in-!>/) {
			$lm = &extract_lastmodified ("$topic_number_in:$topic_number_in");
			&extract("//$topic_number_in/$topic_number_in.$ext");
			$url = "$message_url/$topic_number_in/$topic_number_in.$ext";
			$url .= "?$lm" if !$noqm;
			if (open (FILE_c, "$admin_dir/frontpage_conf.txt")) {
				@file_c = <FILE_c>;
				close (FILE_c);
				foreach $line_c (@file_c) {
					if ($line_c =~ m|^(\w+)=(.*)|) {
						$FPCONFIG{$1} = $2;
					}
				}
			} else {
				$FPCONFIG{"Bold"} = "1";
				$FPCONFIG{"Group"} = "0";
				$FPCONFIG{"Date"} = "1";
			}
			$lmtime = 0;
			if ($line_top =~ m|.*<FONT SIZE=-1>(.*)</FONT>|) {
				$datetime = $1;
			} else {
				$lmtime = (stat ("$html_dir/messages/$topic_number_in/$topic_number_in.$ext"))[9] if -e "$html_dir/messages/$topic_number_in/$topic_number_in.$ext";
				$lmtime = (stat ("$secdir/$topic_number_in/$topic_number_in.$ext"))[9] if !-e "$html_dir/messages/$topic_number_in/$topic_number_in.$ext";
			}
			$line_top = "<!-Top: $topic_number_in-!><LI>";
			$line_top .= "<B>" if $FPCONFIG{'Bold'} == 1;
			$line_top .= "<A HREF=\"$html_url/messages/$topic_number_in/$topic_number_in.$ext";
			$line_top .= "?$lm" if !$noqm;
			$line_top .= "\" onMouseOver=\"return setStatus('";
			$line_top .= &JavaScript_prepare($newname);
			$line_top .= "')\">$newname</A>";
			$line_top .= "</B>" if $FPCONFIG{'Bold'} == 1;
			$line_top .= " (\u$owner)" if $FPCONFIG{'Group'} == 1;
			if ($FPCONFIG{'Date'} == 1 && $lmtime != 0) {
				$line_top .= " <FONT SIZE=-1>" . &get_date_time('short', $lmtime) . "</FONT>";
			} elsif ($FPCONFIG{'Date'} == 1) {
				$line_top .= " <FONT SIZE=-1>$datetime</FONT>";
			}			
			$line_top .= "\n";
		}
	}
	open(MAIN_1, ">$message_dir/board-topics.html") || &error_message("File Error", "Could not write main topics file (board-topics.html).");
	print MAIN_1 @lines_top;
	close (MAIN_1);
	&unlock("$message_dir/board-topics.html");
	&recurse ("$topic_number_in", "$topic_number_in", "rename:Topic", $newname);
}

#---SEPARATOR---#

sub reorder_topics {
	local ($array) = @_;
	local ($topic_number,@ascending,$line,@lines,%newarray,$flag,$key, %printed);
	@ascending = split(/:/, $array);
	&lock("$message_dir/board-topics.html");
	open(MAIN_1, "$message_dir/board-topics.html") || &error_message("File Error", "Could not open main topics file (board-topics.html).");
	@lines = <MAIN_1>;
	close(MAIN_1);
	undef %printed;
	foreach $line (@lines) {
		if ($line =~ /<!-Top: (\d+)-!>/) {
			$newarray{$1} = $line;
			$printed{$1} = 0;
		} elsif ($line =~ m|<!-Description: (\d+)-!>|) {
			$descrarray{$1} = $line;
		}
	}
	open(MAIN_1, ">" . "$message_dir/board-topics.html") || &error_message("File Error", "Could not write main topics file (board-topics.html).");
	$flag = 0;
	foreach $line (@lines) {
		if ($line =~ /<!-Top: (\d+)-!>/ && $flag == 0) {
			$flag = 1;
			foreach $key (@ascending) {
				print MAIN_1 $newarray{$key};
				print MAIN_1 $descrarray{$key};
				$printed{$key} = 1;
			}
			foreach $key (keys(%printed)) {
				print MAIN_1 $newarray{$key} if $printed{$key} == 0;
				print MAIN_1 $descrarray{$key} if $printed{$key} == 0;
			}
		} elsif ($line =~ /<!-Posting-!>/) {
			$flag = 0;
			print MAIN_1 $line;
		} elsif ($flag == 0) {
			print MAIN_1 $line;
		}
	}
	close (MAIN_1);
	&unlock("$message_dir/board-topics.html");
}

#---SEPARATOR---#

sub change_main_message {
	local ($newmessage, $source) = @_;
	local ($line, @lines,$messageflag, $flag);
	&lock("$message_dir/board-topics.html");
	open(MAIN_1, "$message_dir/board-topics.html") || &error_message("File Error", "Could not open main topics file (board-topics.html).");
	@lines = <MAIN_1>;
	close(MAIN_1);
	open(MAIN_1, ">" . "$message_dir/board-topics.html") || &error_message("File Error", "Could not write main topics file (board-topics.html).");
	$messageflag = 0;
	foreach $line (@lines) {
		if ($line =~ m|<!--Message-->|) {
			$flag = 1;
			print MAIN_1 $line;
			print MAIN_1 $newmessage . "\n";
		} elsif ($line =~ m|<!--/Message-->|) {
			print MAIN_1 $line;
			$flag = 0;
		} elsif ($flag == 1) {
			if ($line =~ /<!--Source:/) {
				print MAIN_1 "<!--Source: $source -->\n";
			}
		} else {
			print MAIN_1 $line;
		}
	}
	close (MAIN_1);
	&unlock("$message_dir/board-topics.html");
}

#---SEPARATOR---#

sub register_discus {
	&header;
	print '<HTML><HEAD><TITLE>Password Changed</TITLE></HEAD>';
	print "<BODY BGCOLOR=ffffff TEXT=000000 LINK=0000ff VLINK=0000ff>\n";
	print "$fs<FONT SIZE=+1><CENTER><B>Password Set</B></CENTER></FONT>";
	print "\n<HR>\nCongratulations, your superuser password was successfully set.<P>\n";
	print "At this time, you need to &quot;Register&quot; the Discus\n";
	print "program by clicking on &quot;Register Now!&quot; below.<P>\n";
	print "<FORM ACTION=\"http://www.chem.hope.edu/~discus/cgi-bin/register/register.cgi\" METHOD=POST>\n";
	print "<INPUT TYPE=HIDDEN NAME=pro VALUE=1>\n" if $pro;
	print "<INPUT TYPE=HIDDEN NAME=pro_license VALUE=\"$pro_license\">\n" if $pro_license;
	print "<INPUT TYPE=HIDDEN NAME=my_version VALUE=\"$version\">\n";
	print "<TABLE BGCOLOR=ffffcc WIDTH=100% BORDER=1><TR><TD>\n";
	$contact =~ m|<A HREF="mailto:(.*)">(.*)</A>|; $email = $1; $name = $2;
	print "<TABLE>\n";
	print "<TR><TD>$fs", "URL:</TD>\n";
	print "<TD><INPUT TYPE=text SIZE=50 NAME=html_url VALUE=\"$html_url\"></TD></TR>\n";
	print "<TR><TD>$fs", "Title:</TD>\n";
	print "<TD><INPUT TYPE=text SIZE=50 NAME=title VALUE=\"$title\"></TD></TR>\n";
	print "<TR><TD>$fs", "Your Name:</TD>\n";
	print "<TD><INPUT TYPE=text SIZE=50 NAME=yourname VALUE=\"$name\"></TD></TR>\n";
	print "<TR><TD>$fs", "Your E-mail:</TD>\n";
	print "<TD><INPUT TYPE=text SIZE=50 NAME=email VALUE=\"$email\"></TD></TR>\n";
	print "<TR><TD COLSPAN=2>$fs<INPUT TYPE=CHECKBOX NAME=okmail VALUE=1 CHECKED> <B>Yes!</B>  Inform me when new upgrades are available.</TD></TR>\n";
	print "</TABLE>\n<P>\n";
	print "<INPUT TYPE=SUBMIT VALUE=\"Register Now!\">\n";
	print "</TD></TR></TABLE></FORM></BODY></HTML>\n\n";
	exit(0);
}

#---SEPARATOR---#
#REQ:recurse

sub change_topic_group {
	local ($topic_number, $new_group, $smart) = @_;
	local ($line, @lines,$old_group);
	if (open (FILE_c, "$admin_dir/frontpage_conf.txt")) {
		@file_c = <FILE_c>;
		close (FILE_c);
		foreach $line_c (@file_c) {
			if ($line_c =~ m|^(\w+)=(.*)|) {
				$FPCONFIG{$1} = $2;
			}
		}
	} else {
		$FPCONFIG{"Bold"} = "1";
		$FPCONFIG{"Group"} = "0";
		$FPCONFIG{"Date"} = "1";
	}
	open(MAIN_1, "$message_dir/board-topics.html") || &error_message("File Error", "Could not open main topics file (board-topics.html).");
	@lines = <MAIN_1>;
	close(MAIN_1);
	if ($FPCONFIG{"Group"} == 1) {
		&lock("$message_dir/board-topics.html");
		open(MAIN_1, ">" . "$message_dir/board-topics.html") || &error_message("File Error", "Could not write main topics file (board-topics.html).");
		foreach $line (@lines) {
			if ($line =~ /<!-Top: (\d+)-!>/) {
				if ($1 == $topic_number) {
					if ($line =~ m|</B> \(\w+\)|i) {
						$line = join("", $`, "</B> (\u$new_group)", $');
					}
					print MAIN_1 $line;
				} else {
					print MAIN_1 $line;
				}
			} else {
				print MAIN_1 $line;
			}
		}
		close (MAIN_1);
		&unlock("$message_dir/board-topics.html");
	}
	if ($smart) {
		&extract("//$topic_number/$topic_number.$ext");
		$oldgroup = $owner;
		@files = ('posting');
		push (@files, 'security') if $pro;
		foreach $f (@files) {
			&lock("$admin_dir/$f.txt");
			open (FILE, "$admin_dir/$f.txt"); @file = <FILE>; close (FILE);
			foreach $line (@file) {
				if ($line =~ m|^$topic_number:([^:]*):([^:]*):([^:]*):|) {
					($public, $users, $moderators, $after) = ($1, $2, $3, $');
					@u = split(/,/, $users);
					if (scalar(@u) > 1 && grep(/^$oldgroup$/, @u)) {
						$users .= ",$new_group" if !grep(/^$new_group$/, @u);
					} elsif ($users eq "$oldgroup") {
						$users = "$new_group";
					}
					@u = split(/,/, $moderators);
					if (scalar(@u) > 1 && grep(/^$oldgroup$/, @u)) {
						$moderators .= ",$new_group" if !grep(/^$new_group$/, @u);
					} elsif ($moderators eq "$oldgroup") {
						$moderators = "$new_group";
					}
					$line = join(":", $topic_number, $public, $users, $moderators, $after);
				}
			}
			open (FILE, ">$admin_dir/$f.txt"); print FILE @file; close (FILE);
			&unlock("$admin_dir/$f.txt");
		}
	}
	&recurse ($topic_number,$topic_number,"chgrp",$new_group);
}

#---SEPARATOR---#
#REQ:printuntil

sub preview_board_colors {
	($bgcolor,$text,$link,$vlink,$alink,$face,$size,$username,$image, $move_board) = @_;
	&header;
	&printuntil(1, 1, 0, "Preview Appearance", 1);
	print "<FONT SIZE=+1><CENTER><B>Preview Appearance</B></CENTER></FONT>\n";
	&ex('printuntil', 3, 7, 0, "", 0, 1);
	print "<HR>\n";
	print "<B><A HREF=\"$cgiurlm?cmd=board_mgr&username=$username\" onMouseOver=\"return setStatus('Return to Board Manager')\"><FONT COLOR=$link>Board Manager</FONT></A>: Preview Appearance</B><HR>\n";
	print "<FONT COLOR=\"$text\"><P>This is the color of normal text.</FONT><BR><BR>\n";
	print "<U><FONT COLOR=\"$link\">This is the color of an unvisited link.</FONT></U><BR><BR>\n";
	print "<U><FONT COLOR=\"$vlink\">This is the color of a visited link.</FONT></U><BR><BR>\n";
	print "<U><FONT COLOR=\"$alink\">This is the color of an active link.</FONT></U><BR><BR>\n";
	print "<FONT COLOR=\"$text\">(Note that the background of this page is the background color you have selected.  The horizontal rules on this page are identical to those that will be displayed on pages.)<BR><BR><FONT SIZE=-1>Also note that some text on the board is displayed as size -1 (one size smaller than the specified base font size).  This is a preview of that kind of text.</FONT></FONT>\n";
	print "<HR>\n";
	print "<FORM ACTION=\"$cgiurl2\" METHOD=POST>\n";
	print "<TABLE WIDTH=100% BGCOLOR=ffffcc BORDER=1>\n";
	print "<TR><TD>\n";
	print "<TABLE>\n";
	print "<TR><TD>$fs<FONT COLOR=000000>Background:</FONT></TD>\n";
	print "<TD><FONT COLOR=000000><INPUT NAME=bgcolor TYPE=TEXT SIZE=7 VALUE=\"$bgcolor\"></FONT></TD></TR>\n";
	print "<TR><TD>$fs<FONT COLOR=000000>Text:</FONT></TD>\n";
	print "<TD><FONT COLOR=000000><INPUT NAME=text TYPE=TEXT SIZE=7 VALUE=\"$text\"></FONT></TD></TR>\n";
	print "<TR><TD>$fs<FONT COLOR=000000>Link:</FONT></TD>\n";
	print "<TD><FONT COLOR=000000><INPUT NAME=link TYPE=TEXT SIZE=7 VALUE=\"$link\"></FONT></TD></TR>\n";
	print "<TR><TD>$fs<FONT COLOR=000000>Visited Link:</FONT></TD>\n";
	print "<TD><FONT COLOR=000000><INPUT NAME=vlink TYPE=TEXT SIZE=7 VALUE=\"$vlink\"></TD></TR>\n";
	print "<TR><TD>$fs<FONT COLOR=000000>Active Link:</FONT></TD>\n";
	print "<TD><FONT COLOR=000000><INPUT NAME=alink TYPE=TEXT SIZE=7 VALUE=\"$alink\"></FONT></TD></TR>\n";
	print "<TR><TD>$fs<FONT COLOR=000000>Font Face:</TD><TD><INPUT TYPE=text NAME=face SIZE=40 VALUE=\"$face\"></TD></TR>\n";
	print "<TR><TD>$fs<FONT COLOR=000000>Font Size:</TD><TD><INPUT TYPE=text NAME=size size=3 VALUE=$size></TD></TR>\n";
	print "<TR><TD>$fs<FONT COLOR=000000>Background Image:</TD><TD><INPUT TYPE=text NAME=image size=40 VALUE=$image></TD></TR>\n";
	print "</TABLE>\n<P>\n";
	&ex('printuntil', 9, 13, 0, "", 0, 1);
	print "<INPUT TYPE=submit name=submit VALUE=\"Refresh Preview\">\n";
	print "<INPUT TYPE=submit name=submit VALUE=\"Save Appearance\">\n";
	print "</FONT></TD></TR>\n";
	print "</TABLE>\n";
	print "<INPUT TYPE=hidden name=username value=\"$username\">\n";
	print "<INPUT TYPE=hidden name=action value=\"board_appearance\">\n";
	print "<INPUT TYPE=HIDDEN NAME=move_board VALUE=1>\n" if $move_board;
	print "</FORM>\n";
	&ex('printuntil', 15, 17, 0, "", 0, 1);
	exit(0);
}

#---SEPARATOR---#
#REQ:prepare_navbar
#REQ:extract_lastmodified
#REQ:change_layout

sub change_board_colors {
	local ($bgcolor,$text,$link,$vlink,$alink,$face,$size,$background,$move_board,$flag_noregen) = @_;
	&ex('auto_configure_email', 1);
	&lock("*");
	$image = $background;
	local ($addfile, $template, @topics, @mainmessage, @description);
	if (open (FILE, "$admin_dir/frontpage_conf.txt")) {
		@file = <FILE>;
		close (FILE);
		foreach $line (@file) {
			$line =~ m|^(\w+)=(.*)|;
			$FPCONFIG{$1} = $2;
		}
	}
	$colorstr = join("\t", $bgcolor, $text, $link, $vlink, $alink, $background, $size, $face);
	local (@topic, @group_list, $line);
	open (TOPFILE, "$html_dir/messages/board-topics.html");
	@topfile = <TOPFILE>;
	close (TOPFILE);
	$flag = 0;
	undef (@topics);
	undef (@mainmessage);
	undef (@description);
	undef (@tmsg);
	foreach $line (@topfile) {
		if ($line =~ m|<!-?Top: (\d+)[^>]*>?|i) {
			$line = join("", "<!-Top: $1-!>", $');
			if ($move_board) {
				if ($line =~ m|"([^"]+)/messages/(\d+)/(\d+)\.|) {
					if ($1 ne $html_url) {
						$old_html_url = $1 if $old_html_url eq "";
						$line = join("", $`, "\"$message_url/$2/$3.", $');
					}
				}
				if ($line =~ m|$html_url/messages/(\d+)/(\d+)\.$ext#(\w+)|) {
					$line = join("", $`, "$html_url/messages/$1/$2.$ext?$3", $');
				}
				if ($line =~ m|"([^"]+)/board-auth\.(\w+)\?file=/(\d+)/(\d+)\.|) {
					$line = join("", $`, "\"$script_url/board-auth.$cgi_extension?file=/$3/$4.", $');
				}

			}
			$line =~ s/<P>//g;
			push (@topics, $line);
		} elsif ($line =~ m|^<!-?Description: (\d+)-|i) {
			push (@topics, $line);
			$description_seen{$1} = 1;
		} elsif ($line =~ m|^<!--Message-->|) {
			$flag = 1;
			push (@mainmessage, $line);
		} elsif ($line =~ m|^<!--/Message-->|) {
			$flag = 0;
			$mainmessage_src =~ s/\s*$//;
			if ($mainmessage_src =~ /[^\w\%\+]/) {
				$mainmessage_src = &escape($mainmessage_src);
			}
			push (@mainmessage, "<!--Source: $mainmessage_src -->\n");
			push (@mainmessage, $line);
		} elsif ($flag == 1) {
			if ($line =~ m|^<!--Source: (.*) -->| ) {
				$mainmessage_src = $1;
			} elsif ($line =~ m|^<!--Source:\s*$|) {
				$flag = 11;
			} else {
				$line =~ s|<IMG SRC="([^"]+)/clipart/([^"]+)">|<IMG SRC="$html_url/clipart/$2">|g if $move_board;
				push (@mainmessage, $line);
			}
		} elsif ($flag == 11) {
			if ($line =~ m|^-->\s*$|) {
				$flag = 1;
			} else {
				$mainmessage_src .= $line;
			}
		} elsif ($line =~ m|^<!--Description Source:|) {
			$flag = 2;
		} elsif ($line =~ m|^<!-?End Description Source-!>-->|i) {
			$flag = 0;
		} elsif ($flag == 2) {
			push (@description, $line);
		} elsif ($line =~ m|^<!--Title Message-->|) {
			$flag = 3;
			push (@tmsg, $line);
		} elsif ($line =~ m|^<!--/Title Message-->|) {
			$flag = 0;
			push (@tmsg, $line);
		} elsif ($flag == 3) {
			$line =~ s|<IMG SRC="([^"]+)/clipart/([^"]+)">|<IMG SRC="$html_url/clipart/$2">|g if $move_board;
			push (@tmsg, $line);
		} elsif ($line =~ m|<META NAME="DESCRIPTION" CONTENT="([^"]*)">|i) {
			$meta_description = $1;
		} elsif ($line =~ m|<META NAME="KEYWORDS" CONTENT="([^"]*)">|i) {
			$meta_keywords = $1;
		} elsif ($line =~ m|<META NAME="ROBOTS" CONTENT="([^"]*)">|i) {
			$meta_robots = $1;
		} 
	}
	if (scalar(@tmsg) == 0) {
		$tm = "<!--Title Message-->\n<CENTER><IMG SRC=\"$html_url/clipart/board_logo.gif\"></CENTER>\n<!--Source: %5cc%7b%5cclipart%7bboard_logo%7d%7d -->\n<!--/Title Message-->";
		@tmsg = split(/\n/, $tm);
		foreach $line (@tmsg) {
			$line .= "\n";
		}
	}
	if (scalar(@mainmessage) == 0) {
		$tm = "<!--Message-->\n<CENTER><A HREF=\"http://www.chem.hope.edu/discus\" TARGET=_top>Powered by Discus</A></CENTER>\n<!--Source: %5ccenter%7b%5ctopurl%7bhttp%3a%2f%2fwww%2echem%2ehope%2eedu%2fdiscus%2cPowered+by+Discus%7d%7d -->\n<!--/Message-->";
		@mainmessage = split(/\n/, $tm);
		foreach $line (@mainmessage) {
			$line .= "\n";
		}
	}
	open (FILExx, "$admin_dir/newpage.conf");
	@file = <FILExx>;
	close (FILExx);
	@mainfile = @file;
	if (!(grep(/<!--Start-->/, @file))) {
		&error_message("Page Regeneration Error", "Template file (newpage.conf) has been corrupted; regeneration stopped for safety reasons.");
	}
	$str = "$titlej Topics"; $timestr = "";
	open (TOPFILE, ">$html_dir/messages/board-topics.html");
	$flag = 0; $flag2 = 0;
	foreach $line (@file) {
		if ($line =~ /<!--Start-->/) {
			$flag = 1;
		} elsif ($flag == 1) {
			while ($line =~ /\$(\w+)/) {
				$this = eval "\$$1";
				$line = $` . $this . $';
			}
			if ($line =~ /<!--Bigtitle-->/) {
				$flag2 = 1;
			} elsif ($flag2 == 1 && $line =~ m|<!--/Bigtitle-->|) {
				$flag2 = 0;
			} elsif ($line =~ m|</HEAD>|) {
				print TOPFILE "<STYLE>\n<!--\nP.desc {margin-left: 40; margin-right: 20; margin-top: 0}\n-->\n</STYLE>\n";
				print TOPFILE $line;
			} elsif ($line =~ m|<!--Navbar-->|) {
				$flag2 = 1;
			} elsif ($line =~ m|<!--/Navbar-->|) {
				$flag2 = 0;
			} elsif ($line =~ m|<!--Sublist-->|) {
				$flag2 = 1;
				print TOPFILE "<HR>\n";
				foreach $line_to (@topics) {
					if ($line_to =~ m|^<!-?Top: (\d+)-|i) {
						$t = $1;
						print TOPFILE $line_to;
						print TOPFILE "<!-Description: $t-!><P class=\"desc\"><BR></P>\n" if !$description_seen{$t};
					} else {
						print TOPFILE $line_to;
					}
				}
				print TOPFILE "<!-Posting-!>\n";
			} elsif ($line =~ m|<!--/Sublist-->|) {
				$flag2 = 0;
			} elsif ($line =~ m|<!--Create-->|) {
				$flag2 = 1;
			} elsif ($line =~ m|<!--/Create-->|) {
				$flag2 = 0;
			} elsif ($line =~ m|<!--About-->|) {
				$flag2 = 1;
				print TOPFILE "<HR>\n";
				$tstr2 = join("", @mainmessage);
				print TOPFILE $tstr2;
			} elsif ($line =~ m|<!--/About-->|) {
				$flag2 = 0;
			} elsif ($line =~ m|<!--Messages-->|) {
				$flag2 = 1;
			} elsif ($line =~ m|<!--/Messages-->|) {
				$flag2 = 0;
			} elsif ($line =~ m|<!--Announcement-->|) {
				$flag2 = 1;
				print TOPFILE @tmsg;
			} elsif ($line =~ m|<!--/Announcement-->|) {
				$flag2 = 0;
			} elsif ($line =~ m|<!--Add-->|) {
				$flag2 = 1;
			} elsif ($line =~ m|<!--/Add-->|) {
				$flag2 = 0;
			} elsif ($line =~ m|<!--Message Source|) {
				$flag2 = 3;
				print TOPFILE "<!--Description Source:\n";
				if (scalar(@description)) {
					print TOPFILE @description;
				}	
				print TOPFILE "<!-End Description Source-!>-->\n";				
			} elsif ($line =~ m|-->| && $flag2 == 3) {
				$flag2 = 0;
			} elsif ($line =~ m|^<!-AdminFromHere-!>|) {
				# Skip
			} elsif ($flag2 == 0) {
				print TOPFILE $line;
			}
		}
	}
	close (TOPFILE);
	if ($flag_noregen == -45) {
		&unlock("*");
		return 1;	
	}
	foreach $linettt (@topics) {
		if ($linettt =~ m|<!-?Top: (\d+)-!>|i) {
			$topic_number = $1;
			&extract("//$topic_number/$topic_number.$ext");
			if (open(FILEx, "$message_dir/$topic_number/newpage.conf")) {
				@newpgfile = <FILEx>;
				close (FILEx);
			} elsif (open(FILEx, "$secdir/$topic_number/newpage.conf")) {
				@newpgfile = <FILEx>;
				close (FILEx);
			} else {
				@newpgfile = @mainfile;
			}
			open (POST, "$admin_dir/posting.txt"); @post = <POST>; close (POST);
			($line) = grep(/^$topic_number:/, @post);
			($t, $ip) = split(/:/, $line);
			if ($ip eq "") {
				$privpub = "private";
			} else {
				$privpub = "public";
			}
			open (POST, "$admin_dir/postoptions.txt"); @post = <POST>; close (POST);
			($line) = grep(/^$topic:/, @post);
			($t, $an) = split(/:/, $line);
			$anflag = $an;
			$anflag = 1 if ($GLOBAL_OPTIONS{'anonymous'} == 0 && $GLOBAL_OPTIONS{'options_used'} == 1);
			if (open(FILExx, "$message_dir/$topic_number/addmessage.conf")) {
				@addfile = <FILExx>;
				close (FILExx);
			} elsif (open(FILExx, "$secdir/$topic_number/addmessage.conf")) {
				@addfile = <FILExx>;
				close (FILExx);
			} elsif ($line =~ m|::::\s*$| && !-e "$message_dir/$topic_number/addmessage.conf" && !-e "$secdir/$topic_number/addmessage.conf") {
				$l = $L{BPPOSTINGDISABLEDDESCR};
				$l =~ s|\%aopen|<A HREF="$script_url/board-contact.$cgi_extension">|g;
				$l =~ s|\%aclose|</A>|g;
				@addfile = ("<HR><CENTER><TABLE BGCOLOR=#ffcccc><TR><TD><FONT FACE=\"$face\" SIZE=\"$size\" COLOR=000000><B>$l</B></FONT></TD></TR></TABLE>");
			} else {		
				open (FILExx, "$admin_dir/addmessage-$privpub.conf");
				@addfile = <FILExx>;
				close (FILExx);
			}
			@addfile = grep(!/^<!-Anon-!>/, @addfile) if $anflag;
			$addfile = join("\n", @addfile); $addfile .= "\n";
			$addfile =~ s/<!-FONT-!>/<FONT FACE="$face" SIZE="$size">/g;
			$addfile =~ s/<!-POST TO CGI-!>/$script_url\/board-post.$cgi_extension/g;
			$template = join("\n", @newpgfile); $template .= "\n";
			&regenerate_page($topic_number, $topic_number, $topic_number, $template, $addfile, $move_board);
		}
	}
	&unlock("*");
}

sub regenerate_page {
	local ($topic, $page, $my_parent, $template, $addfile, $move_board, $meta_override) = @_;
	local (@head, @sublist, $line);
	local ($head1, $color1, $lm1, $ann, $ann_src, $sublist1, $about1, $about_src1, $message1, $message_src1) = &get_page($topic, $page, $meta_override);
	@head = split(/\n/, $head1);
	@sublist = split(/\n/, $sublist1);
	if (!grep(/<!--Parent:/, @head)) {
		$head1 .= "<!--Parent: $my_parent-->\n";
	}
	foreach $line (@sublist) {
		if ($line =~ m|$message_url/(\d+)/(\d+).$ext#(\w+)|) {
			$line = join("", $`, "$message_url/$1/$2.$ext?$3", $');
		}
	}
	if ($move_board) {
		foreach $line (@sublist) {
			if ($line =~ m|"([^"]+)/messages/(\d+)/(\d+)\.|) {
				$line = join("", $`, "\"$message_url/$2/$3.", $') if $1 ne $html_url;
			}
		}
		$message1 =~ s|<IMG SRC="([^"]+)/(\d+)/(\d+)\.(\w+)"([^>]*)>|<IMG SRC="$message_url/$2/$3\.$4"$5>|g;
		$message1 =~ s|<!-Attachment: ([^!]+)-!><CENTER><TABLE BORDER=1><TR><TD><IMG SRC="([^"]+)/icons/([^"]+)\.gif" ALIGN=LEFT ALT="([^"]+)">([^<]*)<BR><A HREF="([^"]+)/(\d+)/([^"]+)"><B>([^<]+)</B></A> \(([^>]+)\)</TD></TR></TABLE></CENTER><!-/Attachment-!>|<!-Attachment: $1-!><CENTER><TABLE BORDER=1><TR><TD><IMG SRC="$html_url/icons/$3.gif" ALIGN=LEFT ALT="$4">$5<BR><A HREF="$message_url/$7/$8"><B>$9</B></A> \($10\)</TD></TR></TABLE></CENTER><!-/Attachment-!>|g;
		$message1 =~ s|<IMG SRC="([^"]+)/clipart/([^"]+)">|<IMG SRC="$html_url/clipart/$2">|g;
		$about1 =~ s|<IMG SRC="([^"]+)/clipart/([^"]+)">|<IMG SRC="$html_url/clipart/$2">|g;
		$message1 =~ s|<A HREF="([^"]+)/board-profile\.(\w+)|<A HREF="$script_url/board-profile.$cgi_extension|g;
		$message1 =~ s|<A HREF="$old_html_url/messages/(\d+)/(\d+)\.(\w+)|<A HREF="$message_url/$1/$2.$ext|g;
		$about1 =~ s|<A HREF="$old_html_url/messages/(\d+)/(\d+)\.(\w+)|<A HREF="$message_url/$1/$2.$3|g;
	}
	$sublist1 = join("\n", @sublist);
	&set_page($topic, $page, $head1, $colorstr, $lm1, $ann, $ann_src, $sublist1, $about1, $about_src1, $message1, $message_src1, $template, $addfile, 1);
	foreach $line (@sublist) {
		if ($line =~ m|<!-Top: (\d+)-!>|) {
			&regenerate_page($topic, $1, $page, $template, $addfile, $move_board, $meta_override);
		}
	}
}

#---SEPARATOR---#
#REQ:get_date_time

sub change_board_toppage {
	local ($boldon, $groupon, $dateon, $lockon, $hideon) = @_;
	if ($boldon eq "*") {
		open (TOP, "$admin_dir/frontpage_conf.txt"); @top = <TOP>; close (TOP);
		($l) = grep(/^Bold=/, @top); $l =~ s/\D//g; $boldon = $l;
		($l) = grep(/^Group=/, @top); $l =~ s/\D//g; $groupon = $l;
		($l) = grep(/^Date=/, @top); $l =~ s/\D//g; $dateon = $l;
		($l) = grep(/^Lock=/, @top); $l =~ s/\D//g; $lockon = $l;
		($l) = grep(/^Hide=/, @top); $l =~ s/\D//g; $hideon = $l;
	} else {	
		&lock("$admin_dir/frontpage_conf.txt");
		open (FILE_c, ">$admin_dir/frontpage_conf.txt");
		print FILE_c "Bold=$boldon\n";
		print FILE_c "Group=$groupon\n";
		print FILE_c "Date=$dateon\n";
		print FILE_c "Lock=$lockon\n";
		print FILE_c "Hide=$hideon\n";
		close (FILE_c);
		&unlock("$admin_dir/frontpage_conf.txt");
	}
	&lock("$html_dir/messages/board-topics.html");
	open (TOPFILE, "$html_dir/messages/board-topics.html");
	@topfile = <TOPFILE>;
	close (TOPFILE);
	foreach $line_top (@topfile) {
		if ($line_top =~ m|<!-Top: (\d+)-!>| || $line_top =~ m|^<!top: (\d+)-|i) {
			$num = $1; $lt = $line_top; $secured = 0;
			if (-e "$html_dir/messages/$num/$num.$ext") {			
				$file = "$html_dir/messages/$num/$num.$ext" 
			} else {			
				$file = "$secdir/$num/$num.$ext";
				$secured = 1;
			}
			$lmtime = (stat ($file))[9];
			if ($lt =~ m|.*<FONT SIZE="?-1"?>(.*)</FONT>|i) {
				$dt = $1;
			} else {
				$dt = "";
			}
			&extract($file);
			$lm = (&get_page($num, $num))[2];
			$line_top = "<!-Top: $num-!>";
			$line_top .= "<!--" if ($hideon && $secured);
			$line_top .= "<LI>";
			$line_top .= "<B>" if $boldon;
			$line_top .= "<IMG SRC=\"$html_url/icons/lock_icon.gif\" HEIGHT=16 WIDTH=14 ALT=\"\"> " if ($lockon && $secured);
			$line_top .= "<A HREF=\"$html_url/messages/$num/$num.$ext" if -e "$html_dir/messages/$num/$num.$ext";
			$line_top .= "<A HREF=\"$script_url/board-auth.$cgi_extension?file=/$num/$num.$ext&lm=$lm" if !-e "$html_dir/messages/$num/$num.$ext";
			$line_top .= "?$lm" if (!$noqm && -e "$html_url/messages/$num/$num.$ext");
			$line_top .= "\" onMouseOver=\"return setStatus('";
			$line_top .= &JavaScript_prepare($topic_name);
			$line_top .= "')\">$topic_name</A>";
			$line_top .= "</B>" if $boldon;
			$line_top .= " (\u$owner)" if $groupon;
			if ($dateon && $lmtime != 0 && $dt eq "") {
				$line_top .= " <FONT SIZE=-1>" . &get_date_time('short', $lmtime) . "</FONT>";
			} elsif ($dateon) {
				$line_top .= " <FONT SIZE=-1>$dt</FONT>";
			}
			$line_top .= "-->" if ($hideon && $secured);
			$line_top .= "\n";
		} elsif ($line_top =~ m|^<!-Description: (\d+)| || $line_top =~ m|^<!description: (\d+)|) {
			$num = $1; $lt = $line_top; $secured = 0;
			if (-e "$html_dir/messages/$num/$num.$ext") {			
				$file = "$html_dir/messages/$num/$num.$ext" 
			} else {			
				$file = "$secdir/$num/$num.$ext";
				$secured = 1;
			}
			if ($line_top =~ m|<P class="desc">(.*)</P>|) {
				$line_top = "<!-Description: $num-!>";
				$line_top .= "<!--" if ($hideon && $secured);
				$line_top .= "<P class=\"desc\">";
				$line_top .= $1;
				$line_top .= "</P>";
				$line_top .= "-->" if ($hideon && $secured);
				$line_top .= "\n";
			}		
		}
	}
	open (TOPFILE, ">$html_dir/messages/board-topics.html");
	print TOPFILE @topfile;
	close (TOPFILE);
	&unlock("$html_dir/messages/board-topics.html");
}