#!/usr/bin/perl

#############################################################
# Ikonboard v2.1
# Copyright 2000 Ikondiscussion.com - All Rights Reserved
# Ikondiscussion is a trademark of Ikondiscussion.com
#
# Software Distributed by: Ikondiscussion.com
# Visit us online at http://www.ikondiscussion.com
# Email us on boards@ikondiscussion.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=>"$ibtxt{'0025'}");
    print "$ibtxt{'0026'} $@\n$ibtxt{'0027'}";
    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");

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



&forumjump;
if ($jumpto) {
    print redirect(-location=>"$jumpto"); exit;
    }
if (!$inmembername) {
    $inmembername = "$ibtxt{'0043'}";
    }
    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("$ibtxt{'3001'}&$ibtxt{'3002'}$inforum/list.cgi");
        flock (FILE, 2);
        @allthreads = <FILE>;
        close(FILE);
        $totalthreadcount = @allthreads;
        $count = 0;
        open(FILE, ">$filetoopen");
        flock(FILE, 2);
        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;
                print FILE "$linetokeep\n";
                }
                else { print FILE "$line\n"; }
            $count++;
            }
        close(FILE);
        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"> $ibtxt{'3003'} >></a>~;
            }
        
    if ($intopic eq $numbercounter[$totalthreadcount]) { undef $backlink; }
        else {
            $backtopic = $keepcounter + 1;
            $threadback = $numbercounter[$backtopic];
            $backlink = qq~<a href="$threadprog?forum=$inforum&topic=$threadback"><< $ibtxt{'3004'} </a>~;
            }
        
    $nexttopiclinks = "$ibtxt{'3019'}<br>"; $nexttopiclinks .= "$backlink" if $backlink; $nexttopiclinks .= "$nextlink" if $nextlink;
        
    &postings;
    &whosonline("$inmembername|$ibtxt{'3020'} <a href=\"$threadprog?forum=$inforum&topic=$intopic\"><b>$topictitle</b></a> $ibtxt{'2028'} <a href=\"$forumsprog?forum=$inforum\"><b>$forumname</b></a>|$ibtxt{'1602'}") if ($privateforum ne "yes");
    &moderator;
    &title;

    $filetoopen = "$ikondir" . "forum$inforum/$intopic.thd";
    $filetoopen = &stripMETA($filetoopen);
        if (-e $filetoopen) {
        open(FILE, "$filetoopen") or &error("$ibtxt{'3005'}&$ibtxt{'3006'}");
        @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=1>$ibtxt{'3007'}</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=1><b>$counter</b></font></a> ~; }
                else { $pages .= qq~<a href="$thisprog?forum=$inforum&topic=$intopic&start=$pagestart"><font face="$font" color=$menufontcolor size=1>$counter</font></a> ~; }
            $pagestart = $pagestart + $maxthreads;
            }
        }
     $pages = qq~<font face="$font" color=$menufontcolor size=1><b>$ibtxt{'3008'}</b> [ $pages ]~;
     } 

    if (("$privateforum" eq "yes" && "$allowed" ne "yes")) { &error("$ibtxt{'1606'}&$ibtxt{'1607'}"); }
    $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<br> 
</td>
                    <td valign=middle align=top><font face="$font" color=$fontcolormisc size=2>
                        <font face="$font" color=$fontcolormisc size=2>
	                    &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>   <!--  statisitklink -->

        <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=1>
                $nexttopiclinks</td><td width=100%>$pages<br><font face="$font" color=$fontcolormisc size=1><b>$ibtxt{'0604'}</b> $modoutput  
               </td>
                <td align=right valign=bottom bgcolor=$menubackground nowrap><!-- $sendtofriendicon&nbsp; -->$printpageicon
                </td>
                </tr>
            </table>
        </td></tr></table>
 <br><center>   
 



<script type="text/javascript"><!--
google_ad_client = "pub-3878718014452400";
/* 728x90, created 1/24/10 */
google_ad_slot = "3772675754";
google_ad_width = 728;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>






