$boardname

############################################ ## ## ## WebBBS ## ## by Darryl Burgdorf ## ## (e-mail burgdorf@awsd.com) ## ## ## ## version: 4.33 ## ## last modified: 6/8/00 ## ## copyright (c) 2000 ## ## ## ## latest version is available from ## ## http://awsd.com/scripts/ ## ## ## ############################################ sub WebBBS { if ($ARGV[0] && !($ENV{'QUERY_STRING'})) { $ENV{'QUERY_STRING'} = $ARGV[0]; $UseFrames = ""; $SkipHF = 1; } &Parse_Form; &Initialize_Data; if (($ENV{'DOCUMENT_URI'} && ($cgiurl !~ /$ENV{'DOCUMENT_URI'}/)) || ($ENV{'QUERY_STRING'} =~ /quickinfo/i)) { &QuickInfo; } if ($ENV{'QUERY_STRING'} =~ /blank/i) { &BlankPage; } elsif ($UseFrames && ($ENV{'QUERY_STRING'} !~ /index/i)) { if (($ENV{'QUERY_STRING'} =~ /review=(\d+)/i) || ($ENV{'QUERY_STRING'} =~ /rev=(\d+)/i)) { $message = $1; if ($message < 1) { $message = "00"; } } &SetupFrames; } else { if ($DisplayViews) { if ($FORM{'ListType'} =~ /Guestbook/) { unless ($UseLocking) { &MasterLockOpen; } &LockOpen (COUNTLOCK,"$dir/countlock.txt"); unless ($NoCountLock) { &CountDBMWrite; } } else { &CountDBMRead; } } if (($ENV{'QUERY_STRING'} =~ /rebuilt/) || (!($UseFrames) && $ENV{'QUERY_STRING'} =~ /rebuild/)) { unless ($DisplayViews && ($FORM{'ListType'} =~ /Guestbook/)) { if ($DBMType==2) { dbmclose (%CountList); } else { untie %CountList; } unless ($UseLocking) { &MasterLockOpen; } &LockOpen (COUNTLOCK,"$dir/countlock.txt"); unless ($NoCountLock) { &CountDBMWrite; } } $rebuildflag = 1; if ($DBMType==2) { dbmclose (%MessageList); } else { untie %MessageList; } require $webbbs_rebuild; &Rebuild_Database; @messages = (keys %MessageList); $TotalMessages = @messages; @sortedmessages = (sort {$a<=>$b} @messages); $lastmessage = $sortedmessages[@sortedmessages-1]; } @messages = (); if ($FORM{'ListType'} =~ /Alpha/) { foreach $message (@sortedmessages) { $sortsubject{$message} = $MessageList{$message}; $sortsubject{$message} =~ s/^[^\|]*\|([^\|]*).*/$1/; $sortsubject{$message} =~ s/^$text{'1513'} //; $sortsubject{$message} =~ s/&pipe;/\|/g; $sortsubject{$message} =~ tr/A-Z/a-z/; } } if ($ArchiveOnly && !($FORM{'KeySearch'}) && !($UseFrames)) { require $webbbs_misc; &Search; } &DisplayIndex; } } sub SetupFrames { print "$boardname\n"; if ($MetaFile) { open (HEADLN,"$MetaFile"); @headln = ; close (HEADLN); foreach $line (@headln) { print "$line"; } } print "\n"; if ($UseFrames =~ /h/i) { print "\n"; } else { print "\n"; } print "\n"; print "\n"; } elsif ($ArchiveOnly && !($FORM{'KeySearch'})) { print "SRC=\"$DestinationURL?search\">\n"; } elsif ($WelcomePage) { print "SRC=\"$WelcomePage\">\n"; } else { print "SRC=\"$DestinationURL?blank\">\n"; } print "\n"; print "\n"; if ($HeaderFile) { open (HEADER,"$HeaderFile"); @header =

