#!/usr/bin/perl

#############################################################
# Ikonboard v2.1
# Copyright 2001 Ikonboard.com - All Rights Reserved
# Ikonboard is a trademark of Ikonboard.com
#
# Software Distributed by: Ikonboard.com
# Visit us online at http://www.ikonboard.com
# Email us on boards@ikonboard.com
#
# All files written by Matthew Mecham
#############################################################


use CGI::Carp "fatalsToBrowser";          # Output errors to browser
use CGI qw(:standard);                    # Saves loads of work
$CGI::POST_MAX=1024 * 150;                # limit post data
$CGI::DISABLE_UPLOADS = 1;                # Disable uploads

eval {
($0 =~ m,(.*)/[^/]+,)   and unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) and unshift (@INC, "$1");
require "ikon.lib";          # Require ikonboard ()
require "data/progs.cgi";    # Require prog names
require "data/boardinfo.cgi";# Require board info
require "data/styles.cgi";   # Require styles info
};
if ($@) {
    print header(); print start_html(-title=>"Ikonboard Error!");
    print "Could not find these files: $@\nIf you are running NT you may need to enter the full path in each require statement in each script";
    print end_html; exit;
}

$|++;                                     # Unbuffer the output

#################--- Begin the program ---###################

$thisprog = "forums.cgi";


$query = new CGI;

$cookiepath     = $query->url(-absolute=>1);
$cookiepath     =~ s/$thisprog//sg;
$bypass         = $query -> param('bypass');
$inforum        = $query -> param('forum');
$intopic        = $query -> param('topic');
$action         = $query -> param('action');
$inshow         = $query -> param('show');
$jumpto         = $query -> param('jumpto');
die "Hack attempt!" unless $inforum =~ m!\A\d{1,3}\Z!;
die "Hack attempt!" if $intopic && $intopic !~ m!\A\d{1,7}\Z!;


$inmembername   = cookie("amembernamecookie");
$inpassword     = cookie("apasswordcookie");

$bypass         = &stripMETA("$bypass");
$inforum        = &stripMETA("$inforum");
$intopic        = &stripMETA("$intopic");
$action         = &stripMETA("$action");
$inshow         = &stripMETA("$inshow");
$jumpto         = &stripMETA("$jumpto");


              
if ((!$inmembername) or ($inmembername eq "Guest")) {
    $inmembername = "Guest";
    }
    else {
        &getmemberstime("$inmembername");
        &getlastvisit;
        $forumlastvisit = $lastvisitinfo{$inforum};
        $currenttime = time;
        &setlastvisit("$inforum,$currenttime");
        }


if ($action eq "accessrequired") {
    $inmembername  = $query -> param('membername');
    $inpassword    = $query -> param('password');
    &getmember("$inmembername");
    if ($userregistered ne "no" && $allowedentry{$inforum} eq "yes" && $inpassword eq $password) {
        $allowcookiename = "forumsallowed" . "$inforum";
        print "Set-Cookie: $allowcookiename=yes\;";
        print "\n";
        $allowed = "yes";
        }
        else {
            $allowed = "no";
            }
        }
        else {
            $tempaccess = "forumsallowed". "$inforum";
            $testentry = cookie("$tempaccess");
            if ($testentry eq "yes") { $allowed = "yes"; }
            else { $allowed = "no"; }
            }




if ($action eq "resetposts") {
    $currenttime = time;
    $currenttime = ($currenttime+10);
    $mv=1; &setlastvisit("$inforum,$currenttime");
    print redirect(-location=>"$boardurl/$thisprog?forum=$inforum",
                   -cookie=>[$tempvisitcookie, $permvisitcookie]);
    exit;
    }

print header(-cookie=>[$tempvisitcookie, $permvisitcookie]);

&forumjump;

