Ultimate Bulletin Board

#!/usr/bin/perl # ### CAPANEL.CGI SCRIPT FOR THE ULTIMATE BULLETIN BOARD ## # # Ultimate Bulletin Board is copyright Madrona Park, Inc. # # You may use/modify any/all freeware Ultimate Bulletin # Board scripts, but you assume all liability that # may result due to installation problems and/or # content posted on your bulletin board. You must also # keep all copyright notices on applicable pages. # # For more info on the Ultimate BB, # see http://www.ultimatebb.com # ####################################################### 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 "cgi-lib.pl"; require "UltBB.setup"; require "mods.file"; require "Styles.file"; }; if ($@) { print "Error including required files: $@\n"; print "Make sure these files exist, permissions are set properly, and paths are set correctly."; exit; } &ReadParse; sub decodeURL { $_ = shift; tr/+/ /; s/%(..)/pack('c', hex($1))/eg; return($_); } 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 "prune") { &Prune; } if ($action eq "variables") { &Variables; } if ($action eq "permissions") { &Permissions; } if ($action eq "style") { &Styles; } if ($action eq "env") { &Env; } sub Env { print<

Make your own free website on Tripod.com

Your Environmental Variables

Use these to help you figure out your absolute file paths, and other system information.

Your Perl Version: $]

TOP foreach $envline (%ENV) { print $envline; print "
\n"; } print< BOTTOM } # END ENV SR sub Styles { print< Ultimate Bulletin Board - $BBName

Set Fonts/Colors/Graphics

Control Panel | Bulletin Board | Set Variables

NOTE: This feature has been disabled for the FREEWARE version of the Ultimate Bulletin Board. To upgrade your version, go to the UBB Home Page.

With the full-featured version of UBB, you would be able to change the font face and/or color, graphics, and background colors used throughout your bulletin board using this control panel page.

Ultimate Bulletin Board Permissions Center

Control Panel | Bulletin Board

If you are an authorized administrator, you can change the access permissions for any BB user. Enter information for at least one of the fields below to conduct a search for a user. Search is not case-sensitive.

Control Panel | Bulletin Board

Powered by: Ultimate Bulletin Board, Freeware Version A-5
© Madrona Park, Inc., 1998. permissHTML } ## END Permissions ## sub Variables { $BBRules =~ s/"/"/ig; $BBRules =~ s/
/\n/ig; $BBRules =~ s/

/\n\n/ig; if ($ForumStatus1 eq "On") { $FS1On = "CHECKED"; } else { $FS1Off = "CHECKED"; } if ($ForumStatus2 eq "On") { $FS2On = "CHECKED"; } else { $FS2Off = "CHECKED"; } if ($ForumStatus3 eq "On") { $FS3On = "CHECKED"; } else { $FS3Off = "CHECKED"; } if ($ForumStatus4 eq "On") { $FS4On = "CHECKED"; } else { $FS4Off = "CHECKED"; } if ($ForumStatus5 eq "On") { $FS5On = "CHECKED"; } else { $FS5Off = "CHECKED"; } if ($ForumStatus6 eq "On") { $FS6On = "CHECKED"; } else { $FS6Off = "CHECKED"; } if ($ForumStatus7 eq "On") { $FS7On = "CHECKED"; } else { $FS7Off = "CHECKED"; } if ($ForumStatus8 eq "On") { $FS8On = "CHECKED"; } else { $FS8Off = "CHECKED"; } if ($ForumStatus9 eq "On") { $FS9On = "CHECKED"; } else { $FS9Off = "CHECKED"; } if ($Forum1HTML eq "is") { $FH1On = "CHECKED"; } else { $FH1Off = "CHECKED"; } if ($Forum2HTML eq "is") { $FH2On = "CHECKED"; } else { $FH2Off = "CHECKED"; } if ($Forum3HTML eq "is") { $FH3On = "CHECKED"; } else { $FH3Off = "CHECKED"; } if ($Forum4HTML eq "is") { $FH4On = "CHECKED"; } else { $FH4Off = "CHECKED"; } if ($Forum5HTML eq "is") { $FH5On = "CHECKED"; } else { $FH5Off = "CHECKED"; } if ($Forum6HTML eq "is") { $FH6On = "CHECKED"; } else { $FH6Off = "CHECKED"; } if ($Forum7HTML eq "is") { $FH7On = "CHECKED"; } else { $FH7Off = "CHECKED"; } if ($Forum8HTML eq "is") { $FH8On = "CHECKED"; } else { $FH8Off = "CHECKED"; } if ($Forum9HTML eq "is") { $FH9On = "CHECKED"; } else { $FH9Off = "CHECKED"; } if ($Censor eq "ON") { $CensorOn = "CHECKED"; } else { $CensorOff = "CHECKED"; } if ($EmailCheck eq "true") { $EmailTrue = "CHECKED"; } else { $EmailFalse = "CHECKED"; } if ($MemberMinimum eq "") { $MemberMinimum = "31"; } print< Ultimate Bulletin Board - $BBName