; close (HEADER); foreach $line (@header) { if ($line =~ //i) { $SSIFile = $SSIRootDir.$2; open (SSIFILE,"<$SSIFile"); while () { print "$_"; } close (SSIFILE); } else { print "$line"; } } } if ($printboardname) { print "

"; print "$boardname\n"; } print "$text{'0100'}\n"; print "$CreditLink"; if ($FooterFile) { open (FOOTER,"$FooterFile"); @footer =

; close (FOOTER); foreach $line (@footer) { if ($line =~ //i) { $SSIFile = $SSIRootDir.$2; open (SSIFILE,"<$SSIFile"); while () { print "$_"; } close (SSIFILE); } else { print "$line"; } } } print "\n"; reset 'A-Za-z'; exit; } sub BlankPage { print "\n"; print "\n"; reset 'A-Za-z'; exit; } sub QuickInfo { print "\n"; print "$text{'0075'}: ",&PrintDate(int($MessageList{$lastmessage})); if ($Cookies{'lastmessage'} && $Cookies{'lastvisit'}) { if ($Cookies{'lastmessage'} < $lastmessage) { $NewCount = 0; $startcount = $Cookies{'lastmessage'}+1; foreach $messagecount ($startcount..$lastmessage) { if ($MessageList{$messagecount}>0) { $NewCount++; } } print "
($NewCount "; if ($NewCount > 1) { print "$text{'0506'}"; } else { print "$text{'0507'}"; } } else { print "
($text{'0508'}"; } print " $text{'0509'})"; } print "\n"; if ($DBMType==2) { dbmclose (%MessageList); } else { untie %MessageList; } &LockClose (DBLOCK,"$dir/dblock.txt"); unless ($UseLocking) { &MasterLockClose; } reset 'A-Za-z'; exit; } sub DisplayIndex { unless ($ArchiveOnly || !($AllowNewThreads) || $SepPostFormIndex) { $SpellCheckerMeta = 1; } &Header("$boardname - $text{'0500'}",$HeaderFile); $navbar = $NavBarStart; if ($AdminRun) { &DisplayIndexAdmin1; } else { unless ($ArchiveOnly || !($AllowNewThreads)) { if ($SepPostFormIndex) { $navbar .= " "; } $navbar .= "$text{'0007'} |"; } if ($mailprog && $email_list && !($private_list)) { $navbar .= " $text{'0008'} |"; } unless ($FORM{'KeySearch'}) { $FORM{'KeySearch'} = "No"; } if ($FORM{'KeySearch'} ne "No") { $navbar .= " "; } else { $navbar .= " "; } $navbar .= "$text{'0009'}"; if ($AllowUserPrefs) { $navbar .= " | $text{'0010'}"; } if ($TopNPosters) { $navbar .= " | $text{'0501'} $TopNPosters"; } if ($UserProfileDir) { $navbar .= " | $text{'2510'}"; unless ($ArchiveOnly || (!($AllowNewThreads) && !($AllowResponses))) { $navbar .= " | $text{'2503'}"; } else { $navbar .= "profileedit\"$BBStargettop>$text{'2506'}"; } } } if (%Navbar_Links) { foreach $key (keys %Navbar_Links) { $navbar .= " | "; ($NavLinkURL,$NavLinkTarget) = split(/\|/,$Navbar_Links{$key}); $navbar .= ""; print "$boardname\n"; } print "

$text{'0500'}\n"; if ($rebuildflag) { print "\n

$text{'0525'}\n\n"; } print "

"; print ""; if ($SearchString) { print ""; } print "

"; if ($ArchiveOnly \|\| ($FORM{'KeySearch'} ne "No")) { $FORM{'ListType'} = "Chronologically, Reversed"; print "$text{'0503'}"; } elsif ($Cookies{'lastmessage'} && $Cookies{'lastvisit'}) { print "$text{'0504'}"; if ($Cookies{'name'}) { print ", $Cookies{'name'}"; } print "! $text{'0505'}, "; if ($Cookies{'lastmessage'} < $lastmessage) { $NewCount = 0; $startcount = $Cookies{'lastmessage'}+1; foreach $messagecount ($startcount..$lastmessage) { if ($MessageList{$messagecount}>0) { $NewCount++; } } print "$NewCount "; if ($NewCount > 1) { print "$text{'0506'}"; } else { print "$text{'0507'}"; } } else { print "$text{'0508'}"; } print " $text{'0509'}!"; } else { print "$text{'0510'}!"; } print "
"; $endday = $time+60; if ($FORM{'ListSize'} eq "Range") { if ($FORM{'StartDateC'} < 1990) { $FORM{'StartDateC'} = 1990; } if ($FORM{'EndDateC'} < $FORM{'StartDateC'}) { $FORM{'EndDateC'} = $FORM{'StartDateC'}; } $searchrange = "$FORM{'StartDateA'} $months[$FORM{'StartDateB'}] "; $searchrange .= "$FORM{'StartDateC'} $text{'0511'} $FORM{'EndDateA'} "; $searchrange .= "$months[$FORM{'EndDateB'}] $FORM{'EndDateC'}"; $startday = &rangedate($FORM{'StartDateB'}+1,$FORM{'StartDateA'},$FORM{'StartDateC'}-1900); $endday = &rangedate($FORM{'EndDateB'}+1,$FORM{'EndDateA'}+1,$FORM{'EndDateC'}-1900); } elsif ($FORM{'ListTime'} =~ /(\d+) ([\w\(\)]+)/) { $FORM{'ListTimeA'} = $1; $FORM{'ListTimeB'} = $2; if ($FORM{'ListTimeB'} eq "$text{'0060'}") { $startday = ($FORM{'ListTimeA'} * 3600); } elsif ($FORM{'ListTimeB'} eq "$text{'0061'}") { $startday = ($FORM{'ListTimeA'} * 86400); } elsif ($FORM{'ListTimeB'} eq "$text{'0062'}") { $startday = ($FORM{'ListTimeA'} * 604800); } elsif ($FORM{'ListTimeB'} eq "$text{'0063'}") { $startday = ($FORM{'ListTimeA'} * 2635200); } else { $FORM{'ListTime'} = "2 $text{'0062'}"; $startday = 1209600; } } elsif ($FORM{'ListTime'} eq "New Only") { if ($Cookies{'lastmessage'}) { $startday = int($MessageList{$Cookies{'lastmessage'}})+1; } else { $startday = $time; } } unless ($startday) { $startday = 500000000; } if ($FORM{'ListSize'} eq "Range") { print "$text{'0514'} $searchrange\n"; } elsif ($ArchiveOnly \|\| ($startday eq 500000000)) { $startday = ($time-$startday); if ($FORM{'KeySearch'} eq "No") { if ($ArchiveOnly) { $startday = $time; print "$text{'0514'} "; ($mday,$mon,$year) = (localtime(int($MessageList{$sortedmessages[0]})+($HourOffset3600)))[3,4,5]; print "$mday $months[$mon] ",$year+1900," $text{'0511'} "; ($mday,$mon,$year) = (localtime(int($MessageList{$sortedmessages[@sortedmessages-1]})+($HourOffset3600)))[3,4,5]; print "$mday $months[$mon] ",$year+1900,"\n"; } else { print "$text{'0512'}\n"; } } else { print "$text{'0513'}\n"; } } else { print "$text{'0515'} "; if ($FORM{'ListTime'} eq "New Only") { print "$text{'0516'}\n"; } else { $startday = ($time-$startday); print "$text{'0517'} $FORM{'ListTime'}\n"; } } $SearchString = ""; if ($FORM{'KeySearch'} eq "Yes") { $FORM{'Keywords'} =~ s/&[^;\s];/ /g; $FORM{'Keywords'} =~ s/[^\w\.\-\']/ /g; $FORM{'Keywords'} =~ s/(\s)+/ /g; $FORM{'Keywords'} =~ s/^\s//g; @keywords = split(/\s+/, $FORM{'Keywords'}); $SearchString = "$text{'0518'} "; $SearchString .= "$FORM{'Boolean'}* "; $SearchString .= "$text{'0519'}: "; foreach $keyword (@keywords) { $SearchString .= "$keyword"; $i++; unless ($i == @keywords) { $SearchString .= ", "; } } open (SEARCH,"$dir/searchterms.idx"); while () { if (/^(\d+) (.)/) { $message = $1; $string = $2; if ((int($MessageList{$message}) >= $startday) && (int($MessageList{$message}) <= $endday)) { $value = 0; if ($FORM{'Boolean'} eq $text{'0050'}) { foreach $term (@keywords) { $test = ($string =~ s/$term//ig); if ($test < 1) { $value = 0; last; } else { $value = $value+$test; } } } elsif ($FORM{'Boolean'} eq $text{'0051'}) { foreach $term (@keywords) { $test = ($string =~ s/$term//ig); $value = $value+$test; } } if ($value > 0) { push (@keywordmatches, $message); } else { $DontUse{$message} = 1; } } else { $DontUse{$message} = 1; } } } close (SEARCH); @sortedmessages = (sort {$a<=>$b} @keywordmatches); } elsif ($FORM{'KeySearch'} eq "Author") { $SearchString = "$text{'0520'} "; $SearchString .= ""$FORM{'Author'}"*"; foreach $message (@sortedmessages) { if ((int($MessageList{$message}) >= $startday) && (int($MessageList{$message}) <= $endday)) { $date=$sub=$poster=$prev=$next=$count=$admin=$ip=""; ($date,$sub,$poster,$prev,$next,$count,$admin,$ip) = split(/\\|/,$MessageList{$message}); if ($poster =~ /$FORM{'Author'}/i) { push (@keywordmatches, $message); } else { $DontUse{$message} = 1; } } else { $DontUse{$message} = 1; } } @sortedmessages = (sort {$a<=>$b} @keywordmatches); } elsif ($FORM{'KeySearch'} eq "Domain") { &DisplayIndexAdmin3; } elsif ($FORM{'KeySearch'} eq "All") { $SearchString = "$text{'0521'}"; foreach $message (@sortedmessages) { if ((int($MessageList{$message}) >= $startday) && (int($MessageList{$message}) <= $endday)) { push (@keywordmatches, $message); } else { $DontUse{$message} = 1; } } @sortedmessages = (sort {$a<=>$b} @keywordmatches); } foreach $message (@sortedmessages) { if ((int($MessageList{$message}) >= $startday) && (int($MessageList{$message}) <= $endday)) { $DisplayedMessages ++; } else { $DontUse{$message} = 1; } } print "	"; print "	"; unless (($FORM{'ListType'} =~ /Compress/) \|\| ($FORM{'ListType'} =~ /Guestbook-Style, Thread/)) { print "$DisplayedMessages $text{'0522'} "; print "$TotalMessages $text{'0523'} "; } if ($FORM{'ListType'} eq "Chronologically") { print "($text{'0601'})"; } elsif ($FORM{'ListType'} eq "Chronologically, Reversed") { print "($text{'0602'})"; } elsif ($FORM{'ListType'} eq "Alphabetically") { print "($text{'0603'})"; } elsif ($FORM{'ListType'} eq "Alphabetically, Reversed") { print "($text{'0604'})"; } elsif ($FORM{'ListType'} eq "Compressed") { print "($text{'0605'})"; } elsif ($FORM{'ListType'} eq "Compressed, Reversed") { print "($text{'0606'})"; } elsif ($FORM{'ListType'} eq "Guestbook-Style") { print "($text{'0607'})"; } elsif ($FORM{'ListType'} eq "Guestbook-Style, Reversed") { print "($text{'0608'})"; } elsif ($FORM{'ListType'} eq "Guestbook-Style, Threaded") { print "($text{'0609'})"; } elsif ($FORM{'ListType'} eq "Guestbook-Style, Threaded, Reversed") { print "($text{'0610'})"; } elsif ($FORM{'ListType'} eq "Guestbook-Style, Threaded, Mixed") { print "($text{'0615'})"; } elsif ($FORM{'ListType'} eq "By Threads, Reversed") { print "($text{'0611'})"; } elsif ($FORM{'ListType'} eq "By Threads, Mixed") { print "($text{'0612'})"; } else { print "($text{'0613'})"; } print "
$SearchString

\n"; $messagecount = 0; if ($AdminRun) { $DeleteSelect = 1; $ToBeDeleted = ""; print "

\n"; } unless (($FORM{'ListType'} =~ /Guestbook/) && ($FORM{'ListType'} !~ /Threaded/)) { if ($IndexEntryLines eq "news") { print "

\n"; } else { print "

<$ul_dl>\n"; } } if (($FORM{'ListType'} =~ /Compress/) || ($FORM{'ListType'} =~ /Guestbook-Style, Thread/)) { foreach $message (@sortedmessages) { unless ($already{$message}) { $respcount = -1; $respdate = 0; $showthread = 0; $newcount = 0; if ($Cookies{'lastmessage'} && ($Cookies{'lastmessage'} < $message)) { $newcount--; } &CompressList($message); if ($showthread > 0) { push (@messages,$message); $messagecount ++; $respcount{$message} = $respcount; $respdate{$message} = $respdate; $newcount{$message} = $newcount; } } } if (($FORM{'ListType'} =~ /Reversed/) || ($FORM{'ListType'} =~ /Mixed/)) { @sortedmessages = reverse(@messages); } else { @sortedmessages = @messages; } foreach $message (@sortedmessages) { if ($NotFirstEntry) { print "$ThreadSpacer"; } else { $NotFirstEntry = 1; } &PrintMessageDesc($message); print "
$respcount{$message} "; if ($respcount{$message} == 1) { print "$text{'0550'}"; } else { print "$text{'0551'}"; } if ($newcount{$message} > 0) { print " ($newcount{$message} $text{'0552'})"; } if ($respcount{$message} > 0) { print " -- ",&PrintDate($respdate{$message}); } print "\n"; } } elsif (($FORM{'ListType'} =~ /Chrono/) || ($FORM{'ListType'} =~ /Guestbook/)) { if ($FORM{'ListType'} =~ /Reversed/) { @messages = reverse(@sortedmessages); } else { @messages = @sortedmessages; } foreach $message (@messages) { unless ($DontUse{$message}) { if ($FORM{'ListType'} =~ /Guestbook/) { &PrintGuestbookDesc($message); } else { &PrintMessageDesc($message); } $messagecount ++; } } } elsif ($FORM{'ListType'} =~ /Alpha/) { if ($FORM{'ListType'} =~ /Reversed/) { foreach $key (sort ByAlphaReversed @sortedmessages) { push (@messages,$key); } } else { foreach $key (sort ByAlpha @sortedmessages) { push (@messages,$key); } } foreach $message (@messages) { unless ($DontUse{$message}) { &PrintMessageDesc($message); $messagecount ++; } } } elsif ($FORM{'ListType'} eq "By Threads") { foreach $message (@sortedmessages) { unless ($already{$message} || $DontUse{$message}) { if ($NotFirstEntry) { print "$ThreadSpacer"; } else { $NotFirstEntry = 1; } &ThreadList($message); $messagecount ++; } } } else { @reversedmessages = reverse(@sortedmessages); foreach $message (@reversedmessages) { unless ($already{$message} || $DontUse{$message}) { $date=$sub=$poster=$prev=$next=$count=$admin=$ip=""; ($date,$sub,$poster,$prev,$next,$count,$admin,$ip) = split(/\|/,$MessageList{$message}); unless (($MessageList{$prev}>0) && !($DontUse{$prev})) { if ($NotFirstEntry) { print "$ThreadSpacer"; } else { $NotFirstEntry = 1; } &ThreadList($message); $messagecount ++; } } } } unless (($FORM{'ListType'} =~ /Guestbook/) && ($FORM{'ListType'} !~ /Threaded/)) { if ($IndexEntryLines eq "news") { print "

\n"; } else { print "\n"; } } if ($AdminRun) { &DisplayIndexAdmin4; } elsif ($messagecount < 1) { print "

$text{'0524'}\n"; } unless ($ArchiveOnly || !($AllowNewThreads) || $SepPostFormIndex) { require $webbbs_form; print "\n"; &Print_Form; print "

"; } &Footer($FooterFile,"credits"); } sub rangedate { ($perp_mon,$perp_day,$perp_year) = @_; %day_counts = (1,0,2,31,3,59,4,90,5,120,6,151,7,181, 8,212,9,243,10,273,11,304,12,334); $perp_days = (($perp_year-69)*365)+(int(($perp_year-69)/4)); $perp_days += $day_counts{$perp_mon}; if ((int(($perp_year-68)/4) eq (($perp_year-68)/4)) && ($perp_mon>2)) { $perp_days++; } $perp_days += $perp_day; $perp_days -= 366; $perp_secs = ($perp_days*86400)+18000; $hour = (localtime($perp_secs))[2]; if ($hour>0) { $perp_secs-=3600; } $perp_secs -= ($HourOffset*3600); return $perp_secs; } sub ByAlpha { $sortsubject{$a} cmp $sortsubject{$b}; } sub ByAlphaReversed { $sortsubject{$b} cmp $sortsubject{$a}; } sub CompressList { local (@threadresponses); local ($date,$sub,$poster,$prev,$next,$count,$admin,$ip) = ""; ($date,$sub,$poster,$prev,$next,$count,$admin,$ip) = split(/\|/,$MessageList{$_[0]}); $respcount++; if ($date > $respdate) { $respdate = $date; } unless ($DontUse{$_[0]}) { $showthread = 1; } if ($Cookies{'lastmessage'} && ($Cookies{'lastmessage'} < $_[0])) { $newcount++; } @threadresponses = split(/ /,$next); foreach $threadresponse (@threadresponses) { next unless ($threadresponse > $_[0]); if ($MessageList{$threadresponse}>0) { &CompressList($threadresponse); } } $already{$_[0]} = 1; } sub SetCookieData { %Cookie_Encode_Chars = ( '\%','%25','\+','%2B','\;','%3B','\,','%2C', '\=','%3D','\&','%26','\:\:','%3A%3A','\s','+' ); %Cookie_Decode_Chars = ( '\+',' ','\%3A\%3A','::','\%26','&','\%3D','=', '\%2C',',','\%3B',';','\%2B','+','\%25','%' ); &GetCookie($boardname); unless ($AllowUserPrefs) { $Cookies{'listtype'} = ""; $Cookies{'listtime'} = ""; } unless ($FORM{'ListType'}) { $FORM{'ListType'} = $Cookies{'listtype'}; } unless ($FORM{'ListTime'}) { $FORM{'ListTime'} = $Cookies{'listtime'}; } unless ($FORM{'password'}) { $FORM{'password'} = $Cookies{'password'}; } if ($FORM{'KeySearch'} eq "No") { $listtype = $FORM{'ListType'}; $listtime = $FORM{'ListTime'}; } if (!$name) { $name = $Cookies{'name'}; } if (!$email) { $email = $Cookies{'email'}; } if (!$message_url) { $message_url = $Cookies{'linkurl'}; } if (!$message_url_title) { $message_url_title = $Cookies{'linkname'}; } if (!$image_url) {$image_url = $Cookies{'imageurl'}; } if (!$listtype) { $listtype = $Cookies{'listtype'}; } if (!$listtime) { $listtime = $Cookies{'listtime'}; } unless ($Cookies{'thisvisit'}) { $Cookies{'thisvisit'} = $Cookies{'lastvisit'}; } unless ($Cookies{'thismessage'}) { $Cookies{'thismessage'} = $Cookies{'lastmessage'}; } if (($time - $Cookies{'timestamp'}) < 1800) { $lastvisit = $Cookies{'lastvisit'}; $lastseen = $Cookies{'lastmessage'}; $thisvisit = $Cookies{'thisvisit'}; $thisseen = $Cookies{'thismessage'}; } else { $lastvisit = $Cookies{'thisvisit'}; $lastseen = $Cookies{'thismessage'}; $Cookies{'lastvisit'} = $Cookies{'thisvisit'}; $Cookies{'lastmessage'} = $Cookies{'thismessage'}; $thisvisit = $todaydate; $thisseen = $lastmessage; } unless ($Cookies{'lastmessage'}) { $Cookies{'lastmessage'} = $lastmessage; } if (($ENV{'DOCUMENT_URI'} && ($cgiurl !~ /$ENV{'DOCUMENT_URI'}/)) || ($ENV{'QUERY_STRING'} =~ /quickinfo/i)) { return; } if ($SaveLinkInfo) { &SendCookie($boardname,'name',$name,'email',$email, 'listtype',$listtype,'listtime',$listtime, 'lastmessage',$lastseen,'lastvisit',$lastvisit, 'thismessage',$thisseen,'thisvisit',$thisvisit, 'timestamp',$time,'wantnotice',$Cookies{'wantnotice'}, 'linkurl',$message_url,'linkname',$message_url_title, 'imageurl',$image_url,'password',$FORM{'password'}); } else { &SendCookie($boardname,'name',$name,'email',$email, 'listtype',$listtype,'listtime',$listtime, 'lastmessage',$lastseen,'lastvisit',$lastvisit, 'thismessage',$thisseen,'thisvisit',$thisvisit, 'timestamp',$time,'wantnotice',$Cookies{'wantnotice'}, 'password',$FORM{'password'}); } } 1;