####################################################### # Advanced Message Board V4.52 # # # By installing and using Advanced Message Board V4.52, you agree to # be bound by the terms of the software license agreement that # you read while your were purchasing Advanced Message Board V4.52. # You are able to read the software license agreement again at # http://www.cgi-factory.com/advmessage/agreement.shtml # ################################################################## # # COPYRIGHT NOTICE: # # Copyright 1999-2002 CGI-Factory.com TM # A subsidiary of SiliconSoup.com LLC # # web site: http://www.cgi-factory.com # E-Mail: cgifactory@cgi-factory.com # Software released date: February 22, 2002 # # # Advanced Message Board V4.52 is protected by the copyright # laws and international copyright treaties, as well as other # intellectual property laws and treaties. Advanced Message # Board V4.52 is licensed, not sold. # ################################################################### $fullpath="./"; ############################## sub main_one { &vpassword; #detect the system path if ($ENV{'PATH_TRANSLATED'}) { $directory="$ENV{'PATH_TRANSLATED'}"; } if ($ENV{'SCRIPT_FILENAME'}) { $directory="$ENV{'SCRIPT_FILENAME'}"; } #make sure the slahes are correct $directory=~ tr/\\/\//; $directory=~s /\/$main_admin//i; if (!$directory) { $directory = "Unable to detect."; } open (enotify, "<$fullpath/enotify.txt") or &error("Unable to open enotify.txt."); if ($flock eq "y") { flock enotify, 2; } @enotify=; close (enotify); $esub=@enotify[0]; splice(@enotify, 0, 1); chomp(@enotify); print "Advanced Message Board $version\n"; print "
Advanced Message Board $version

\n"; print "
\n"; print "
Main Message Board State
\n"; &main_state; print <
Add a new Message Board
Current system path: $directory

Name/title of the message board
*Message board short name. (No space or weird symbols)
*Full system path to the message directory(No back slash at the end)
WWW path to the board messages directory(No back slash at the end & start with http://)

Public board?Yes No

Board mode (Opened: accepts new messages; Closed: does not accept any new message)Opened Closed

Board Permission
0: all visitors can post messages.
1. Registered users and Administrators only.
2: Administrators only.

*Forum administrator (Any "registered" user. Leave this field blank if you don't want to have one.)
*Message Board short name- It will used by the message board system
to identify which board to be called out. For example, "board1".

*Please make sure each message board has its own directory
for storing messages.
Also, the admin script won't create the directory for you.
You will need to create it by yourself.

* Each board can have it's own layout and color settings. A forum administrator has the abilitly to change the settings.
Change the main configurations


Registered Usernames Control Panel


Modify the notification mail
Subject:
Message Body:



    Important tips:

    If you use \$sitetitle,the script will translate it to the title of your site.

    If you use \$messages2/\$input{'count'}.\$file_ending,the script will translate it to the URL of the message.

    If you use \$input{'author'},the script will translate it to the name of the person who posts the message.

    If you use \$input{'subject'}, the script will translate it to the the subject of the message.

    If you use \$input{'message'}, the script will translate it to the the reply message.
Modify the default header and footer files



header and footer- The layout for each post

vheader and vfooter- The layout for the message board main page
Set up the badword filter
Manage the icon images
Clean all flood files
Delete all .flood files in your misc directory.
If you've turned on the flood control 2 feature, you should delete the flood files often in order to save harddrive space.


Warning: Please close your browser if you want to log off.
$copyright
EOF exit; } #main state sub main_state { opendir (DIR, "$bdata") or &error("Unable to open the board data dir for reading"); if ($flock eq "y") { flock DIR, 2; } @reading=readdir(DIR); @reading=grep(/\.bd/, @reading); close (DIR); @reading=sort(@reading); $vboard=0; $iboard=0; $cboard=0; $oboard=0; print "
"; print "\n"; print "

"; print "Managing this message board

\n"; print "Modify Configurations


\n"; print "Delete this Message Board handler.
Delete all message files associated with this board.
\n"; print "This action will not delete the \"messages directory\" for you.


\n"; print "\n"; print "
\n"; print "$iboard private message board(s)
"; print "$cboard closed message board(s)"; } #add sub add_board { &vpassword; $request{'nick'}=~ tr/A-Z/a-z/; $request{'nick'}=~ s/\s//g; open (header, "<$fullpath/header.txt") or &error("Unable to open the default header file"); @header=
; close (header); open (footer, "<$fullpath/footer.txt") or &error("Unable to open the default footer file"); @footer=