#!/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";
use CGI qw(:standard);
$CGI::POST_MAX=1024 * 150;
$CGI::DISABLE_UPLOADS = 1;

eval {
($0 =~ m,(.*)/[^/]+,)   && unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1");
require "ikon.lib";
require "data/progs.cgi";
require "data/boardinfo.cgi";
require "data/styles.cgi";
require "data/membertitles.cgi";
};
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;
    }

$|++;

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

$thisprog = "topic.cgi";

$query = new CGI;
$cookiepath     = $query->url(-absolute=>1);
$cookiepath     =~ s/$thisprog//sg;
$inforum        = $query -> param('forum');
$inforum        = &stripMETA("$inforum");
$intopic        = $query -> param('topic');
$intopic        = &stripMETA("$intopic");
$instart        = $query -> param('start');
$instart        = &stripMETA("$instart");
$jumpto         = $query -> param('jumpto');
$jumpto         = &stripMETA("$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");



&forumjump;
if ($jumpto) {
    print redirect(-location=>"$jumpto"); exit;
    }
if (!$inmembername) {
    $inmembername = "Guest";
    }
    else {
        &getmember("$inmembername");
        if ($allowedentry{$inforum} eq "yes") { $allowed = "yes"; }
            else { $allowed  = "no"; }
        &getmemberstime("$inmembername");
        &getlastvisit;
        $forumlastvisit = $lastvisitinfo{$inforum};
        $currenttime = time;
        &setlastvisit("$inforum,$currenttime");
        }

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

    &getforum($inforum);

    if ($forumgraphic) { $forumgraphic = qq~<a href="$forumsprog?forum=$inforum"><img src="$imagesurl/images/$forumgraphic" border=0></a>~; }
        else { $forumgraphic = qq~<a href="$boardurl/$forumsummaryprog"><img src="$imagesurl/images/$boardlogo" border=0></a>~; }

    $filetoopen = "$ikondir" . "forum$inforum/list.cgi";
    $filetoopen = &stripMETA($filetoopen);
    if (-e $filetoopen) {
        open(FILE, $filetoopen) or &error("Opening File&Cannot locate forum$inforum/list.cgi");
        flock (FILE, 1);
        @allthreads = <FILE>;
        close(FILE);
    
        $totalthreadcount = @allthreads;
        $count = 0;
        foreach $line (@allthreads) { #start foreach @threads
            ($tempno, $trash) = split(/\|/, $line);
            chomp $line;
            push (@numbercounter, $tempno);
            if ($intopic eq $tempno) {
                ($topicid, $topictitle, $topicdescription, $threadstate, $threadposts ,$threadviews, $startedby, $startedpostdate, $lastposter, $lastpostdate) = split(/\|/,$line);
                $threadviews++; $keepcounter = $count;
                $linetokeep = "$topicid|$topictitle|$topicdescription|$threadstate|$threadposts|$threadviews|$startedby|$startedpostdate|$lastposter|$lastpostdate";
                chomp $linetokeep;
                $processed_data .= "$linetokeep\n";
                }
                else { $processed_data .= "$line\n"; }
            $count++;
            }
        if (($processed_data eq "") || ($processed_data !~ m!\|!)) { &error("Missing Data&Data as corrupted on the server. Please go back and try again"); }
        open(FILE, ">$filetoopen");
        flock(FILE, 2);
        print FILE $processed_data;
        close(FILE);
        undef $processed_data;
        my $file = "$ikondir" . "forum$inforum/$intopic.pl";
        open(MSG, ">$file");
        flock(MSG, 2);
        print MSG $linetokeep;
        close(MSG);
        }    
            
    $totalthreadcount = @numbercounter; $totalthreadcount--;

    if ($intopic eq $numbercounter[0]) { undef $nextlink; }
        else {
            $nexttopic = $keepcounter - 1;
            $threadnext = $numbercounter[$nexttopic];
            $nextlink = qq~<a href="$threadprog?forum=$inforum&topic=$threadnext"> Next >></a>~;
            }
        
    if ($intopic eq $numbercounter[$totalthreadcount]) { undef $backlink; }
        else {
            $backtopic = $keepcounter + 1;
            $threadback = $numbercounter[$backtopic];
            $backlink = qq~<a href="$threadprog?forum=$inforum&topic=$threadback"><< Back </a>~;
            }
        
    $nexttopiclinks = "Topic Jump<br>"; $nexttopiclinks .= "$backlink" if $backlink; $nexttopiclinks .= "$nextlink" if $nextlink;
        
    &postings;
    &whosonline("$inmembername|Viewing topic <a href=\"$threadprog?forum=$inforum&topic=$intopic\"><b>$topictitle</b></a> in <a href=\"$forumsprog?forum=$inforum\"><b>$forumname</b></a>|none") if ($privateforum ne "yes");
    &moderator;
    &title;

    $filetoopen = "$ikondir" . "forum$inforum/$intopic.thd";
    $filetoopen = &stripMETA($filetoopen);
        if (-e $filetoopen) {
        open(FILE, $filetoopen) or &error("Opening a topic&This topic does not exist");
        @threads = <FILE>;
        close(FILE);
        }

    ($trash, $topictitle) = split(/\|/,$threads[0]);

    $numberofitems = @threads;
    $numberofpages = $numberofitems / $maxthreads;

    if ($numberofitems > $maxthreads) {
        $showmore = "yes";
        if ((!$instart) or ($instart < 0)) { $instart = 0; }
        if ($instart > 0) { $startarray = $instart; } else { $startarray = 0; }
        $endarray = $instart + $maxthreads - 1;
        if ($endarray < ($numberofitems - 1)) { $more = "yes"; }
        if (($endarray > ($maxthreads - 1)) and ($more ne "yes")) { $endarray = $numberofitems - 1; }
        }
        else {
             $showmore = "no";
             $startarray = 0;
             $pages = qq~<font face="$font" color=$menufontcolor size=$dfontsize1>Single Page for this topic</font>~;
             $endarray = $numberofitems - 1;
             }

     if ($showmore eq "yes") {
     if ($maxthreads < $numberofitems) {
        ($integer,$decimal) = split(/\./,$numberofpages);
        if ($decimal > 0) { $numberofpages = $integer + 1; }
            $pagestart = 0; $counter = 0;
            while ($numberofpages > $counter) {
                $counter++;
                if ($instart ne $pagestart) { $pages .= qq~<a href="$thisprog?forum=$inforum&topic=$intopic&start=$pagestart"><font face="$font" color=$fonthighlight size=$dfontsize1><b>$counter</b></font></a> ~; }
                else { $pages .= qq~<a href="$thisprog?forum=$inforum&topic=$intopic&start=$pagestart"><font face="$font" color=$menufontcolor size=$dfontsize1>$counter</font></a> ~; }
            $pagestart = $pagestart + $maxthreads;
            }
        }
     $pages = qq~<font face="$font" color=$menufontcolor size=$dfontsize1><b>Multiple pages for this topic</b> [ $pages ]~;
     } 

    if (("$privateforum" eq "yes" && "$allowed" ne "yes")) { &error("Entering Private Topic&Sorry, you do not have access in this forum"); }
    $printpageicon = qq~<a href="$printpageprog?forum=$inforum&topic=$intopic"><img src="$imagesurl/images/printpage.gif" border=0></a>~;
    if ($privateforum ne "yes") { $sendtofriendicon = qq~<a href="$ikonfriendprog?forum=$inforum&topic=$intopic"><img src="$imagesurl/images/emailtofriend.gif" border=0></a>~; }