<br>








 
  </center> <br>
        <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
            <tr><td>
                <table cellpadding=0 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");
       
        if ($joineddate) {
            $joineddate = $joineddate + ($timedifferencevalue*3600) + ($timezone*3600);
            $joineddate = &joineddate("$joineddate");
            }
            else { $joineddate = "$ibtxt{'3009'}"; }

        if (!$numberofposts) { $numberofposts = "$ibtxt{'3009'}"; }
    
        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;
            $post = qq($post<br><br>-----<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")) {
            $useravatar = qq(<br><img src="$imagesurl/avatars/$useravatar.gif" border=0 width="32" height="32">);
            }
            else { undef $useravatar; }


        $memberfilename = $membername;
        $memberfilename =~ y/ /_/;
        
        if ($threadstate ne "closed") { 
            $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('$messangerprog?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://www.icq.com/scripts/online.dll?icq=$icqnumber&img=5" border=0><img src="$imagesurl/images/icq.gif" border=0></a>~; }
           #  else { 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 = "$ibtxt{'1874'}"; }
            }
            elsif ($membercode eq "mo") {
                   $posterfontcolor = "$teamnamecolor";
                   $membername = "$membername <img src=\"$imagesurl/images/team.gif\" border=0>";
                if ($membertitle eq "") { $membertitle = "$ibtxt{'0007'}"; }
                }
                elsif ($membercode eq "banned") {
                    $posterfontcolor = "$posternamecolor";
                    $membergraphic = "";
                    $membertitle = "$ibtxt{'3010'}";
                    }
                    else { $posterfontcolor = "$posternamecolor"; }
                    
                    
    if ($membertitle eq "member" || $membertitle eq "$ibtxt{'0136'}") { $membertitle = $mtitle; }
        
    $membertitle =~ s/&lt;/</g; $membertitle =~ s/&gt;/>/g; $membertitle =~ s/&quot;/"/g;

    $post =~ s/\($ibtxt{'1537'}(.+?)\)/\<font size=1>\($ibtxt{'1537'}$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="2">
            		<b>$membername</b></font>
            		<br>$useravatar
            		<br>$membergraphic
                    <br><font face="$font" color=$postfontcolor size=1>$membertitle</font>
        		</td>
        		<td bgcolor="$postbackcolor" valign=top width=80% height=100%>
            		$editgraphic &nbsp; $partition $profilegraphic $homepagegraphic $emailgraphic $privatemessagegraphic $aolgraphic $icqgraphic $partition &nbsp; $replygraphic     <font face="$font" color=$postfontcolor size=1>
    			    <hr size=1 width=100% color=$tablebordercolor>
            		<font face="$font" color=$postfontcolor size=2>
           			$post
					
					
					
					<br><br>
					<font size="2">
					
					<!-- WERBUNG NACH BEITRAG UND SIGNATUR -->


					
				<font color="666666"><SCRIPT SRC="/cgi-bin/random/be_random.cgi?mode=nossi"></SCRIPT></font><br>

			

				
					





	
					
				</td>
			</tr>
			<tr>
				<td class="bottomline" bgcolor="$postbackcolor">
					<hr size=1 width=100% color=$tablebordercolor>
                    <font face="$font" color=$postfontcolor size=1>$ibtxt{'0212'} <b>$numberofposts</b> | $ibtxt{'3012'} <b>$joineddate</b> | $ibtxt{'0319'}: <b>$postdate</b> |<!-- <a href="$viewipprog?forum=$inforum&topic=$intopic&postno=$editpostnumber">$ibtxt{'3013'}</a> --></font>
    	    </td>
             </tr>
			</table>
			</td>
		</tr>
    <!-- end Message -->
    ~;

#------- END HTML

    $editpostnumber++; $postcountnumber++;

    }

#------- 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=1>
            $nexttopiclinks</td>
            <td valign=middle nowrap width=30%>
            <font face="$font" color=$menufontcolor size=1>$pages</td>
            <td align=right valign=bottom bgcolor=$menubackground nowrap>$jumphtml</td>
        </tr>
        </table></td></tr></table>
        <p>

        <table cellspacing=3 cellpadding=0 width=$tablewidth align=center>
        <tr><td>
        <td valign=middle nowrap align=right><font face="$font" color=$menufontcolor size=1>
            $ibtxt{'3014'} <a href="$postingsprog?action=lock&forum=$inforum&topic=$intopic">$ibtxt{'3015'}</a> | 
            <a href="$postingsprog?action=unlock&forum=$inforum&topic=$intopic">$ibtxt{'3016'}</a> | 
            <a href="$postingsprog?action=delete&forum=$inforum&topic=$intopic">$ibtxt{'3017'}</a> | 
            <a href="$postingsprog?action=movetopic&forum=$inforum&topic=$intopic">$ibtxt{'3018'}</a>
        </td>
    </tr>
    </table>
    <p>
	    <p>
    <!-- Cgi-bot End bottom page -->
    ~;

#------- 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 ne "closed") {
    $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