###############################################################################
# Display.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            #
###############################################################################

$displayplver = "1 Gold - SP 1.3";

require "$sourcedir/IgnoreUser.pl";

sub Display {
	fopen(FILE, "$vardir/ignore.txt") || &fatal_error("300 $txt{'106'}: $txt{'23'} ignore.txt");
	@ignoretxt = <FILE>;
	fclose(FILE);
	$ignoretxt = join( "", @ignoretxt );
	$ignoretxt =~ s/\n/<br>/g;
	my($msf,$mfn,$attachment,$showattach);
	my $viewnum = $INFO{'num'};
	if( $viewnum =~ /\D/ ) { &fatal_error($txt{'337'}); }
	if( $currentboard eq '' ) { &fatal_error($txt{'1'}); }
	$maxmessagedisplay ||= 10;
	my($filetype_info, $filesize_info, $extensions);
	$extensions = join(" ", @ext);
	$filetype_info = $checkext == 1 ? qq~$fatxt{'2'} $extensions~ : qq~$fatxt{'2'} $fatxt{'4'}~;
	$filesize_info = $limit != 0 ? qq~$fatxt{'3'} $limit KB~ : qq~$fatxt{'3'} $fatxt{'5'}~;
	my($buffer,$views,$lastposter,$moderators,$counter,$counterwords,$pageindex,$msubthread,$mnum,$mstate,$mdate,$msub,$mname,$memail,$mreplies,$musername,$micon,$noposting,$threadclass,$notify,$max,$start,$bgcolornum,$windowbg,$mattach,$mip,$mlm,$mlmb,$lastmodified,$postinfo,$star,$sendm,$topicdate);
	my(@userprofile,@messages,@bgcolors);

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

	# Load the membergroups list.
	fopen(FILE, "$vardir/membergroups.txt") || &fatal_error("100 $txt{'106'}: $txt{'23'} membergroups.txt");
	@membergroups = <FILE>;
	fclose(FILE);

	# Mark current thread as read.
	## LAST READ MOD ##
 	($mnum,$tmpa,$tmpa,$tmpa,$mdate,$mreplies) = split(/\|/,$yyThreadLine);
 	$mreplies++;
 	&dumplog($mnum,$date,$mreplies);
	## /LAST READ MOD ##
	# Add 1 to the number of views of this thread.
	if(fopen(FILE, "$datadir/$viewnum.data")) {
		$tmpa = <FILE>;
		@other_stuff = <FILE>;
		fclose(FILE);
		chomp $tmpa;
	}
	elsif( -e "$datadir/$viewnum.data" ) { &fatal_error("102 $txt{'106'}: $txt{'23'} $viewnum.data"); }
	else { $tmpa = '0'; }
	($tmpa, $tmpb) = split( /\|/, $tmpa );
	$tmpa++;
	fopen(FILE, "+>$datadir/$viewnum.data") || &fatal_error("103 $txt{'106'}: $txt{'23'} $viewnum.data");
	print FILE qq~$tmpa|$tmpb~;
	print FILE qq~\n~;
	print FILE @other_stuff;
	fclose(FILE);
	$views = $tmpa - 1;

	# Check to make sure this thread isn't locked.
	($mnum,$msubthread,$mname,$memail,$mdate,$mreplies,$musername,$micon,$mstate) = split( /\|/, $yyThreadLine );
	$noposting = $viewnum eq $mnum && $mstate == 1 ? 1 : 0;

	# Look for a poll file for this thread.
	if (-e "$datadir/$viewnum.poll") { $has_poll = 1; } else { $has_poll = 0; }

	# Get the class of this thread, based on lock status and number of replies.
	$replybutton = qq~<a href="$cgi;action=post;num=$viewnum;title=$txt{'116'}">$img{'reply'}</a>~;
	$pollbutton = qq~$menusep<a href="$cgi;action=post;num=$viewnum;title=$polltxt{'2a'}">$img{'addpoll'}</a>~;
	$threadclass = 'thread';
	if( $mstate == 1 ) {
		$threadclass = 'locked';
		$replybutton = "";
		$pollbutton = "";
	}
	if ($has_poll || $useraddpoll == 0) { $pollbutton = ""; }
	elsif( $mreplies > 24 ) { $threadclass = 'veryhotthread'; }
	elsif( $mreplies > 14 ) { $threadclass = 'hotthread'; }
	elsif( $mstate == 0 ) { $threadclass = 'thread'; }
	fopen(FILE, "$boardsdir/sticky.stk") || &fatal_error("300 $txt{'106'}: $txt{'23'} sticky.stk");
	@stickys = <FILE>;
	fclose(FILE);
	foreach $curnum (@stickys) {
		if ($mnum == $curnum) {
			if($threadclass eq 'locked') { $threadclass = 'stickylock'; }
			else { $threadclass = 'sticky'; }
		}
	}

	&LoadCensorList;	# Load Censor List

	# Build a list of this 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 thread has been viewed.
	if($enable_notification && $username ne 'Guest') {
		my $startnum = $start || '0';
		$notify = qq~<a href="$cgi;action=notify2;thread=$viewnum;start=$startnum" onclick="javascript:return confirm('$txt{'126'}')">$img{'notify'}</a>$menusep~;
		if(-e("$datadir/$viewnum.mail"))  {
			my $i = 0;
			my $found = 0;
			fopen(FILE, "$datadir/$viewnum.mail");
			@mails = <FILE>;
			fclose(FILE);
			foreach $curmail (@mails) {
				chomp $curmail;
				($curmail, $mail_sent, $notify_type) = split(/\|/,$curmail);
				if ($curmail eq $settings[2]) {
					$notify = qq~<a href="$cgi;action=notify3;thread=$viewnum;start=$startnum" onclick="javascript:return confirm('$txt{'212'}')">$img{'notify'}</a>$menusep~;
					if ($mail_sent == 1) {$mail_sent = 0; $found = 1;}
				}
				$mails[$i] = "$curmail|$mail_sent|$notify_type\n";
				$i++;
			}
			if ($found == 1) {
				fopen(FILE, ">$datadir/$viewnum.mail");
				print FILE @mails;
				fclose(FILE);
			}
		}
	}

	&jumpto;	# create the jumpto list

	# look for thread header for this topic
	if (-e "$datadir/$viewnum.head") { require "$sourcedir/ThreadHeader.pl"; &ShowHeader($viewnum);}

$yymain .= qq~
	<script language="JavaScript1.2" type="text/javascript">
		function SelPage(pstart) {
			location.href="$cgi;action=display;num=$viewnum;start="+pstart;
		}
	</script>
~;
	# Build the page links list.
	my($pageindex, $all, $allselected);
	$max = $mreplies + 1;
	if ($INFO{'start'} eq "all") { $maxmessagedisplay = $max; $all = 1; $allselected = "selected"; $start = 0 }
	else { $start = $INFO{'start'} || 0; }
	$start = $start > $mreplies ? $mreplies : $start;
	$start = ( int( $start / $maxmessagedisplay ) ) * $maxmessagedisplay;
	$pagenumb = int(($max - 1) / $maxmessagedisplay) + 1;
	$lastptn = ($pagenumb - 1) * $maxmessagedisplay;

	if($pagenumb < 2 && !$all) {
		$pageindex = 1;
	}
	else {
		$startpage = 0;
		$prevpage = $start - $maxmessagedisplay;
		$nextpage = $start + $maxmessagedisplay;
		$pageindex .= qq~$pagenumb &nbsp;~;
		if($start < $maxmessagedisplay) { $pageindex .= qq~<img src="$imagesdir/none.gif" border="0" height="20" width="20" alt="" vspace="0" hspace="0" align="absmiddle">~; }
		else { $pageindex .= qq~<a href="$cgi;action=display;num=$viewnum;start=$prevpage"><img src="$imagesdir/prev.gif" border="0" height="20" width="20" alt="" vspace="0" hspace="0" align="absmiddle"></a>~; }
		$pageindex .= qq~<form style="display: inline" method="POST"><select class="catbg" style="width: 50px; font-size: 12px; margin: 0px; padding: 0px; border: 0px" onChange="if(this.options[this.selectedIndex].value) SelPage(this.options[this.selectedIndex].value)">~;
		for($i=1; $i<=$pagenumb; $i++) {
			$selected = "";
			if($start == $startpage && !$all) { $selected = " selected" }
			$pageindex .= qq~<option value="$startpage"$selected>$i</option>~;
			$startpage += $maxmessagedisplay;
		}
		$pageindex .= qq~<option value="all" $allselected>$pidtxt{'01'}</option></select></form>~;
		if($start >= $lastptn) { $pageindex .= qq~<img src="$imagesdir/none.gif" border="0" height="20" width="20" alt="" vspace="0" hspace="0" align="absmiddle">~; }
		else { $pageindex .= qq~<a href="$cgi;action=display;num=$viewnum;start=$nextpage"><img src="$imagesdir/next.gif" border="0" height="20" width="20" alt="" vspace="0" hspace="0" align="absmiddle"></a>~; }
	}

	foreach (@censored) {
		($tmpa,$tmpb) = @{$_};
		$msubthread =~ s~\Q$tmpa\E~$tmpb~gi;
	}
	if ($boardlinks == 1) {	$blink =~ s~\°~\@~ig; $yymain .= "$blink"; }
	$curthreadurl = $curposlinks ? qq~<a href="$cgi;action=display;num=$viewnum" class="nav">$msubthread</a>~ : $msubthread;
# Begin addon for boardlinksSP1
	$blink = '';
	$i=0;
	$ii=0;
	while($LinkBoard[$i]) {
		if ($LinkBoard[$i] eq $currentboard){
			if ($ii == 0){
				if ( $LinkURL[$i] =~ m/\°/ ) {
					$blink .= qq~<a href="mailto:$LinkURL[$i]">$LinkName[$i]</a>~;
				} else {
					$blink .= qq~<a href="$LinkURL[$i]" target=_blank>$LinkName[$i]</a>~;
				}
				$ii=1;
			} else {
				if ( $LinkURL[$i] =~ m/\°/ ) {
					$blink .= qq~$blinkstxt{'13'}<a href="mailto:$LinkURL[$i]">$LinkName[$i]</a>~;
				} else {
					$blink .= qq~$blinkstxt{'13'}<a href="$LinkURL[$i]" target=_blank>$LinkName[$i]</a>~;
				}
			}
		}
		$i++;
	}
	if ($blink ne ''){
		$blink = qq~<table width="100%" cellpadding=3 cellspacing=0><TD align="center" class="catbg" bgcolor="$color{'titletext'}"><font size="2">$blinkstxt{'12'}$boardname</font><BR>$blink</TD></table><BR><BR>~;
	}
	if ($boardlinks != 1) {	$blink =~ s~\°~\@~ig; $yymain .= "$blink"; }
# End addon for boardlinksSP1

	# Create next/prev links
	fopen(LISTS, "$boardsdir/$INFO{'board'}.txt");
	@boardtopics = <LISTS>;
	seek LISTS, 0, 0;
	my $found;
	my $name = $INFO{'num'};
	my $bcount = 0;
	$CurrentPosition = -1;
	while($ThreadNum = <LISTS>) {
		++$CurrentPosition;
		$boardtopics[$bcount] = $ThreadNum;
		$bcount++;
		if ($ThreadNum =~ m/\A$name/o) { $found = 1; last; }
	}
	fclose(LISTS);
	$previous = $boardtopics[$CurrentPosition-1];
	$next = $boardtopics[$CurrentPosition+1];
	@prevthread = split(/\|/, $previous);
	$goprevious = $prevthread[0];
	@nextthread = split(/\|/, $next);
	$gonext = $nextthread[0];
	@getlastthread = @boardtopics;
	$lastthread = pop(@getlastthread);
	@lasttopic = split(/\|/, $lastthread);
	$endthread2 = $lasttopic[0];
	if($found) {
		$prevtopic = "$cgi;action=display;num=$goprevious";
		$nexttopic = "$cgi;action=display;num=$gonext";
		$endthread = "$cgi;action=display;num=$endthread2";
	}
	if( $endthread eq $prevtopic && $gonext eq "") { $nav = qq~ $txt{'766'} | <a href="$cgi;action=post;title=$txt{'464'}">$txt{'767a'}</a> |  $txt{'766'} &#187;~; }
	if($endthread eq $prevtopic && $gonext ne "") { $nav = qq~ $txt{'766'} | <a href="$cgi;action=post;title=$txt{'464'}">$txt{'767a'}</a> |  <a href="$nexttopic">$txt{'767'}</a> &#187;~; }
	if ( $endthread ne $prevtopic && $gonext eq "") { $nav = qq~ <a href="$prevtopic">$txt{'768'}</a> | <a href="$cgi;action=post;title=$txt{'464'}">$txt{'767a'}</a> |  $txt{'766'} &#187;~; }
	if ($endthread ne $prevtopic && $gonext ne "") { $nav = qq~ <a href="$prevtopic">$txt{'768'}</a> | <a href="$cgi;action=post;title=$txt{'464'}">$txt{'767a'}</a> | <a href="$nexttopic">$txt{'767'}</a> &#187;~; 	}
	if(!-e ("$vardir/$viewnum.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($msubthread|$date);
		$ratelink = qq~$scripturl?board=$currentboard;action=display;num=$viewnum~;

		fopen( FILE, ">$vardir/$viewnum.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) {
		if(-e ("$vardir/$viewnum.rate")) {
			$admin_rate = qq~<a href="$cgi;action=remrate;thread=$viewnum;yabbcat=$currentboard">$img{'rem_rating'}</a>~;
		}
		else {
			$admin_rate = qq~<a href="$cgi;action=addrate;thread=$viewnum;yabbcat=$currentboard;ratecat=$boardname;ratename=$msubthread">$img{'add_rating'}</a>~;
		}
	}
	$yymain .= qq~
<script language="JavaScript1.2" src="$ubbcjspath" type="text/javascript"></script>
<table width="100%" cellpadding="0" cellspacing="0">
  <tr>
    <td valign=bottom colspan="2"><font size="2" class="nav"><B>
    <img src="$imagesdir/open.gif" border="0" alt="">&nbsp;&nbsp;
    <a href="$scripturl" class="nav">$mbname</a><br>
    <img src="$imagesdir/tline.gif" border="0" alt=""><IMG SRC="$imagesdir/open.gif" border="0" alt="">&nbsp;&nbsp;
    <a href="$scripturl#$curcat" class="nav">$cat</a><br>
    <img src="$imagesdir/tline2.gif" border="0" alt=""><IMG SRC="$imagesdir/open.gif" border="0" alt="">&nbsp;&nbsp;
    <a href="$cgi" class="nav">$boardname</a> </b><font size="2">$showmods</font><b><br>
    <img SRC="$imagesdir/tline3.gif" border="0" alt=""><IMG SRC="$imagesdir/open.gif" border="0" alt="">&nbsp;&nbsp;
    $curthreadurl</b></font></td>
    <td valign="bottom" align="right"><font size="2">$nav</font></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%">
      <tr>
        <td align="left" class="catbg" bgcolor="$color{'catbg'}" width="100%">
        <table cellpadding="3" cellspacing="0" width="100%">
          <tr>
            <td><font size="2" color="#ffffff"><b>$txt{'139'}:</b> $pageindex</font></td>
            <td class="catbg" bgcolor="$color{'catbg'}" align="right"><font size="2">
            $replybutton$pollbutton$notify$menusep
            <a href="$cgi;action=sendtopic;topic=$viewnum">$img{'sendtopic'}</a>$menusep
            <a href="$cgi;action=print;num=$viewnum" target="_blank">$img{'print'}</a>
            </font></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
~;
	if ($has_poll) { require "$sourcedir/Poll.pl"; &display_poll($viewnum); }
	$yymain .= qq~
<table cellpadding="0" cellspacing="0" border="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
  <tr>
    <td>
    <table cellpadding="3" cellspacing="1" border="0" width="100%">
      <tr>
        <td valign="middle" align="left" width="20%" bgcolor="$color{'titlebg'}" class="titlebg">
        <font size="2" class="text1" color="$color{'titletext'}">&nbsp;<img src="$imagesdir/$threadclass.gif" alt="">
        &nbsp;<b>$txt{'29'}</b></font></td>
        <td valign="middle" align="left" bgcolor="$color{'titlebg'}" class="titlebg" width="80%">
        <font size="2" class="text1" color="$color{'titletext'}"><b>&nbsp;$txt{'118'}: $msubthread</b> &nbsp;($txt{'641'} $views $txt{'642'})</font></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
~;

	if(-e ("$vardir/$viewnum.rate")) {
		@rateinfo = ();
		fopen(RATEFILEREAD,"$vardir/$viewnum.rate");
		@rateinfo = <RATEFILEREAD>;
		$lines = @rateinfo;
		fclose(RATEFILEREAD);
		chomp @rateinfo;
		($thisname, $dummy) = split(/\|/,$rateinfo[1]);
		$thisuser = $username;
		if($thisuser eq "Guest") { $thisuser = $user_ip }
		$totalrate = 0;
		$raters = $lines - 5;
		if($raters > 0) {
			for($i=5; $i < $lines; $i++) {
				($thisrater, $thisrate) = split(/\|/,$rateinfo[$i]);
				if($thisuser eq $thisrater) { 
					$intrate = int($thisrate);
					$check[$intrate] = "selected";
				}
				$totalrate = $totalrate + $thisrate;
			}
			$therate = sprintf ("%.2f", ($totalrate/$raters));
		}
		else { $therate = "0.00" }

		($rating, $clicks) = split(/\|/,$rateinfo[3]);
		$barrate = $rating * 10;
		$ratebar = "";
		$ratebar1 = "";
		$ratebar2 = "";
		$barchart = int($barrate);
		$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~$ratebar$ratebar1~;

		$yymain .= qq~
	<table cellpadding="1" cellspacing="0" border="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
	  <tr>
	    <td>
	    <table class="windowbg" bgcolor="$color{'windowbg'}" cellpadding="2" cellspacing="0" border="0" width="100%">
		<tr>
		  <td width="20%" class="windowbg" bgcolor="$color{'windowbg'}">
			&nbsp;
		  </td>
		  <td width="80%" align="left" class="windowbg" bgcolor="$color{'windowbg'}">
			<table border="0" cellspacing="0" cellpadding="4" align="left">
				<tr>
				<td align="left" valign="middle">
					<img src="$imagesdir/rate.gif" alt="" border="0" align="absmiddle"><font size=2><b>&nbsp; $ratetxt{'70'}:</b></font>
				</td>
				~;
				if($username ne "Guest" || $guest_rate) {
					if($mstate == 0) {
					$yymain .= qq~
					<form method="post" action="$cgi;action=selrate2" name="$viewnum">
					<input type="hidden" name="filename" value="$viewnum">
					<input type="hidden" name="username" value="$username">
					<input type="hidden" name="yabbcat" value="$currentboard">
					<input type="hidden" name="ratetype" value="ratetopic">
				<td align="left" valign="middle">
					<select name="rating" style="font-size: 9" onChange="submit(); return true">
						<option value="0" $check[0]>---</option>
						<option value="10" $check[10]>10 $ratetxt{'48'}</option>
						<option value="9" $check[9]>9</option>
						<option value="8" $check[8]>8</option>
						<option value="7" $check[7]>7</option>
						<option value="6" $check[6]>6</option>
						<option value="5" $check[5]>5</option>
						<option value="4" $check[4]>4</option>
						<option value="3" $check[3]>3</option>
						<option value="2" $check[2]>2</option>
						<option value="1" $check[1]>1</option>
					</select>
				</td>
					</form>
				~;
					}
					else {
						$yymain .= qq~
						<td align="left" valign="middle">
							<img src="$imagesdir/ratelock.gif" border="0" align="absmiddle" alt="$txt{'456'}">
						</td>
						~;
					}

				}
				else {
					$yymain .= qq~
					<td align="left" valign="middle">
						<img src="$imagesdir/ban.gif" border="0" align="absmiddle" alt="$ratetxt{'21'}">
					</td>
					~;
					}
				$yymain .= qq~
				<td align="right" valign="middle">
					<font size=2><nobr><b> $ratetxt{'02a'}:</b> $therate</nobr></font>
				</td>
				<td align="left" valign="middle">
					<a href="$cgi;action=setoverview;rateid=$viewnum">$ratebar2<br></a>
				</td>
				<td align="left" valign="middle">
					<font size=2><nobr><b> $ratetxt{'05'}:</b> $raters</nobr></font>
				</td>
			</tr>
			</table>
			</td>
		</tr>
		</table>
	    </td>
	  </tr>
	</table>

		~;
	}

	# Load background color list.
	@bgcolors = ( $color{windowbg}, $color{windowbg2} );
	$bgcolornum = scalar @bgcolors;
	@cssvalues = ( "windowbg","windowbg2" );
	$cssnum = scalar @bgcolors;

	if(!$MenuType) { $sm = 1; }
	$counter = 0;

	fopen(FILE,"$datadir/$viewnum.txt") || &fatal_error("104 $txt{'106'}: $txt{'23'} $viewnum.txt");

	# Skip past the posts in this thread until we reach $start.
	while($counter < $start && ($buffer = <FILE>)) { $counter++; }

	$#messages = $maxmessagedisplay - 1;
	for($counter = 0; $counter < $maxmessagedisplay && ($buffer = <FILE>); $counter++) {
		$messages[$counter] = $buffer;
	}
	fclose(FILE);
	$#messages = $counter - 1;
	$counter = $start;

$yymain .= qq~
<form name="multidel" action="$scripturl?board=$currentboard;thread=$viewnum;action=multidel;s tart=$start" method="POST" style="display: inline">  
<input type="hidden" name="maxmessage" value="$maxmessagedisplay">
~;
 	# For each post in this thread:
	foreach (@messages) {
		undef $realgroup;
		$windowbg = $bgcolors[($counter % $bgcolornum)];
		$css = $cssvalues[($counter % $cssnum)];
		chomp;
		($msub, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $postmessage, $ns, $mlm, $mlmb, $msf, $mfn) = split(/[\|]/, $_);
		# Should we show an attachment file?
			if( $msf && $mfn && $msf ne "" && $mfn ne "") {
			if (-e ("$upload_dir/$mfn")) {

				if(-e ("$upload_dir/log/$mfn.cnt")) {
			   		 open(COUNT, "$upload_dir/log/$mfn.cnt");
					 $count = <COUNT>;
					 close(COUNT);
					 chomp $count;
					 if($count > 0) { $dcounter = qq~($fatxt{'49a'}: $count)~; } else { $dcounter = ""; }
				} else { $dcounter = ""; }

			$attachment = qq~<font size="2"><a href="$cgi;action=download;file=$mfn" target="_blank"><img src="$imagesdir/paperclip.gif" border="0" align="absmiddle">  $mfn</a> $dcounter</font>~;
				if(($mfn =~ /(jpg|gif|bmp|png|jpeg)$/i) && ($amdisplaypics == 1)) {
					$showattach = qq~<hr width="100%"><center><img src="$msf" alt"$msf" border="0"></center>~;
				} else { 
					$showattach = ''; 
				}
			} else { 
				$attachment = qq~<font size="2"><img src="$imagesdir/paperclip.gif" border="0" align="absmiddle">  $mfn $fatxt{'1'}</font>~;
				$showattach = '';
			}
		} else {
			$attachment = '';
			$showattach = '';
		}
		
		# Should we show "last modified by?"
		# Should we show "last modified by?"
# Begin Time Lock mod
		if( $mlm && $showmodify && $mlm ne "" && $mlmb ne "") {
			if( $tllastmodflag == 1) {
				$tllastmodtimesecs = $tllastmodtime*60;
				$tlmesstime = stringtotime($mdate) + $tllastmodtimesecs;
				$tllasttime = stringtotime($mlm);
				if ( $tlmesstime > $tllasttime ) {
					$mlm = '-';
					$lastmodified = '';
				} else {
					$mlm = &timeformat($mlm);
					&LoadUser($mlmb);
					$mlmb = $userprofile{$mlmb}->[1] || $mlmb || $txt{'470'};
					$lastmodified = qq~&#171; <i>$txt{'211'}: $mlm $txt{'525'} $mlmb</i> &#187;~;
				}
			} else {
				$mlm = &timeformat($mlm);
				&LoadUser($mlmb);
				$mlmb = $userprofile{$mlmb}->[1] || $mlmb || $txt{'470'};
				$lastmodified = qq~&#171; <i>$txt{'211'}: $mlm $txt{'525'} $mlmb</i> &#187;~;
			}
		}
		else {
			$mlm = '-';
			$lastmodified = '';
		}
		if ($tlnomodflag == 1) {
			unless ( ( $settings[7] eq 'Administrator' ) || ( exists $moderators{$username} ) ) {
				$tlnomodtimesecs = $tlnomodtime*3600*24;
				$tltime = stringtotime($mdate) + $tlnomodtimesecs;
				$tlcurrenttime = time + (3600*$timeoffset);
				if ( $tlcurrenttime > $tltime ) {
					$nomodallowed = 1;
				} else {$nomodallowed = 0;}
			}
		}
		if ($tlnodelflag == 1) {
			unless ( ( $settings[7] eq 'Administrator' ) || ( exists $moderators{$username} ) ) {
				$tlnodeltimesecs = $tlnodeltime*3600*24;
				$tldtime = stringtotime($mdate) + $tlnodeltimesecs;
				$tldcurrenttime = time + (3600*$timeoffset);
				if ( $tldcurrenttime > $tldtime ) {
					$nodelallowed = 1;
				} else {$nodelallowed = 0;}
			}
		}
# End Time Lock mod

		$msub ||= $txt{'24'};
		$messdate = &timeformat($mdate);
		if ($settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator' && $allow_mod == 1) { $mip = $mip } else { $mip = "$txt{'511'}"; }
		$sendm = '';

		# If the user isn't a guest, load his/her info.
		if($musername ne 'Guest' && ! $yyUDLoaded{$musername} && -e("$memberdir/$musername.dat") ) {
			&LoadUserDisplay($musername);	# If user is not in memory, s/he must be loaded.
		}
			my($loccode, $displocal, $dispcountry, $dispcontin, $dispx, $dispy, $dispstate, $dispflag, $disptext);
		$moodgif = "";
		if(-e ("$memberdir/$musername.mim")) {
			fopen(FILE,"$memberdir/$musername.mim");
			@mymood = <FILE>;
			fclose(FILE);
			chomp $mymood;
			$thistime = time;
			$moodgif = "";
			if(($thistime-$mymood[1]) < 86400) {
				if(-e ("$sourcedir/Karma.pl")) {
					$moodgif .= qq~<br>~;
				}
				$moodgif .= qq~$mimtxt{'02'}<br><img src="$imagesdir/$mymood[0].gif" height="60" width="60" border="0" alt=""><br>~;
			}
		}
		if($yyUDLoaded{$musername}) {
			@userprofile = @{$userprofile{$musername}};
	($loccode, $displocal, $dispcountry, $dispcontin, $dispx, $dispy, $dispstate) = split(/\|/, $userprofile[15]);
	if($dispcountry ne "") {
		if($view_flag) {
			if($loccode eq "x1") { $dispflag = qq~<a href="$scripturl?board=$currentboard;action=viewprofile;username=$useraccount{$musername}#mmap"><img src="$imagesdir/flag/$dispcountry.gif" vspace=3 border=0 align="middle" alt="$dispcountry" /></a>&nbsp;~; }
			elsif($loccode eq "x0") { $dispflag = qq~<img src="$imagesdir/flag/$dispcountry.gif" vspace=3 border=0 align="middle" alt="$dispcountry" />&nbsp;~; }
			else { $dispflag = ""; }
		}
		if($view_text) {
			my($initstat, $namestat, $disploc);
			if($dispstate ne "") { ($initstat, $namestat) = split(/\,/, $dispstate); }
			if($displocal ne "") { $disploc = qq~$displocal $initstat~; }
			if($loccode eq "x1") { $disptext = qq~<nobr><font size="1"><a href="$scripturl?board=$currentboard;action=viewprofile;username=$useraccount{$musername}#mmap">$disploc</a></font></nobr>~; }
			elsif($loccode eq "x0") { $disptext = qq~<nobr><font size="1">$disploc</font></nobr>~; }
			else { $disptext = ""; }
		}
	}
			$displayname = $userprofile[1];
			fopen(NUMBERFILEREAD,"$memberdir/$musername.yam");
			@number = <NUMBERFILEREAD>;
			fclose(NUMBERFILEREAD);
			chomp @number;
			if ($musername eq "admin") { $displaynumb = ''; }
			else { $displaynumb = qq~$membtxt{'23'} $number[0]~; }
			$star = $memberstar{$musername};
			$memberinfo = $memberinfo{$musername};
			$krititleinfo = $krititleinfo{$musername};
			$memberinfo =~ s~\n~~g;
			$icqad = $icqad{$musername};
			$yimon = $yimon{$musername};
			if($username ne 'Guest') {
				# Allow instant message sending if current user is a member.
				$sendm = qq~$menusep<a href="$cgi;action=imsend;to=$useraccount{$musername}">$img{'message_sm'}</a>~;
				if($allowpstlnk) { $sendm .= qq~$menusep<a href="$cgi;action=gallery;useralbum=$musername"><img src="$imagesdir/camera.gif" alt="$galltxt{'37'}" border="0"></a>~; }
			}
			$usernamelink = $link{$musername};
			if($showpostcount==1 || $settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator'){
			$postinfo = qq~$txt{'26'}: $userprofile[6]<br>~;
			}
			$memail = $userprofile[2];
  $krealname=$realname;
if ($disprealinfo == 1) {
	if ($userprofile[7] ne "Global Moderator" && $userprofile[7] ne "Administrator") {
				undef $star;
				require "$sourcedir/MemberGroups.pl";
				$realname=$musername;
				&Load_Real_Group;
				$realgroup = "$memrealinfo{$realname}";
				$star = $memberstar{$musername};
		if ($memrealinfo{$realname} eq "$memberinfo{$musername}") { $realgroup = ""; }
	}
}
		}
		else {
			$musername = "Guest";
			$displaynumb = '';
			$star = '';
			$memberinfo = "$txt{'28'}";
			$icqad = '';
			$yimon = '';
			$usernamelink = qq~<font size="2"><b>$mname</b></font>~;
			if ($memberinfo eq "$txt{'28'}") { $usernamelink = qq~<font size="2"><b>$mname<br></b></font>~; }
			$postinfo = '';
			@userprofile = ();
			$displayname = $mname;
		}
		$realname=$krealname;
		# Censor the subject and message.
		foreach (@censored) {
			($tmpa,$tmpb) = @{$_};
			$postmessage =~ s~\Q$tmpa\E~$tmpb~gi;
			$msub =~ s~\Q$tmpa\E~$tmpb~gi;
		}
		# Run UBBC interpreter on the message.
		&OnMyIgnoreList($musername);
		$ignimg="";
		$status="0";
		if($userprofile[7] eq 'Global Moderator' || $userprofile[7] eq 'Administrator' || exists ($moderators{$useraccount{$musername}})){ $status="1"}
		if ($result eq "no" || $status eq "1") {
			$message = $postmessage; # put the message back into the proper variable to do ubbc on it
			if($username ne 'Guest') {$ignimg  = qq~<a href="$cgi\;action=ignore\;user=$musername;thread=$viewnum\;id=$counter\;do=$status"><img src="$imagesdir/ignore.gif" alt="$igntxt{'2'}" border="0"><font size="1" class="imgwindowbg">$igntxt{'2a'}</font></a>~;}
		} else { $message = $ignoretxt; 
			if($username ne 'Guest') {$ignimg  = qq~<a href="$cgi\;action=unignore\;user=$musername;thread=$viewnum\;id=$counter"><img src="$imagesdir/unignore.gif" alt="$igntxt{'3'}" border="0"><font size="1" class="imgwindowbg">$igntxt{'3a'}</font></a>~;}
		}
		if($userprofile[7] eq 'Global Moderator' || $userprofile[7] eq 'Administrator' || exists ($moderators{$useraccount{$musername}})){ $ignimg="";}
		&wrap;
		if($enable_ubbc) { if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &DoUBBC; }
		&wrap2;
		$profbutton = $profilebutton && $musername ne 'Guest' ? qq~<a href="$scripturl?action=viewprofile;username=$useraccount{$musername}">$img{'viewprofile_sm'}</a>$menusep~ : '';
		if($counter != 0) { $counterwords = "$txt{'146'} #$counter"; }
		else { $counterwords = ""; }
		# Print the post and user info for the poster.
		$yymain .= qq~
<table cellpadding="0" cellspacing="0" border="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
  <tr>
    <td>
    <table cellpadding="3" cellspacing="1" border="0" width="100%">
      <tr>
        <td bgcolor="$windowbg" class="$css">
        <a name="$counter"></a>
        <table width="100%" cellpadding="4" cellspacing="0" class="$css" bgcolor="$windowbg">
          <tr>
            <td style="border-right-style: solid; border-right-color: #000000; border-right-width: 1px" class="$css" bgcolor="$windowbg" valign="top" width="20%" rowspan="2"><font size="2">
            $usernamelink
            $memberinfo<br>~;
	if($musername ne "Guest") {
		if($view_flag) { $yymain .= qq~$dispflag ~; }
		if($view_text) { $yymain .= qq~$disptext~; }
		if($view_flag || $view_text) { $yymain .= qq~<br />~; }
		$yymain .= qq~
            $star<BR>
~;
if ($view_numb) {
	$yymain .= qq~
		$displaynumb<BR><BR>
	~;
}
else {
	$yymain .= qq~
		<BR>
	~;
}
$yymain .= qq~
            $krititleinfo<br><br>
		$moodgif
            $userprofile[13]$userprofile[12]<BR>
            <BR>$userprofile[8] $icqad &nbsp; $userprofile[10] $yimon &nbsp; $userprofile[9]<BR>
~;
	}
	if($musername eq "Guest") {
		$yymain .= qq~
            <BR><a href="mailto:$memail">$img{'email_sm'}</a><BR><BR>
~;
	}
	elsif ($userprofile[19] ne "checked" || $settings[7] eq "Administrator" || $settings[7] eq "Global Moderator" || $allow_hide_email ne 1) {
		$yymain .= qq~
            $profbutton$userprofile[4] <a href="mailto:$memail">$img{'email_sm'}</a>$sendm<BR><BR>
~;
	} else {
		$yymain .= qq~
    $profbutton$userprofile[4]$sendm<BR><BR>
~;
	}
	$yymain .= qq~
            $userprofile[11]
            $postinfo
~;
require "$sourcedir/ExtendedProfiles.pl";
$yymain .= ext_viewinposts($musername) . qq~
            </font></td>
            <td class="$css" bgcolor="$windowbg" valign="top" width="80%" height="100%">
            <table width="100%" border="0">
              <tr>
                <td align="left" valign="middle"><img src="$imagesdir/$micon.gif" alt=""></td>
                <td align="left" valign="middle">
                <font size="2"><B>$msub</b></font> &nbsp;$attachment<BR>
                <font size="2">&#171; <B>$counterwords $txt{'30'}:</B> $messdate &#187;</font></td>
                <td align="right" valign="bottom" nowrap height="20">
                <font size=-1>
~;
if ($mstate != 1)
{
$yymain .= qq~
                <a href="$cgi&action=reporttm&thread=$viewnum&id=$counter&subject=$msub&poster=$mname&username=$musername"><img src="$imagesdir/rtm.gif" alt="$rtm{'22'}" border="0"> <font size="1" class="imgwindowbg">$rtm{'22'}</font></a>
                $menusep
                $ignimg$menusep
                <a href="$cgi;action=post;num=$viewnum;quote=$counter;title=$txt{'116'};start=$start">$img{'replyquote'}
~;
	if(exists $moderators{$username} || $settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator' || ($username eq $musername && $nomodallowed == 0)) {
		$yymain .= qq~  </a>$menusep<a href="$cgi;action=modify;message=$counter;thread=$viewnum">$img{'modify'}</a>~;
	}
	if(exists $moderators{$username} || $settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator' || ($username eq $musername && $nodelallowed == 0)) {
		$yymain .= qq~  $menusep<a href="$cgi;action=modify2;thread=$viewnum;id=$counter;d=1" onclick="return confirm('$txt{'739'}')">$img{'delete'}</a>~;
		if((exists $moderators{$username} && $mdmod eq 1) || ($settings[7] eq 'Administrator' && $mdadmin eq 1) || ($settings[7] eq 'Global Moderator' && $mdglobal eq 1)) {
		$yymain .= qq~&nbsp;<input type="checkbox" name="del$counter" value="$counter">~;
		}
	}
}

	$yymain .= qq~
                </font></td>
              </tr>
            </table>
            <hr width="100%" size="1" class="hr">
            <font size="2">
            $message
            </font>
            </td>
          </tr><tr>
            <td class="$css" bgcolor="$windowbg" valign="bottom">
            <table width="100%" border="0">
              <tr>
                <td align="left"><font size="2">$lastmodified</font></td>
                <td align="right"><font size="2"><img src="$imagesdir/ip.gif" alt="" border="0"> $mip</font></td>
              </tr>
            </table>
            $showattach
            <font size="2">
            $userprofile[5]
            </font></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>~;
		$counter++;
	}
	$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" color="#ffffff"><b>$txt{'139'}:</b> $pageindex</font></td>
            <td class="catbg" bgcolor="$color{'catbg'}" align=right><font size="2">
            $replybutton$pollbutton$notify$menusep
            <a href="$cgi;action=sendtopic;topic=$viewnum">$img{'sendtopic'}</a>$menusep
            <a href="$cgi;action=print;num=$viewnum" target="_blank">$img{'print'}</a>
            </font></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table><br>
<table width="100%" cellpadding="0" cellspacing="0">
  <tr>
    <td valign=bottom colspan="2" align="center"><font size="2" class="nav"><B>
    <a href="$scripturl" class="nav">$mbname</a> -&gt; 
    <a href="$scripturl#$curcat" class="nav">$cat</a> -&gt; 
    <a href="$cgi" class="nav">$boardname</a> -&gt; 
    $curthreadurl</b></font></td>
  </tr>
</table>
<br><br>
<table border="0" width="100%" cellpadding="0" cellspacing="0">~;
	  $yymain .= qq~
  <tr>
    <td align="left" valign="top" colspan="2">~;
	if(exists $moderators{$username} || $settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator') {
		if($settings[7] eq 'Administrator') {$sadminf = $img{'admin_func'};} else {$sadminf = $img{'moderator_func'};}
		$yymain .= qq~<font size="2"><b>$sadminf</b>
        &nbsp;<a href="$cgi;action=movethread;thread=$viewnum">$img{'admin_move'}</a>$menusep
~;

	if($ss_advanced eq "1") { $yymain .= qq~
        <a href="$cgi;action=split_splice;thread=$viewnum">$img{'admin_split_splice'}</a>$menusep~;
	} else { $yymain .= qq~
        <a href="$cgi;action=split;thread=$viewnum">$img{'admin_split'}</a>$menusep
        <a href="$cgi;action=splice;thread=$viewnum">$img{'admin_splice'}</a>$menusep~;
	}

	$yymain .= qq~
        <a href="$cgi;action=removethread;thread=$viewnum" onclick="return confirm('$txt{'162'}')">$img{'admin_rem'}</a>$menusep<br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <a href="$cgi;action=lock;thread=$viewnum">$img{'admin_lock'}</a>$menusep
        <a href="$cgi;action=sticky;thread=$viewnum">$img{'admin_sticky'}</a>
        $menusep$admin_rate
~;
	if (!-e "$datadir/$viewnum.head") { $yymain .= qq~
        <a href="$cgi;action=addheader;thread=$viewnum">$img{'admin_header'}</a>~;}
	$yymain .= qq~
</font>~;
	}
	if((exists $moderators{$username} && $mdmod eq 1) || ($settings[7] eq 'Administrator' && $mdadmin eq 1) || ($settings[7] eq 'Global Moderator' && $mdglobal eq 1)) {	    
		if ($mstate != 1) {$yymain .= qq~<input type=submit value="$mdintxt{'3'}"></form>~;}
	}
	$yymain .= qq~
    </td>
    <td valign="top" height="18" align="right"><font size="2">$selecthtml</font></td>
  </tr><tr>
    <td colspan="3" valign="top" align="right"><font size="2">$nav</font></td>
  </tr>
</table>
~;
### Quick Reply Box 1.3 ###

	# MBCO2 Reply access check
	if ($reply_users{$currentboard} || $reply_groups{$currentboard}) {
		my $access = &AccessCheck($currentboard, 2) || "";
		if ($access eq "denied") {$enable_quickreply = 0;}
	}

	if ($username ne "Guest" && $mstate != 1 && $enable_quickreply == 1) {
$yymain .= qq~
<form action="$cgi;action=post2" method="post" ENCTYPE="multipart/form-data" name="postmodify" onsubmit="postmodify.post.disabled=true; postmodify.clear.disabled=true;">
<input type="hidden" name="threadid" value="$viewnum">
<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{'2'}</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="Re: $msubthread" 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='2'>$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="2">$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>~;
	if ($allowattach == 1 && (($allowguestattach == 0 && $username ne 'Guest') || $allowguestattach == 1)) {
	$yymain .= qq~
	<tr>
	<td valign="top"><font size="2"><b>$fatxt{'6'}</b></font></td>
	<td><input type="file" name="file" size="49"></td>
	</tr>
	<tr>
	<td align="right"></td>
	<td><font size="2">$filetype_info<br>$filesize_info</font></td>
	</tr>~;
	}
	$yymain .= qq~
      </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"></td>
  </tr>
</table>
</form>
~;
	}

### Quick Reply Box 1.3 ###

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

1;