| Topic | Group | ||
| "; print "$fs$topic_name" if $param_in == 0; print "return setStatus('Edit access/posting privileges of $str')\">$topic_name" if $param_in == 2; print " | $fs\u$owner | ||
| $fs", "You aren't authorized to edit any topics!!!\n";
if ($tc == 0 && $username eq $superuser) {
print " Note that this is because there are not any topics created yet. You need\n"; print "to use the 'Board Manager' to create topics. For more information,\n"; print "consult the Superuser Getting Started Tutorial! \n"; } print " | |||
Corrupted Tree File
The tree file, tree.txt, appears to be corrupted, ";
print "as it does not contain all of the topics on your board. This can adversely affect generation of all ";
print "tree views (such as Tree View and New Messages). It is suggested that you immediately go to your ";
print "Board Manager and click the "Index ";
print "Board" button!
\n";
}
print "\n";
exit(0);
}
#---SEPARATOR---#
#REQ:get_navbar
sub page_mgr_2 {
my ($page_referer,$username) = @_;
my ($str,$key,$line,@parent);
if ($page_referer =~ m|/(\d+)/(\d+)|) {
($topic_number, $me_number) = ($1, $2);
} else {
return "* Invalid Referer: $page_referer *\n";
}
open (TREE, "$admin_dir/msg_index/$topic_number-tree.txt"); @TREE_STRUCTURE_FILE = \n";
print " \n";
} else {
@shown = @selected;
}
print "
\n";
print "Page Manager:\n";
($result) = &get_navbar($topic_number, $me_number, "page", 1);
print $result;
print "
\n";
if ($myline eq "") {
print "Quick Navigation and Quick Options are not available,\n";
print "as the tree file has been corrupted. The board administrator should use the Board\n";
print "Manager to reindex the board to correct this problem.\n";
} else {
print "\n";
print "
\n";
}
my ($head, $color, $lm, $ann, $ann_src, $sublist, $about, $about_src, $message, $message_src, $description_src) = &get_page($topic_number, $me_number);
if ($myline eq "") {
$head =~ m||; $me_name = $2;
$head =~ m||; $param = $1;
@sublist = split(/\n/, $sublist);
foreach $line (@sublist) {
if ($line =~ m||) {
$num = $1;
if ($found_line{$num}) {
push (@selected, $found_line{$num});
} else {
&extract("//$topic_number/$num.$ext");
$name = &escape($me_name);
push (@selected, "4\t$topic_number\t$num\t$parent\t$name\t$param\t$owner\t\n");
}
} elsif ($line =~ m||) {
$num = $1;
if ($found_line{$num}) {
push (@selected, $found_line{$num});
} else {
$line =~ m|]*TARGET="([^"]+)"[^>]*>(.*)|;
($url, $target, $name) = ($1, $2, $3); $name = &escape($name);
push (@selected, "4\t$topic_number\t$num\t$parent\t$name\tLINK:$target\t$url\t\n");
}
}
}
@message = split(/\n/, $message);
foreach $line (@message) {
if ($line =~ m||) {
push (@messageorder, $1);
}
}
@c = split(/\t/, $myline);
foreach $y (@messageorder) {
$message{$y} = 1;
}
}
if ($param =~ /Announcement/) {
print "$fs";
print " \n";
print "
";
print "\n";
print "![](\"$html_url/icons/tree_g.gif\"){kind=icon}
";
print "(";
print "Go to this page on the board)
\n";
print " ";
print "(";
print "Show all subtopics)
\n";
}
undef @selected; undef @parent; $parent_line = ""; $my_line = ""; undef %found_name;
foreach $line (@TREE_STRUCTURE_FILE) {
($level, $topic, $page, $parent, $name) = split(/\t/, $line);
if ($topic == $topic_number) {
if ($parent == $me_number) {
push (@selected, $line); $found_name{$page} = &unescape($name);
} elsif ($page == $me_number) {
push (@parent, $line); $my_line = $line;
} elsif ($page == $parent_number && $parent_number != $me_number) {
$parent_line = $line;
} elsif ($parent == $parent_number) {
push (@parent, $line);
}
}
}
$sc = 0; $pc = 0; $st = scalar(@selected); $pt = scalar(@parent); $done = 0;
if ($myline ne "") {
if ($me_number == $topic_number) {
print "
\n";
print "Topic Selection
\n";
} else {
print " \n";
($level, $topic, $page, $parent, $name) = split(/\t/, $parent_line);
$name = &unescape($name); $name =~ s/<[^>]+>//g;
$name = &char_convert($name, 1);
if (length($name) > 25) {
$name2 = substr($name, 0, 22); $name2 .= "...";
} else {
$name2 = $name;
}
$name2 = &char_convert($name2);
print "$name2
\n";
}
foreach $line (@parent) {
$pc += 1;
($level, $topic, $page, $parent, $name, $Xparam) = split(/\t/, $line);
$name = &unescape($name); $name =~ s/<[^>]+>//g;
$name = &char_convert($name, 1);
if (length($name) > 25) {
$name2 = substr($name, 0, 22); $name2 .= "...";
} else {
$name2 = $name;
}
$name2 = &char_convert($name2);
if ($pc == $pt) {
print "
";
$done = 1;
} else {
print "
";
}
if ($page == $me_number) {
print " ";
print "$name2
\n";
foreach $sline (@selected) {
$sc += 1;
($slevel, $stopic, $spage, $sparent, $sname, $sparam) = split(/\t/, $sline);
$sname = &unescape($sname);
$sname = &remove_html($sname, 1);
$sname = &char_convert($sname, 1);
if (length($sname) > 35) {
$sname2 = substr($sname, 0, 32); $sname2 .= "...";
} else {
$sname2 = $sname;
}
$sname2 = &char_convert($sname2);
print "
" if $done == 0;
print "
" if $done != 0;
if ($sc == $st) {
print "";
} else {
print "";
}
if ($sparam =~ m|^LINK:|) {
print "
";
print $sname2, "
\n";
} else {
print "
";
print "$sname2
\n";
}
}
} else {
if ($Xparam =~ m|^LINK:|) {
print " ";
print $name2, "
\n";
} else {
print " ";
print "$name2
\n";
}
}
}
print "$fs\n";
print "
\n";
print "[Announcement]
\n" if $param =~ /Announcement/;
print "[Subtopics]
\n" if $param =~ /Sub/;
print "[Add a Subtopic]
\n" if $param =~ /Sub/;
print "[About Message]
\n" if $param =~ /About/;
print "[Messages]
\n" if $param =~ /Message/;
print "[Add a Message]
\n" if $param =~ /Message/;
print "[Page Layout]Announcement
\n";
$ann_src =~ s/\s+$//g; $ann_src =~ s/^\s+//g;
$ann_src = &unescape($ann_src) unless $ann_src =~ /\s/;
$ann_src =~ s//>/g;
print "\n";
}
if ($param =~ /Sub/) {
$jsstr = ""; $jsstr2 = ""; $jsstr3 = "";
print "Subtopics
\n";
print "\n";
if (scalar(@selected) > 25) {
print "\n";
print "\n";
print "
Add a Subtopic
\n";
print "\n";
}
if ($param =~ /About/) {
print "About Message
\n";
$about_src =~ s/\s+$//g; $about_src =~ s/^\s+//g;
$about_src = &unescape($about_src) unless $about_src =~ /\s/;
$about_src =~ s//>/g;
print "\n";
}
if ($param =~ /Message/) {
print "Messages
\n";
print "\n";
print "Add a Message
\n";
print "\n";
}
print "
\n";
print "Page Layout
\n";
undef %params;
$params{subtopic} = "CHECKED" if $param =~ /Sub/;
$params{create} = "CHECKED" if $param =~ /Create/;
$params{messages} = "CHECKED" if $param =~ /Message/;
$params{about} = "CHECKED" if $param =~ /About/;
$params{add} = "CHECKED" if $param =~ /Add/;
$params{announce} = "CHECKED" if $param =~ /Announcement/;
undef %t;
print "\n";
print "\n";
exit(0);
}
# END - FILE IS CORRECTLY UPLOADED #