# FILE: src-board-subs-8
# 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---#

sub change_layout {
	local ($topic_number,$page_number, $param) = @_;
	&lock("$message_dir/$topic_number/$page_number.$ext");
	local ($head, $color, $lm, $sublist, $about, $about_src, $message, $message_src) = &get_page($topic_number, $page_number);
	local (@head, $line);
	@head = split(/\n/, $head);
	foreach $line (@head) {
		if ($line =~ m|<!--Param:|) {
			$line = "<!--Param: $param-->";
		}
	}
	$head = join("\n", grep(/\S/, @head));
	&set_page($topic_number, $page_number, $head, $color, $lm, $sublist, $about, $about_src, $message, $message_src);
	&unlock("$message_dir/$topic_number/$page_number.$ext");
}

#---SEPARATOR---#

sub write_source {
	local ($file, $index, $source) = @_;
	local ($src,@file,$line);
	$src = $source;
	$src =~ s/</&lt;/g;
	$src =~ s/>/&gt;/g;
	&lock($file);
	open (SRCFILE, $file);
	@file = <SRCFILE>;
	close (SRCFILE);
	open (SRCFILE, ">$file");
	foreach $line (@file) {
		if ($line =~ /<!--Message Source/) {
			print SRCFILE $line;
			print SRCFILE "<!-Source: $index-!>\n";
			print SRCFILE "$src\n";
			print SRCFILE "<!-/Source: $index-!>\n";
		} else {
			print SRCFILE $line;
		}
	}
	close (SRCFILE);
	&unlock($file);
}
sub read_source {
	local ($file, $index) = @_;
	local ($source,@file,$line,$flag);
	open (SRCFILE, $file);
	@file = <SRCFILE>;
	close (SRCFILE);
	$source = "";
	$flag = 0;
	foreach $line (@file) {
		if ($line =~ /<!-Source: $index-!>/) {
			$flag = 1;
		} elsif ($line =~ /<!-\/Source: $index-!>/) {
			$flag = 0;
		} elsif ($flag == 1) {
			$source .= $line;
		}
	}
	return $source;
}
sub remove_source {
	local ($file, $index) = @_;
	local (@file,$flag,$line);
	&lock($file);
	open (SRCFILE, $file);
	@file = <SRCFILE>;
	close (SRCFILE);
	$flag = 0;
	open (SRCFILE, ">$file");
	foreach $line (@file) {
		if ($line =~ /<!-Source: $index-!>/) {
			$flag = 1;
		} elsif ($line =~ /<!-\/Source: $index-!>/) {
			$flag = 0;
		} elsif ($flag == 0) {
			print SRCFILE $line;
		}
	}
	close (SRCFILE);
	&unlock($file);
}

#---SEPARATOR---#

sub extract_lastmodified {
	local ($file) = @_;
	local ($topic_number, $filenum) = split(/:/, $file);
	local ($filename);
	$filename = "$message_dir/$topic_number/$filenum.$ext";
	$filename = "$message_dir/board-topics.html" if $filenum == 0;
	&lock($filename);
	local (@file, $line);
	open (FILELM, $filename);
	@file = <FILELM>;
	close (FILELM);
	&unlock($filename);
	foreach $line (@file) {
		if ($line =~ /<A NAME="([^P][^"]*)">/) {
			return $1;
		}
	}
	return "";
}

#---SEPARATOR---#
#REQ:extract_colorsonly

sub prepare_navbar {
	local (@file) = @_;
	local ($line, $navstr, $type, $numb, $text, $topic_number, $javastr,$lastone);
	local ($bgcolor, $text, $link, $vlink, $alink, $face, $size, $image) = &extract_colorsonly;
	$navstr = "<A HREF=\"$message_url/board-topics.html\" ";
	$navstr .= "onMouseOver=\"return setStatus('$L{NBRETURN} $titlej $L{NBMAINPAGE}')\">$title</A>: ";
	foreach $line (@file) {
		$_ = $line;
		if (m|^<!--(\w+)(\s?)(\d*): (\d+)/(.*)-->|) {
			$type = $1;
			$numb = $4;
			$text = $5;
			$javastr = &JavaScript_prepare ($text);
			if ($type eq "Topic")  {
				$topic_number = $numb;
				$navstr .= "<A HREF=\"$message_url/";
				$navstr .= "$topic_number/$numb.$ext";
				$navstr .= "\" ";
				$navstr .= "onMouseOver=\"return setStatus('$L{NBRETURN} $javastr')\">";
				$navstr .= "<FONT COLOR=$vlink>$text</FONT>";
				$navstr .= "</A>: ";
				$lastone = $text;
			} elsif ($type eq "Level") {
				$navstr .= "<A HREF=\"$message_url/";
				$navstr .= "$topic_number/$numb.$ext";
				$navstr .= "\" ";
				$navstr .= "onMouseOver=\"return setStatus('$L{NBRETURN} $javastr')\">";
				$navstr .= "<FONT COLOR=$vlink>$text</FONT>";
				$navstr .= "</A>: ";
				$lastone = $text;
			}
		}
	}
	chop ($navstr);
	chop ($navstr);
	while ($navstr !~ /<A$/) {
		chop ($navstr);
	}
	chop ($navstr);
	chop ($navstr);
	$navstr .= $lastone;
	return $navstr;
}