#------- HTML

        $output .= qq~
        <!-- Cgi-bot Start top of topic page -->
        <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth align=center>
            <tr><td width=30% rowspan=2>$forumgraphic</td>
                    <td valign=middle align=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/closedfold.gif" border=0>&nbsp;&nbsp;<a href="$forumsprog?forum=$inforum">$forumname</a>
                        <br>
                        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="$imagesurl/images/bar.gif" border=0><img src="$imagesurl/images/openfold.gif" border=0>&nbsp;&nbsp;$topictitle
                    </td>
                $uservisitdata
                </tr>
        </table>
        <br>
        <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 bgcolor="$menubackground"><td valign=middle align=center nowrap width=10%><font face="$font" color=$fontcolormisc size=$dfontsize1>
                $nexttopiclinks</td><td width=100%>$pages<br><font face="$font" color=$fontcolormisc size=$dfontsize1><b>Forum moderated by:</b> $modoutput
                </td>
                <td align=right valign=bottom bgcolor=$menubackground nowrap>$sendtofriendicon&nbsp;$printpageicon
                </td>
                </tr>
            </table>
        </td></tr></table>
        <p>
        <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 colspan=2 align="left" valign="middle">$newthreadbutton &nbsp; $replybutton</td>
            </tr>
         <!-- Cgi-bot End top of topic page -->
         ~;

