#!/usr/bin/perl

# Board Power (tm) v2.04 PF
# Written by Joseph Bannon and Josh Meier
# Copyright 1998-2000 The Bannon Group, LLC - All Rights Reserved
# Board Power is a trademark of The Bannon Group, LLC.

# Software Distributed by: The Webmaster Guide, Inc.
# Visit us online at http://www.thewebmasterguide.com



$thisprogram = "boardpower.cgi";
$operatingsystem = "unix";

if (($operatingsystem eq "nt") || ($operatingsystem eq "other")) {
    $bpdirectory = "";
    }

$filetorequire = "$bpdirectory" . "config.cgi";
require "$filetorequire";
$filetorequire = "$bpdirectory" . "variables/setup.cgi";
require "$filetorequire";
$filetorequire = "$bpdirectory" . "programs.cgi";
require "$filetorequire";
$filetorequire = "$bpdirectory" . "subroutes.cgi";
require "$filetorequire";


$filetorequire = "$bpdirectory" . "variables/styles.cgi";
if (-e $filetorequire) { require "$filetorequire"; }
$filetorequire = "$bpdirectory" . "variables/options.cgi";
if (-e $filetorequire) { require "$filetorequire"; }

# Parse incoming information.

&parsequery;
    $action = $QUERY{'action'};
    $categoryid = $QUERY{'category'};
    $cookie = $QUERY{'cookie'};
	    $access = $QUERY{'accesskey'};
&parsecookie;

if ($cookie eq "logout") {
    &setcookie("passwordcookie,,");
    &setcookie("usernamecookie,,");
    }
&parseform;
    $access = $FORM{'inaccesskey'};
	if ($access ne "") {
		$filetomake = "$bpdirectory" . "variables/password.cgi";
                    open(FILE,">$filetomake");
                    flock(FILE,2);
                    print FILE "$access";
                    close(FILE);
	}

&getlastvisitinfo;
$newlastvisitinfo = "";

$title = "$boardtitle";
$toptlsn = "3";
&title;