Set Variables Check Environmental Variables | Control Panel | Bulletin Board

This page allows you to customize your bulletin board on the fly, without having to edit a variable file by hand. The most important variable below is the Complete File Path. If you do not list the correct path for your server, the scripts will not work properly. This path is the true root path for your server of the Bulletin Board directory (where you choose to keep the BB files).

In the Forum Variable area, you can turn each forum on or off using the status switch.

First Identify Yourself (only administrators can change variables)

Your User Name
Your Password

Set General Variables

Absolute Path to Members Directory
Important! If possible, this directory should be kept BELOW your www domain directory so that it cannot be accessed through a browser (eg, if your www root at at "/home/www/", you should go with "/home/Members")
Absolute Path to Directory Where Forum Directories Reside
Important! This is your server path (check your server!) for the location of your Forum directories (Forum1, Forum2, etc.)
Absolute Path for CGI/PL/SETUP/FILE Scripts
This is your server path (check your server!) for the location of all of your .cgi and .pl scripts (for example, /home/www/cgi-bin). Be sure to put your files ending in .file and .setup in this directory.

Absolute Path of your HTML and Image Files
This is your server path (check your server!) for the location of all your HTML and image (.gif, .jpg) files (put them all in the same directory) (for example, /home/www/UltimateBB, as opposed to the URL.)

Absolute Path to Directory Where Your Custom Variable Files Reside
Your custom variables files are: Styles.file, mods.file, UltBB.setup, forums.cgi. These files should never be replaced when you upgrade versions of the UBB. For most of you, these files should be placed in your CGI directory (and you should thus use the same absolute that you used for your CGI directory above). If for some reason you cannot write to files in your CGI directory, however, you should place these files in a directory below the web root so that they cannot be accessed by anyone from the browser.

URL for your CGI Directory
For instance, if your CGI files are in a directory called cgi-bin, and your domain name is whatever.com, you would write, "http://www.whatever.com/cgi-bin"
URL for your Non-CGI Directory
For instance, if your HTML, .gif, .setup, and .file files are in a directory called UltimateBB, and your domain name is whatever.com, you would write, "http://www.whatever.com/UltimateBB"
Your Email Address
this is email address that will be shown so that users can contact you
Name of Your Bulletin Board
whatever you want to call your bulletin board
Your Home Page URL
the complete URL (format- http://www.homepage.com) for your home page (not the bulletin board). This will be used for links back to your homepage.
Name of Your Home Page
this is the name of your home page that will listed for links back to your homepage.
Registration Option
The default option is to require unique email addressed for each registered user. You can disable this requirement by checking the "Unique Email Not Required" box. Unique Email Required
Unique Email Not Required
Server Time Zone
The time of each posting is based on the time zone where your server is located. If you want your users to know the time zone, provide it here (e.g., ET, CT, PT, etc.). You may also leave this blank if you would prefer not to show a time zone.
Minimum Number of Messages For Full Member Status
Registered users are initially called Junior Members. After a certain number of postings, the member will be automatically upgraded to full Member. The default is 31 messages, but you can reset this value here.
Censor Option
You may have certain words censored on your BB. Words you choose to censor will be replaced by asterisks. All subjects and messages will be affected. To activate the censor function, check the "yes" button below. To deactivate, press the "no" button. List all censored words in the field to the right. yes no Censor Words
Type all words you want censored in the field below. Do not use commas to separate words, just use spaces. For example, type "dog cat boy", rather than "dog, cat, boy."

Set Forum Variables

Forum #1

Name:
Status: On      Off
HTML Allowed?: Yes      No
Description:
$Forum1Desc

Forum #2

Name:
Status: On      Off
HTML Allowed?: Yes      No
Description:
$Forum2Desc

Forum #3

Name:
Status: On      Off
HTML Allowed?: Yes      No
Description:
$Forum3Desc

Forum #4

Name:
Status: On      Off
HTML Allowed?: Yes      No
Description:
$Forum4Desc

Forum #5

Name:
Status: On      Off
HTML Allowed?: Yes      No
Description:
$Forum5Desc

Forum #6

Name:
Status: On      Off
HTML Allowed?: Yes      No
Description:
$Forum6Desc

Forum #7

Name:
Status: On      Off
HTML Allowed?: Yes      No
Description:
$Forum7Desc

Forum #8

Name:
Status: On      Off
HTML Allowed?: Yes      No
Description:
$Forum8Desc

Forum #9

Name:
Status: On      Off
HTML Allowed?: Yes      No
Description:
$Forum9Desc

VARHTML } sub SetMods { print<

Set Moderators

Note: only administrators may set moderators. Identify yourself below.

Your User Name
Your Password

Note: if the forum has no moderator, the word "none" must appear under the Moderator column for that forum. Do not leave the field blank.

ModTOP #get current host info for ($x = 1; $x < 10; $x++) { if ($x == 1) { $ForumName = "$Forum1"; $Moderator = "$Forum1Moderator"; } if ($x == 2) { $ForumName = "$Forum2"; $Moderator = "$Forum2Moderator"; } if ($x == 3) { $ForumName = "$Forum3"; $Moderator = "$Forum3Moderator"; } if ($x == 4) { $ForumName = "$Forum4"; $Moderator = "$Forum4Moderator"; } if ($x == 5) { $ForumName = "$Forum5"; $Moderator = "$Forum5Moderator"; } if ($x == 6) { $ForumName = "$Forum6"; $Moderator = "$Forum6Moderator"; } if ($x == 7) { $ForumName = "$Forum7"; $Moderator = "$Forum7Moderator"; } if ($x == 8) { $ForumName = "$Forum8"; $Moderator = "$Forum8Moderator"; } if ($x == 9) { $ForumName = "$Forum9"; $Moderator = "$Forum9Moderator"; } print< MIDMOD } ##END FOREACH $line print<

TRUEBOTTOM } ## END SET MODS SR ## sub Prune { print< Edit/Prune Messages
Note: THIS FEATURE IS NOT AVAILABLE IN THE FREEWARE VERSION OF THE ULTIMATE BULLETIN BOARD. To upgrade your version, see the UBB Home Page.