#------- END HTML

    $editpostnumber = $startarray; $editpostnumber++; $postcountnumber = 0;
    
    foreach (@threads[$startarray .. $endarray]) {

        ($membername, $topictitle, $postipaddress, $showemoticons, $showsignature, $postdate, $post) = split(/\|/,$_);
        
        $postdate = $postdate + ($timedifferencevalue*3600) + ($timezone*3600);
        $postdate = &dateformat("$postdate");
    
        &getmember("$membername");
        $m_membername = &stripMETA($membername);
        $m_membername =~ y! !_!; &set_up_guest() unless (-e $ikondir . 'members/'.$m_membername.'.cgi');
        
if ($joineddate) {
            $joineddate = $joineddate + ($timedifferencevalue*3600) + ($timezone*3600);
            $joineddate = &joineddate("$joineddate");
            }
            else { $joineddate = "N/A"; }

        if (!$numberofposts) { $numberofposts = "N/A"; }
    
        if (($post =~ /#Moderation Mode/i) and ($membercode eq 'mo' || $membercode eq 'ad')) {
            $post =~ s/&lt;/</g; $post =~ s/&gt;/>/g; $post =~ s/&quot;/\"/g;
            }

         if ($htmlstate eq 'on') {
            $post =~ s/&lt;/</g; $post =~ s/&gt;/>/g; $post =~ s/&quot;/\"/g;
            }
            
        if ($idmbcodestate eq 'on') {
            $post = &ikoncode("$post");
            }
        
        if ($count eq 1) {
                $postbackcolor = "$postcolorone"; $postfontcolor = "$postfontcolorone"; $count++;
                }
                else {
                    $postbackcolor = "$postcolortwo"; $postfontcolor = "$postfontcolortwo"; $count = 1;
                    }
    
        if (($emoticons eq 'on') and ($showemoticons eq 'yes') and ($post =~ /:(.+?):/)) {
            $post = &doemoticons("$post");
            }
    
        if (($emoticons eq 'on') && ($showemoticons eq 'yes')) {
            $post =~ s/\:\)/<img src=\"$imagesurl\/emoticons\/smile.gif\" border=\"0\">/g;
            $post =~ s/\;\)/<img src=\"$imagesurl\/emoticons\/wink.gif\" border=\"0\">/g;
            $post =~ s/\:\(/<img src=\"$imagesurl\/emoticons\/sad.gif\" border=\"0\">/g;
            $post =~ s/\:o/<img src=\"$imagesurl\/emoticons\/shocked.gif\" border=\"0\">/g;
            }
            
        
        if (($signature) and ($showsignature eq 'yes')) {
            $signature =~ s/</&lt;/g; $signature =~ s/>/&gt;/g;
            $signature =~ s/\&amp;/\&/isg;
            $signature =~ s/\[b\]/<b>/isg;
            $signature =~ s/\[\/b\]/<\/b>/isg;
            $signature =~ s/\[i\]/<i>/isg;
            $signature =~ s/\[\/i\]/<\/i>/isg;
            $signature =~ s/\[url=\s*(.*?)\s*\]\s*(.*?)\s*\[\/url\]/<a href=\"$1\" target=\"_blank\">$2<\/a>/isg; 
            $signature =~ s/\[url\]\s*http:\/\/(.*?)\s*\[\/url\]/<a href=\"http:\/\/$1\" target=\"_blank\">http:\/\/$1<\/a>/isg;
            $signature =~ s/\[url\]\s*(.*?)\s*\[\/url\]/<a href=\"http:\/\/$1\" target=\"_blank\">$1<\/a>/isg;
            $signature =~ s/\[br\]/\<br\>/isg;
            $signature =~ s/\\(\S+?)\@(\S+)/<a href="mailto:$1\@$2\"\>$1\@$2<\/a>/ig;             	    
            $signature =~ s/\[email=(\S+?)\]/<a href=\"mailto:$1\">/isg;             	    
            $signature =~ s/\[\/email\]/<\/a>/isg;
            $signature =~ s/\[img\](.+?)\[\/img\]/<img src=\"$1\">/isg;
            $signature =~ s/\[color=(\S+?)\]/<font color=\"$1\">/isg;
            $signature =~ s/\[\/color\]/<\/font>/isg;
            $post = qq($post<br><br>&#151;&#151;<br>$signature);
            }
            
        if    ($numberofposts > $mpostmark5) { $mtitle = "$mtitle5";  $membergraphic = "$mgraphic5"; }
        elsif ($numberofposts > $mpostmark4) { $mtitle = "$mtitle4";  $membergraphic = "$mgraphic4"; }
        elsif ($numberofposts > $mpostmark3) { $mtitle = "$mtitle3";  $membergraphic = "$mgraphic3"; }
        elsif ($numberofposts > $mpostmark2) { $mtitle = "$mtitle2";  $membergraphic = "$mgraphic2"; }
        else { $mtitle = "$mtitle1"; $membergraphic = "$mgraphic1"; }
        if    ($membergraphic) { $membergraphic = "<img src=\"$imagesurl/images/$membergraphic\" border=\"0\">"; }
        
        if (($avatars eq "on") && ($useravatar) && ($useravatar ne "noavatar")) {
            ($avatarwidth, $avatarheight) = (32, 32);
            ($avatarwidth, $avatarheight) = ($1, $2)
              if $useravatar =~ /\((\d+)x(\d+)\)$/;
            $useravatar = qq(<br><img src="$imagesurl/avatars/$useravatar.gif" border=0 width="$avatarwidth" height="$avatarheight">);
            }
            else { undef $useravatar; }


        $memberfilename = $membername;
        $memberfilename =~ y/ /_/;
        
        if ($threadstate !~ /\bclosed\b/) { 
            $replygraphic = qq~<a href="$postprog?action=replyquote&forum=$inforum&topic=$intopic&postno=$editpostnumber"><img src="$imagesurl/images/reply.gif" border=0></a>~;
            }
            else {
                 undef $replygraphic;
                }
        $privatemessagegraphic = qq~<a href="javascript:openScript('$messengerprog?action=new&touser=$memberfilename',600,400)"><img src="$imagesurl/images/message.gif" border=0></a>~;
        
        $profilegraphic = qq~<a href="$profileprog?action=show&member=$memberfilename"><img src="$imagesurl/images/profile.gif" border=0></a>~;
        $editgraphic    = qq~<a href="$postingsprog?action=edit&forum=$inforum&topic=$intopic&postno=$editpostnumber"><img src="$imagesurl/images/edit.gif" border=0></a>~;
        $partition      = qq~<img src="$imagesurl/images/part.gif" border=0>~;
    
        if($showemail eq "yes") { $emailgraphic = qq~<a href="mailto:$emailaddress"><img src="$imagesurl/images/email.gif" border=0></a>~; }
            else { undef $emailgraphic; }
    
        $homepage =~ s/http\:\/\///sg;
        if($homepage) { $homepagegraphic = qq~<a href="http://$homepage" target="_blank"><img src="$imagesurl/images/homepage.gif" border=0></a>~; }
            else { undef $homepagegraphic; }
        
        if ($aolname) { $aolgraphic = qq~<a href="javascript:openScript('$miscprog?action=aim&aimname=$aolname',450,200)"><img src="$imagesurl/images/aol.gif" border=0></a>~; }
            else { undef $aolgraphic; }
    
        #if (($icqnumber) && ($icqnumber =~ /[0-9]/)) { $icqgraphic = qq~<a href="javascript:openScript('$miscprog?action=icq&UIN=$icqnumber',450,300)"><img src="http://wwp.icq.com/scripts/online.dll?icq=$icqnumber&img=5" border=0><img src="$imagesurl/images/icq.gif" border=0></a>~; }
        #    else { undef $icqgraphic; }
        undef $icqgraphic;
    
        if ($membercode eq "ad") {
            $posterfontcolor = "$adminnamecolor";
            $membername = "$membername <img src=\"$imagesurl/images/team.gif\" border=0>";
            $membergraphic = "<img src=\"$imagesurl/images/$admingraphic\" border=\"0\">";
            if ($membertitle eq "") { $membertitle = "Administrator"; }
            }
            elsif ($membercode eq "mo") {
                   $posterfontcolor = "$teamnamecolor";
                   $membername = "$membername <img src=\"$imagesurl/images/team.gif\" border=0>";
                if ($membertitle eq "") { $membertitle = "Moderator"; }
                }
                elsif ($membercode eq "banned") {
                    $posterfontcolor = "$posternamecolor";
                    $membergraphic = "";
                    $membertitle = "BANNED";
                    }
                    else { $posterfontcolor = "$posternamecolor"; }
                    
                    
    if ($membertitle eq "member" || $membertitle eq "Member") { $membertitle = $mtitle; }
        
    $membertitle =~ s/&lt;/</g; $membertitle =~ s/&gt;/>/g; $membertitle =~ s/&quot;/"/g;

    $post =~ s/\(Edited by(.+?)\)/\<font size=$dfontsize1>\(Edited by$1\)\<\/font\>/isg;
    
#------- HTML
    
    $output .= qq~
    <!--Begin Msg Number $postcountnumber-->
		<tr>
			<td bgcolor="$postbackcolor">
			<table width=100% cellpadding=4 cellspacing=0 bgcolor="$postbackcolor">
			<tr>
        		<td bgcolor="$postbackcolor" valign="top" width=20%  rowspan=2>
            		<font face="$posternamefont" color="$posterfontcolor" size="$dfontsize2">
            		<b>$membername</b></font>
            		<br>$useravatar
            		<br>$membergraphic
                    <br><font face="$font" color=$postfontcolor size=$dfontsize1>$membertitle</font>
        		</td>
        		<td bgcolor="$postbackcolor" valign=top width=80% height=100%>
            		$editgraphic &nbsp; $partition $profilegraphic $homepagegraphic $emailgraphic $privatemessagegraphic $aolgraphic $icqgraphic $partition &nbsp; $replygraphic
    			    <hr size=1 width=100% color=$tablebordercolor>
            		<font face="$font" color=$postfontcolor size=$dfontsize2>
           			$post
				</td>
			</tr>
			<tr>
				<td class="bottomline" bgcolor="$postbackcolor">
					<hr size=1 width=100% color=$tablebordercolor>
                    <font face="$font" color=$postfontcolor size=$dfontsize1>Total Posts: <b>$numberofposts</b> | Joined <b>$joineddate</b> | Posted on: <b>$postdate</b> | <a href="$viewipprog?forum=$inforum&topic=$intopic&postno=$editpostnumber">IP</a></font>
    		    </td>
             </tr>
			</table>
			</td>
		</tr>
    <!-- end Message -->
    ~;

#------- END HTML

    $editpostnumber++; $postcountnumber++; undef $membercode;

    }

#------- HTML

    $output .= qq~
    <!-- Cgi-bot Bottom of page -->
        <tr>
            <td bgcolor=$titlecolor colspan=2 align="left" valign="middle">$newthreadbutton &nbsp; $replybutton</td>
            </tr>
            </table>
        </td>
      </tr>
    </table>
    <p>
    <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 bgcolor="$menubackground"><td valign=middle align=center nowrap width=10%><font face="$font" color=$fontcolormisc size=$dfontsize1>
            $nexttopiclinks</td>
            <td valign=middle nowrap width=30%>
            <font face="$font" color=$menufontcolor size=$dfontsize1>$pages</td>
            <td align=right valign=bottom bgcolor=$menubackground nowrap>$jumphtml</td>
        </tr>
        </table></td></tr></table>
        <p>
        ~;
	&getmember($inmembername);
	if ($membercode eq "ad" || $membercode eq "mo") { 
	$output .= qq~
        <table cellspacing=3 cellpadding=0 width=$tablewidth align=center>
        <tr><td>
        <td valign=middle nowrap align=right><font face="$font" color=$menufontcolor size=$dfontsize1>
            Topic Options: <a href="$postingsprog?action=lock&forum=$inforum&topic=$intopic">Lock topic</a> | 
            <a href="$postingsprog?action=edittopic&forum=$inforum&topic=$intopic">Edit topic</a> | 
            <a href="$postingsprog?action=unlock&forum=$inforum&topic=$intopic">Unlock topic</a> | 
            <a href="$postingsprog?action=delete&forum=$inforum&topic=$intopic">Delete topic</a> | 
            <a href="$postingsprog?action=movetopic&forum=$inforum&topic=$intopic">Move topic</a>
        </td>
    </tr>
    </table>
    <p>
    <p>
    ~;
	} 


#------- END HTML

    &output(
        -Title   => "$boardname - $topictitle", 
        -ToPrint => $output, 
        -Version => $versionnumber 
        );


sub postings {

$newthreadbutton = qq~<a href="$postprog?action=new&forum=$inforum"><img src="$imagesurl/images/newthread.gif" border="0"></a>~;

if ($threadstate !~ /\bclosed\b/) {
    $replybutton = qq~<a href="$postprog?action=reply&forum=$inforum&topic=$intopic"><img src="$imagesurl/images/replytothread.gif" border="0"></a>~;
    }
    else { $replybutton = qq~<img src="$imagesurl/images/closed.gif" border="0">~; }
}


#------- END OF SCRIPT