###############################################################################
# MessageIndex.pl                                                             #
###############################################################################
# YaBB: Yet another Bulletin Board                                            #
# Open-Source Community Software for Webmasters                               #
# Version:        YaBB 1 Gold - SP 1.3                                        #
# Released:       December 2001; Updated April 6, 2003                        #
# Distributed by: http://www.yabbforum.com                                    #
# =========================================================================== #
# Copyright (c) 2000-2003 YaBB (www.yabbforum.com) - All Rights Reserved.     #
# Software by: The YaBB Development Team                                      #
#              with assistance from the YaBB community.                       #
# Sponsored by: Xnull Internet Media, Inc. - http://www.ximinc.com            #
###############################################################################

$messageindexplver = "1 Gold - SP 1.3";

sub MessageIndex {
	my $start = int( $INFO{'start'} ) || 0;
	my( $bdescrip, $counter, $buffer, $pages, $showmods, $mnum, $msub, $mname, $memail, $mdate, $mreplies, $musername, $micon, $mstate, $dlp, $threadlength, $threaddate );
	my( @boardinfo, @threads );
	my( $threadcount, $messagecount, $lastposttime, $lastposter ) = &BoardCountGet($currentboard);
	my $maxindex = $INFO{'view'} eq 'all' ? $threadcount : $maxdisplay;

	# Open and quickly read the current board thread list.
	# Skip past threads until we reach the "page" we want.
	fopen(FILE, "$boardsdir/$currentboard.txt") || &fatal_error("300 $txt{'106'}: $txt{'23'} $currentboard.txt");
	@threadlist = <FILE>;
	@threadlist2 = '';
	fclose(FILE);

	# Get sort order and date mask
	$default_sort = "";
	$default_mask = "";
	if (-e "$boardsdir/$currentboard.opt" ) { require "$boardsdir/$currentboard.opt"; }
	my $sortmode = $INFO{'sort'} || $default_sort;
	my $datemask = $INFO{'date'} || $default_mask;
	if ($FORM{'sortmode'}) { $sortmode = $FORM{'sortmode'}; }
	if ($FORM{'datemask'}) { $datemask = $FORM{'datemask'}; }
	if ($sortmode eq "rating" && $enable_topicrating != 1) { $sortmode = "";}

	# Highlight current sort order and date mask
	my ( $sort1, $sort2, $sort3, $sort4, $sort5, $sort6, $sort7, $sort8 )= ();
	if ($sortmode eq "subject") { $sort2 = " selected" }
	elsif ($sortmode eq "created") { $sort3 = " selected" }
	elsif ($sortmode eq "author") { $sort4 = " selected" }
	elsif ($sortmode eq "last") { $sort5 = " selected" }
	elsif ($sortmode eq "replies") { $sort6 = " selected" }
	elsif ($sortmode eq "views") { $sort7 = " selected" }
	elsif ($sortmode eq "rating") { $sort8 = " selected" }
	elsif ($sortmode eq "none") { $sort1 = " selected" }
	else { $sort1 = " selected"; $sortmode = ""; }
	my ( $mask1, $mask2, $mask3, $mask4, $mask5, $mask6, $mask7 )= ();
	if ($datemask eq "today") { $mask1 = " selected" }
	elsif ($datemask eq "2") { $mask2 = " selected" }
	elsif ($datemask eq "5") { $mask3 = " selected" }
	elsif ($datemask eq "10") { $mask4 = " selected" }
	elsif ($datemask eq "20") { $mask5 = " selected" }
	elsif ($datemask eq "30") { $mask6 = " selected" }
	elsif ($datemask eq "all") { $mask7 = " selected" }
	else { $mask7 = " selected"; $datemask = "";  }

	# Mask Old Threads
	my @tmplist = ();
	if ( $datemask ne "" && $datemask ne "all") {
		$date2 = $date;
		if ($datemask == "today") {$days = "0";} else {$days = $datemask; }
		for($i=0;$i<$threadcount;$i++) {
			($dummy, $dummy, $dummy, $dummy, $date1, $dummy) = split( /\|/, $threadlist[$i], 6 );
			&calcdifference;
			if ($result <= $days) {$tmplist[++$#tmplist] = $threadlist[$i];}
		}
		@threadlist = @tmplist;
		$threadcount = $#threadlist + 1;
	}

	# Sort list
	if ($sortmode ne "" && $sortmode ne "none" && $threadcount > 0) {
		@tmplist = @threadlist;
		$date2 = $date;
		for($i=0;$i<$threadcount;$i++) {
			($mnum, $msub, $mname, $dummy, $mdate, $mreplies, $dummy) = split( /\|/, $threadlist[$i], 7 );
			if ($sortmode eq "subject") { $tmplist[$i] = $msub."|".$threadlist[$i];	}
			elsif ($sortmode eq "created") {
				fopen(FILE, "$datadir/$mnum.txt");
				$tmpa = <FILE>;
				fclose(FILE);
				($dummy, $dummy, $dummy, $date1, $dummy) = split(/\|/, $tmpa, 5);
				&calcdifference;
				$tmplist[$i] = $result."|".$threadlist[$i];
			}
			elsif ($sortmode eq "author") { $tmplist[$i] = $mname."|".$threadlist[$i]; }
			elsif ($sortmode eq "last") {
				$date1 = $mdate;
				&calcdifference;
				$tmplist[$i] = $result."|".$threadlist[$i];
			}
			elsif ($sortmode eq "replies") { $tmplist[$i] = $mreplies."|".$threadlist[$i]; }
			elsif ($sortmode eq "views") { 
				if( -e "$datadir/$mnum.data" ) {
					fopen(FILE, "$datadir/$mnum.data");
					$tmpa = <FILE>;
					fclose(FILE);
					($views, $dummy) = split(/\|/, $tmpa, 2);
					$views = $views ? $views - 1 : 0;
				} else { $views = "0"; }
				$tmplist[$i] = $views."|".$threadlist[$i]; 
			}
			elsif ($sortmode eq "rating") { 
				if( -e "$datadir/$mnum.data" ) {
					fopen(FILE, "$datadir/$mnum.data");
					$tmpa = <FILE>;
					fclose(FILE);
					($dummy, $dummy, $rate, $dummy) = split( /\|/, $tmpa, 4 );
					if ($rate eq "") { $rate = "0"; }
				} else { $rate = "0"; }
				$tmplist[$i] = $rate."|".$threadlist[$i]; 
			}
		}
		if ($sortmode eq "subject" || $sortmode eq "author") { @sortlist = sort{uc($a) cmp uc($b)} (@tmplist); }
		elsif ($sortmode eq "created" || $sortmode eq "last") { @sortlist = sort{$a<=>$b} (@tmplist); }
		else { @sortlist = sort{$b<=>$a} (@tmplist); }
		for($i=0;$i<$threadcount;$i++) {
			($dummy, $tmplist[$i]) = split(/\|/, $sortlist[$i], 2);
			$threadlist[$i] = $tmplist[$i]."\n";
		}
		chomp(@threadlist);
	}
	if ($sortmode eq "$default_sort") {$sortmode = "";}
	if ($sortmode ne "" ) {$sortmode = ";sort=".$sortmode;}
	if ($datemask eq "$default_mask") {$datemask = "";}
	if ($datemask ne "") {$datemask = ";date=".$datemask;}

	# Make sure the starting place makes sense.
	if( $start > $threadcount ) { $start = int( $threadcount % $maxindex ) * $maxindex; }
	elsif( $start < 0 ) { $start = 0; }

	# There are three kinds of lies: lies, damned lies, and statistics. 
	# - Mark Twain
	
	# Construct the page links for this board.
	$indexdisplaynum = 3;	# max number of pages to display
	$tmpa = 1;
	$tmpx = int( $threadcount / $maxindex );
	if ($start >= (($indexdisplaynum-1) * $maxindex)) { $startpage = $start - (($indexdisplaynum-1) * $maxindex); $tmpa = int( $startpage / $maxindex ) + 1; }
	if ($threadcount >= $start + ($indexdisplaynum * $maxindex)) { $endpage = $start + ($indexdisplaynum * $maxindex); } else { $endpage = $threadcount }
	if ($startpage > 0) { $pageindex = qq~<a href="$cgi;action=messageindex;start=0$sortmode$datemask">1</a>&nbsp;...&nbsp;~; }
	if ($startpage == $maxindex) { $pageindex = qq~<a href="$cgi;action=messageindex;start=0$sortmode$datemask">1</a>&nbsp;~;}
	for( $counter = $startpage; $counter < $endpage; $counter += $maxindex ) {
		$pageindex .= $start == $counter ? qq~<B>$tmpa</B>&nbsp;~ : qq~<a href="$cgi;action=messageindex;start=$counter$sortmode$datemask">$tmpa</a>&nbsp;~;
		++$tmpa;
	}
	$tmpx = $threadcount - 1 - $maxindex;
	$outerpn = int($tmpx / $maxindex);
	$lastpn = int(($threadcount - 1) / $maxindex) + 1;
	$lastptn = ($lastpn - 1) * $maxindex;
	if ($endpage < $threadcount - $maxindex ) {$pageindexadd = qq~&nbsp;...&nbsp;~;}
	if ($endpage != $threadcount) {$pageindexadd .= qq~&nbsp;<a href="$cgi;action=messageindex;start=$lastptn$sortmode$datemask">$lastpn</a>~;}
	$pageindex .= $pageindexadd;


	# Determine what category we are in.
	fopen(FILE, "$boardsdir/$currentboard.ctb") || &fatal_error("300 $txt{'106'}: $txt{'23'} $currentboard.ctb");
	$cat = <FILE>;
	fclose(FILE);
	fopen(FILE, "$boardsdir/$cat.cat") || &fatal_error("300 $txt{'106'}: $txt{'23'} $cat.cat");
	$currcat = $cat;
	$cat = <FILE>;
	fclose(FILE);

	# Get the board's description
	fopen(FILE, "$boardsdir/$currentboard.dat") || &fatal_error("300 $txt{'106'}: $txt{'23'} $currentboard.dat");
	@boardinfo = <FILE>;
	fclose(FILE);
	chomp @boardinfo;
	$bdescrip = $boardinfo[1];

	# Sticky Threads
	fopen(FILE, "$boardsdir/sticky.stk") || &fatal_error("300 $txt{'106'}: $txt{'23'} sticky.stk");
	@stickys = <FILE>;
	$stickycount = $#stickys;
	fclose(FILE);
	for ($i=0; $i<=$threadcount; $i++) {
		($mnum) = split( /\|/, $threadlist[$i] );
		$l = 0;
		$is = 0;
		foreach $curnum (@stickys) {
			if ($mnum == $curnum) {
				$is = 1;
				$stickylist{$l} = $threadlist[$i];
				#splice(@threadlist,$i,1);
				last;
			}
			$l++;
		}
		if ($is == 0) { push(@threadlist2,$threadlist[$i]); }
	}
	if (!($threadlist2[0])) { shift(@threadlist2); }

	#now sort the stickys
	@stickylist2 = sort {$b <=> $a } keys %stickylist;
	###Next 2 lines Sticky Group mod
	$stkynum = '';
	if($start < $maxdisplay){ $stkynum = scalar @stickylist2; }
	for ($i=0; $i<=$stickycount; $i++) {
		chomp $stickylist{$i};
		if ($stickylist{$i}) { unshift(@threadlist2,"$stickylist{$i}\n"); }
	}

	$counter = 0;
	$tmpa = '';
	if($counter < $start && ($buffer = $threadlist2[$counter])) {
		$tmpa = $buffer;
		$counter++;
	}
	while($counter < $start && ($buffer = $threadlist2[$counter])) { $counter++; }

	$#threads = $maxindex - 1;
	$curln = $counter;
	$counter = 0;
	while( $counter < $maxindex && ( $buffer = $threadlist2[$curln+$counter] ) ) {
		chomp $buffer;
		$threads[$counter] = $buffer;
		$counter++;
	}
	$#threads = $counter - 1;

	# Let's get the info for the first thread in this forum.
	$tmpa ||= $threads[0];
	($mnum, $msub, $mname, $memail, $mdate, $mreplies, $musername, $micon, $mstate) = split( /\|/, $tmpa );

	# Mark current board as seen.
	&dumplog($currentboard);

	# Build a list of the board's moderators.
	if( scalar keys %moderators > 0 ) {
		if( scalar keys %moderators == 1 ) { $showmods = qq~($txt{'298'}: ~; }
		else { $showmods = qq~($txt{'299'}: ~; }
		while( $_ = each(%moderators) ) {
			&FormatUserName($_);
			$showmods .= qq~<a href="$scripturl?action=viewprofile;username=$useraccount{$_}" class="nav">$moderators{$_}</a>, ~;
		}
		$showmods =~ s/, \Z/)/;
	}

	$notify = '';
	# Update notification file that the board has been viewed.
	if($enable_board_notify && $username ne 'Guest') {
		$notify = qq~$menusep<a href="$cgi;action=notify2" onclick="javascript:return confirm('$bln_txt{'03'}')" class="altlink">$img{'notify_b'}</a>~;
		if(-e("$boardsdir/$currentboard.mail"))  {
			my $i = 0;
			my $found = 0;
			fopen(FILE, "$boardsdir/$currentboard.mail");
			@mails = <FILE>;
			fclose(FILE);
			foreach $curmail (@mails) {
				chomp $curmail;
				($curmail, $mail_sent, $notify_type) = split(/\|/,$curmail);
				if ($curmail eq $settings[2]) {
					$notify = qq~$menusep<a href="$cgi;action=notify3" onclick="javascript:return confirm('$bln_txt{'04'}')" class="altlink">$img{'notify_b'}</a>~;
					if ($mail_sent == 1) {$mail_sent = 0; $found = 1;}
				}
				$mails[$i] = "$curmail|$mail_sent|$notify_type\n";
				$i++;
			}
			if ($found == 1) {
				fopen(FILE, ">$boardsdir/$currentboard.mail");
				print FILE @mails;
				fclose(FILE);
			}
		}
	}

	# Load censor list.
	fopen(FILE,"$vardir/censor.txt");
	while( chomp( $buffer = <FILE> ) ) {
		($tmpa,$tmpb) = split(/=/,$buffer);
		push(@censored,[$tmpa,$tmpb]);
	}
	fclose(FILE);

	# Print the header and board info.
	$curboardurl = $curposlinks ? qq~<a href="$cgi" class="nav">$boardname</a>~ : $boardname;
	$yymain .= qq~
<table width="100%" cellpadding="0" cellspacing="0">
~;
     	if( $enable_favorites && $enable_favdrop && $username ne 'Guest' ) { require "$sourcedir/Favor.pl"; &favordrop;
	$yymain .= qq~
  <tr>
    <td valign=bottom align=right>$favselect</td></form>
  </tr>~;
}
	$yymain .= qq~
  <tr>
    <td><font size="2" class="nav"><b>
    <IMG SRC="$imagesdir/open.gif" BORDER=0>&nbsp;&nbsp;
    <a href="$scripturl" class="nav">$mbname</a><br>
    <IMG SRC="$imagesdir/tline.gif" BORDER=0><IMG SRC="$imagesdir/open.gif" BORDER=0>&nbsp;&nbsp;
    <a href="$scripturl#$currcat" class="nav">$cat</a><br>
    <IMG SRC="$imagesdir/tline2.gif" BORDER=0><IMG SRC="$imagesdir/open.gif" BORDER=0>&nbsp;&nbsp;
    $curboardurl</b> <font size="1">$showmods</font></font></td>
  </tr>
</table>
~;
if($ShowBDescrip && $bdescrip ne "") {
$yymain .= qq~
<table border=0 width="100%" cellspacing="0" cellpadding="0" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td>
    <table cellpadding="4" cellspacing="1" border="0" width="100%">
      <tr>
        <td align="left" class="catbg" bgcolor="$color{'catbg'}" width="100%">
        <table cellpadding="3" cellspacing="0" width="100%">
          <tr>
            <td width="100%"><font size="1">$bdescrip</font></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
~;
}
$yymain .= qq~
<table border=0 width="100%" cellspacing="0" cellpadding="0" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td>
    <table cellpadding="4" cellspacing="1" border="0" width="100%">
      <tr>
        <td align="left" class="catbg" bgcolor="$color{'catbg'}" width="100%">
        <table cellpadding="3" cellspacing="0" width="100%">
          <tr>
            <td><font size=2><b>$txt{'139'}:</b> $pageindex</font></td>
	    <td class="catbg" bgcolor="$color{'catbg'}" align=right nowrap><font size=-1>
~;
	if ($username ne 'Guest') {
if($showmarkread) {
	$yymain .= qq~<a href="$cgi;action=markasread">$img{'markboardread'}</a>~;
}
if($enable_board_notify) {
	$yymain .= $notify;
}
}
if ($allowauctions{$currentboard}==1){
	$yymain .= qq~$menusep<a href="$cgi;action=createauction;title=$aucttxt{'2'}">$img{'createauction'}</a>~;
}
	$yymain .= qq~
	    $menusep<a href="$cgi;action=post;title=$txt{'464'}">$img{'newthread'}</a>$menusep<a href="$cgi;action=post;title=$polltxt{'1a'}">$img{'createpoll'}</a>&nbsp;
	    </font></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<table border=0 width="100%" cellspacing="0" cellpadding="0" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td>
    <table cellpadding="4" cellspacing="1" border="0" width="100%">
~;
if($autoapplyrate{$currentboard} == 1 && $viewrateindex{$currentboard} == 1) {
	$yymain .= qq~
      <tr>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="10%" colspan="2"><font size="2">&nbsp;</font></td>
	~;
	if($rategraph{$currentboard} == 1) {
		$yymain .= qq~<td class="titlebg" bgcolor="$color{'titlebg'}" width="32%"><font size="2" class="text1" color="$color{'titletext'}"><b>$txt{'70'}</b></font></td>~;
	}
	else {
		$yymain .= qq~<td class="titlebg" bgcolor="$color{'titlebg'}" width="25%"><font size="2" class="text1" color="$color{'titletext'}"><b>$txt{'70'}</b></font></td>~;
	}
	$yymain .= qq~
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="12%" align="center"><font size="2" class="text1" color="$color{'titletext'}"><b>$txt{'109'}</b></font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="4%" align="center"><font size="2" class="text1" color="$color{'titletext'}"><b>$txt{'110'}</b></font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="4%" align="center"><font size="2" class="text1" color="$color{'titletext'}"><b>$txt{'301'}</b></font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="19%"><font size="2" class="text1" color="$color{'titletext'}"><b>$txt{'111'}</b></font></td>
	~;
	if($rategraph{$currentboard} == 1) {
		$yymain .= qq~<td class="titlebg" bgcolor="$color{'titlebg'}" width="16%" align="center"><font size="2" class="text1" color="$color{'titletext'}"><b>$mbcrate{'04'}</b></font></td>~;
	}
	else {
		$yymain .= qq~<td class="titlebg" bgcolor="$color{'titlebg'}" width="23%" align="center"><font size="2" class="text1" color="$color{'titletext'}"><b>$mbcrate{'04'}</b></font></td>~;
	}
	$yymain .= qq~
      </tr>
	~;
}
else {
	$yymain .= qq~
      <tr>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="10%" colspan="2"><font size="2">&nbsp;</font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="44%"><font size="2" class="text1" color="$color{'titletext'}"><b>$txt{'70'}</b></font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="14%" align="center"><font size="2" class="text1" color="$color{'titletext'}"><b>$txt{'109'}</b></font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="4%" align="center"><font size="2" class="text1" color="$color{'titletext'}"><b>$txt{'110'}</b></font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="4%" align="center"><font size="2" class="text1" color="$color{'titletext'}"><b>$txt{'301'}</b></font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="24%"><font size="2" class="text1" color="$color{'titletext'}"><b>$txt{'111'}</b></font></td>
      </tr>
	~;
}
	$yymain .= qq~
~;

###Start Sticky Group mod
if($stkynum){
	$yymain .= qq~
      <tr>
        <td colspan="8" align="left" class="catbg" bgcolor="$color{'catbg'}" width="100%"><font size="2"><b>&nbsp;$stickygrp{'1'}</b></font></td>
      </tr>
~;
}
###End Sticky Group mod

	# Begin printing the message index for current board.
	if ($threadcount == 0) {
		$sortcolspan = 7;
		if ($enable_topicrating == 1) {++$sortcolspan;}
		if (($settings[7] eq 'Administrator' && $adminview != 0) || ($settings[7] eq 'Global Moderator' && $gmodview != 0) || (exists $moderators{$username} && $modview != 0)){++$sortcolspan;}
		$yymain .= qq~
      <tr>
        <td class="windowbg2" valign="middle" align="center" bgcolor="$color{'windowbg2'}" colspan="$sortcolspan"><br><font size=2><b>$sorttxt{'4'}</b></font><br><br></td>
      </tr>
		~;
	}
	$counter = $start;
	foreach( @threads ) {
		($mnum, $msub, $mname, $memail, $mdate, $mreplies, $musername, $micon, $mstate) = split( /\|/, $_ );
		# Set thread class depending on locked status and number of replies.
		$threadclass = 'thread';
		if( $mstate == 1 ) { $threadclass = 'locked'; }
		elsif( $mreplies > 24 ) { $threadclass = 'veryhotthread'; }
		elsif( $mreplies > 14 ) { $threadclass = 'hotthread'; }
		elsif( $mstate == 0 ) { $threadclass = 'thread'; }
		foreach $curnum (@stickys) {
			if ($mnum == $curnum) {
				if($threadclass eq 'locked') { $threadclass = 'stickylock'; }
				else { $threadclass = 'sticky'; }
			}
		}
		$auctionthread = 0;
		if (-e "$datadir/$mnum.auction") { $auctionthread = 1; 
			fopen (FILE, "$datadir/$mnum.auction");
			@auctiondata = <FILE>;
			fclose (FILE);
			$bidduration = $auctiondata[5];
			$bidstart = $auctiondata[12];
			if (-e "$datadir/$mnum.auctx"){
				fopen (FILE, "$datadir/$mnum.auctx");
				@extdata = <FILE>;
				fclose (FILE);
				$extnum = 0;
				$exttime = 0;
				foreach $extention(@extdata){
					chomp $extention;
					$extnum++;
					$exttime = $exttime + $extention;
				}
			}
			$bidtimeleft = 0;
			my $todaytime = time; 
			$dif = (($todaytime - $bidstart)/86400); 
			if(!$dif) { $dif = 0; } 
			$bidtimeleft = sprintf("%.1f",$bidduration - $dif + $exttime);
			$calcdif = (($bidduration*86400)-($todaytime - $bidstart)+($exttime*86400));
			$bidday = int($calcdif/86400);
			$calcdif = ($calcdif - ($bidday*86400));
			$bidhour = int($calcdif/3600);
			$calcdif = ($calcdif - ($bidhour*3600));
			$bidminute = int($calcdif/60);
			$calcdif = ($calcdif - ($bidminute*60));
			$bidsecond = int($calcdif);
			if($bidday <= 0){
				$duration = "";
			} elsif($bidday == 1) {
				$duration = "$bidday<sup>$aucttxt{'10a'}</sup> ";
			} else {
				$duration = "$bidday<sup>$aucttxt{'10a2'}</sup> ";
			}
			if($bidhour <= 0 && $bidday <= 0){
				$duration .= "";
			} else {
				$duration .= "$bidhour<sup>$aucttxt{'10c'}</sup> ";
			}
			if($bidminute <= 0 && $bidhour <= 0){
				$duration .= "";
			} else {
				$duration .= "$bidminute<sup>$aucttxt{'10d'}</sup> ";
			}
			if($bidsecond < 0){
				$duration .= "$aucttxt{'39a'}";
			} else {
				$duration .= "$bidsecond<sup>$aucttxt{'10e'}</sup> ";
			}
		}
		$auctlock = 0;
		$bidcount = 0;
		$hbuser="";
		$hbusername="";
		if (-e "$datadir/$mnum.bids"){
			fopen (BID, "$datadir/$mnum.bids");
			@bids = <BID>;
			fclose (BID);
		}
		if (-e "$datadir/$mnum.auctl" || $bidtimeleft <= 0 ) {$auctionimg = qq~$img{'auctioniconclosed'}~;
		$auctlock = 1;
			foreach $bidline(@bids){
				chomp $bidline;
				$bidcount++;
				@biditem = split(/\|/,$bidline);
				$hbuser = $biditem[0];
				$hbusername = $biditem[1];
			}
		} elsif (-e "$datadir/$mnum.bids"){
			foreach $bidline(@bids){
				chomp $bidline;
				$bidcount++;
				@biditem = split(/\|/,$bidline);
				$hbuser = $biditem[0];
				$hbusername = $biditem[1];
				if ($hbuser eq $username) {$lastbid = 1;} else {$lastbid = 0;}
			}
			if ($lastbid == 1 ){$auctionimg = qq~$img{'auctionicon'}~; } else {$auctionimg = qq~$img{'auctionnewicon'}~; }
		} else {
			if (-e "$datadir/$mnum.bids"){
				foreach $bidline(@bids){
					chomp $bidline;
					$bidcount++;
					@biditem = split(/\|/,$bidline);
					$hbuser = $biditem[0];
					$hbusername = $biditem[1];
				}
			}
		$auctionimg = qq~$img{'auctionnewicon'}~; 
		}
		if ($username eq 'Guest'){$auctionimg = ""; }
		# Decide if thread should have the "NEW" indicator next to it.
		# Do this by reading the user's log for last read time on thread,
		# and compare to the last post time on the thread.
		$dlp = &getlog($mnum);
		$threaddate = stringtotime($mdate);
		if( $max_log_days_old && $dlp < $threaddate && $username ne 'Guest' && &getlog("$currentboard--mark") < $threaddate ) {
			$new = 'new';
		}
		else { $new = ''; }
		if ($hbuser ne ""){
			$lastbidder = qq~<a href="$scripturl?board=$currentboard;action=viewprofile;username=$hbuser">$hbusername</a>~;
		} else {
			$lastbidder = "$aucttxt{'45'}";
		}
		if ($bidcount > 0){
			$numberbids = qq~$bidcount~;
		} else {
			$numberbids = "$aucttxt{'45'}";
		}
		if ($auctlock == 1){
			$duration = $aucttxt{'39a'};
		}
		if ($auctionthread == 0) {$lastbidder = ""; $numberbids = "";}


		# Decide if thread should have the "NEW" indicator next to it.
		# Do this by reading the user's log for last read time on thread,
		# and compare to the last post time on the thread.
$threaddate = stringtotime($mdate);  
if( $max_log_days_old && $username ne 'Guest' && $threaddate > time-($max_log_days_old*86400) && &getlog($mnum) < $threaddate && &getlog("$currentboard--mark") < $threaddate ) { 
			$new = qq~<img src="$imagesdir/new.gif" alt="$txt{'302'}">~;
		}
		else { $new = ''; }

		# Load the current nickname of the account name of the thread starter.
		$micon = qq~<img src="$imagesdir/$micon.gif" alt="" border="0" align="middle">~;
		$mpoll = "";
		if (-e "$datadir/$mnum.poll") {
			$mpoll = qq~<b>$polltxt{'15'}: </b>~;
			fopen (FILE, "$datadir/$mnum.poll");
			$poll_question = <FILE>; 
			fclose (FILE);
			chomp $poll_question;
			($dummy, $poll_locked, $dummy) = split(/\|/, $poll_question, 3);
			$micon = qq~$img{'pollicon'}~;
			if ($poll_locked) { $micon = $img{'polliconclosed'}; }
			else {
				fopen(FILE, "$datadir/$mnum.polled");
				$polled = <FILE>;
				fclose(FILE);
				$dlp = &getlog($mnum);
				($dummy, $dummy, $dummy, $vote_date, $dummy) = split(/\|/, $polled);
				$vote_date = stringtotime($vote_date);
				if( $max_log_days_old && $dlp < $vote_date && $username ne 'Guest' && &getlog("$currentboard--mark") < $vote_date ) {$micon = qq~$img{'polliconnew'}~;}
			}
		}

		if( $musername ne 'Guest' && -e "$memberdir/$musername.dat" ) {
			&LoadUser($musername);
			$mname = $userprofile{$musername}->[1] || $mname || $txt{'470'};
			$mname = qq~<a href="$scripturl?action=viewprofile;username=$useraccount{$musername}">$mname</a>~;
		}
		else {
			$mname ||= $txt{'470'};
		}

		# Censor the subject of the thread.
		foreach (@censored) {
			($tmpa,$tmpb) = @{$_};
			$msub =~ s~\Q$tmpa\E~$tmpb~gi;
		}

		# Decide how many pages the thread should have.
		$threadlength = $mreplies + 1;
		$pages = '';
		if( $threadlength > $maxmessagedisplay ) {
			$tmpa = 1;
			for( $tmpb = 0; $tmpb < $threadlength; $tmpb += $maxmessagedisplay ) {
				$pages .= qq~<a href="$cgi;action=display;num=$mnum;start=$tmpb#$tmpb">$tmpa</a>\n~;
				++$tmpa;
			}
			$pages =~ s/\n\Z//;
			$pages = qq~ <font size="1">&#91; $pages <A href="$cgi;action=display;num=$mnum;start=0;showall=true">all</a> &#93;</font>~;
		}

		if( fopen(FILE, "$datadir/$mnum.data") ) {
			$tmpa = <FILE>;
			fclose(FILE);
		}
		elsif( -e "$datadir/$mnum.data" ) {
			&fatal_error("301 $txt{'106'}: $txt{'23'} $mnum.data");
		}
		else {
			$tmpa = '0';
		}


		($views, $lastposter) = split(/\|/, $tmpa);
		if( $lastposter =~ m~\AGuest-(.*)~ ) {
			$lastposter = $1;
		}
		else {
			unless( $lastposter eq $txt{'470'} ) {
				$lastposterid = $lastposter;
				&LoadUser($lastposterid);
				if($userprofile{$lastposter}->[1]) { $lastposter = qq~<a href="$scripturl?action=viewprofile;username=$lastposterid">$userprofile{$lastposter}->[1]</a>~; }
			}
			&LoadUser($lastposter);
		}
		$lastpostername = $lastposter || $txt{'470'};
		$views = $views ? $views - 1 : 0;

	if(!-e ("$vardir/$mnum.rate") && $autoapplyrate{$currentboard} == 1) {
		if(!-e ("$vardir/rateslist.txt")) {
			fopen(FILE, ">$vardir/rateslist.txt", 1);
			print FILE "|1|1|1\n";
			fclose(FILE);
		}

		fopen(FILE, "$vardir/rateslist.txt");
		@ratelist = <FILE>;
		$listnum = @ratelist;
		fclose(FILE);

		$namestart = "";
		$namestart .= qq($msub|$date);
		$ratelink = qq~$scripturl?board=$currentboard;action=display;num=$mnum~;

		fopen( FILE, ">$vardir/$mnum.rate", 1);
		print FILE "$boardname\n";
		print FILE "$namestart\n";
		print FILE "\n";
		print FILE "0.00|0\n";
		print FILE "$ratelink\n";
		fclose(FILE);

		fopen(FILE, ">$vardir/rateslist.txt", 1);
		foreach $currate (@ratelist) {
			chomp $currate;
			print FILE "$currate\n";
		}
		print FILE "$viewnum|$username\n";
		fclose(FILE);
	}
	if($autoapplyrate{$currentboard} == 1 && $viewrateindex{$currentboard} == 1) {
		@rateinfo = ();
		fopen(RATEFILEREAD,"$vardir/$mnum.rate");
		@rateinfo = <RATEFILEREAD>;
		$lines = @rateinfo;
		fclose(RATEFILEREAD);
		chomp @rateinfo;
		$raters = $lines - 5;
		($rating, $clicks) = split(/\|/,$rateinfo[3]);
		if($rating == 0) { $rating = "0.00" }
		$barrate = $rating * 10;
		$ratebar = "";
		$ratebar1 = "";
		$ratebar2 = "";
		$barchart = int($barrate);

		$ratebar2 .= qq~<table width="100%" align="center" border="0" cellpadding="2" cellspacing="0"><tr>~;
		if($rategraph{$currentboard} == 1) {

		if($ratestar{$currentboard} == 1) {
			if($barchart < 10) { $ratebar2 .= qq~<td align="center"><a href="$cgi;action=setoverview;rateid=$mnum"><img src="$imagesdir/st00.gif" border="0" alt="" align="absmiddle"></a></font></td>~; }
			elsif($barchart < 30) { $ratebar2 .= qq~<td align="center"><a href="$cgi;action=setoverview;rateid=$mnum"><img src="$imagesdir/st01.gif" border="0" alt="" align="absmiddle"></a></font></td>~; }
			elsif($barchart < 50) { $ratebar2 .= qq~<td align="center"><a href="$cgi;action=setoverview;rateid=$mnum"><img src="$imagesdir/st02.gif" border="0" alt="" align="absmiddle"></a></font></td>~; }
			elsif($barchart < 70) { $ratebar2 .= qq~<td align="center"><a href="$cgi;action=setoverview;rateid=$mnum"><img src="$imagesdir/st03.gif" border="0" alt="" align="absmiddle"></a></font></td>~; }
			elsif($barchart < 90) { $ratebar2 .= qq~<td align="center"><a href="$cgi;action=setoverview;rateid=$mnum"><img src="$imagesdir/st04.gif" border="0" alt="" align="absmiddle"></a></font></td>~; }
			else { $ratebar2 .= qq~<td align="center"><a href="$cgi;action=setoverview;rateid=$mnum"><img src="$imagesdir/st05.gif" border="0" alt="" align="absmiddle"></a></font></td>~; }
		}
		else {
			$barchart1 = 100 - $barchart;
			if ($barchart < 1) {$ratebar = "$ratebar";}
			else {
				$ratebar = qq~<img src="$imagesdir/ratebar.gif" width="$barchart" height="10" alt="" border="0" align="absmiddle">~;
			}
			if ($barchart > 99) {$ratebar1 = "$ratebar1";}
			else {
				$ratebar1 = qq~<img src="$imagesdir/ratebar1.gif" width="$barchart1" height="10" alt="" border="0" align="absmiddle">~;
			}
			$ratebar2 .= qq~<td align="left"><a href="$cgi;action=setoverview;rateid=$mnum">$ratebar$ratebar1</a></font></td>~;
		}

		}
		else {

		if($ratestar{$currentboard} == 1) {
			if($barchart < 10) { $ratebar2 .= qq~<td width="23%" align="right"><font size="1">$rating</td><td width="59" align="center"><a href="$cgi;action=setoverview;rateid=$mnum"><img src="$imagesdir/st00.gif" border="0" alt="" align="absmiddle"></a></font></td><td align="left"><font size="1">$ratetxt{'05'} $raters</font></td>~; }
			elsif($barchart < 30) { $ratebar2 .= qq~<td width="23%" align="right"><font size="1">$rating</td><td width="59" align="center"><a href="$cgi;action=setoverview;rateid=$mnum"><img src="$imagesdir/st01.gif" border="0" alt="" align="absmiddle"></a></font></td><td align="left"><font size="1">$ratetxt{'05'} $raters</font></td>~; }
			elsif($barchart < 50) { $ratebar2 .= qq~<td width="23%" align="right"><font size="1">$rating</td><td width="59" align="center"><a href="$cgi;action=setoverview;rateid=$mnum"><img src="$imagesdir/st02.gif" border="0" alt="" align="absmiddle"></a></font></td><td align="left"><font size="1">$ratetxt{'05'} $raters</font></td>~; }
			elsif($barchart < 70) { $ratebar2 .= qq~<td width="23%" align="right"><font size="1">$rating</td><td width="59" align="center"><a href="$cgi;action=setoverview;rateid=$mnum"><img src="$imagesdir/st03.gif" border="0" alt="" align="absmiddle"></a></font></td><td align="left"><font size="1">$ratetxt{'05'} $raters</font></td>~; }
			elsif($barchart < 90) { $ratebar2 .= qq~<td width="23%" align="right"><font size="1">$rating</td><td width="59" align="center"><a href="$cgi;action=setoverview;rateid=$mnum"><img src="$imagesdir/st04.gif" border="0" alt="" align="absmiddle"></a></font></td><td align="left"><font size="1">$ratetxt{'05'} $raters</font></td>~; }
			else { $ratebar2 .= qq~<td width="23%" align="right"><font size="1">$rating</td><td width="59" align="center"><a href="$cgi;action=setoverview;rateid=$mnum"><img src="$imagesdir/st05.gif" border="0" alt="" align="absmiddle"></a></font></td><td align="left"><font size="1">$ratetxt{'05'} $raters</font></td>~; }
		}
		else {
			$barchart1 = 100 - $barchart;
			if ($barchart < 1) {$ratebar = "$ratebar";}
			else {
				$ratebar = qq~<img src="$imagesdir/ratebar.gif" width="$barchart" height="10" alt="" border="0" align="absmiddle">~;
			}
			if ($barchart > 99) {$ratebar1 = "$ratebar1";}
			else {
				$ratebar1 = qq~<img src="$imagesdir/ratebar1.gif" width="$barchart1" height="10" alt="" border="0" align="absmiddle">~;
			}
			$ratebar2 .= qq~<td width="24%" align="right"><font size="1">$rating</td><td align="left"><a href="$cgi;action=setoverview;rateid=$mnum">$ratebar$ratebar1</a></font></td>~;
		}

		}

		$ratebar2 .= qq~</tr></table>~;
	}

###Start Sticky Group mod
if(($stkynum && ($counter >= $stkynum)) && ($stkyshowed < 1)){
	$yymain .= qq~
      <tr>
        <td colspan="8" align="left" class="catbg" bgcolor="$color{'catbg'}" width="100%"><font size="2"><b>&nbsp;$stickygrp{'2'}</b></font></td>
      </tr>
~;
$stkyshowed = 1;
}
###End Sticky Group mod

		if((-e "$datadir/$mnum.fav") && ($enable_favorites)) {
			fopen(FILE, "$datadir/$mnum.fav");
				@favnames = <FILE>;
			fclose(FILE);
			foreach $chfav (@favnames) {
				chomp $chfav;
				if($username eq $chfav) {$new .= qq~&nbsp;<IMG SRC="$imagesdir/favorite2.gif" BORDER=0 alt="$fav{'8'}">~; last;}
			}
		}

		# Print the thread info.
		$mydate = &timeformat($mdate);
		$yymain .= qq~
~;
if($autoapplyrate{$currentboard} == 1 && $viewrateindex{$currentboard} == 1) {
	$yymain .= qq~
      <tr>
~;
if ($auctionthread eq 1) {
	$yymain .= qq~
        <td class="windowbg2" valign="middle" align="center" width="6%" bgcolor="$color{'windowbg2'}"><img src="$imagesdir/$threadclass.gif"><br>$auctionimg</td>
	~;
} elsif ($auctionthread eq 0) {
	$yymain .= qq~
        <td class="windowbg2" valign="middle" align="center" width="6%" bgcolor="$color{'windowbg2'}"><img src="$imagesdir/$threadclass.gif"></td>
	~;
}
	$yymain .= qq~
        <td class="windowbg2" valign="middle" align="center" width="4%" bgcolor="$color{'windowbg2'}">$micon</td>
        <td class="windowbg" valign="middle" width="28%" bgcolor="$color{'windowbg'}"><font size="2">$new <a href="$cgi;action=display;num=$mnum"><b>$msub</b></a> $pages</font></td>
        <td class="windowbg2" valign="middle" align="center" width="12%" bgcolor="$color{'windowbg2'}"><font size="1">$mname</font></td>
        <td class="windowbg" valign="middle" width="4%" align="center" bgcolor="$color{'windowbg'}"><font size="2">$mreplies</font></td>
        <td class="windowbg" valign="middle" width="4%" align="center" bgcolor="$color{'windowbg'}"><font size="2">$views</font></td>
        <td class="windowbg2" valign="middle" bgcolor="$color{'windowbg2'}"><font size="1">$mydate<br>$txt{'525'} $lastpostername</font></td>
        <td class="windowbg2" align="center" valign="middle" bgcolor="$color{'windowbg2'}">$ratebar2</td>
      </tr>
	~;
}
else {
	$yymain .= qq~
      <tr>
        <td class="windowbg2" valign="middle" align="center" width="6%" bgcolor="$color{'windowbg2'}"><img src="$imagesdir/$threadclass.gif"></td>
        <td class="windowbg2" valign="middle" align="center" width="4%" bgcolor="$color{'windowbg2'}">$micon</td>
        <td class="windowbg" valign="middle" width="48%" bgcolor="$color{'windowbg'}"><font size=2>$new <a href="$cgi;action=display;num=$mnum"><b>$msub</b></a> $pages</font>~;
	if($auctionthread == 1){
		$yymain .= qq~<br><font size="1"><i>$aucttxt{'20a'}</i>: $lastbidder - <i>$aucttxt{'20b'}</i>: $numberbids<i> - $aucttxt{'10b'}</i>: $duration</font>~;
	}
	$yymain .= qq~</td>
        <td class="windowbg2" valign="middle" align="center" width="14%" bgcolor="$color{'windowbg2'}"><font size="1">$mname</font></td>
        <td class="windowbg" valign="middle" width="4%" align="center" bgcolor="$color{'windowbg'}"><font size="2">$mreplies</font></td>
        <td class="windowbg" valign="middle" width="4%" align="center" bgcolor="$color{'windowbg'}"><font size="2">$views</font></td>
        <td class="windowbg2" valign="middle" width="24%" bgcolor="$color{'windowbg2'}"><font size="1">$mydate<br>$txt{'525'} $lastpostername</font></td>
      </tr>
	~;
}
	$yymain .= qq~
~;
		++$counter;
	}

	$yymain .= qq~
    </table>
    </td>
  </tr>
</table>
~;
if ($enable_sortbar == 1) { $yymain .= qq~<form name="sortoptions" action="$cgi;action=messageindex;start=0" method="post" style="display: inline">~; }
$yymain .= qq~
<table border=0 width="100%" cellspacing="0" cellpadding="0" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td>
    <table cellpadding="4" cellspacing="1" border="0" width="100%">
      <tr>
        <td align="left" class="catbg" bgcolor="$color{'catbg'}" width="100%">
        <table cellpadding="3" cellspacing="0" width="100%">
          <tr>
            <td><font size=2><b>$txt{'139'}:</b> $pageindex</font></td>
	~;
	if ($enable_sortbar == 1) { 
	$yymain .= qq~
	    <td class="catbg" bgcolor="$color{'catbg'}" align="right"><font size="2"><nobr>
	    $sorttxt{'10'}: 
            <select name="sortmode" size=1>
              <option value="none"$sort1>$sorttxt{'18'}
              <option value="subject"$sort2>$sorttxt{'11'}
              <option value="created"$sort3>$sorttxt{'12'}
              <option value="author"$sort4>$sorttxt{'13'}
              <option value="last"$sort5>$sorttxt{'14'}
              <option value="replies"$sort6>$sorttxt{'15'}
              <option value="views"$sort7>$sorttxt{'16'}
              ~;
              if ($enable_topicrating == 1) {$yymain .= qq~<option value="rating"$sort8>$sorttxt{'17'}~;}
              $yymain .= qq~
            </select></nobr>
            <nobr>&nbsp; $sorttxt{'20'}: 
            <select name="datemask" size=1>
              <option value="today"$mask1>$sorttxt{'21'}
              <option value="2"$mask2>$sorttxt{'22'}
              <option value="5"$mask3>$sorttxt{'23'}
              <option value="10"$mask4>$sorttxt{'24'}
              <option value="20"$mask5>$sorttxt{'25'}
              <option value="30"$mask6>$sorttxt{'26'}
              <option value="all"$mask7>$sorttxt{'27'}
            </select>
            &nbsp; <input type="submit" value="$sorttxt{'30'}"></nobr></font></td>
	~;
	&jumpto;
	} else { 
	$yymain .= qq~
	    <td class="catbg" bgcolor="$color{'catbg'}" align=right nowrap><font size="2">
~;
	if ($username ne 'Guest') {
	if($showmarkread) { $yymain .= qq~<a href="$cgi;action=markasread">$img{'markboardread'}</a>~; }
	if($enable_board_notify) { $yymain .= $notify; }
}
	&jumpto;
	$yymain .= qq~
	    $menusep<a href="$cgi;action=post;title=$txt{'464'}">$img{'newthread'}</a>$menusep<a href="$cgi;action=post;title=$polltxt{'1a'}">$img{'createpoll'}</a>&nbsp;
	    </font></td>
	~;
	} 
	$yymain .= qq~
	  </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table><br>
~;
if ($enable_sortbar == 1) { $yymain .= qq~</form>~; }
$yymain .= qq~
<table cellpadding=0 cellspacing=0 width="100%">
  <tr>
	<td align="left" valign="middle"><font size="1">
	<img src="$imagesdir/thread.gif"> $txt{'457'}<BR>
	<img src="$imagesdir/hotthread.gif"> $txt{'454'}<BR>
	<img src="$imagesdir/veryhotthread.gif"> $txt{'455'}
	</font></td><td align="left" valign="middle"><font size="1">
	<img src="$imagesdir/locked.gif"> $txt{'456'}<BR>
	<img src="$imagesdir/sticky.gif"> $txt{'779'}<BR>
	<img src="$imagesdir/stickylock.gif"> $txt{'780'}
	</font></td>
	<td align="right" valign="middle"><font size="1">$selecthtml</font></td>
  </tr>
</table>
~;
### Quick Reply Box 1.3 ###

	# MBCO2 Post access check
	if ($start_users{$currentboard} || $start_groups{$currentboard}) {
		my $access = &AccessCheck($currentboard, 1) || "";
		if ($access eq "denied") {$enable_quickpost = 0;}
	}

	if ($username ne "Guest" && $enable_quickpost == 1) {
$yymain .= qq~
<script language="JavaScript1.2" src="$ubbcjspath" type="text/javascript"></script>
<form action="$cgi;action=post2" method="post" name="postmodify" onsubmit="postmodify.post.disabled=true; postmodify.clear.disabled=true;">
<input type="hidden" name="threadid" value="">
<input type="hidden" name="icon" value="xx">
<table border=0 width="80%" cellspacing="1" cellpadding="4" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
  <tr>
    <td align="center" class="titlebg" bgcolor="$color{'titlebg'}"><font size="2" class="text1" color="$color{'titletext'}"><b>$qrb_txt{'1'}</b></font></td>
  </tr>
  <tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}">
      <table width="100%" cellpadding="4" cellspacing="0">
        <tr>
          <td valign="top" width="23%"><font size="2"><b>$txt{'70'}:</b></font></td>
          <td><font size="2"><input type="text" name="subject" value="" size="40" style="width:100%"></td>
        </tr>~;
		if ($enable_quicksmilies == 1) {
			if ($smiliestyle eq 1){$smiliewinlink = "$scripturl?action=smilieput";} else { $smiliewinlink = "$scripturl?action=smilieindex";}
			$moresmilieslist = ""; 
			$more_smilie_array = ""; 
			$i=0; 
			if ($showadded eq 1){ # show added smilies on smiley bar
				while($SmilieURL[$i]) { 
					if ($SmilieURL[$i]=~ /\//i) {$tmpurl = $SmilieURL[$i];} else {$tmpurl = qq~$imagesdir/$SmilieURL[$i]~;}
					$moresmilieslist .= qq~      document.write("<img src='$tmpurl' align='bottom' alt="+'"'+"$SmilieDescription[$i]"+'"'+" border='0' onclick='javascript:MoreSmilies($i)' style='cursor:hand'>$SmilieLinebreak[$i] ");\n~; 
					$tmpcode = $SmilieCode[$i];
					$tmpcode =~ s/\&quot;/"+'"'+"/g;
					&FromHTML($tmpcode);
					$tmpcode =~ s/&#36;/\$/g;
					$tmpcode =~ s/&#64;/\@/g;
					$more_smilie_array .= qq~" $tmpcode", ~; 
					$i++; 
				} 
			}
			if ($showsmdir eq 1){ # show auto smilies on smiley bar
				opendir(DIR, "$smiliesdir"); 
				@contents = readdir(DIR); 
				closedir(DIR); 
				foreach $line (sort {uc($a) cmp uc($b)} @contents){ 
					($name, $extension) = split (/\./, $line); 
					if ($extension =~ /gif/i || $extension =~ /jpg/i || $extension =~ /jpeg/i || $extension =~ /png/i ){ 
						if ($line !~ /banner/i) { 
							$moresmilieslist .= qq~      document.write("<img src='$smiliesurl/$line' align='bottom' alt='$name' border='0' onclick='javascript:MoreSmilies($i)' style='cursor:hand'> ");\n~; 
							$more_smilie_array .= qq~" [smiley=$line]", ~; 
							$i++ 
						} 
					} 
				} 
			}
			$more_smilie_array .= qq~""~; 
			$yymain .= qq~
        <tr>
          <td valign="top" width="23%"><font size="2"><b>$txt{'297'}:</b></font></td>
          <td valign="middle">
          <script language="JavaScript1.2" type="text/javascript">
          <!--
            moresmiliecode = new Array($more_smilie_array) 

            function MoreSmilies(i) { 
              AddTxt=moresmiliecode[i]; 
              AddText(AddTxt); 
            }

            function smiliewin() {
              window.open("$smiliewinlink", 'list', 'width=$winwidth,height=$winheight, scrollbars=yes');
            }
  
            if((navigator.appName == "Netscape" && navigator.appVersion.charAt(0) >= 4) || (navigator.appName == "Microsoft Internet Explorer" && navigator.appVersion.charAt(0) >= 4) || (navigator.appName == "Opera" && navigator.appVersion.charAt(0) >= 4)) {
              document.write("<img style='cursor:hand' onclick='javascript:smiley()' src='$imagesdir/smiley.gif' align='bottom' alt='$txt{'287'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:wink()' src='$imagesdir/wink.gif' align='bottom' alt='$txt{'292'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:cheesy()' src='$imagesdir/cheesy.gif' align='bottom' alt='$txt{'289'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:grin()' src='$imagesdir/grin.gif' align='bottom' alt='$txt{'293'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:angry()' src='$imagesdir/angry.gif' align='bottom' alt='$txt{'288'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:sad()' src='$imagesdir/sad.gif' align='bottom' alt='$txt{'291'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:shocked()' src='$imagesdir/shocked.gif' align='bottom' alt='$txt{'294'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:cool()' src='$imagesdir/cool.gif' align='bottom' alt='$txt{'295'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:huh()' src='$imagesdir/huh.gif' align='bottom' alt='$txt{'296'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:rolleyes()' src='$imagesdir/rolleyes.gif' align='bottom' alt='$txt{'450'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:tongue()' src='$imagesdir/tongue.gif' align='bottom' alt='$txt{'451'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:embarassed()' src='$imagesdir/embarassed.gif' align='bottom' alt='$txt{'526'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:lipsrsealed()' src='$imagesdir/lipsrsealed.gif' align='bottom' alt='$txt{'527'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:undecided()' src='$imagesdir/undecided.gif' align='bottom' alt='$txt{'528'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:kiss()' src='$imagesdir/kiss.gif' align='bottom' alt='$txt{'529'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:cry()' src='$imagesdir/cry.gif' align='bottom' alt='$txt{'530'}' border='0'> ");
$moresmilieslist
            }
            else { document.write("<font size='1'>$txt{'215'}</font>"); }
          //-->
          </script>~;
		if ($showadded == 3 || ($showadded == 2 && $detachblock == 1) || $showsmdir == 3 || ($showsmdir == 2 && $detachblock == 1)){
			$yymain .= qq~
          <a href=javascript:smiliewin()>$smiltxt{'1'}</a>~;
		}
		$yymain .= qq~ 
          <noscript>
            <font size="1">$txt{'215'}</font>
          </noscript>
          </td>
        </tr>~;
		}
	$yymain .= qq~
        <tr>
          <td valign="top" width="23%"><font size="2"><b>$txt{'72'}:</b></font></td>
          <td><textarea name="message" rows="5" cols="60" wrap="soft" ONCLICK="javascript:storeCaret(this);" ONKEYUP="javascript:storeCaret(this);" ONCHANGE="javascript:storeCaret(this);" style="width:100%"></textarea></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td align="center" class="catbg" bgcolor="$color{'catbg'}"><input type="submit" name="post" value="$txt{'105'}" accesskey="s"> &nbsp; <input type="reset" name="clear" value="$txt{'278'}" accesskey="r"><br><font size=2><b>$txt{'131'}:</b></font><input type=checkbox name="notify" value="x" checked></td>
  </tr>
</table>
</form>
~;
	}

### Quick Reply Box 1.3 ###

	$yytitle = $boardname;
	&template;
	exit;
}

sub MarkRead {
	# Mark all threads in this board as read.
	&dumplog("$currentboard--mark");
	$yySetLocation = qq~$scripturl~;
	&redirectexit;
}

1;