#!/usr/bin/perl ############################################ ## ## ## WebBBS ## ## by Darryl Burgdorf ## ## (e-mail burgdorf@awsd.com) ## ## ## ## version: 4.02 ## ## last modified: 12/24/99 ## ## copyright (c) 1999 ## ## ## ## latest version is available from ## ## http://awsd.com/scripts/ ## ## ## ############################################ # COPYRIGHT NOTICE: # # Copyright 1999 Darryl C. Burgdorf. All Rights Reserved. # # This program is being distributed as shareware. It may be used and # modified by anyone, so long as this copyright notice and the header # above remain intact, but any usage should be registered. (See the # program documentation for registration information.) Selling the # code for this program without prior written consent is expressly # forbidden. Obtain permission before redistributing this program # over the Internet or in any other medium. In all cases copyright # and header must remain intact. # # This program is distributed "as is" and without warranty of any # kind, either express or implied. (Some states do not allow the # limitation or exclusion of liability for incidental or consequential # damages, so this notice may not apply to you.) In no event shall # the liability of Darryl C. Burgdorf and/or Affordable Web Space # Design for any damages, losses and/or causes of action exceed the # total amount paid by the user for this software. ############################################## ## You MUST define the following variables! ## ############################################## ## (1) Specify the locations of your WebBBS files: $webbbs_index = "http://ericsonyachts.tripod.com/cgi-bin/bbs/webbbs_index.pl"; $webbbs_read = "http://ericsonyachts.tripod.com/cgi-bin/bbs/webbbs_read.pl"; $webbbs_form = "http://ericsonyachts.tripod.com/cgi-bin/bbs/webbbs_form.pl"; $webbbs_post = "http://ericsonyachts.tripod.com/cgi-bin/bbs/webbbs_post.pl"; $webbbs_misc = "http://ericsonyachts.tripod.com/cgi-bin/bbs/webbbs_misc.pl"; $webbbs_rebuild = "http://ericsonyachts.tripod.com/cgi-bin/bbs/webbbs_rebuild.pl"; $webbbs_text = "http://ericsonyachts.tripod.com/cgi-bin/bbs/webbbs_text.pl"; $dir = "http://ericsonyachts.tripod.com/cgi-bin/bbs/"; $cgiurl = "http://ericsonyachts.tripod.com/cgi-bin/bbs/general.cgi"; ## (2) Define your e-mail notification features: $mailprog = '/usr/sbin/sendmail'; $WEB_SERVER = ""; $SMTP_SERVER = ""; $admin_name = "Administrator"; $maillist_address = "ericsonlibrary@yahoo.com"; $notification_address = "ericsonlibrary@yahoo.com"; $email_list = 1; $private_list = 1; $HeaderOnly = 0; # use Socket; # use Net::SMTP; ################################################################# ## You MAY define the following variables, but do not have to! ## ################################################################# ## (3) Tailor the appearance and functionality of your BBS: $MetaFile = ""; $HeaderFile = "/usr/foo/forum/header.txt"; $FooterFile = "/usr/foo/forum/footer.txt"; $MessageHeaderFile = ""; $MessageFooterFile = ""; $bodyspec = "BGCOLOR=\"#ffffff\" TEXT=\"#000000\""; $fontspec = "FACE=\"Arial\""; $navbarcolor = "cccccc"; $navbarfontspec = "FACE=\"Arial\""; $tablecolor = "cccccc"; $tablefontspec = "FACE=\"Arial\""; @SubjectPrefixes = (); $MessageOpenCode = ""; $MessageCloseCode = ""; $NewOpenCode = "NEW:"; $NewCloseCode = ""; $AdminOpenCode = "ADMIN!"; $AdminCloseCode = ""; $UseLocking = 1; $UseFrames = ""; $BBSFrame = "_parent"; $WelcomePage = ""; $Moderated = 0; $SearchURL = ""; $TopNPosters = 0; $Admin_Link_Name = ""; $Admin_Link_URL = ""; $SepPostFormIndex = 0; $SepPostFormRead = 0; $DefaultType = "By Threads, Mixed"; $DefaultTime = "1 Month(s)"; $boardname = "Forum"; $printboardname = 0; $DateConfig = ""; $IndexEntryLines = 2; $InputColumns = 50; $InputRows = 10; $HourOffset = 0; $ArchiveOnly = 0; $AllowHTML = 0; $SingleLineBreaks = 0; $AutoQuote = 0; $AutoQuoteChar = ":"; $AutoHotlink = 0; $DisplayEmail = 1; $DisplayIPs = 0; $DisplayViews = 1; $UseCookies = 1; ## (4) Define your visitors' capabilities: $MaxMessageSize = 50; $MaxInputLength = 50; $LockRemoteUser = 1; $AllowUserDeletion = 0; $AllowEmailNotices = 1; $AllowPreview = 1; $AllowURLs = 1; $AllowPics = 1; $AllowFormatting = 0; $SaveLinkInfo = 0; $AllowUserPrefs = 1; $AllowNewThreads = 1; $AllowResponses = 1; $NaughtyWords = "fuck"; $CensorPosts = 0; $ShowPosterIP = 1; $BannedIPs = ""; $CompleteBan = 0; ############################################# ## Do NOT change anything in this section! ## ############################################# require $webbbs_text; if ($BannedIPs && $CompleteBan) { if (($ENV{'REMOTE_ADDR'} =~ /\d+\.\d+\.\d+\.\d+/) && (!($ENV{'REMOTE_HOST'}) || ($ENV{'REMOTE_HOST'} =~ /\d+\.\d+\.\d+\.\d+/))) { @domainbytes = split(/\./,$ENV{'REMOTE_ADDR'}); $packaddr = pack("C4",@domainbytes); $resolvedip = (gethostbyaddr($packaddr, 2))[0]; if ($resolvedip) { $ENV{'REMOTE_HOST'} = $resolvedip; } } unless ($ENV{'REMOTE_HOST'}) { $ENV{'REMOTE_HOST'} = $ENV{'REMOTE_ADDR'}; } @bannedips = split(/ /,$BannedIPs); foreach $bannedip (@bannedips) { if (($ENV{'REMOTE_HOST'} =~ /$bannedip/i) || ($ENV{'REMOTE_ADDR'} =~ /$bannedip/i)) { require $webbbs_read; &Initialize_Data; &Error("9520","9521"); } } } if ($ENV{'QUERY_STRING'} =~ /noframes/i) { $UseFrames = ""; } if ((!($UseFrames) && ($ENV{'QUERY_STRING'} =~ /review=(\d+)/i)) || (!($UseFrames) && ($ENV{'QUERY_STRING'} =~ /rev=(\d+)/i)) || ($ENV{'QUERY_STRING'} =~ /read=(\d+)/i) || ($ENV{'QUERY_STRING'} =~ /form=(\d+)/i)) { require $webbbs_read; } elsif ($ENV{'QUERY_STRING'} =~ /post/i) { require $webbbs_post; } elsif (($ENV{'QUERY_STRING'} =~ /addresslist/i) || ($ENV{'QUERY_STRING'} =~ /delete/i) || ($ENV{'QUERY_STRING'} =~ /reconfigure/i) || ($ENV{'QUERY_STRING'} =~ /search/i) || ($ENV{'QUERY_STRING'} =~ /subscribe/i) || ($ENV{'QUERY_STRING'} =~ /topstats/i)) { require $webbbs_misc; } else { require $webbbs_index; } &WebBBS; ################################################################### ## If necessary, set up the WebAdverts configuration subroutine! ## ################################################################### sub insertadvert { $ADVNoPrint = 1; $ADVQuery = ""; require "/full/path/to/ads.pl"; }
Make your own free website on Tripod.com