# FILE: src-board-subs-1
# Copyright (c) 1998, Kevin W. Paulisse and William F. Polik, all rights reserved
# Licensed under the Discus license agreement
# http://www.chem.hope.edu/discus

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

sub add_topic {
	local ($new_topic, $new_topic_group) = @_;
	local ($topic_number,$topic_name,$me_name,$num,$dt,$lm,@main,$group);
	local ($main_line,$str,$time,$posted);
	$num_local = &get_number;
	$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,"Sublist");
	eval 'symlink ("$message_dir/$num_local/$num_local.$ext", "$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 "<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+)-!>/) {
			if ($1 == $remove_number) {
				&recurse ($remove_number,$remove_number,"delete");
				unlink ("$message_dir/$remove_number/index.html");
				rmdir ("$message_dir/$remove_number");
			} else {
				print MAIN_1 $line;
			}
		} else {
			print MAIN_1 $line;
		}
	}
	close (MAIN_1);
	&unlock("$message_dir/board-topics.html");
}

#---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];
			}
			$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 .= "<P>\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;
		}
	}
	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};
				$printed{$key} = 1;
			}
			foreach $key (keys(%printed)) {
				print MAIN_1 $newarray{$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);
	&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 =~ /<!--Source/) {
			print MAIN_1 $line;
			print MAIN_1 $source . "\n";
			$messageflag = 2;
		} elsif ($line =~ /^-->$/) {
			$messageflag = 1;
			print MAIN_1 $line;
		} elsif ($line =~ /<!--\/Message-->/) {
			$messageflag = 0;
			print MAIN_1 $newmessage . "\n";
			print MAIN_1 $line;
		} elsif ($messageflag == 0) {
			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/register.cgi\" METHOD=POST>\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) = @_;
	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");
	}
	&recurse ($topic_number,$topic_number,"chgrp",$new_group);
}

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