if ($jumpto) {
    print redirect(-location=>"$jumpto");
    exit;
    }


        &getforum("$inforum");

        # define the thread button/forumgraphic, forum moderator and thread age menu

        $newthreadbutton = qq~<a href="$postprog?action=new&forum=$inforum"><img src="$imagesurl/images/newthread.gif" border="0"></a>~;
        
        if ($forumgraphic) {
        $forumgraphic = qq~<a href="$forumsprog?forum=$inforum"><img src="$imagesurl/images/$forumgraphic" border=0></a>~;
        }
        else { $forumgraphic = qq~<a href="$forumsprog?forum=$inforum"><img src="$imagesurl/images/$boardlogo" border=0></a>~; }
        
        &moderator;
        
        &title;
        
        # Print the header

        $output .= qq~
        <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth align=center>
                <tr>
                    <td width=30% rowspan=2>$forumgraphic
                       </td>
                       <td align=left valign=top><font face="$font" color=$fontcolormisc size=$dfontsize2>
                            <font face="$font" color=$fontcolormisc size=$dfontsize2>
	                        &nbsp;&nbsp;<img src="$imagesurl/images/closedfold.gif" border=0><a href="$forumsummaryprog">&nbsp;&nbsp;$boardname</a>
	                        <br>
                            &nbsp;&nbsp;<img src="$imagesurl/images/bar.gif" border=0><img src="$imagesurl/images/openfold.gif" border=0>&nbsp;&nbsp;$forumname
                       </td>
                </tr>
            $uservisitdata
        </tr>
        </table>
        <br>
        ~;

    # Check if it's a private forum, and is the member cleared?

    if (("$privateforum" eq "yes") && ("$allowed" ne "yes"))  { &accessneeded; }

    if (($inmembername) && ($privateforum ne "yes")) { &whosonline("$inmembername|Viewing forum <a href=\"$forumsprog?forum=$inforum\"><b>$forumname</b></a>|none"); }
        
    # Open up the forum threads list

    $filetoopen = "$ikondir" . "forum$inforum/list.cgi";
    $filetoopen = &stripMETA($filetoopen);
    if (-e $filetoopen) {
        open(FILE, "$filetoopen") or &error("Opening the forum&Sorry, that forum doesn't exist");
        flock (FILE, 2);
        @topics = <FILE>;
        close(FILE);
        }

    # Limit the total topics to a span

    $numberofitems = @topics;
    $maxtopics = 15;
    $numberofpages = $numberofitems / $maxtopics;
    
    if ($numberofitems > $maxtopics) { #if
        $showmore = "yes";
        if ($inshow eq "" || $inshow < 0) { $inshow = 0; }
        if ($inshow > 0) { $startarray = $inshow; }
            else { $startarray = 0; }
            $endarray = $inshow + $maxtopics - 1;
            if ($endarray < ($numberofitems - 1)) { $more = "yes"; }
            elsif (($endarray > ($maxtopics - 1)) && ($more ne "yes")) { $endarray = $numberofitems - 1; }
            } #
            else {
                $showmore = "no";
                $startarray = 0;
                $topicpages = qq~<font face="$font" color=$menufontcolor size=$dfontsize1>Single Page for this forum</font>~;
                $toptopicpages = $topicpages;
                $endarray = @topics - 1;
                }

    # if we have multiple pages, print them
    
        if ($showmore eq "yes") { #1
            if ($maxtopics < $numberofitems) { #2
                ($integer,$decimal) = split(/\./,$numberofpages);
                    if ($decimal > 0) { $numberofpages = $integer + 1; }
                        $pagestart = 0;
                        $counter = 0;
                            while ($numberofpages > $counter) { #3
                                $counter++;
                                if ($inshow ne $pagestart) { $pages .= qq~<a href="$thisprog?forum=$inforum&show=$pagestart"><font face="$font" color=$fonthighlight size=$dfontsize1><b>$counter</b></font></a> ~; }
                                 else { $pages .= qq~<a href="$thisprog?forum=$inforum&show=$pagestart"><font face="$font" color=$menufontcolor size=$dfontsize1>$counter</font></a> ~; }
                                $pagestart = $pagestart + $maxtopics;
                                } #e3
                            } #e2
                $topicpages = qq~<font face="$font" color=$menufontcolor size=$dfontsize1><b>Multiple pages for this forum</b> [ $pages ]~;
                } #1

        

        # Limit the pages output at the top, so we don't distort the tables

        if ($numberofpages > 10) {
            $toptopicpages = qq~<font face="$font" color=$menufontcolor size=$dfontsize1><b>Multiple pages for this forum</b> [ see below ]~;
            }
            else {
                $toptopicpages = $topicpages;
                }
        
        # Print the forum top bar

        $output .= qq~
            <table cellpadding=0 cellspacing=1 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
            <tr>
                <td>
            <table cellpadding=6 cellspacing=0 border=0 width=100%>
                <tr>
                  <td valign=middle align=left width="100%" bgcolor="$menubackground" nowrap>$toptopicpages</td>
                  <td valign=middle align=right bgcolor="$menubackground" nowrap><font face="$font" color=$fontcolormisc size=$dfontsize1>
                   <b>Forum moderated by:</b> $modoutput
                    </td>
                </tr>
           </table>
           </tr>
          </td>
         </table>
        <br>
        ~;

        

        

        # Start printing the threads

        $output .= qq~
                <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
                <tr>
                 <td>
                  <table cellpadding=3 cellspacing=1 border=0 width=100%>
                <tr>
                   <td bgcolor=$titlecolor width=50% colspan=2><font face="$font" color=$titlefontcolor size=$dfontsize1><b>$newthreadbutton</b></td>
                    <td bgcolor=$titlecolor align=left width=25%><font face="$font" color=$titlefontcolor size=$dfontsize1><b>Topic Info</b></td>
                   <td bgcolor=$titlecolor width=25%><font face="$font" color=$titlefontcolor size=$dfontsize1><b>Last Post</b></td>
                </tr>
                ~;



        # Grab the threads to show


        foreach $topic (@topics[$startarray ... $endarray]) { # start topic foreach
                chomp $topic;
                ($topicid, $topictitle, $topicdescription, $threadstate, $threadposts, $threadviews, $startedby, $startedpostdate, $lastposter, $lastpostdate) = split(/\|/,$topic);
                
                
        
        
        # Span time, yet again. Who needs sub-routes?
        
        $numberofitems = $threadposts + 1;
        $numberofpages = $numberofitems / $maxthreads;

        if ($numberofitems > $maxthreads) { #if
                
            if ($maxthreads < $numberofitems) { #2
                ($integer,$decimal) = split(/\./,$numberofpages);
                    if ($decimal > 0) { $numberofpages = $integer + 1; }
                        $pagestart = 0;
                        $counter = 0;
                        while ($numberofpages > $counter) { #3
                            $counter++;
                            $threadpages .= qq~<a href="$threadprog?forum=$inforum&topic=$topicid&start=$pagestart"> $counter </a>~;
                            $pagestart = $pagestart + $maxthreads;
                            } #e3
                        } #e2
                    $pagestoshow = qq~<font face="$font" color=$forumfontcolor size=$dfontsize1> &nbsp;[ Pages&nbsp;$threadpages ]~;
                    } #1

                
                                

                                # Forum Post markers


                                if (!$forumlastvisit) { $forumlastvisit = "0"; }
                                
                                $topicicon = "<img src=\"$imagesurl\/images\/topichotnonew.gif\" border=\"0\">";
                                
                                if (($threadposts => $hottopicmark) && ($forumlastvisit < $lastpostdate) && ($inmembername ne "Guest")) {
                                        $topicicon = "<img src=\"$imagesurl\/images\/topichot.gif\" border=\"0\">";
                                        }
                                if (($threadposts => $hottopicmark) && ($forumlastvisit > $lastpostdate) && ($inmembername ne "Guest")) {
                                        $topicicon = "<img src=\"$imagesurl\/images\/topichotnonew.gif\" border=\"0\">";
                                        }
                                if (($threadposts < $hottopicmark) && ($forumlastvisit < $lastpostdate) && ($inmembername ne "Guest")) {
                                        $topicicon = "<img src=\"$imagesurl\/images\/topicnew.gif\" border=\"0\">";
                                        }
                                if (($threadposts < $hottopicmark) && ($forumlastvisit > $lastpostdate) && ($inmembername ne "Guest")) {
                                        $topicicon = "<img src=\"$imagesurl\/images\/topicnonew.gif\" border=\"0\">";
                                        }
                                
                                if ($threadstate =~ /\bclosed\b/) {
                                        $topicicon = "<img src=\"$imagesurl\/images\/topiclocked.gif\" border=\"0\">";
                                        }
                        
                        
                        if ($lastpostdate ne "") {
                        $lastpostdate = $lastpostdate + ($timedifferencevalue*3600) + ($timezone*3600);
                        $longdate = &longdate("$lastpostdate");
                        $shorttime = &shorttime("$lastpostdate");
                        $lastpostdate = qq~<font size="$dfontsize1" face="$font" color="$fontcolormisc">$longdate - <font size="$dfontsize1" face="$font" color="$fontcolormisc">$shorttime~;
                        }
                        else {
                                $lastpostdate = qq~<font size="$dfontsize1" face="$font" color="$fontcolormisc">N/A~;
                                        $lastpoststamp = "";
                                }
                        $startedpostdate = $startedpostdate + ($timedifferencevalue*3600) + ($timezone*3600);
                        $startedlongdate = &shortdate("$startedpostdate");
                        $startedshorttime = &shorttime("$startedpostdate");
                        $startedpostdate = qq~<font size="$dfontsize1" face="$font" color="$fontcolormisc">$startedlongdate~;
        
                        $topictitle = qq~<a href="$threadprog?forum=$inforum&topic=$topicid">$topictitle</a>~;
                        $topicsticky = ($threadstate =~ /\bsticky\b/ ? '[ Sticky ]&nbsp; ' : '');
        
                        $startedbyfilename = $startedby;
                        $startedbyfilename =~ s/ /\_/isg;
                        
                        $lastposterfilename = $lastposter;
                        $lastposterfilename =~ s/ /\_/isg;
                        $lastposter = qq~<a href="$profileprog?action=show&member=$lastposterfilename">$lastposter</a>~;
                
                        if ($topicdescription) { $topicdescription = qq~&nbsp;&nbsp;&raquo;$topicdescription~; } 
                        
                        $output .=qq~
                                <tr>
                                <td bgcolor=$forumcolortwo width=5% align=center><font face="$font" color=$forumfontcolor size=$dfontsize2>$topicicon</td>
                                <td bgcolor=$forumcolortwo width=40%><font face="$font" color=$forumfontcolor size=$dfontsize2>$topicsticky<b>$topictitle</b> $pagestoshow<br><font size=$dfontsize1>$topicdescription</font></td>
                                <td bgcolor=$forumcolortwo align=left valign=middle><font face="$font" color=$forumfontcolor size=$dfontsize1><b>$threadposts</b> replies, viewed <b>$threadviews</b> times
                                <br>Started by: <a href="$profileprog?action=show&member=$startedbyfilename"><b>$startedby</b></a></td>
                                <td bgcolor=$forumcolorone><font face="$font" color=$forumfontcolor size=$dfontsize2>$lastpostdate<br>by: <b>$lastposter</b></td>
                                </tr>
                                ~;
                        $pagestoshow = undef;
                        $threadpages = undef;
                
                } # end topic foreach
                
        $output .= qq~
        <tr>
        <td bgcolor=$titlecolor colspan=4><font face="$font" color=$titlefontcolor size=$dfontsize1><b>$newthreadbutton</b></td>
        </tr></table></td>
        </tr></table>
        <table align=center width=$tablewidth bgcolor=$menubackground><tr>
        <td align=left>$topicpages</td><td align=right>$jumphtml</td></tr></table>
        
	~; 
	&getmember("$inmembername"); 
	if ($membercode eq "ad" || $membercode eq "mo") { 
	$output .= qq~ 
        <table align=center width=$tablewidth>
        <tr>
        <td align=right><font face="$font" color=$menufontcolor size=$dfontsize1>
        Forum Options: <a href="$forumoptionsprog?action=prune&forum=$inforum">Prune Forum</a>
        </td>
        </tr>
        </table>
        ~;    
	}        
	$output .= qq~ 
        <table align=center width=$tablewidth>
        <tr>
        <td align=left><img src="$imagesurl/images/topiclocked.gif" border="0"></td>
        <td align=left><font face="$font" color=$fontcolormisc size=$dfontsize1>Locked topic, no new replies accepted</font></td>
        </tr>
        <tr>
        <td align=left><img src="$imagesurl/images/topicnonew.gif" border="0"></td>
        <td align=left><font face="$font" color=$fontcolormisc size=$dfontsize1>Open topic</font></td>
        </tr>
        ~;
        
        if ($inmembername ne "Guest") {
        
                $output .= qq~
                <tr>
                <td align=left><img src="$imagesurl/images/topicnew.gif" border="0"></td>
                <td align=left><font face="$font" color=$fontcolormisc size=$dfontsize1>Open topic, new replies since your last visit</font></td>
                </tr>
                <tr>
                <td align=left valign=middle><img src="$imagesurl/images/topichot.gif" border="0">&nbsp;<img src="$imagesurl/images/topichotnonew.gif" border="0"></td>
                <td align=left><font face="$font" color=$fontcolormisc size=$dfontsize1>Topic with more than $hottopicmark replies</font></td>
                </tr>
                ~;
                }
                
        $output .= qq~</table><p><p>~;
        
        $output =~ s/value=\"$inthreadages\"/value=\"$inthreadages\" selected/;
        
