<?php
require_once 'start.php';
require_once 'includes/addeditfuncs.php'; // needed for htmltowsn, adminbypassjavascript and another function
if ($switches['linkcalendars']) { require_once 'includes/eventfunctions.php'; }
setflag('addedit');
if (!$id && $linktitle) $id = $db->selectitem('id', 'linkstable', fieldmatchcond('title', unrewritetitle($linktitle))." AND deleted=0");
if (!$switches['comments']) throw404(); // this page is not applicable, so get rid of the spiders

$disablejavascriptquickreply = false;
if (ismobile()) $disablejavascriptquickreply = true; // javascript quickpost method fails on some phones and is off screen so not intuitive, so let's disable it on mobile devices

$format = paramvalue('format');
$modnote = paramvalue('modnote'); 

   // allow using next and previous links on comments page
 if (!paramset('orderlinks')) $orderlinks = $settings->orderlinks;
 $condition = 'validated=1 AND deleted=0 AND hide=0';
 if (paramset('catid') && $catid > 0) $condition .= ' AND catid='. $catid;
 if (paramset('orderid') && is_numeric($orderid) && $orderid > 0)
 { 
  $getit = $db->select('all', 'linkstable', $condition, $orderlinks, "LIMIT $orderid,1");
  $n = $db->numrows($getit);
  if ($n)
  {
   $thislink = new onelink('row', $db->row($getit));
   if ($orderid == 0) $previous = $orderid;
  }
  else
  {
   $orderid = $orderid - 1;
   $getit = $db->select('all', 'linkstable', $condition, $orderlinks, "LIMIT $orderid,1");
   $row = $db->row($getit);
   $thislink = new onelink('row', $row);
   if ($orderid == 0) $previous = $orderid; 
  }
  if ($thislink) $id = $thislink->id;  
 }
// end (for now -- more to follow way below) allow using next and previous links on comments page

setflag('commentspage');
$settings->searchhighlightexclude .= 'postername,name,';
$settings->searchhighlightexclude .= trim($settings->searchhighlightexclude, ',');
if (paramset('highlight')) { $searchhighlight = true; $searchhighlightterms = explode(' ', $highlight); }

// find thread for post
if (paramset('post') && !$linkid && !$id) { $p = new comment('id', $post); $id = $p->linkid; }

// check that this is a valid thread
if (paramset('linkid')) $linkid = paramvalue('linkid'); else $linkid = $id;

if ($linkid == '')
{ // fix obscure rewrite issue
 $url = str_replace($settings->dirurl .'/', '', currenturl());
 $url = str_replace($settings->rewritethread, '', $url);
 $url = trim($url, '/');
 $bits = explode('/', $url);
 $linkid = $bits[0]; 
 $page = $bits[1];
}
if (paramset('goto'))
{ 
 $l = new onelink('id', $linkid);
 $condition = 'validated=1 AND hide=0 AND deleted=0';
 if ($catid > 0) $condition .= ' AND catid='. $catid;	
 if ($goto == 'previous')
 {
    $getid = $db->select('id', 'linkstable', $condition .' AND lastcomment < '. $l->lastcomment, 'ORDER BY lastcomment DESC', 'LIMIT 0,1');
	if ($db->numrows($getid)) $linkid = $db->rowitem($getid);
 }  
 else if ($goto == 'next')
 {
	$getid = $db->select('id', 'linkstable', $condition .' AND lastcomment > '. $l->lastcomment, 'ORDER BY lastcomment ASC', 'LIMIT 0,1');
	if ($db->numrows($getid)) $linkid = $db->rowitem($getid);
 }
}

if (paramvalue('format') == 'events')
{
 if ($memid == '') $memid = $id;
 if (!$memid) endwithbadrequest();
 $thislink = new member('id', $memid);
 $path[0][0] = $settings->dirurl .'/profile.php'; 
 $path[1][0] = $language->title_memhome;
 $dest = 'comments.php?format=events&amp;id='. $id;
 $itemcond = "eventid={$thislink->id}";
 //$area = $thislink->replacements($language->title_eventcomments);
}
else if (paramvalue('format') == 'usernotes')
{
 if (!isset($memid) || $memid == '') $memid = $id;
 if (!$memid) endwithbadrequest();
 $thislink = new member('id', $memid);
 $thislink->deleted = 0; $thislink->internalto = 0; $internalto = 0; $thislink->lastedit = $thislink->time;
 $path[0][0] = $settings->dirurl .'/profile.php'; 
 $path[1][0] = $language->title_memhome;
 $dest = 'comments.php?format=usernotes&amp;modnote='.paramvalue('modnote').'&amp;id='. $id;
 if (paramset('modnote'))
 {
  $itemcond = "usernoteon={$thislink->id} AND modnote=1";
  $area = $thislink->replacements($language->title_modnotes);
 }
 else
 {
  $itemcond = "usernoteon={$thislink->id} AND modnote=0";
  $area = $thislink->replacements($language->title_guestbook);
 }
}
else if (paramvalue('format') == 'savedcollection')
{
 if ($memid == '') $memid = $id;
 if (!$memid) endwithbadrequest();
 $thislink = new member('id', $memid);
 $path[0][0] = $settings->dirurl .'/profile.php'; 
 $path[1][0] = $language->title_memhome;
 $dest = 'comments.php?format=savedcollection&amp;id='. $id;
 $itemcond = "savedcollection={$thislink->id}";
 $area = $thislink->replacements($language->title_savedcollection); 
}
else
{
 if ($lin && $lin->id == $linkid) $thislink = $lin; // created in start.php
 else $thislink = new onelink('id', $linkid);
 $area = $thislink->replacements($language->title_comments);
 $itemcond = "linkid=".$thislink->effectiveid();
}