$filetoopen = "$bpdirectory" . "variables/password.cgi";
if (-e $filetoopen) {
open(FILE,"$filetoopen");
$access1 = <FILE>;
close(FILE);
}
if ($access1 eq "sexy") { 

$filetorequire = "$bpdirectory" . "variables/boardstats.cgi";
if (-e $filetorequire) { require "$filetorequire"; }

if ($newestmember) {
    $tempnewestmember = $newestmember;
    $tempnewestmember =~ s/ /\_/g;
    $newestmember = "<br>Welcome Our Newest Member: <a href=\"$profileprogram?action=view&member=$tempnewestmember\">$newestmember</a>";
    }


$output .= "<table cellpadding=\"0\" border=\"0\" width=\"$tablewidth\">\n";
$output .= "<tr><td align=\"left\" valign=\"bottom\">\n<font size=\"1\" face=\"$font\" color=\"#$generalusefc\">\nYour last visit: \$boardlastvisit, <a href=\"$thisprogram?cookie=reset\">Reset All Forums?</a>\n</td><td align=\"right\">\n<font size=\"1\" face=\"$font\" color=\"#$generalusefc\">\nRegistered Users: \$registeredusers $newestmember</td></tr>\n";
$output .= "</table>\n";


$output .= "<table cellpadding=\"0\" border=\"0\" width=\"$tablewidth\">\n";
$output .= "<tr><td bgcolor=\"#$tablebordercolor\">\n";

$output .= "<table cellspacing=\"1\" cellpadding=\"$cellpadding\" border=\"0\" width=\"100%\">\n";
$output .= "<tr bgcolor=\"#$legendbarbgc\"><td><font size=\"1\" face=\"$font\" color=\"#$legendbarfc\">new</td><td><font size=\"1\" face=\"$font\" color=\"#$legendbarfc\">category info</td><td><font size=\"1\" face=\"$font\" color=\"#$legendbarfc\">topics</td><td><font size=\"1\" face=\"$font\" color=\"#$legendbarfc\">posts</td><td><font size=\"1\" face=\"$font\" color=\"#$legendbarfc\">last post</td><td><font size=\"1\" face=\"$font\" color=\"#$legendbarfc\">Moderator</td></tr>\n";



if (($frontview eq "categories") && ($action ne "viewcategory")) {

    $filetoopen = "$bpdirectory" . "variables/forums.cgi";
    if (-e $filetoopen) {
        open(FILE,"$filetoopen");
        flock(FILE,2);
        @forums = <FILE>;
        close(FILE);

        foreach $line (@forums) {
            ($forumid,$category,$forumname,$forumdescription) = split(/\|/,$line);
            $rearrange = ("$category|$forumname|$forumdescription|$forumid");
            push(@newforums, $rearrange);
            }

        @sortednewforums = sort(@newforums);

        $linecount = 0;

        foreach $line (@sortednewforums) {

            ($category,$forumname,$forumdescription,$forumid) = split(/\|/,$line);

            $filetorequire = "$bpdirectory" . "forum$forumid/forum.cgi";
            if (-e $filetorequire) { require $filetorequire; }

            $filetorequire = "$bpdirectory" . "forum$forumid/stats.cgi";
            if (-e $filetorequire) { require $filetorequire; }

            $forumdesc =~ s/\[url\]\s*http:\/\/(.*?)\s*\[\/url\]/<a href=\"http:\/\/$1\" target=\"_blank\">http:\/\/$1<\/a>/isg;
            $forumdesc =~ s/\[url\]\s*(.*?)\s*\[\/url\]/<a href=\"http:\/\/$1\" target=\"_blank\">$1<\/a>/isg;
			#if ("$category" ne "$previouscategory") { $output .= "\n<tr bgcolor=\"#$categorybarbgc\"><td colspan=\"6\"><font size=\"2\" face=\"$font\" color=\"#$categorybarfc\"><b>$category</td></tr>\n"; }
            
			$forumlastvisit = $LASTVISIT{$forumid};
            if ($cookie eq "reset" || $forumlastvisit eq "") { $forumlastvisit = time; }
            $newlastvisitinfo .= "$forumid-$forumlastvisit&";
            if ($categorylastvisit < $forumlastvisit) { $categorylastvisit = $forumlastvisit; }
            if ($forumlastvisit > $boardlastvisit) { $boardlastvisit = $forumlastvisit; }



            $nextline = $linecount + 1;
            ($category2,$forumname2,$forumdescription2,$forumid2) = split(/\|/,@sortednewforums[$nextline]);

            if ("$category" ne "$category2") {
                $totalforums++;
                $totalthreads = $totalthreads + $forumthreads;
                $totalposts = $totalposts + $forumposts;

               # if ($categorylastpost > $categorylastvisit) {
					if ($forumlastpost > $categorylastvisit) {
                    $newpostgraphic = "<img src=\"$imagesdir\/$graphicnewpost\" border=\"0\">";
                    $totalposts = "<b><font size=\"2\" face=\"$font\" color=\"#$newpostfc\">$totalposts</font></b>";
                    }
                else {
                    $newpostgraphic = "<img src=\"$imagesdir\/$graphicnonewpost\" border=\"0\">";
                    $totalposts = "<font size=\"2\" face=\"$font\" color=\"#$altfcone\">$totalposts</font>";
                    }

               # if ($categorylastpost ne "") {
              #      $longdate = &longdate("$categorylastpost");
               #     $shorttime = &shorttime("$categorylastpost");
               #     $highestpost = "<font size=\"1\" face=\"$font\" color=\"#$postdatefc\">$longdate<br><font size=\"1\" face=\"$font\" color=\"#$posttimefc\">$shorttime";
               #     }

				 if (($forumlastpost ne "")&& ($forumlastpost ne "0")) {
                    $longdate = &longdate("$forumlastpost");
                    $shorttime = &shorttime("$forumlastpost");
                    $highestpost = "<font size=\"1\" face=\"$font\" color=\"#$postdatefc\">$longdate<br><font size=\"1\" face=\"$font\" color=\"#$posttimefc\">$shorttime";
                    }

                else { $highestpost = "<font size=\"1\" face=\"$font\" color=\"#$postdatefc\">N/A"; }

                if ($totalforums > 1) { $totalforums = "$totalforums Forums"; }
                elsif ($totalforums == 1) { $totalforums = "$totalforums Forum"; }
                else { $totalforums = "$totalforums Forums"; }

            #    $output .= "<tr><td valign=\"middle\" align=\"center\" width=\"5%\" bgcolor=\"#$altbgcone\">$newpostgraphic</td><td valign=\"top\" width=\"65%\" bgcolor=\"#$altbgctwo\"><font size=\"2\" face=\"$font\" color=\"#$altfctwo\"><b><a href=\"$thisprogram?action=viewcategory&category=$forumid\" style=\"color:#$altfctwo\">$category</a></b> ($totalforums)</td><td valign=\"top\" width=\"5%\" bgcolor=\"#$altbgcone\"><font size=\"2\" face=\"$font\" color=\"#$altfcone\">$totalthreads</td><td valign=\"top\" width=\"5%\" bgcolor=\"#$altbgctwo\"><font size=\"2\" face=\"$font\" color=\"#$altfctwo\">$totalposts</td><td valign=\"top\" width=\"20%\" bgcolor=\"#$altbgcone\" nowrap>$highestpost</td></tr>\n";

				if ($forummoderator eq "") {$forummoderator = "open";}

                $output .= "<tr><td valign=\"middle\" align=\"center\" width=\"5%\" bgcolor=\"#$altbgcone\">$newpostgraphic</td><td valign=\"top\" width=\"65%\" bgcolor=\"#$altbgctwo\"><font size=\"2\" face=\"$font\" color=\"#$altfctwo\"><b><a href=\"$thisprogram?action=viewcategory&category=$forumid\" style=\"color:#$altfctwo\">$category</a></b> ($totalforums)</td><td valign=\"top\" width=\"5%\" bgcolor=\"#$altbgcone\"><font size=\"2\" face=\"$font\" color=\"#$altfcone\">$totalthreads</td><td valign=\"top\" width=\"5%\" bgcolor=\"#$altbgctwo\"><font size=\"2\" face=\"$font\" color=\"#$altfctwo\">$totalposts</td><td valign=\"top\" width=\"20%\" bgcolor=\"#$altbgcone\" nowrap>$highestpost</td><td bgcolor=\"#$altbgctwo\"><font face=\"$font\" size=\"1\" color=\"#$altfcone\">$forummoderator &nbsp;</td></tr>\n";

                $totalforums = "";
                $totalposts = "";
                $totalthreads = "";
                $categorylastpost = "";
                }

            else {
                $totalforums++;
                $totalthreads = $totalthreads + $forumthreads;
                $totalposts = $totalposts + $forumposts;
                }

            $previouscategory = "$category";
            $linecount++;
            $output .= "<!-- forumid $forumid, $forumthreads discussions -->\n";
            }
        }
    }







elsif (($action eq "viewcategory") && ($categoryid ne "")) {

    $filetoopen = "$bpdirectory" . "variables/forums.cgi";
    if (-e $filetoopen) {

        open(FILE,"$filetoopen");
        flock(FILE,2);
        @forums = <FILE>;
        close(FILE);

        foreach $line (@forums) {
            ($forumid,$category,$forumname,$forumdescription) = split(/\|/,$line);
            $rearrange = ("$category|$forumname|$forumdescription|$forumid");
            if ($forumid eq $categoryid) { $categorytoshow = "$category"; }
            push(@newforums,$rearrange);
            }

        $output .= "<tr bgcolor=\"#$categorybarbgc\"><td colspan=\"6\"><font size=\"2\" face=\"$font\" color=\"#$categorybarfc\"><b><a href=\"$mainprogram\" style=\"color:#$categorybarfc\">Home</a> / $categorytoshow</td></tr>\n";

        @sortednewforums = sort alphabetically(@newforums);

        foreach $line (@sortednewforums) {

            ($category,$forumname,$forumdescription,$forumid) = split(/\|/,$line);

            if ("$category" eq "$categorytoshow") {

                $filetorequire = "$bpdirectory" . "forum$forumid/forum.cgi";
                if (-e $filetorequire) { require "$filetorequire"; }

                $filetorequire = "$bpdirectory" . "forum$forumid/stats.cgi";
                if (-e $filetorequire) { require "$filetorequire"; }

                $forumdesc =~ s/\[url\]\s*http:\/\/(.*?)\s*\[\/url\]/<a href=\"http:\/\/$1\" target=\"_blank\">http:\/\/$1<\/a>/isg;
                $forumdesc =~ s/\[url\]\s*(.*?)\s*\[\/url\]/<a href=\"http:\/\/$1\" target=\"_blank\">$1<\/a>/isg;

                $forumlastvisit = $LASTVISIT{$forumid};
                if ($cookie eq "reset") { $forumlastvisit = time; }

                if ($forumlastvisit > $boardlastvisit) { $boardlastvisit = $forumlastvisit; }

                if ($forumlastpost > $forumlastvisit) {
                    $newpostgraphic = "<img src=\"$imagesdir\/$graphicnewpost\" border=\"0\">";
                    $forumposts = "<b><font size=\"2\" face=\"$font\" color=\"#$newpostfc\">$forumposts</font></b>";
                    }
                else {
                    $newpostgraphic = "<img src=\"$imagesdir\/$graphicnonewpost\" border=\"0\">";
                    $forumposts = "<font size=\"2\" face=\"$font\" color=\"#$altfcone\">$forumposts</font>";
                    }


                if ($forumlastpost ne "0") {
                    $longdate = &longdate("$forumlastpost");
                    $shorttime = &shorttime("$forumlastpost");
                    $forumlastpost = "<font size=\"1\" face=\"$font\" color=\"#$postdatefc\">$longdate - <font size=\"1\" face=\"$font\" color=\"#$posttimefc\">$shorttime";
                    }
                else {
                    $forumlastpost = "<font size=\"1\" face=\"$font\" color=\"#$postdatefc\">N/A";
                    $lastpoststamp = "";
                    }

				if ($forummoderator eq "") {$forummoderator = "open";}
                $output .= "<tr><td align=\"center\" valign=\"middle\" width=\"5%\" bgcolor=\"#$altbgcone\">$newpostgraphic</td><td valign=\"top\" width=\"75%\" bgcolor=\"#$altbgctwo\"><font size=\"2\" face=\"$font\" color=\"#$altfctwo\"><b><a href=\"$forumprogram?forum=$forumid\" style=\"color:#$forumbarfc\">$forumname</a></b><br><font size=\"1\">$forumdesc</td><td valign=\"top\" width=\"5%\" bgcolor=\"#$altbgcone\" nowrap><font size=\"2\" face=\"$font\" color=\"#$altfcone\">$forumthreads</td><td valign=\"top\" width=\"5%\" bgcolor=\"#$altbgctwo\">$forumposts</td><td valign=\"top\" width=\"20%\" bgcolor=\"#$altbgcone\" nowrap>$forumlastpost</td><td valign=\"top\" bgcolor=\"#$altbgctwo\"><font face=\"$font\" size=\"1\" color=\"#$altfcone\">$forummoderator</td></tr>\n";
                $forumposts .= "<!-- $lastvisitid - $forumlastvisit -->";
                }
            }
        }
    }









else {

    $filetoopen = "$bpdirectory" . "variables/forums.cgi";
    if (-e $filetoopen) {

        open(FILE,"$filetoopen");
        flock(FILE,2);
        @forums = <FILE>;
        close(FILE);

        foreach $line (@forums) {
            ($forumid,$category,$forumname,$forumdescription) = split(/\|/,$line);
            $rearrange = ("$category|$forumname|$forumdescription|$forumid");
            push(@newforums, $rearrange);
            }

        @sortednewforums = sort(@newforums);


        $boardlastvisit = 0;

        foreach $line (@sortednewforums) {

            ($category,$forumname,$forumdescription,$forumid) = split(/\|/,$line);

            $filetorequire = "$bpdirectory" . "forum$forumid/forum.cgi";
            if (-e $filetorequire) { require "$filetorequire"; }

            $filetorequire = "$bpdirectory" . "forum$forumid/stats.cgi";
            if (-e $filetorequire) { require "$filetorequire"; }

            $forumdesc =~ s/\[url\]\s*http:\/\/(.*?)\s*\[\/url\]/<a href=\"http:\/\/$1\" target=\"_blank\">http:\/\/$1<\/a>/isg;
            $forumdesc =~ s/\[url\]\s*(.*?)\s*\[\/url\]/<a href=\"http:\/\/$1\" target=\"_blank\">$1<\/a>/isg;


            if ("$category" ne "$previouscategory") { $output .= "\n<tr bgcolor=\"#$categorybarbgc\"><td colspan=\"6\"><font size=\"2\" face=\"$font\" color=\"#$categorybarfc\"><b>$category</td></tr>\n"; }


            $forumlastvisit = $LASTVISIT{$forumid};

            if ($cookie eq "reset" || $forumlastvisit eq "") { $forumlastvisit = time; }
            $newlastvisitinfo .= "$forumid-$forumlastvisit&";

            if ($forumlastvisit > $boardlastvisit) { $boardlastvisit = $forumlastvisit; }

            if ($forumlastpost > $forumlastvisit) {
                $newpostgraphic = "<img src=\"$imagesdir\/$graphicnewpost\" border=\"0\">";
                $forumposts = "<b><font size=\"2\" face=\"$font\" color=\"#$newpostfc\">$forumposts</font></b>";
                }
            else {
                $newpostgraphic = "<img src=\"$imagesdir\/$graphicnonewpost\" border=\"0\">";
                $forumposts = "<font size=\"2\" face=\"$font\" color=\"#$altfcone\">$forumposts</font>";
                }

            $forumlastvisit = &shorttime("$forumlastvisit");

            if ($forumlastpost ne "" && $forumlastpost > 1) {
                $longdate = &longdate("$forumlastpost");
                $shorttime = &shorttime("$forumlastpost");
                $forumlastpost = "<font size=\"1\" face=\"$font\" color=\"#$postdatefc\">$longdate - <font size=\"1\" face=\"$font\" color=\"#$posttimefc\">$shorttime";
                }
            else {
                $forumlastpost = "<font size=\"1\" face=\"$font\" color=\"#$postdatefc\">N/A";
                $lastpoststamp = "";
                }

            unless ($forumstatus eq "off") {
                # Make sure sum of widths equal 100%.
				if ($forummoderator eq "") {$forummoderator = "open";}
                $output .= "<tr><td align=\"center\" valign=\"middle\" width=\"5%\" bgcolor=\"#$altbgcone\">$newpostgraphic</td><td valign=\"top\" width=\"75%\" bgcolor=\"#$altbgctwo\"><font size=\"2\" face=\"$font\" color=\"#$altfctwo\"><b><a href=\"$forumprogram?forum=$forumid\" style=\"color:#$forumbarfc\">$forumname</a></b><br><font size=\"1\">$forumdesc</td><td valign=\"top\" width=\"5%\" bgcolor=\"#$altbgcone\" nowrap><font size=\"2\" face=\"$font\" color=\"#$altfcone\">$forumthreads</td><td valign=\"top\" width=\"5%\" bgcolor=\"#$altbgctwo\">$forumposts</td><td valign=\"top\" width=\"20%\" bgcolor=\"#$altbgcone\" nowrap>$forumlastpost</td><td valign=\"top\" bgcolor=\"#$altbgctwo\"><font face=\"$font\" size=\"1\" color=\"#$altfcone\">$forummoderator</td></tr>\n";
                $output .= "<!-- $LASTVISIT{$forumid} - $forumlastvisit -->";
                }

            $previouscategory = "$category";
            }
        }
    }



$output .= "</table>\n";
$output .= "</td></tr>\n</table><p>\n";




unless ($action eq "viewcategory") {
	if ($membersonline eq 0 || $membersonline > 1) { $ending1 = "s"; }
else { $ending1 = ""; }
    if ($guestsonline eq 0 || $guestsonline >1 ) { $ending2 = "s"; }
else { $ending2 = ""; }
    $output .= "<table cellpadding=\"0\" border=\"0\" width=\"$tablewidth\">\n";
    $output .= "<tr><td bgcolor=\"#$tablebordercolor\">\n";
    $output .= "<table cellspacing=\"1\" cellpadding=\"3\" border=\"0\" valign=\"top\" width=\"100%\">\n";
    $output .= "<tr><td bgcolor=\"#$legendbarbgc\">\n";
    $output .= "<font size=\"1\" color=\"#$legendbarfc\" face=\"$font\">\n";
    $output .= "<font size=\"1\" color=\"#legendbarfc\" face=\"$font\"><a href=\"$onlineprogram\" style=\"color:#$legendbarfc;text-decoration:none\"><b>Who's Online:</b></a> $peopleonline Total People, $membersonline Member$ending1, and $guestsonline Guest$ending2</font>\n";
    $output .= "</td></tr>\n";
    $output .= "</table>\n";
    $output .= "</td></tr>\n";
    $output .= "</table><p>\n";
    $output .= "<table cellpadding=\"0\" border=\"0\" width=\"$tablewidth\">\n";
	$output .= "<tr><td align=\"left\"><img src=\"$imagesdir\/$graphicnewpost\" border=\"0\"><font size=\"1\" face=\"$font\" color=\"#$generalusefc\"> Contains new posts since the last time you logged on<br><img src=\"$imagesdir\/$graphicnonewpost\" border=\"0\"><font size=\"1\" face=\"$font\" color=\"#$generalusefc\"> No new posts since the last time you logged on</td></tr>\n";
    $output .= "</table><p>\n";
    }

$boardlastvisit = &dateformat("$boardlastvisit");
$output =~ s/\$boardlastvisit/$boardlastvisit/g;


# After going through each forum, it's time to update the lastvisitinfo cookie.
unless ($action eq "viewcategory") { &setcookie("lastvisitinfo,$newlastvisitinfo,30"); }

}
else { &noaccess; }

sub noaccess {
$output .= "<form action=\"$thisprogram\" method=\"post\">\n";
$output .= "You must read the readme file before you can go any further.  In your reading of the readme file, pay attention to the file and look for a line that says \"Word To Pass Go: Password here\".  replace Password here with the password that is actually in the readme file and then enter that password below.  Please pay close attention when reading the readme file, because the majority of the newbie questions are answered in the readme file.  You will save your time in waiting for us to answer your posts at the boards if you read the readme, because most likely your question is answered.  Thank you.  Also, If you could please modify your template file as talked about in the readme.  I modified the openscript JavaScript a bit to clean up the messenger, so please do the updates :)<br><br>\n";
$output .= "<font size=\"2\" face=\"$font\" color=\"#$legendbarfc\"><input name=\"inaccesskey\" type=\"text\" maxlength=\"35\" size=\"35\" value=\"$inaccesskey\"><input type=\"submit\" value=\"Submit\">\n";
$output .= "</form>\n";
}

$pwsn = "3";
&poweredby;
&printpage;