Forum Name Current Moderator Change to: $ForumName $Moderator
PruneHTML } ## END Prune SR

Absolute Path to Members Directory Important! If possible, this directory should be kept BELOW your www domain directory so that it cannot be accessed through a browser (eg, if your www root at at "/home/www/", you should go with "/home/Members")
Absolute Path to Directory Where Forum Directories Reside Important! This is your server path (check your server!) for the location of your Forum directories (Forum1, Forum2, etc.)
Absolute Path for CGI/PL/SETUP/FILE Scripts This is your server path (check your server!) for the location of all of your .cgi and .pl scripts (for example, /home/www/cgi-bin). Be sure to put your files ending in .file and .setup in this directory.
Absolute Path of your HTML and Image Files This is your server path (check your server!) for the location of all your HTML and image (.gif, .jpg) files (put them all in the same directory) (for example, /home/www/UltimateBB, as opposed to the URL.)
Absolute Path to Directory Where Your Custom Variable Files Reside Your custom variables files are: Styles.file, mods.file, UltBB.setup, forums.cgi. These files should never be replaced when you upgrade versions of the UBB. For most of you, these files should be placed in your CGI directory (and you should thus use the same absolute that you used for your CGI directory above). If for some reason you cannot write to files in your CGI directory, however, you should place these files in a directory below the web root so that they cannot be accessed by anyone from the browser.
URL for your CGI Directory For instance, if your CGI files are in a directory called cgi-bin, and your domain name is whatever.com, you would write, "http://www.whatever.com/cgi-bin"
URL for your Non-CGI Directory For instance, if your HTML, .gif, .setup, and .file files are in a directory called UltimateBB, and your domain name is whatever.com, you would write, "http://www.whatever.com/UltimateBB"
Your Email Address this is email address that will be shown so that users can contact you
Name of Your Bulletin Board whatever you want to call your bulletin board
Your Home Page URL the complete URL (format- http://www.homepage.com) for your home page (not the bulletin board). This will be used for links back to your homepage.
Name of Your Home Page this is the name of your home page that will listed for links back to your homepage.
Registration Option The default option is to require unique email addressed for each registered user. You can disable this requirement by checking the "Unique Email Not Required" box.	Unique Email Required Unique Email Not Required
Server Time Zone The time of each posting is based on the time zone where your server is located. If you want your users to know the time zone, provide it here (e.g., ET, CT, PT, etc.). You may also leave this blank if you would prefer not to show a time zone.
Minimum Number of Messages For Full Member Status Registered users are initially called Junior Members. After a certain number of postings, the member will be automatically upgraded to full Member. The default is 31 messages, but you can reset this value here.
Censor Option You may have certain words censored on your BB. Words you choose to censor will be replaced by asterisks. All subjects and messages will be affected. To activate the censor function, check the "yes" button below. To deactivate, press the "no" button. List all censored words in the field to the right. yes no	Censor Words Type all words you want censored in the field below. Do not use commas to separate words, just use spaces. For example, type "dog cat boy", rather than "dog, cat, boy."

User Name
Email Address