#---SEPARATOR---#

sub webtags {
	$webtags_conf_file = "$admin_dir/webtags.conf";
	local ($text_in, $context_code, $situation) = @_;
	&read_tags ($context_code);
	$text_in = &escape_input($text_in);
	($messages, $formatted) = &parse("", $text_in);
	if ($messages ne "!Error") {
		while ($formatted =~ m|/(\w+)&#40;|g) {
			$messages .= "<LI><B>/$1(...)</B> $L{COULDMEAN} <B>\\$1\{...\}</B><BR>\n" if ($tags{$1} ne "" && $flagged{$1} == 0);
			$flagged{$1} = 1;
		}
		while ($formatted =~ m|\\(\w+)&#40;|g) {
			$messages .= "<LI><B>&#92;$1(...)</B> $L{COULDMEAN} <B>\\$1\{...\}</B><BR>\n" if ($tags{$1} ne "" && $flagged{$1} == 0);
			$flagged{$1} = 1;
		}
		while ($formatted =~ m|/(\w+)\{|g) {
			$messages .= "<LI><B>/$1\{...\}</B> $L{COULDMEAN} <B>\\$1\{...\}</B><BR>\n" if ($tags{$1} ne "" && $flagged{$1} == 0);
			$flagged{$1} = 1;
		}
		while ($formatted =~ m|/(\w+) \{|g) {
			$messages .= "<LI><B>/$1\{...\}</B> $L{COULDMEAN} <B>\\$1\{...\}</B><BR>\n" if ($tags{$1} ne "" && $flagged{$1} == 0);
			$flagged{$1} = 1;
		}
		while ($formatted =~ m|/(\w+) &#40;|g) {
			$messages .= "<LI><B>/$1\{...\}</B> $L{COULDMEAN} <B>\\$1\{...\}</B><BR>\n" if ($tags{$1} ne "" && $flagged{$1} == 0);
			$flagged{$1} = 1;
		}
		while ($formatted =~ m|\\(\w+) \{|g) {
			$messages .= "<LI><B>/$1\{...\}</B> $L{COULDMEAN} <B>\\$1\{...\}</B><BR>\n" if ($tags{$1} ne "" && $flagged{$1} == 0);
			$flagged{$1} = 1;
		}
		while ($formatted =~ m|\\(\w+) &#40;|g) {
			$messages .= "<LI><B>/$1\{...\}</B> $L{COULDMEAN} <B>\\$1\{...\}</B><BR>\n" if ($tags{$1} ne "" && $flagged{$1} == 0);
			$flagged{$1} = 1;
		}
	} else {
		$formatted = "<H3>$L{FORMATTINGERROR}</H3>$formatted";
	}
	if ($situation == 0) {
		return ($formatted, $formatted);
	} else {
		return ($messages, $formatted);
	}
}

sub parse {
	local ($messages, $text_in) = @_;
	return ("!Error", $text_in) if $messages eq "!Error";
	local ($v1, $v2, $v3, $v4, $v5, $v6, $v7);
	while ($text_in =~ m|\\([^\{\s]*)\{|) {
		($v1, $v2, $v3) = ($`, $1, $');
		($v4, $v3) = &parse($messages, $v3);
		return ($v4, $v3) if $v4 eq "!Error";
		$messages .= $v4;
		if ($v3 =~ m|^([^\}]*)\}|) {
			($v6, $v7) = ($1, $');
		} else {
			$ncb = $L{NOCLOSINGBRACE};
			$ncb =~ s/\%code/$v2/g;
			return ("!Error", "$ncb");
		}
		if ($v2 eq "ch" && $char{$v6} ne "") {
			$text_in = join("", $v1, $char{$v6}, $v7);
		} elsif ($v2 eq "ch") {
			$sc = $L{NOSPECIALCHARACTER};
			$sc =~ s/\%char/$v6/g;
			return ("!Error", "$sc");
		} elsif (grep(/^$v2$/, keys(%tags))) {
			$temp = $tags{$v2};
			$maxtest = 0;
			while ($temp =~ m%\|(\d+)\|%g) {
				$maxtest = $1 if $1 > $maxtest;
			}
			@splits = split(/,/, $v6, $maxtest);
			if ($maxtest != 1) {
				for ($i = 0; $i < ($maxtest - 1); $i++) {
					if (&remove_html($splits[$i]) ne $splits[$i]) {
						$nonest = $L{NONESTHTML};
						$nonest =~ s/\%code/$v2/g;
						return ("!Error", "$nonest");						
					}
				}
			}
			$sc = scalar(@splits);
			while ($temp =~ m%\|(\d+)\|%) {
				$temp = join("", $`, $splits[($1)-1], $');
			}
			if ($sc < $maxtest) {
				$wnarg = $L{WRONGNUMBEROFARGUMENTS};
				$wnarg =~ s/\%code/$v2/g;
				$wnarg =~ s/\%required/$maxtest/g;
				$wnarg =~ s/\%your/$sc/g;
				return ("!Error", "$wnarg");
			}
			if ($v2 eq "table" || $v2 eq "tablenb" || $v2 eq $L{TABLE_TAG} || $v2 eq $L{TABLE_NB_TAG}) {
				if ($temp =~ m|\t|) {
					$temp =~ s%\t%</TD><TD>%g;
				} else {
					$temp =~ s%,%</TD><TD>%g;
				}
				$temp =~ s%<BR>%</TD></TR><TR><TD>%g;
			} elsif ($v2 eq "list" || $v2 eq $L{LIST_TAG}) {
				$temp =~ s%<BR>%<LI>%g;
			}
			$text_in = join("", $v1, $temp, $v7);
		} else {
			$sc = $L{CODEDOESNOTEXIST};
			$sc =~ s/\%code/$v2/g;
			return ("!Error", "$sc");
		}
	}
	return ($messages, $text_in);
}

sub escape_input {
	local ($stringin) = @_;
	$_ = $stringin;
	s/&/&amp;/g; s/</\&#60;/g; s/>/\&#62;/g; s/"/&#34;/g; s/\\\\/&#92;/g;
	s/\\\{/&#123;/g; s/\\\}/&#125;/g; s/\\,/&#44;/g; s/\(/&#40;/g;
	s/\)/&#41;/g; s/\[/&#91;/g; s/\]/&#93;/g; s/\*/&#42;/g; s/\+/&#43;/g;
	s/\|/&#124;/g; s/'/&#39;/g; s/\r\n/\n/g; s/\r/\n/g; s/\n/ <BR>/g;
	return $_;
}

sub read_tags {
	local ($cont_code) = @_;
	undef %char; undef %tags; undef $str;
	open (WTCONF, "<$webtags_conf_file");
	while (<WTCONF>) {
		next if /^#/;
		s/^\s*//;
		s/\s*$//;
		if ($str) {
			if (m|\\$|) {
				$str .= $`;
			} else {
				if ($cont =~ m|^[cC]|) {
					$char{$code} = join("", $str, $_);
				} elsif ($cont >= $cont_code) {
					$tags{$code} = join("", $str, $_);
					$str_ = $tags{$code};
					while ($str_ =~ m|!VAR\((\w+)\)!|) {
						$before = $`;
						$after = $';
						$f = $1;
						$f = "\$" . $f;
						$f =~ s/"/\\"/g;
						$result = eval qq/"$f"/;
						$str_ = $before . $result . $after;
					}
					$tags{$code} = $str_;
				}
				$str = "";
				next;
			}
		}
		if (($cont, $code, $act) = m|^([cC0-9])\s*(\S+)\s*(.*)|) {
			if ($act =~ m|\\$|) {
				$str = $`; next;
			}
			$code = &escape_input($code);
			if ($cont =~ m|^[cC]|) {
				$char{$code} = $act;
			} elsif ($cont >= $cont_code) {
				$tags{$code} = $act;
				$str_ = $tags{$code};
				while ($str_ =~ m|!VAR\((\w+)\)!|) {
					$before = $`;
					$after = $';
					$f = $1;
					$f = "\$" . $f;
					$f =~ s/"/\\"/g;
					$result = eval qq/"$f"/;
					$str_ = $before . $result . $after;
				}
				$tags{$code} = $str_;
			}
		}
	}
	close (WTCONF);
}

#---SEPARATOR---#

sub change_private_and_public {
	local ($topic_number, $me_number, $text) = @_;
	local ($line, @file, @other, $other, $flag);
	&lock("$message_dir/$topic_number/$me_number.$ext");
	open (FILE_PP, "$message_dir/$topic_number/$me_number.$ext");
	@file = <FILE_PP>;
	close (FILE_PP);
	@other = grep(/<!-Top:/, @file);
	foreach $other (@other) {
		$other =~ /<!-Top: (\d+)-!>/;
		&change_private_and_public ($topic_number, $1, $text);
	}
	$flag = 0;
	open (FILE_PP, ">$message_dir/$topic_number/$me_number.$ext");
	foreach $line (@file) {
		if ($line =~ /<!--Add-->/) {
			print FILE_PP $line;
			print FILE_PP $text;
			$flag = 1;
		} elsif ($line =~ /<!--\/Add-->/) {
			print FILE_PP $line;
			$flag = 0;
		} elsif ($flag == 0) {
			print FILE_PP $line;
		}
	}
	close (FILE_PP);
	&unlock("$message_dir/$topic_number/$me_number.$ext");
}

#---SEPARATOR---#

sub page_manager_navbar {
	local ($topic_number, $page_number, $closing_text) = @_;
	local ($head) = &get_page($topic_number, $page_number);
	local ($number, $name, @array, %level, $str, @head, $topic_name, $line);
	print "<HR>\n<B><A HREF=\"$cgiurlm?username=$username&action=mgr_1";
	print "&HTTP_REFERER=$page_referer\">Page Manager</A>:\n";
	@head = split(/\n/, $head);
	foreach $line (@head) {
		if ($line =~ m|<!--Level (\d+): (\d+)/(.*)-->|) {
			$level{$1} = "$2:$3";
		} elsif ($line =~ m|<!--Topic: (\d+)/(.*)-->|) {
			@array = ("$1:$2");
		}
	}
	foreach $key (sort by_number keys(%level)) {
		push (@array, $level{$key});
	}
	foreach $line (@array) {
		($number,$name) = split(/:/, $line, 2);
		print "<A HREF=\"$cgiurlm?username=$username&action=page_editor";
		print "&HTTP_REFERER=//$topic_number/$number.$ext\">";
		print "$name</A>:\n";
	}
	print "$closing_text</B>\n<HR>\n\n";
}

#---SEPARATOR---#
#REQ:page_manager_navbar
#REQ:build_graphical_tree

sub graphic_browser_select {
	local ($topic_number, $page_number, $username) = @_;
	&header;
	$topic_number_hold = $topic_number; $page_number_hold = $me_number;
	print "<HTML><HEAD><TITLE>Show All Subtopics</TITLE>\n";
	print "</HEAD><BODY BGCOLOR=ffffff TEXT=000000 LINK=0000ff VLINK=0000ff ALINK=ff0000 onLoad=\"top.frames[0].document.hdata.FLD1.value=0\">$fs\n";
	print "<FONT SIZE=3><CENTER><B>Show All Subtopics</B></CENTER></FONT>\n";
	&page_manager_navbar($topic_number, $page_number, "Show All Subtopics");
	print "<B>Select a page to edit:</B><P>\n";
	open (TOPFILE, "$message_dir/board-topics.html");
	@topfile = <TOPFILE>;
	close (TOPFILE);
	$topic_numbers = "";
	foreach $line (@topfile) {
		if ($line =~ /<!-Top: (\d+)-!>/) {
			$num = $1;
			&extract("//$num/$num.$ext");
			if (&verify_owner($owner,$username)) {
				$topic_numbers .= "$num,";
			}
		}
	}
	&build_graphical_tree($username, $topic_numbers, "$topic_number_hold/$page_number_hold", "", "<A HREF=\"$cgiurlm?username=$FORM{\"username\"}&action=page_editor&HTTP_REFERER=/");
	print "</FONT></BODY></HTML>\n";
}


#---SEPARATOR---#
#REQ:build_graphical_tree
#REQ:page_manager_navbar

sub move_subtopic_form {
	local ($topic_number_hold, $me_number_hold, $username, $plural, $singular, $ref) = @_;
	&header;
	print "<HTML><HEAD><TITLE>Move Subtopic$plural</TITLE></HEAD>\n";
	print "<BODY BGCOLOR=ffffff TEXT=000000 LINK=0000ff VLINK=0000ff ALINK=ffff00 onLoad=\"top.frames[0].document.hdata.FLD1.value=0\">\n";
	print "$fs<FONT SIZE=3><CENTER><B>Move Subtopic$plural</B></CENTER></FONT>\n";
	&page_manager_navbar($topic_number_hold, $me_number_hold, "Move Subtopic$plural");
	print "<P>Select a destination for the subtopics$plural you wish to move by clicking on\n";
	print "the folder icon (<IMG SRC=\"$html_url/icons/tree_g.gif\" HEIGHT=16 WIDTH=20 ALIGN=TOP>)\n";
	print "next to the destination.<P>\n";
	open (TOPFILE, "$message_dir/board-topics.html");
	@topfile = <TOPFILE>;
	close (TOPFILE);
	$topic_numbers = "";
	foreach $line (@topfile) {
		if ($line =~ /<!-Top: (\d+)-!>/) {
			$num = $1;
			&extract("//$num/$num.$ext");
			if (&verify_owner($owner,$username)) {
				$topic_numbers .= "$num,";
			}
		}
	}
	&build_graphical_tree ($username, $topic_numbers, "$topic_number_hold/$me_number_hold", "<A HREF=\"$cgiurl?username=$username&move=$tomove&HTTP_REFERER=$ref&action=move_subtopic&click=", "", 1, $tomove);
	print "<HR><FORM><INPUT TYPE=BUTTON VALUE=\"Cancel\" onClick=\"history.back()\"></FORM></BODY></HTML>\n";
}

#---SEPARATOR---#
#REQ:prepare_navbar
#REQ:moved_message_update_log
#REQ:remove_message_from_log

sub recurse {
	local ($topic_number,$page_number,$action,$parameter) = @_;
	local (@fileinput, $line, $filespec,$file);
	$file = "$message_dir/$topic_number/$page_number.$ext";
	$file = "$message_dir/board-topics.html" if $topic_number == "top";
	&lock("$file");
	open (RFILE, $file);
	@fileinput = <RFILE>;
	close (RFILE);
	foreach $line (@fileinput) {
		if ($line =~ /<!-Top: (\d+)-!>/) {
			$topic_number = $1 if $file eq "$message_dir/board-topics.html";
			&recurse ($topic_number, $1, $action, $parameter);
		}
		while ($line =~ m|<IMG SRC="$message_url/(\d+)/(\d+)\.(\w+)" ALT|g) {
			$img_file = "$message_dir/$topic_number/$2.$3";
			&dorecurse ($img_file,$action,$parameter) if $recurse_action eq "delete";
		}
	}
	&unlock("$file");
	&dorecurse ($file,$action,$parameter);
}
sub dorecurse {
	local ($filespec,$recurse_action,$parameter) = @_;
	if ($recurse_action eq "moved_messages") {
		local ($line);
		&lock("$filespec");
		undef $/;
		open (FILE_RECURSING, "$filespec");
		($line) = <FILE_RECURSING>;
		close (FILE_RECURSING);
		$/ = "\n";
		$filespec =~ m|(\d+/\d+).$ext|;
		local ($new_where) = $1;
		local ($evalstr) = "";
		while ($line =~ /<!-Post: (\d+)-!>/g) {
			$evalstr .= "&moved_message_update_log ($1, '$new_where');";
		}
		&unlock("$filespec");
		eval $evalstr;
	}
	if ($recurse_action eq "delete") {
		local ($evalstr) = "";
		local ($line, @filespecD);
		&lock($filespec);
		open (FILE2, $filespec);
		@filespecD = <FILE2>;
		close (FILE2);
		$line = join("\n", @filespecD);
		while ($line =~ /<!-Post: (\d+)-!>/g) {
			$evalstr .= "&remove_message_from_log ($1);";
		}
		while ($line =~ m|<IMG SRC="$html_url/messages/(\d+)/(\d+)\.(\w+)"|g) {
			$evalstr .= "unlink (\"$html_dir/messages/$1/$2.$3\");";
		}
		&unlock($filespec);
		eval $evalstr;
		unlink($filespec);
	} elsif ($recurse_action eq "chgrp") {
		&lock($filespec);
		open (CHGRPFILE, "$filespec");
		@chgrpfile = <CHGRPFILE>;
		close (CHGRPFILE);
		open (CHGRPFILE, ">" . "$filespec");
		foreach $chgrpline (@chgrpfile) {
			if ($chgrpline =~ /<!--Owner: (\w+)-->/) {
				$chgrpline =~ s/$1/$parameter/g;
				print CHGRPFILE $chgrpline;
			} else {
				print CHGRPFILE $chgrpline;
			}
		}
		close (CHGRPFILE);
		&unlock($filespec);
	} elsif ($recurse_action =~ /rename:(.*)/) {
		local ($type) = $1;
		local (@renamefile, $renameline, $numren, $me_num, $java, $navflag);
		&lock($filespec);
		open (RENAMEFILE, "$filespec");
		@renamefile = <RENAMEFILE>;
		close (RENAMEFILE);
		local ($meflag) = 0;
		foreach $renameline (@renamefile) {
			if ($renameline =~ /<!--$type: (\d+)\//) {
				$me_num = $1;
				$renameline = "<!--$type: $me_num/$newname-->\n";
			} elsif ($renameline =~ /<!--Me: $me_num\//) {
				$renameline = "<!--Me: $me_num/$newname-->\n";
				$meflag = 1;
			} elsif ($renameline =~ /<FONT SIZE=3><CENTER><B>/ && $meflag == 1) {
				$renameline = "<FONT SIZE=3><CENTER><B>$newname</B></CENTER></FONT><HR>\n";
			}
		}
		$navbar = &prepare_navbar (@renamefile);
		$java = &JavaScript_prepare ($navbar);
		open (RENAMEFILE, ">$filespec");
		foreach $renameline (@renamefile) {
			if ($renameline =~ /<!--Navbar-->/) {
				print RENAMEFILE "<!--Navbar-->\n";
				print RENAMEFILE "<b>\n";
				print RENAMEFILE "$navbar\n";
				print RENAMEFILE "</b>\n";
				print RENAMEFILE "<!--/Navbar-->\n";
				$navflag = 1;
			} elsif ($renameline =~ /window.defaultStatus = "(.*)"/) {
				print RENAMEFILE "\t\twindow.defaultStatus = \"$java\"\n";
			} elsif ($renameline =~ /<!--\/Navbar-->/) {
				$navflag = 0;
			} elsif ($navflag == 0) {
				print RENAMEFILE $renameline;
			}
		}
		close (RENAMEFILE);
		&unlock($filespec);
	}
}

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

sub new_file {
	local ($topic_number, $page_number, $parent, $group, $pagetitle, $param) = @_;
	local ($head, $color, $lm, $sublist, $about, $about_src, $message, $message_src);
	local (@head, $line, $maxkey);
	$param = "Sublist" if $param eq "";
	if ($parent == 0) {
		local ($bg, $tx, $li, $vl, $al, $fa, $si, $im) = &extract_colorsonly;
		$color = join("\t", $bg, $tx, $li, $vl, $al, $im, $si, $fa);
		$head = "<!--Topic: $page_number/$pagetitle-->\n";
		$head .= "<!--Me: $page_number/$pagetitle-->\n";
		$head .= "<!--Owner: $group-->\n";
	} else {
		&lock("$message_dir/$topic_number/$parent.$ext");
		($head, $color, $lm, $sublist, $about, $about_src, $message, $message_src) = &get_page($topic_number, $parent);
		@head = split(/\n/, $head);
		foreach $line (@head) {
			if ($line =~ m|<!--Level (\d+)|) {
				$maxkey = $1 if $maxkey < $1;
			} elsif ($line !~ m|<!--Topic|) {
				$line = "";
			}
		}
		&unlock("$message_dir/$topic_number/$parent.$ext");
		$head = join("\n", grep(/\S/, @head));
		$maxkey += 1;
		$head .= "\n";
		$head .= "<!--Level $maxkey: $page_number/$pagetitle-->\n";
		$head .= "<!--Me: $page_number/$pagetitle-->\n";
		$head .= "<!--Owner: $group-->\n";
		$head .= "<!--Parent: $parent-->\n";
	}
	$head .= "<!--Param: $param-->\n";
	local ($timestr) = &get_date_time('long');
	$timestr =~ s/\W//g;
	&set_page($topic_number, $page_number, $head, $color, $timestr, "", "", "", "", "");
}