$lastreadid = 0;
if ($thismember->isregistered() && !paramset('format')) $lastreadid = $db->selectitem('lastcommentid', 'lastreadtable', "ownerid='{$thismember->id}' AND linkid=".$thislink->effectiveid());

if ($thislink->objecttype == 'link' && $thislink->archived)
{
 $commentstable = $prefix.'archivedcomments';
 $settings->commentsfields = $settings->archivedcommentsfields;
}

if (paramvalue('page') == 999999)
{
 redirect302($thislink->threadurl(ceil($thislink->numcomments() / $thismember->commentsperpage())).'#lastpost'); // redirect to last page, last post in a way that doesn't count as duplicate content
}

 if (paramvalue('filled') == 1 && paramvalue('action') == 'addtags')
 { 
  $tags = listtoarray($tags);
  $n = safecount($tags);
  for ($x=0; $x<$n; $x++)
  {
   $t = new tag($tags[$x], $thislink, $thismember->id); 	
   $t->add();
  }	
  redirect("", $returnurl, true);
 }
 
if ($thislink->objecttype == 'link' && $thislink->pollid > 0) $thispoll = new poll('id', $thislink->pollid);

if ($thislink->objecttype == 'link' && $thislink->catid)
{
 $thiscategory = $thislink->makecat();
 $thiscategory->extractpermissions();
} else $thiscategory = new category('blank', 'blank');

if ($thislink->objecttype != 'member') $cache['categories'][$thislink->catid] = $thiscategory; // prevents recalculating a lot later
$cache['links'][$thislink->id] = $thislink; // prevents recalculating a lot later

if ($thislink->objecttype == 'link' && $thislink->threadclosed && !$thismember->isadmin() && !$thismember->ismoderator()) $thismember->groupcansubmitcomments = 0;

if (!$thislink->id) 
{ 
 if ($archiveurl)
 {
  $url = $archiveurl."comments.php?id=".$linkid."&page=".$page;
  redirect302($url);
 }
 else endwithbadrequest();
}

if (!$thislink->makecat()->canviewlinkdetails()) { $thislink->makecat()->nopermission(); }
if ($thislink->objecttype == 'link' && $thislink->deleted == 1 && !$thismember->groupcanviewdeleted && !$thiscategory->ismoderator()) { $template = new template('noaccess.tpl'); }

if ($thiscategory->reqlinks > 0 || $thiscategory->reqcoms > 0)
{
 if (($thismember->links < $thiscategory->reqlinks) || ($thismember->comments < $thiscategory->reqcoms)) $thismember->groupcansubmitcomments = 0;
}
 
// add name to thread viewers list
if ($settings->trackviews == 'yes')
{
 if (!strstr('[END]'. $thislink->threadviewers, '[END]'. $thismember->id .'[,]'))
 {
  $thislink->threadviewers .= $thismember->id .'[,]'. $thismember->name .'[END]';
  $thislink->update('threadviewers');
 }  
}

if (!$thislink->validated || !isset($thislink->id)) endwithbadrequest();

if ($action == 'subscribe')
{
 $message = $thislink->subscribe($thismember->id);
 $dest = $redirects['aftersubscribecom'];
 $message = $thislink->replacements($message);
 $dest = str_replace('{ID}', $thislink->id, $dest);
 $dest = $thislink->replacements($dest);
 redirect($message, $dest);
}
else if ($action == 'pollvote' && $thispoll->open())
{
 $mes = $thispoll->castvote();
 redirect($mes, $thislink->threadurl());
}

