# FILE: src-board-subs-12
# Options Manager & Version Manager
#-------------------------------------------------------------------------------
# DISCUS VERSION 3.10 COPYRIGHT NOTICE
#
# Discus 3.10 is copyright (c) 2000 by DiscusWare, LLC, all rights reserved.
# The use of Discus is governed by the Discus License Agreement which is
# available from the Discus WWW site at:
# http://www.discusware.com/discus/license
#
# Pursuant to the Discus License Agreement, this copyright notice may not be
# removed or altered in any way.
#-------------------------------------------------------------------------------
#---SEPARATOR---#
#REQ:ip_ban_form
sub options_mgr {
&header;
print "Options Manager\n";
print '$fs\n";
print "
Options Manager
\n";
print "\n";
print "This screen allows you to set several parameters that apply to the\n";
print "entire board. To make a change effective, you must click the\n";
print ""Save Options" button at the bottom of this page.
$fs\n";
print ""$title" is running Discus ";
print $release_version;
print ".";
$revision_number = $free_revision if !$pro;
$revision_number = $pro_revision if $pro;
print $revision_number;
print " PRO" if $pro;
print ". \n";
print "Discus Pro License Number: $pro_license \n" if $pro;
$count = 0;
opendir(DIR, "$admin_dir/msg_index");
while ($dir = readdir(DIR)) {
next if $dir !~ m|^(\d+)-log\.txt$|;
open (FILE, "$admin_dir/msg_index/$dir");
while () {
$count += 1;
}
close (FILE);
}
closedir(DIR);
print "There ";
print "is" if $count == 1;
print "are" if $count != 1;
print " currently $count message";
print "s" if $count != 1;
print " on your board.
\n";
if ($contact =~ m|([\w\.\-\+]+)\@([\w\.\-\+]+)|) {
$cemail = escape(join("\@", $1, $2));
} else {
$cemail = "";
}
if ($script_url =~ m|^https://|i) {
print "Sorry, but we can't display the current version of Discus to you because your board is running\n";
print "under SSL. You can find out the current version of Discus by clicking this link: \n";
$time = time;
print "Version Info\n";
} else {
print "The current version of Discus is: \n";
}
print "
\n";
print "
\n";
print "
Download the Latest Version
\n";
print "
$fs\n";
print "Telnet/Console Distribution Download
\n";
print "If you wish to upgrade this board by FTP, you can instantly prepare a distribution by clicking on the following\n";
print "button.\n";
print "
\n";
print "
\n";
print "
\n";
print "
Discus Mailing List
\n";
print "
$fs\n";
print "To keep up to date with Discus releases, join the Discus mailing list! You will receive announcements of Discus\n";
print "product upgrades and other important information. Your e-mail address will not be distributed or sold.\n";
print "
\n";
if (!$pro) {
print "
Buy Discus Pro
\n";
print "
$fs\n";
print "Discus Pro is a set of add-on features with such functionality as:
\n";
print "
Password-protected reading of topics\n";
print "
User self-registration\n";
print "
Automatic archiving and pruning of the board\n";
print "
\n";
print "The above statements are true as of the release date\n";
print "of this version of Discus. Features, availability, and prices are\n";
print "subject to change. For more information, follow the above link.\n";
print "\n";
print "
\n";
}
print "
\n";
print "
Discus File Update Procedure
\n";
print "
$fs\n";
print "When you first installed version 3.10, if you were upgrading from a previous\n";
print "version, you were prompted to update the Discus files. The link here is provided if\n";
print "you missed that upgrade or for some reason need to repeat it.
\n";
print "Performing an upgrade on an already working 3.10 board is\n";
print "not recommended unless directed by DiscusWare. This procedure generally needs to be performed\n";
print "only when the program prompts you to do so, which is not now.\n";
print "
Click here to access the file update tool.\n";
print "
\n";
print "\n";
exit(0);
}
#---SEPARATOR---#
#REQ:get_number
#REQ:regenerate_board
sub options_save {
@otherwise_defined = ('skinchoice', 'COLOR_bgcolor', 'COLOR_text', 'COLOR_link', 'COLOR_vlink', 'COLOR_alink', 'COLOR_image', 'COLOR_face', 'COLOR_size');
$icons_on = 0; $old_anon = $GLOBAL_OPTIONS{'anonymous'};
if ($GLOBAL_OPTIONS{'message_icons'}) {
$icons_on = 1;
$mi{'message_icon_top'} = $GLOBAL_OPTIONS{'message_icon_top'};
$mi{'message_icon_up'} = $GLOBAL_OPTIONS{'message_icon_up'};
$mi{'message_icon_down'} = $GLOBAL_OPTIONS{'message_icon_down'};
$mi{'message_icon_bottom'} = $GLOBAL_OPTIONS{'message_icon_bottom'};
$mi{'message_icon_link'} = $GLOBAL_OPTIONS{'message_icon_link'};
} else {
$FORM{'message_icon_top'} = $GLOBAL_OPTIONS{'message_icon_top'};
$FORM{'message_icon_up'} = $GLOBAL_OPTIONS{'message_icon_up'};
$FORM{'message_icon_down'} = $GLOBAL_OPTIONS{'message_icon_down'};
$FORM{'message_icon_bottom'} = $GLOBAL_OPTIONS{'message_icon_bottom'};
$FORM{'message_icon_link'} = $GLOBAL_OPTIONS{'message_icon_link'};
}
foreach $key (keys(%FORM)) {
next if ($key eq "action" || $key eq "username");
next if $key =~ /\W/;
$val = $FORM{$key};
$val =~ s/[^\d\-\,\.]//g if ($key ne "alternate_topic_navbar_url" && $key ne "spellchecker_custid" && $key ne "otherdict" && $key ne "spellchecker_language" && $key ne "charset" && $key !~ m|^ip_banned| && $key !~ m|^access_log| && $key !~ m|^message_icon_| && $key !~ m|^alt_color_| && $key !~ m|^admin_contact|);
$val = 0 if ($val eq "" && $key ne "alternate_topic_navbar_url");
$GLOBAL_OPTIONS{$key} = $val;
}
if ($FORM{'spellchecker_language'} eq "zzother") {
$GLOBAL_OPTIONS{'spellchecker_language'} = "*$FORM{'otherdict'}";
}
delete $FORM{'otherdict'};
foreach $thing (@otherwise_defined) {
$FORM{$thing} = $GLOBAL_OPTIONS{$thing};
}
foreach $key (keys(%GLOBAL_OPTIONS)) {
if (!$FORM{$key}) {
$GLOBAL_OPTIONS{$key} = 0 if ($key !~ m|^ip_banned| && $key !~ m|^message_icon_| && $key ne "alternate_topic_navbar_url");
}
}
if ($FORM{'ip_banned_list'} eq "") {
$GLOBAL_OPTIONS{'ip_banned_list'} = "";
foreach $key (keys(%GLOBAL_OPTIONS)) {
$GLOBAL_OPTIONS{$key} = "" if $key =~ m|^ip_banned_(\d+)|;
}
}
if ($GLOBAL_OPTIONS{'ip_banned_list'}) {
@validip = split(/,/, $GLOBAL_OPTIONS{'ip_banned_list'});
foreach $key (keys(%GLOBAL_OPTIONS)) {
if ($key =~ m|^ip_banned_(\d+)|) {
$m = $1;
$GLOBAL_OPTIONS{$key} = "" if !grep(/^$m$/, @validip);
}
}
}
if ($FORM{'ip_banned_new'} && $FORM{'ip_banned_NEW'}) {
$GLOBAL_OPTIONS{'ip_banned_list'} .= "," if $GLOBAL_OPTIONS{'ip_banned_list'} ne "";
($num) = &get_number;
$GLOBAL_OPTIONS{'ip_banned_list'} .= $num;
$GLOBAL_OPTIONS{"ip_banned_$num"} = $FORM{'ip_banned_NEW'};
}
$GLOBAL_OPTIONS{'ip_banned_new'} = ""; $GLOBAL_OPTIONS{'ip_banned_NEW'} = "";
&lock("options_save", "$admin_dir/options.txt");
open (OPTIONS, ">$admin_dir/options.txt") || &error_message("Save Options Error", "Could not write to file $admin_dir/options.txt");
foreach $key (sort(keys(%GLOBAL_OPTIONS))) {
print OPTIONS "$key=$GLOBAL_OPTIONS{$key}\n" if $GLOBAL_OPTIONS{$key} ne "";
}
close (OPTIONS);
&unlock("options_save", "$admin_dir/options.txt");
if (($GLOBAL_OPTIONS{'anonymous'} + $old_anon) % 2 == 1) {
if (open (TOP, "$message_dir/$board_topics_file")) {
@top = ;
close (TOP);
if (grep(/^/, @top)) {
®enerate_board('Regenerating "Add a Message" boxes', "$cgiurl2?username=$superuser&action=templates&rrrrr=4", "$cgiurlm?username=$superuser&cmd=options_mgr", "", 5, "");
}
}
}
}
# END - FILE IS CORRECTLY UPLOADED #