sub preview_board_colors {
	($bgcolor,$text,$link,$vlink,$alink,$face,$size,$username,$image) = @_;
	&header;
	&printuntil(1, 1, 0, "Preview Appearance", 1);
	print "<FONT SIZE=+1><CENTER><B>Preview Appearance</B></CENTER></FONT>\n";
	for ($i = 3; $i <= 7; $i += 2) {
		&printuntil($i, $i, 0, "Preview Appearance", 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=\"$cgiurl\" 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=6 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=6 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=6 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=6 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=6 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";
	for ($i = 9; $i <= 13; $i += 2) {
		&printuntil($i, $i, 0, "Board Appearance Preview", 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 "</FORM>\n";
	for ($i = 15; $i <= 17; $i += 2) {
		&printuntil($i, $i, 0, "Board Appearance Preview", 1);
	}
}

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

sub change_board_colors {
	local ($bgcolor,$text,$link,$vlink,$alink,$face,$size,$background) = @_;
	&lock("*");
	$image = $background;
	local ($addfile, $template, @topics, @mainmessage);
	$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);
	foreach $line (@topfile) {
		if ($line =~ m|<!-Top:|) {
			if ($line =~ m|$html_url/messages/(\d+)/(\d+).$ext#(\w+)|) {
				$line = join("", $`, "$html_url/messages/$1/$2.$ext?$3", $');
			}
			push (@topics, $line);
		} elsif ($line =~ m|<!--Message-->|) {
			$flag = 1;
			push (@mainmessage, $line);
		} elsif ($line =~ m|<!--/Message-->|) {
			$flag = 0;
			push (@mainmessage, $line);
		} elsif ($flag == 1) {
			push (@mainmessage, $line);
		}
	}
	open (FILExx, "$admin_dir/newpage.txt");
	@file = <FILExx>;
	close (FILExx);
	@mainfile = @file;
	if (!(grep(/<!--Start-->/, @file))) {
		&error_message("Page Regeneration Error", "Template file (newpage.txt) 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-->/) {
				print TOPFILE "<CENTER>\n";
				print TOPFILE "<IMG SRC=\"$html_url/clipart/board_logo.gif\">\n";
				print TOPFILE "</CENTER>\n";
				$flag2 = 1;
			} elsif ($flag2 == 1 && $line =~ m|<!--/Bigtitle-->|) {
				$flag2 = 0;
			} elsif ($line =~ m|<!--Navbar-->|) {
				$flag2 = 1;
			} elsif ($line =~ m|<!--/Navbar-->|) {
				$flag2 = 0;
			} elsif ($line =~ m|<!--Sublist-->|) {
				$flag2 = 1;
				print TOPFILE "<HR>\n";
				$tstr = join("", @topics);
				print TOPFILE $tstr;
				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|<!--Add-->|) {
				$flag2 = 1;
			} elsif ($line =~ m|<!--/Add-->|) {
				$flag2 = 0;
			} elsif ($line =~ m|<!--Message Source|) {
				$flag2 = 2;
			} elsif ($line =~ m|-->| && $flag2 == 2) {
				$flag2 = 0;
			} elsif ($flag2 == 0) {
				print TOPFILE $line;
			}
		}
	}
	close (TOPFILE);
	foreach $linettt (@topics) {
		if ($linettt =~ m|<!-Top: (\d+)|) {
			$topic_number = $1;
			&extract("//$topic_number/$topic_number.$ext");
			if (open(FILEx, "$message_dir/$topic_number/newpage.txt")) {
				@newpgfile = <FILEx>;
				close (FILEx);
			} else {
				@newpgfile = @mainfile;
			}
			$privpub = "private";
			open (USER, "$admin_dir/users.txt");
			@users = <USER>;
			close (USER);
			@valid = grep(/:$owner\n?$/, @users);
			$privpub = "public" if grep(/^PUBLIC:/, @valid);
			open (FILExx, "$admin_dir/addmessage-$privpub.txt");
			@addfile = <FILExx>;
			close (FILExx);
			foreach $line_2 (@addfile) {
				$line_2 =~ s/<!-FONT-!>/<FONT FACE="$face" SIZE="$size">/g;
				$line_2 =~ s/<!-POST TO CGI-!>/$script_url\/board-post.$cgi_extension/g;
			}
			$addfile = join("\n", @addfile); $addfile .= "\n";
			$template = join("\n", @newpgfile); $template .= "\n";
			&regenerate_page($1, $1, $1, $template, $addfile);
		}
	}
	&unlock("*");
}

sub regenerate_page {
	local ($topic, $page, $my_parent, $template, $addfile) = @_;
	local (@head, @sublist, $line);
	local ($head1, $color1, $lm1, $sublist1, $about1, $about_src1, $message1, $message_src1) = &get_page($topic, $page);
	@head = split(/\n/, $head1);
	@sublist = split(/\n/, $sublist1);
	if (!grep(/<!--Parent:/, @head)) {
		$head1 .= "<!--Parent: $my_parent-->\n";
	}
	foreach $line (@sublist) {
		if ($line =~ m|<!-Top: (\d+)-!>|) {
			&regenerate_page($topic, $1, $page, $template, $addfile);
		}
		if ($line =~ m|$html_url/messages/(\d+)/(\d+).$ext#(\w+)|) {
			$line = join("", $`, "$html_url/messages/$1/$2.$ext?$3", $');
		}
	}
	$sublist1 = join("\n", @sublist);
	&set_page($topic, $page, $head1, $colorstr, $lm1, $sublist1, $about1, $about_src1, $message1, $message_src1, $template, $addfile);
}

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

sub change_board_toppage {
	local ($boldon, $groupon, $dateon) = @_;
	&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";
	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+)-!>|) {
			$num = $1; $lt = $line_top;
			$file = "$html_dir/messages/$num/$num.$ext";
			$lmtime = (stat $file)[9];
			if ($lt =~ m|.*<FONT SIZE=-1>(.*)</FONT>|) {
				$dt = $1;
			} else {
				$dt = "";
			}
			&extract($file);
			$lm = (&get_page($num, $num))[2];
			$line_top = "<!-Top: $num-!><LI>";
			$line_top .= "<B>" if $boldon;
			$line_top .= "<A HREF=\"$html_url/messages/$num/$num.$ext";
			$line_top .= "?$lm" if !$noqm;
			$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 .= "<P>\n";
		}
	}
	open (TOPFILE, ">$html_dir/messages/board-topics.html");
	print TOPFILE @topfile;
	close (TOPFILE);
	&unlock("$html_dir/messages/board-topics.html");
}