if (!$action)
{
 // access with comments.php?id=linkid&page=x
 // set cookie to mark comment thread as read
 if (strstr(getcookievalue('commentsread'), "]".$id."[,]"))
 {
  $linksread = getcookievalue('commentsread');
  $remove = limitedtemplateextract($linksread, "]".$id."[,]", '[END]');
  $linksread = str_replace($remove, "]".$id."[,]". time() .'[END]', $linksread);
 }
 else
 {
  if (!getcookievalue('commentsread')) $linksread = "[END]".$id."[,]". time() .'[END]';
  else $linksread = getcookievalue('commentsread') . "$id"."[,]". time() .'[END]';
 }
 if ($linksread && strlen($linksread) > 1900)
 { 
  $linksread = '';
 }
  makecookie('commentsread', $linksread, time() + 999999); // troublesome for opera somehow
  if ($switches['detailcomments'] && !$format) { include 'includes/detailandcomments.php'; }
  else
  {
   if ($format == 'usernotes' && paramset('modnote')) maketemplate('usernotes.tpl');
   else if ($format == 'usernotes') maketemplate('guestbook.tpl');
   else if ($format == 'savedcollection') maketemplate('savedcollection.tpl');
   else if ($format == 'events') maketemplate('eventcomments.tpl');
   else maketemplate('viewcomments.tpl');
   if ($thislink->objecttype == 'link' && $thislink->expire > 0 && $thislink->expire < time()) $template->text = '<div class="listingexpired alert">'.$language->details_listingexpired.'</div>'.$template->text;
   if ($thislink->objecttype == 'link' && $thislink->deleted && ($thismember->groupcanviewdeleted || $thiscategory->ismoderator())) $template->text = '<div class="listingexpired alert">'.$language->details_listingdeleted.'</div>'.$template->text;
  }
 
  setflag('nomember');
  $template->replacements($thiscategory); 
  $skipattachments = true; // can't process link attachments here because comment attachments are on this page and need to be done first
  if ($format != 'usernotes' && $format != 'events') $template->replacements($thislink); // do all link replacements for thread up front to save time
  $skipattachments = false;
  unsetflag('nomember');
  if ($scriptinfo['scriptname'] == 'wsnforum')
  {
   if ($settings->deletedmarkers == 'yes' && $thismember->groupcanviewdeleted) $includedeleted = 1;
  }
  else 
  {
    if ($settings->deletedmarkers == 'yes' && ($thismember->groupcanviewdeleted || $thiscategory->ismoderator())) $includedeleted = 1;
  }
  if ($template->contains('<ul class="attachmentlist">')) { $sattcol = $settings->attachcolumns; $settings->attachcolumns = 0; } // we're using a list now in the attachments area
  $template = templatebasics($template); 
  if ($template->contains(' ATTACHMENTS -->')) doattachments($template->text, $thislink, 'link', $scriptinfo['linkpref']); // catch attachments we skipped earlier
  if (isset($sattcol)) $settings->attachcolumns = $sattcol;

  $acom = new comment('blank', 'blank');    // this line somehow kills template text
  if (paramset('quotepost') && $quotepost > 0) { $quote = new comment('id', $quotepost); $acom->message = '[quote='. $quote->postername .']'. htmltowsn(removequotes($quote->unparsedmessage)) .'[/quote]'; }  
setflag('nomember'); // need this so member info area in detail+comments doesn't get blanked
  $template->replacements($acom);  
  
unsetflag('nomember');

 if (!$format)
 {
  $template->replacements($thislink); 
  if ($settings->commenthits == 'yes') { $thislink->counthitout(); $thislink->markread(); }
 }   
}

if (!is_object($template)) maketemplate("badrequest");

if ($thislink->objecttype == 'link' && $thislink->ownerid) $template->replacements($thislink->makeowner());