&output(
-Title   => "$boardname &gt; $category &gt; $forumname", 
-ToPrint => $output, 
-Version => $versionnumber 
);

        

#### Access needed form

sub accessneeded {

        $output .= qq~
        <form action="$thisprog" method=POST>
        <input type=hidden name="forum" value="$inforum">
        <input type=hidden name="action" value="accessrequired">
        <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
                <tr>
                 <td>
                  <table cellpadding=3 cellspacing=1 border=0 width=100%>
        <tr>
        <td bgcolor=$miscbacktwo valign=middle colspan=4 align=center><font face="$font" color=$fontcolormisc size=$dfontsize2><b>Please enter your details to log in to the private forum</b></font></td></tr>
        <tr>
        <td bgcolor=$miscbackone valign=middle colspan=4><font face="$font" color=$fontcolormisc size=$dfontsize1>
        <br>You are required to log in once per browser session. Please make sure that you have cookies enabled in your web browser.<br>
        Only those that are granted permission to view this forum by the board Administrator are granted access<p></td>
        </tr>
        <tr>
        <td bgcolor=$miscbackone valign=middle colspan=2><font face="$font" color=$fontcolormisc size=$dfontsize1>Please enter your username</font></td>
        <td bgcolor=$miscbackone valign=middle colspan=2><input type=text name="membername" value="$inmembername" size=20> &nbsp; <a href="$registerprog"><font face="$font" color=$fontcolormisc size=$dfontsize1>Are you registered?</font></a></td></tr>
        <tr>
        <td bgcolor=$miscbackone valign=middle colspan=2><font face="$font" color=$fontcolormisc size=$dfontsize1>Please enter your password</font></td>
        <td bgcolor=$miscbackone valign=middle colspan=2><input type=password name="password" value="$inpassword" size=20> &nbsp; <font face="$font" color=$fontcolormisc size=$dfontsize1><a href="$profileprog?action=lostpass">Forgotten your password?</a></font></td></tr>
        <tr>
        <td bgcolor=$miscbacktwo valign=middle colspan=4 align=center><input type=submit name="submit" value="Log in"></td></tr></table></td></tr></table>
       </form>
        ~;      
        
        &output(
        -Title   => "$boardname", 
        -ToPrint => $output, 
        -Version => $versionnumber 
        );

        }