www.2xlnt.com

##################### 
sub latestforumside { 
##################### 
 
boxheader("Latest Posts"); 
 
print qq~<tr><td align="left" class="textsmall">~; 
 
open(FILE, "<$boardsdir/cats.txt"); 
@fcats = <FILE>; 
close(FILE); 
  		     
%myforumdata= (); 
  		     
foreach $fcat (@fcats) { 
      $fcat =~ s/[\n\r]//g; 
  					     
      open(FILE, "<$boardsdir/$fcat.cat"); 
      @fcatinfo = <FILE>; 
      close(FILE); 
 
      $fcatinfo[1] =~ s/[\n\r]//g; 
      foreach $selboard (@fcatinfo) { 
 
  	    if ($selboard ne $fcatinfo[0] && $selboard ne $fcatinfo[1]) { 
  		    $selboard =~ s/[\n\r]//g; 
  										      
  		    if ($fcatinfo[1] ne "") { 
  			    if ($settings[7] ne "$root" && $settings[7] ne "$fcatinfo[1]") { 
  				    next; 
  				    } 
  			    } 
  					     
  			    open(FILE, "<$boardsdir/$selboard.txt"); 
  			    @fposts = <FILE>; 
  			    close(FILE);							  
 
  			    for ($f = 0; $f < @fposts; $f++) { 
  				    ($fpnum, $fptitle, $dummy, $dummy, $dummy, $fpdate, $fpreplys, $dummy, $dummy, $dummy, $dummy) = split(/\|/, $fposts[$f]); 
  				    chomp($dummy); 
  				    $lfptitle = censor_it($fptitle); 
# --- begin from anton -- 
  				    $fpnummessages = $fpreplys+1; 
  				    $c = 0; 
  				    $fppages = ""; 
  				    if ($fpnummessages > $maxmessagedisplay) { 
  					    while (($c*$maxmessagedisplay) < $fpnummessages) { 
  						    $viewc = $c+1; 
  						    $strt = ($c*$maxmessagedisplay); 
  						    $fppages = qq~$fppages <a 
  						     href="$pageurl/$cgi?action=forum&amp;board=$selboard&amp;op=display&amp;num=$fpnum&amp;start=$strt" 
  						     class="webapplink">$viewc</a> ~; 
  						    $c++; 
  						    } 
  					    $fppages =~ s/\n$//g; 
  					    $fppages = qq~<BR>( $fppages )~; 
  					    } 
 
  				    open(FILE, "<$messagedir/$fpnum.txt");  
  				    @fptposts = <FILE>;  
  				    close(FILE);  
  				    for ($t = 0; $t < @fptposts; $t++) {  
  					    ($dummy, $fptposter, $dummy, $dummy, $fptusername, $dummy, $dummy, $dummy, $dummy, $dummy) = split(/\|/, $fptposts[$t]);  
  					    chomp($dummy);  
  					    if ($ftpusername ne $anonuser) { 
  						    $fptuser = $fptusername; 
  						    }  
  					    else { 
  						    $fptuser = $fptposter; 
  						    }  
  					    $myforumlink = qq~<a 
  					     href="$scripturl/$cgi?action=forum&amp;board=$selboard&amp;op=display&amp;num=$fpnum" 
  					     class="whomenu">$lfptitle</a><BR> 
  					    ($fpdate)<BR>by $fptuser $fppages~; 
  					    } 
# --- end from anton --- 
  				    ($chkdate, $chktime) = split(/ - /, $fpdate); 
  				    ($chkmonth, $chkday, $chkyear) = split(/\//, $chkdate); 
  				    ($chkhour, $chkmin, $chksec) = split (/:/, $chktime); 
  				    $chkyear = (2000+$chkyear); 
  				     
  				    $sortedentry = "$chkyear$chkmonth$chkday$chkhour$chkmin$chksec"; 
  				    $myforumdata{$sortedentry} = $myforumlink; 
  			    } 
  		    } 
  	    } 
      } 
 
@myforumnum = sort { $b <=> $a } keys %myforumdata; 
 
if (@myforumnum) {  
   for ($myflcounter = 0; $myflcounter < @myforumnum && $myflcounter < 5; $myflcounter++) {  
  	 print qq~$myforumdata{$myforumnum[$myflcounter]}<br>~;  
      }  
  }  
 
print qq~</td></tr>~; 
 
boxfooter(); 
 
}