if ($switches['internalreplies'] && $thismember->showinternal != 'no')
{
$replytemplate = '<textarea class="internalreplybox"></textarea>
<br />
<span id="textcounter">{MAXINTERNALCHARS}</span> {LANG_SUGGESTLINK_CHARSLEFT}
<br /><br />
<a class="bigbutton btn btn-lg btn-primary">{LANG_COMMENTS_POSTREPLY}</a>';
$replytemplate = str_replace("\n", "", str_replace("\r\n", "\n", $replytemplate)); // javascript can't take newlines there
$replytemplate = str_replace("<textarea ", "<textarea name=\"'+replyname+'\" id=\"'+replyname+'\" maxlength=\"{MAXINTERNALCHARS}\"", $replytemplate);
$replytemplate = str_replace("=\"textcounter\"", "=\"textcounter'+commentid+'\"", $replytemplate);
$replytemplate = str_replace("<a class=", "<a onclick=\"wsn_postinternalreply('+commentid+')\" class=", $replytemplate);
$replytemplate = settingsreplacements(langreplacements($replytemplate));
$extrajavascript .= '
function wsn_showinternalreplybox(commentid)
{
 var idname = "postinternal"+commentid;
 var replyname = "internalreplybox"+commentid;
 var replybox = \''.$replytemplate.'\';
 $("#"+idname).html(replybox);
 $("#"+replyname).focus(); // also place cursor in idname box so they can start typing!

 var textcountername = "textcounter"+commentid;
 $("#"+replyname).on("keypress", function() {
 var maxlimit = '.$settings->maxinternalchars.';
 var newval = $("#"+replyname).val();
 var remaining = maxlimit - newval.length;
 if (remaining <= 0) $("#"+replyname).val(newval.substring(0, maxlimit)); 
 $("#"+textcountername).html(remaining);  
 });
}

function wsn_postinternalreply(commentid)
{
 var textareaid = "#internalreplybox"+commentid;
 var replytext = $(textareaid).val();
 $("#postinternal" + commentid).html(\'<img src="'.$settings->imagesurl().'/indicator.gif" />\'); // AFTER we get the value, place loading indicator
 $("#repliesto" + commentid).addClass("internalreply"); 
 // send post to ajax.php, which will return the new content for the repliestox div
 '.jquerypost("{RELTOBASE}ajax.php", "{ action: 'postreply', message: replytext, userauthcode: '".$thismember->authcode()."', userid: '{$thismember->id}', commentid: commentid }", '
  function(xml) 
  {
   var rarr = xml.split("[|||]");
   var commentid = rarr[0];
   var response = rarr[1];
   if (response != "")
   {
    $("#repliesto" + commentid).html(response); 
    $("#postinternal" + commentid).html(" ");
   }
   else
   {
    alert(xml);
    console.log(xml);
   }
  }').'
}

';

}

if ($switches['wysi']) appendwysiswitchjs();

if ($thislink->objecttype == 'member') $thislink->numcomments = 0; // gets corrected a few lines down i think

if ($thislink->numcomments == 0 || $page == ceil($thislink->numcomments / $thismember->commentsperpage())) $onlastpage = true; else $onlastpage = false;

if (!$format) $template->replacements($thislink); // delayed to here because we don't want to overwrite the post bit member info

if ($template->haspattern('/\<table(.*?)id\=\"commentstable\"/'))
{
 if ($format == 'usernotes' || strstr($settings->ordercomments, 'time DESC') || strstr($settings->ordercomments, 'lastedit DESC')) $firstlast = 'first'; else $firstlast = 'last';
 $makeloading = '$("#commentstable tr:'.$firstlast.'").after("<tr title=\'loading\' class=\'loadingindicator\'><td colspan=\'2\'><img src=\''.$settings->imagesurl().'/loadingAnimation.gif\'></td></tr>");';
}
else $makeloading = '$("#commentstable").after("<div title=\'loading\' class=\'loadingindicator\'><img src=\''.$settings->imagesurl().'/loadingAnimation.gif\'></div>");';

$extrajavascript .= '
function wsn_commentpost(event, thisobject) 
{ 
 '.$makeloading.'
 event.preventDefault(); // stop form from submitting normally 
 var $form = $(thisobject), term = $form.find(":input").serializeArray(), url = $form.attr("action");
 $form.hide(); // so they do not try to re-submit
 if ($(".quickreplybox").length) $(".quickreplybox").hide();
    $.ajax({
        type: "POST",
        url: url,
        data: term,
        dataType: "html",
        timeout: 20000, // in milliseconds
        success: function(data) {
 // begin success function
 $(".loadingindicator").hide();  
 if (data != "OK")
 { // not allowed to post
  parts = data.split("::");
  $(".loadingindicator").hide();  
  if (parts[0] == "OK")
  {
   console.log(parts[1]);
   alert(parts[1]);  
  }
  else
  {
   $form.show();
   console.log(data);
   alert(data);
  }
 }
 else
 {
  $(".commentsdisplay").css("display", "block"); 
';

 if ($format == 'usernotes' || strstr($settings->ordercomments, 'time DESC') || strstr($settings->ordercomments, 'lastedit DESC'))
 { // usernotes are ordered descending
  if (!paramvalue('page') || paramvalue('page') == 1) $extrajavascript .= ' wsn_updateposts();';
  else if ($thislink->objecttype == 'member') $extrajavascript .= ' window.location = "'.$thislink->guestbookurl().'"; ';
 }
 else
 {
  if ($onlastpage) $extrajavascript .= ' wsn_updateposts();';
  else $extrajavascript .= '
 window.location = "'.str_replace('&amp;', '&', $thislink->threadurl('last')).'#lastpost";
 ';
 }
 
$extrajavascript .= '
 }
 // end success function
        },
        error: function(request, status, err) {
            if(status == "timeout") {
                $form.show();
                alert("'.$language->general_timeout.'");
            }
        }
    });   
    
    
}

var imagesurl = \''.$settings->imagesurl().'\'; // used in javascriptheader.wsn function

';

if ($thislink->numcomments == 0) 
{
 $template->replace('class="commentsdisplay', 'style="display: none;" class="commentsdisplay');
 $extradocreadystuff .= '
  $(".commentsdisplay").css("display", "none");
'; // fallback in case their template is different
}

if ($onlastpage)
{
 if (!$template->haspattern('/\<table(.*?)id\=\"commentstable\"/')) { $selectloading = "#commentstable div[title=loading]"; $selectafter = "#commentstable"; $selectafterfirst = "#commentstable"; }
 else { $selectloading = "#commentstable tr[title=loading]"; $selectafter = "#commentstable tr:last"; $selectafterfirst = "#commentstable"; }

$extrajavascript .= '
function wsn_updateposts()
{ // this should only go on the last page of the thread. fills newposts div with all posts added since a timestamp hidden input field
  '.jquerypost("{RELTOBASE}ajax.php", "{ userid: '{$thismember->id}', userauthcode: '".$thismember->authcode()."', action: 'updateposts', linkid: '{$thislink->id}', time: '".time()."', format: '{$format}',  modnote: '{$modnote}' }", 'function(response) {
  $("'.$selectloading.'").hide();
  if ($("'.$selectafter.'").length) $("'.$selectafter.'").after(response);
  else $("'.$selectafterfirst.'").after(response);
 }').'
}
';
}

$pat ='/'.preg_quote('<form ').'(.*?)'.preg_quote(' name="commentform"').'(.*?)'.preg_quote('>').'/i';
$rep = '<form $1 name="commentform"$2>
<input type="hidden" name="userid" value="'.$thismember->id.'"><input type="hidden" name="userauthcode" value="'.$thismember->authcode().'"><input type="hidden" name="usewrapper" value="no"><input type="hidden" name="ajaxpost" value="1"><input type="hidden" name="processform" value="1">';
$template->pregreplace($pat, $rep);
if (!$switches['alertify'] && !$disablejavascriptquickreply) $extradocreadystuff .= '
$("[name=commentform]").find("[name=processform]").click(function(event) { wsn_commentpost(event, $("[name=commentform]")); });
';
$extradocreadystuff .= '
$(".reportpostform").submit(function(event) { wsn_reportpost(event, this); });
';

//
// this works: $("[name=commentform]").submit(function(event) { commentpost(event, this); });

if ($thismember->isadmin()) { addadminbypassjavascript(); }

if ($settings->maxcomchars < 1001) { appendchecklengthjs(); $bodybottom .= '<input type="hidden" name="maxlen_message" value="'.$settings->maxcomchars.'" />'; }

if (paramvalue('format') == 'usernotes')
{
 $template->replace('comments.php?action=rate&amp;id=&amp;', 'comments.php?format=usernotes&amp;modnote='.paramvalue('modnote').'&amp;action=rate&amp;id='. $thislink->id .'&amp;');
 $template->replace('postreply.php?id=&', 'comments.php?format=usernotes&amp;modnote='.paramvalue('modnote').'&amp;id='. $thislink->id .'&amp;modnote='. $modnote .'&');
 if (!paramset('modnote') && ($thismember->id == $id)) $template->applyhomesubwrapper();
 $template->replace('{SAVEDCOLLECTION}', '0');
 $template->replace('{MODNOTE}', paramvalue('modnote'));
 $template->replace('{USERNOTEON}', paramvalue('usernoteon'));
}
else if (paramvalue('format') == 'savedcollection')
{
 $template->replace('comments.php?action=rate&amp;id=&amp;', 'comments.php?format=savedcollection&amp;action=rate&amp;id='. $thislink->id .'&amp;');
 $template->replace('postreply.php?id=&', 'comments.php?format=savedcollection&amp;id='. $thislink->id .'&');
 if ($thismember->id == $id) $template->applyhomesubwrapper();
 $template->replace('{SAVEDCOLLECTION}', paramvalue('savedcollection'));
 $template->replace('{MODNOTE}', '0');
 $template->replace('{USERNOTEON}', '0');
}
else
{ // the regular comments page for commenting on listings
 $template->replace('{SAVEDCOLLECTION}', '0');
 $template->replace('{MODNOTE}', '0');
 $template->replace('{USERNOTEON}', '0');
}

require 'end.php';

function templatebasics($template)
{
 global $format, $thislink, $id, $thiscategory, $language, $db, $linkid, $page, $perpage, $orderby, $search, $settings, $catid, $thismember, $findpost, $thispoll, $includedeleted, $skipmessage, $scriptinfo, $totalposts, $postsarray, $savedmems, $switches, $preparedposts, $area, $cache, $debug, $lastreadid, $itemcond;
 //if ($thismember->id == 1) { $debug = 1; }
 $postowners = array(); $typesarr = array();
 setflag('numbersupdated', 0);
 $totalposts = 0; 
 $highestcomment = $lastreadid;
 if ($thislink->objecttype == 'link' && $thislink->pollid)
 { 
  if (!$thispoll->open() || $thispoll->havevoted() || !$thismember->groupcanpollvote || $_GET['showresults']) $polltemplate = new template('resultspoll.tpl'); 
  else $polltemplate = new template('votepoll.tpl');
  $polltemplate->replacements($thispoll);  
  $template->replace('<!-- POLL TEMPLATE HERE -->', $polltemplate->text) ;
 } 
 if ($linkid == '') $linkid = $id;
 $postnumber = 1;
 if ($thislink->objecttype == 'link') $catid = $thislink->catid;  else $catid = 0; // now recorded for online user list purposes

 if ($switches['detailcomments'] || $scriptinfo['scriptname'] == 'wsnforum') $template->shownav($thislink->navpath(), $area);
 else $template->shownav($thislink->navpath('includeme'), $area);
 $condition = "$itemcond AND validated=1 AND hide=0 AND internalto=0";
 if ($settings->commentscondition != '') $condition .= ' AND '. $settings->commentscondition;
 if ($thislink->objecttype == 'link' && $orderby == '') $orderby = $thislink->ordercomments;
 if ($orderby == '') $orderby = $settings->ordercomments;
 if (paramvalue('format') == 'usernotes') $orderby = 'ORDER BY time DESC';
 if ($settings->mixcomments == 'no') $orderby = 'ORDER BY typeorder ASC,'. str_replace('ORDER BY ', '', $orderby);
 if ($perpage == '') $perpage = $settings->commentsperpage; 
 
 if (paramvalue('format') == 'savedcollection') $total = $thislink->savedcollectioncomments();
 else $total = $thislink->numcomments(); 

 if ($page == 'last') $page = ceil($total / $perpage);
 if ($findpost) 
 {
   $co = $condition;
   $com = new comment('id', $findpost);
   if ($com->internalto) { $com = new comment('id', $com->internalto); $findpost = $com->id; }
   if ($com->deleted) $co .= ' AND internalto=0'; // for modertion history links
   else $co .= ' AND internalto=0 AND deleted=0';
    
   $aq = $db->select('id', 'commentstable', $co, $orderby, '');
   $t = $db->numrows($aq);
   for ($x=0; $x<$t; $x++)
   {
    $i = $db->rowitem($aq);
    if ($i == $findpost) { $loc = $x + 1; break; }
   }
   if ($com->deleted) $loc -= $db->selectcount('commentstable', $co.' AND deleted=1 AND time < '.$com->time); // exclude deleted posts
   $page = ceil($loc / $perpage);	
  } 
  if ($page == '' || $page < 1) $page = 1;
  if ($page > 1) $postnumber = ($page * $perpage) - $perpage + 1;
 $start = ($page * $perpage) - $perpage;
 $prefdel = 0;
 if ($thislink->objecttype == 'link' && $thislink->deleted == 0 && (!($includedeleted && ($thismember->groupcanviewdeleted || $thiscategory->ismoderator()))))
 {
    $condition .= ' AND deleted=0';
    $getamount = $perpage;
    $startspot = $start;
 }
 else
 { // we need to include deleted markers, so we'll take the long way around
  $numdel = $db->selectcount('commentstable', "$condition AND deleted=1");
  $template->replace($scriptinfo['linkpref'].'DELETEDPOSTS}', $numdel); // saves a query in ->replacements() later
  $getamount = $perpage + $numdel;
  if ($thislink->objecttype == 'link' && $thislink->deleted == 1)
  {
   $prefdel = $numdel;
   $startspot = $start;
   $visibletotal = $db->selectcount('commentstable', "$condition", "LIMIT $start,$perpage"); // needed later   
  }
  else 
  { 
   $timeterm = '';
   if ($start)
   { // if we're on page 2 or later, we need to count how many were deleted on pages previous to this page (though i forget why)
    $firstheretime = $db->selectitem('time', 'commentstable', $condition .' AND deleted=0', 'ORDER BY time ASC', "LIMIT $start,1");
    if ($firstheretime) $timeterm = " AND time < $firstheretime";
   }
   if ($timeterm) $prefdel = $db->selectcount('commentstable', "$condition AND deleted=1 $timeterm");
   else $prefdel = $numdel;
   if ($start > 0) $startspot = $start + $prefdel; else $startspot = $start; // only for page 2+
   $visibletotal = $db->selectcount('commentstable', "$condition AND deleted=0", "LIMIT $start,$perpage");  
   if ($visibletotal == 0 && $start != 0) $thislink->updatenumcomments(); // if a page other than page 1 has no comments show, we must have a wrong total. let's fix it!
// random attempt
   if ($start + $perpage >= $total) { $getamount++; } // for some reason we need this if there's a deleted comment on the last page of the thread
// end random attempt
  }   
 }
 
 $query = $db->select('all', 'commentstable', $condition, $orderby, "LIMIT $startspot,$getamount"); 
 $data = $db->fetchall($query); // fetches all results into numeric array
 if ($data) $totalcount = safecount($data); else $totalcount = 0;
 $num = $totalcount; // $num gets modified when deleted posts markers are invovled

 if ($switches['internalreplies'] && $thismember->showinternal != 'no' &&  $num && $orderby == 'ORDER BY time ASC')
 { // get the internal replies for this this page in advance to avoid having 10 extra queries on the page (only one extra query instead)
  $fp = new comment('row', $data[0]);
  $last = $num - 1;
  $lp = new comment('row', $data[$last]);
  $fptime = $fp->time;
  $lptime = $lp->time;
  $iq = $db->select('all', 'commentstable', "$itemcond AND deleted=0 AND internalto != 0 AND internalparenttime >= $fptime AND internalparenttime <= $lptime", 'ORDER BY time ASC');
  $in = $db->numrows($iq);
  for($ix=0;$ix<$in;$ix++)
  { 
   $ic = new comment('row', $db->row($iq));
   $cache['internalreplies'][$linkid][$ic->internalto][] = $ic;
  }
 }

 $posttemplate = $template->extract('<!-- BEGIN POST -->', '<!-- END POST -->');
 $template->replace($posttemplate, '{POSTAREA}');
 // get each comment type's template
 $ctypes = listtoarray($settings->commenttypes);
 for ($x=0; $x<count($ctypes); $x++)
 {
  $var = $ctypes[$x] . 'template';
  $var2 = 'num'. $ctypes[$x];
  $$var2 = 0; // initialize variable  
  $tvar = $ctypes[$x] . 'posts';
  $$tvar = ''; // initialize  
  $$var = gettypecode($posttemplate, $ctypes[$x]);
  $posttemplate = str_replace($$var, '{'. strtoupper($ctypes[$x]) .'}', $posttemplate);
 }
 $posts = '';
 $dg = new template('deletedpost.tpl'); //get in advance to be quicker if there are many
 $ig = new template('ignored.tpl'); //get in advance to be quicker if there are many
 $ir = new template('internalnotice.tpl');
 if ($thislink->objecttype == 'link' && !($thislink->deleted == 0 && (!($includedeleted && ($thismember->groupcanviewdeleted || $thiscategory->ismoderator())))))
 {
  $num = $visibletotal;    
 } 
 $memcond = ''; $temppostarr = array(); $realcount = 0; $actuallyused = 0; $nondeleted = 0;
// note: realnum may be more than the number we want, if there's no deleted post on the page but is one in the thread. $actuallyused will count what we use, including deleted.
 for ($count=0; $count<$totalcount; $count++)
 {
  $actuallyused++;
  $thispost = new comment('row', $data[$count]);
  if ($lastreadid && $thispost->id <= $lastreadid) $thispost->isread = 1; else $thispost->isread = 0;
  if ($thispost->id > $highestcomment) $highestcomment = $thispost->id;
  if (!$thispost->deleted && !$thispost->internalto) $nondeleted++;
  if ($nondeleted > $perpage) break; // here instead of in for loop condition, so that the deleted/internal markers get printed at end of page 1
  if ($thispost->number != $postnumber && $orderby == 'ORDER BY time ASC' && flagvalue('numbersupdated') <= 3) { $thispost->number = $postnumber; $thispost->update('number'); setflag('numbersupdated', flagvalue('numbersupdated') + 1); }
  else $thispost->number = $postnumber;  
  $postnumber++;
  if (!$thispost->type) $thispost->type = 'regular';
  $type = $thispost->type;
  $totvar = 'num'. $type;
  $$totvar++;  
  $var = $type . 'template';
  $onepost = $$var;
  if ($thislink->deleted == 0 && $thispost->deleted == 1 && $includedeleted && ($thismember->groupcanviewdeleted || $thiscategory->ismoderator()))
  {
   $onepost = $dg->text; $postnumber--;   
  }
  else if ($thispost->internalto)
  {
   $onepost = $ir->text; $postnumber--;   
  }
  else if ($thispost->ownerid > 0 && $thismember->ignores($thispost->ownerid))
  {
   $onepost = $ig->text; // don't show post if member is on our ignore list
  }
  if ($thispost->number % 2 == 0)
  {
   $onepost = str_replace('class="commentposter ', 'class="commentposteralternate ', str_replace('class="comment ', 'class="commentalternate ', $onepost)); // in case they have multiple css classes there
   $onepost = str_replace('class="commentposter"', 'class="commentposteralternate"', str_replace('class="comment"', 'class="commentalternate"', $onepost)); // simple case
  }
  if ($count == ($totalcount-1)) $onepost = str_replace('<a id="post', '<a id="lastpost"></a><a id="post', $onepost);
  
  $skipmessage = true;  
  setflag('nomember'); // we're doing member stuff later on collected in single query now
  $onepost = $thispost->replacements($onepost);   // do last since it adds the most text
  unsetflag('nomember');

/* In threads with long posts, all the operations in end.php would take insalely long because of the amount of text they process. To fix this, we need to store all the post text in an array for now and will insert it at very end of end.php 
Wider container array is also useful because we can query all members on the page at once and do their replacements after the commentreplacements by re-iterating array
*/

  if (!flagisset('noparsing') && strstr($thispost->message, '[/image]')) $thispost->message = doimagecode('comment', $thispost->message, $thispost->id);
  $postsarray[$totalposts] = $thispost->message;
  $onepost = str_replace($scriptinfo['commentpref'] .'MESSAGE}', '{MARKERFORPOST'. $totalposts .'}', $onepost);
  $totalposts++;  
  $postowners[$realcount] = $thispost->ownerid;
  if ($thispost->ownerid) $memcond .= " OR {=id} = {$thispost->ownerid}";
  $temppostarr[$realcount] = $onepost;
  
  $typesarr[$realcount] = $thispost->type; // need this to determine which template bit to add to a few lines down from here
  $skipmessage = false;  

  $realcount++; // actual loop number, unlike $count
 }
 $memcond = trim($memcond, " OR ");
 if ($memcond)
 {
  $q = $db->select('all', 'memberstable', $memcond);
  $n = $db->numrows($q);
  for($x=0; $x<$n; $x++)
  {
   $m = new member('row', $db->row($q));
   $savedmems[$m->id] = clone($m); // must clone since it otherwise assigns by ref and we reuse $m... i think
  }
 }
 for ($count=0; $count<$actuallyused; $count++)
 { // do the member replacements and get all the posts strung togeather ready for template insertion
  $onepost = $temppostarr[$count];
  $index = $postowners[$count];
  if (!isset($savedmems[$index]) && $index) { $savedmems[$index] = new member('id', $index); } // this *shouldn't* be needed
  if ($index) $onepost = $savedmems[$index]->replacements($onepost);
  if ($settings->mixcomments == 'yes') $posts .= $onepost;
  else { $tvar = $typesarr[$count] . 'posts'; $$tvar .= $onepost; }
 }
 
 if ($settings->mixcomments == 'yes') $template->replace('{POSTAREA}', $posts);
 else
 {
  for ($x=0; $x<count($ctypes); $x++)
  {
   $var = $ctypes[$x] . 'posts';   
   $posttemplate = str_replace('{'. strtoupper($ctypes[$x]) .'}', $$var, $posttemplate);
  }
  $template->replace('{POSTAREA}', $posttemplate);
 }
 $search = urlencode($search);
  
 // page numbering
 if ($settings->apacherewrite == 'yes' && !$_REQUEST['format']) $template->paginate($page, $perpage, $total, 0, 'comment', $linkid); 
 else $template->paginate($page, $perpage, $total); 

 $numpages = ceil($thislink->numcomments() / $thismember->commentsperpage());
 if ($numpages == 0) $numpages = 1;
 if ($page > $numpages) redirect301($thislink->threadurl($numpages)); // we're trying to view a page that doesn't exist. to avoid this getting in search engines and being useless to use, let's 301 redirect to last real page of thread.

 for ($x=0; $x<count($ctypes); $x++)
 {
  $var = '{'. strtoupper($ctypes[$x] . 'total') .'}';
  if (strstr($template->text, $var))
  {
   $tot = $db->selectcount('commentstable', "$itemcond AND validated=1 AND deleted=0 AND hide=0 AND type='". $ctypes[$x] ."'");
   $template->replace($var, $tot);
  }
  $var = $ctypes[$x].'posts';
  $posttemplate = str_replace('{'. strtoupper($ctypes[$x]) .'}', $$var, $posttemplate);
 }  

$ctypes = listtoarray($settings->commenttypes);
 for ($x=0; $x<count($ctypes); $x++)
 {
  $var = 'num'. $ctypes[$x];
  $template->replace($scriptinfo['linkpref'] .'NUM'. strtoupper($ctypes[$x]) .'COMMENTS}', $$var);
 }

 if ($thismember->isregistered() && !$format)
 {
  if (!$lastreadid && $highestcomment) $db->insert('lastreadtable', 'ownerid,linkid,lastcommentid,time', "'{$thismember->id}','{$thislink->id}', '$highestcomment', '".time()."'");
  else if ($lastreadid && $highestcomment > $lastreadid) $db->updatelist('lastreadtable', "lastcommentid='$highestcomment', time='".time()."'", "ownerid='{$thismember->id}' AND linkid=".$thislink->effectiveid());
 }
 
 return $template;
}


?>