#!/usr/bin/perl
#
#
### FREEWARE UBB SCRIPT ##
#
# Ultimate Bulletin Board is copyright Infopop Corporation, 1998 - 2000.
#
# ------------ cpanel.cgi -------------
#
# This file contains functionality for the Freeware UBB.
#
# Infopop Corporation offers no
# warranties on this script. The owner/licensee of the script is
# solely responsible for any problems caused by installation of
# the script or use of the script, including messages that may be
# posted on the BB.
#
# All copyright notices regarding the Ultimate Bulletin Board
# must remain intact on the scripts and in the HTML
# for the scripts. These "powered by" and copyright notices MUST
# remain visible when the pages are viewed on the Internet.
#
# You may not SELL this script. You may offer it freely to others.
# It is freeware. You may not alter the code and then call it another
# name. You may not alter the code and then resell it under another
# name, either.
#
# For more info on the Ultimate BB, including licensing info,
# see http://www.UltimateBB.com
#
###############################################################
#If you are running UBB on IIS,
#you may need to add the following line
#if so, just remove the "#" sign before the print line below
#print "HTTP/1.0 200 OK\n";
print ("Content-type: text/html\n\n");
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1"); # Get the script location: UNIX / or Windows /
($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1"); # Get the script location: Windows \
#substitute all require files here for the file
require "UltBB.setup";
require "mods.file";
require "Styles.file";
require "ubb_library.pl";
require "ubb_library2.pl";
};
if ($@) {
print "Error including required files: $@\n";
print "Make sure these files exist, permissions are set properly, and paths are set correctly.";
exit;
}
&ReadParse;
foreach $row(@in) {
($Name, $Value) = split ("=", $row);
$Name = &decodeURL($Name);
$Value = &decodeURL($Value);
if ($Name eq "action") {
$action = $Value;
}
if ($Name eq "ViewEntire") {
$ViewEntire = $Value;
}
if ($Name eq "NN") {
$NN = $Value;
$NN =~tr/A-Z/a-z/;
}
if ($Name eq "Email") {
$Email = $Value;
$Email =~tr/A-Z/a-z/;
}
if ($Name eq "UserName") {
$UserName = $Value;
}
if ($Name eq "Password") {
$Password = $Value;
}
} #end foreach loop
if ($VariablesPath eq "") {
$VariablesPath = $CGIPath;
}
if ($action eq "setmods") {
&SetMods;
}
if ($action eq "UpdateThreads") {
&UpdateThreads;
}
if ($action eq "styles") {
&Styles;
}
if ($action eq "prune") {
&StandardHTML("Sorry, but this feature is not available in the freeware version. The freeware version is a function-limited version of the licensed version of the UBB. Other features not included in the freeware version, but found in the licensed ver
sion, include:- Full text search
- Email features
- Lost password auto email for members
- Censor words option
- Style customizations (change fonts, colors, graphics through the control panel)
- Announcements
- Session tracking using cookies,
so that users can visibly see new threads by color-coded icons
- Ability to close threads
- Smilies- automatic conversion of typed smilies :) to colorful graphics
- Many more graphic sets
- Ability of users to edit there own messages
- Many other cus
tomizations, including custom headers and footers.
For more information on the licensed version, including current pricing, please visit: www.ultimatebb.com");
}
if ($action eq "variables") {
&Variables;
}
if ($action eq "permissions") {
&Permissions;
}
if ($action eq "env") {
&Env;
}
if ($action eq "logintoforums") {
&LogIntoForums;
}
if ($action eq "getbio4admin") {
&GetBio4Admin;
}
sub UpdateThreads {
$PageTitle = "Update Threads";
&HEADERHTML;
print<Note: only administrators may update HTML threads.
After you make changes to your control panel settings, these changes take affect immediately for all new pages. Older HTML pages, however, are not updated until you update them here. You should run this function after you have made all changes to your c
ontrol panel settings.