\nPage Manager:\n"; @head = split(/\n/, $head); foreach $line (@head) { if ($line =~ m||) { $level{$1} = "$2:$3"; } elsif ($line =~ m||) { @array = ("$1:$2"); } } foreach $key (sort by_number keys(%level)) { push (@array, $level{$key}); } foreach $line (@array) { ($number,$name) = split(/:/, $line, 2); print ""; print "$name:\n"; } print "$closing_text\n
\n\n"; } #---SEPARATOR---# sub preview_admin_message { my ($message_source, $message_formatted, $username, $referer, $action, $mtitle, $hr) = @_; &header; print "
\n"; if ($mtitle eq "About Message" || $mtitle eq "Announcement") { my (@array) = ("$topic_number:$topic_name"); foreach $key (sort by_number keys(%level_number)) { push (@array, "$level_number{$key}:$level_name{$key}"); } print "Page Manager:\n"; foreach $line (@array) { ($number,$name) = split(/:/, $line, 2); print ""; print "$name"; print ": \n"; } } elsif ($mtitle eq "Main Message" || $mtitle eq "Title Message" || $mtitle eq "Topic Description") { print "Board Manager:\n"; } elsif ($mtitle eq "Welcome Message") { print "Options Manager: "; print "Self Registration Configurator: "; } print "Preview of $mtitle\n"; print "
\n"; print "A preview of your message appears below. If you used any "; print "formatting tags in your message, please check to see that your "; print "formatting is displayed correctly in the preview.
\n"; print "
\n"; print "
Revise $mtitle
\n"; print "| "; print " |
\n" if $quick; print "Select a destination for the message$plural you wish to move by clicking on\n"; print "the folder icon (
![](\"$html_url/icons/tree_g.gif\"){kind=icon}
)\n";
print "next to the destination. You may also move message$plural into a new subtopic.\n";
print "To expand other topics, click the + icon (![](\"$html_url/icons/tree_a.gif\"){kind=icon}
) next to the topic name.\n";
print "If you don't want to move the message$plural at this time, you can ";
print "cancel this operation.\n" if !$quick; $url = "$message_url/$topic_number/$me_number.$ext" if -e "$message_dir/$topic_number"; $url = "$script_url/board-auth.$cgi_extension?file=/$topic_number/$me_number.$ext" if !-e "$message_dir/$topic_number"; print "cancel this operation.
\n" if $quick; print "
Move Into Existing Subtopic
\n"; open (TOPFILE, "$message_dir/$board_topics_file"); @topfile =\n"; print "User Manager:\n"; print "Edit \u$group:\n"; print "Copy User$pls\n"; print "
\n"; print "
\n"; print "\n"; exit(0); } #---SEPARATOR---# #REQ:build_graphical_tree #REQ:page_manager_navbar sub move_subtopic_form { my ($topic_number_hold, $me_number_hold, $username, $plural, $quickflag, $ref, $click, $tomove) = @_; $click = "$topic_number_hold/$me_number_hold" if $click eq ""; if ($click =~ m|(\d+)/(\d+)|) { $topic_click = $1; $page_click = $2; $page_expand = "$topic_click/$page_click"; $click = $topic_click; } if ($tomove eq "***") { my ($head, $color, $lm, $ann, $ann_src, $sublist, $about, $about_src, $message, $message_src, $description_src) = &get_page($topic_number_hold, $me_number_hold); @subl = split(/\n/, $sublist); undef @tm; foreach $line (@subl) { if ($line =~ m||) { push (@tm, $1); } } $tomove = join(",", @tm); } &header if $quickflag != 592; print "" if $quickflag == 592; print "Select a destination for the subtopic$plural you wish to move by clicking on the folder icon ("; print "
";
print ") next to the destination.\n";
print "To expand other topics and subtopics, click the + icon () next to the topic name.\n";
print "If you don't want to move the subtopic$plural at this time, you can ";
print "cancel this operation.\n" if $quickflag != 592; print "cancel this operation.
\n" if $quickflag == 592 && -e "$message_dir/$topic_number_hold"; print "cancel this operation.
\n" if $quickflag == 592 && -e "$secdir/$topic_number_hold"; open (TOPFILE, "$message_dir/$board_topics_file"); @topfile =
\n"; print "Board Manager: Preview Appearance
\n"; print "
This is the color of normal text.
\n"; print "This is the color of an unvisited link.
\n"; print "This is the color of a visited link.
\n"; print "This is the color of an active link.
\n"; print "(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.)
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.\n"; print "
\n"; print "\n"; &printuntil (15, 17, 0, "", 0, 1); exit(0); } #---SEPARATOR---# sub profanity_editor { &header; print "
\n"; print "Options Manager"; print ": Profanity List Editor\n
\n"; print "\n"; exit(0); } #---SEPARATOR---# #REQ:page_manager_navbar #REQ:build_graphical_tree sub graphic_browser_select { my ($topic_number, $page_number, $username) = @_; &header; $topic_number_hold = $topic_number; $page_number_hold = $me_number; print "
\n";
open (TOPFILE, "$message_dir/$board_topics_file");
@topfile = \n";
print "Import Discus Data \n";
print "DiscusWare is currently developing tools to import data from\n";
print "other formats (including databases and competitors' formats). When these tools\n";
print "are completed, they will appear in this area. \n";
print " \n";
print "Export Discus Data \n";
if ($pro) {
print "This section allows you to export your current Discus message base into another format. \n";
print " If you have already exported some files, you can manipulate these files via the ";
print "Backup Manager.\n";
print " \n";
} else {
print "Exporting of the message base is supported only in the professional version of Discus.\n";
print "For more information, visit DiscusWare's site.\n";
}
print "\n";
exit(0);
}
#---SEPARATOR---#
sub access_mgr_2 {
my ($topic, $username) = @_;
if (!-w "$admin_dir/posting.txt") {
&error_message("Save Settings Error", "The posting.txt file (in your administration directory) does not exist or does not have the proper file permissions to save your setting. Make sure this file exists and that permissions on this file are 0777 (rwxrwxrwx). Then reload this page.", 0, 1);
}
if (!-w "$admin_dir/postoptions.txt") {
&error_message("Save Settings Error", "The postoptions.txt file (in your administration directory) does not exist or does not have the proper file permissions to save your setting. Make sure this file exists and that permissions on this file are 0777 (rwxrwxrwx). Then reload this page.", 0, 1);
}
my (@read, @post, $rl, $pl);
&extract("//$topic/$topic.$ext");
open (SECURITY, "$admin_dir/posting.txt"); @post =
\n";
print "Welcome to your new Discus board! You need to set the superuser's password using this form.
\n";
print "\n";
print "\n";
exit(0);
}
#---SEPARATOR---#
sub import_export_utility {
&header;
print "\n";
print "
\n";
print "
Access Manager:\n";
print "Access Editor for $topic_name\n";
print "Posting Privileges
";
print "\n";
print "\n";
exit(0);
}
# END - FILE IS CORRECTLY UPLOADED #