###############################################################################
# Display.pl                                                                  #
###############################################################################
# YaBB: Yet another Bulletin Board                                            #
# Open-Source Community Software for Webmasters                               #
# Version:        YaBB 1 Gold - SP 1.1                                        #
# Released:       December 2001; Updated March 22, 2002                       #
# Distributed by: http://www.yabbforum.com                                    #
# =========================================================================== #
# Copyright (c) 2000-2002 Xnull (www.xnull.com) - All Rights Reserved.        #
# Software by: The YaBB Development Team                                      #
#              with assistance from the YaBB community.                       #
###############################################################################

$displayplver = "1 Gold - SP 1.1";

sub Display {
	my($msf,$mfn,$attachment,$showattach);
        require "$sourcedir/Karma.pl";
	my $viewnum = $INFO{'num'};
	if( $viewnum =~ /\D/ ) { &fatal_error($txt{'337'}); }
	if( $currentboard eq '' ) { &fatal_error($txt{'1'}); }
	$maxmessagedisplay ||= 10;
	my($buffer,$views,$lastposter,$tmpa,$tmpb,$tmpc,$tmpd,$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);
	my($mystatus);
	my(@statussettings);

	# 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.
	($mnum,$tmpa,$tmpa,$tmpa,$mdate) = split(/\|/,$yyThreadLine);
	&dumplog($mnum,$date);
### group picture mod - load picture settings for various groups

	if( fopen(FILE, "$vardir/membergroups_pics.txt") ) {;

		@grouppics = <FILE>;

		fclose(FILE);

		@grouppics = split(/\|/,$grouppics[0]);

	}

	### end group picture mod

	# Add 1 to the number of views of this thread.
	if(fopen(FILE, "$datadir/$viewnum.data")) {
		$tmpa = <FILE>;
		fclose(FILE);
	}
	elsif( -e "$datadir/$viewnum.data" ) { &fatal_error("102 $txt{'106'}: $txt{'23'} $viewnum.data"); }
	else { $tmpa = '0'; }
	($tmpa, $tmpb, $tmpc, $tmpd) = split( /\|/, $tmpa );
	$tmpa++;
	fopen(FILE, "+>$datadir/$viewnum.data") || &fatal_error("103 $txt{'106'}: $txt{'23'} $viewnum.data");
	print FILE qq~$tmpa|$tmpb|$tmpc|$tmpd~;
	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;

	# 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'};start=$start">$img{'reply'}</a>~;
	$threadclass = 'thread';
	if( $mstate == 1 ) {
		$threadclass = 'locked';
		$replybutton = "";
	}
	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/)/;
	}

	if($enable_notification) {
		my $startnum = $start || '0';
		$notify = qq~$menusep<a href="$cgi;action=notify;thread=$viewnum;start=$startnum">$img{'notify'}</a>~;
	}
	&jumpto;	# create the jumpto list

	# Build the page links list.
	$postdisplaynum = 3;	# max number of pages to display
	$max = $mreplies + 1;
	$start = $INFO{'start'} || 0;
	$start = $start > $mreplies ? $mreplies : $start;
	$start = ( int( $start / $maxmessagedisplay ) ) * $maxmessagedisplay;
	$tmpa = 1;
	$tmpx = int( $max / $maxmessagedisplay );
	if ($start >= (($postdisplaynum-1) * $maxmessagedisplay)) { $startpage = $start - (($postdisplaynum-1) * $maxmessagedisplay); $tmpa = int( $startpage / $maxmessagedisplay ) + 1; }
	if ($max >= $start + ($postdisplaynum * $maxmessagedisplay)) { $endpage = $start + ($postdisplaynum * $maxmessagedisplay); } else { $endpage = $max }
	if ($startpage > 0) { $pageindex = qq~<a href="$cgi;action=display;num=$viewnum;start=0">1</a>&nbsp;...&nbsp;~; }
	if ($startpage == $maxmessagedisplay) { $pageindex = qq~<a href="$cgi;action=display;num=$viewnum;start=0">1</a>&nbsp;~;}
	for( $counter = $startpage; $counter < $endpage; $counter += $maxmessagedisplay ) {
		$pageindex .= $start == $counter ? qq~<b>$tmpa</b>&nbsp;~ : qq~<a href="$cgi;action=display;num=$viewnum;start=$counter">$tmpa</a>&nbsp;~;
		$tmpa++;
	}
	$tmpx = $max - $maxmessagedisplay;
	$outerpn = int($tmpx / $maxmessagedisplay) + 0;
	$lastpn = int($mreplies / $maxmessagedisplay) + 1;
	$lastptn = ($lastpn - 1) * $maxmessagedisplay;
	if ($endpage < $max - ($maxmessagedisplay) ) {$pageindexadd = qq~&nbsp;...&nbsp;~;}
	if ($endpage != $max) {$pageindexadd .= qq~&nbsp;<a href="$cgi;action=display;num=$viewnum;start=$lastptn">$lastpn</a>~;}
	$pageindex .= $pageindexadd;

	foreach (@censored) {
		($tmpa,$tmpb) = @{$_};
		$msubthread =~ s~\Q$tmpa\E~$tmpb~gi;
	}
	if ($boardlinks == 1) {$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){
				$blink .= qq~<a href="$LinkURL[$i]" target=_blank>$LinkName[$i]</a>~;
				$ii=1;
			} 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) {$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~&#171; $txt{'766'} | $txt{'766'} &#187;~; }
	if($endthread eq $prevtopic && $gonext ne "") { $nav = qq~&#171; $txt{'766'} | <a href="$nexttopic">$txt{'767'}</a> &#187;~; }
	if ( $endthread ne $prevtopic && $gonext eq "") { $nav = qq~&#171; <a href="$prevtopic">$txt{'768'}</a> | $txt{'766'} &#187;~; }
	if ($endthread ne $prevtopic && $gonext ne "") { $nav = qq~&#171; <a href="$prevtopic">$txt{'768'}</a> | <a href="$nexttopic">$txt{'767'}</a> &#187;~; 	}
	$yymain .= qq~
<script language="JavaScript1.2" src="$ubbcjspath" type="text/javascript"></script>
<object classid="clsid:F3A614DC-ABE0-11d2-A441-00C04F795683" codebase="#Version=2,0,0,83" codetype=application/x-oleobject id=MsgrObj width=0 height=0>
</object>
<OBJECT classid="clsid:FB7199AB-79BF-11d2-8D94-0000F875C541" codeType=application/x-oleobject id=MsgrApp width=0 height=0></OBJECT>
<SCRIPT LANGUAGE="JavaScript">           
<!--            
function stopError() {             return true;           }            
window.onerror = stopError;            
// -->
</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="1">$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="1">$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><img src="$imagesdir/on.gif"> <font size="+2"><b>$txt{'139'}: $pageindex</b></font>
~;
if ($enable_topicrating == 1)  {
   $yymain .= qq~<br>~;
     	require "$sourcedir/Rate.pl"; &PrintStars;
}
   $yymain .= qq~</td>~;
if ($enable_topicrating == 1)  {
   $yymain .= qq~
   <td class="catbg" bgcolor="$color{'catbg'}" align=center valign=middle>
	<form action="YaBB.cgi" method="GET">
	    <font size=1>$rate{'008'} 
		<input type="hidden" NAME="action" VALUE="ratetopic">
		<input type="hidden" NAME="board" VALUE="$currentboard">
		<input type="hidden" NAME="num" VALUE="$viewnum">
		<select name="rating">
			<option value=5>5 $rate{'010'}</option>
			<option value=4>4 $rate{'010'}</option>
			<option value=3>3 $rate{'010'}</option>
			<option value=2>2 $rate{'010'}</option>
			<option value=1>1 $rate{'011'}</option>
		</select> <input type=submit value="$rate{'012'}">
	    </form>
    </td>
~;
}
else  {
   $yymain .= qq~<td bgcolor="$color{'catbg'}"></td>~;
}
   $yymain .= qq~
            <td class="catbg" bgcolor="$color{'catbg'}" align="right"><font size="2">
            $replybutton$notify$menusep
            <a href="$cgi;action=sendtopic;topic=$viewnum">$img{'sendtopic'}</a>$menusep
            <a href="$cgi;action=print;board=$currentboard;num=$viewnum" target="_blank">$img{'print'}</a>
            </font></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
~;

	# Look for a poll file for this thread.
	
	if (-e "$datadir/$viewnum.poll") { $pollthread = 1; }
	
if ($pollthread) {
	fopen (FILE, "$datadir/$viewnum.poll");
		@polldata = <FILE>;
	fclose (FILE);

	$pollquestion = $polldata[0];
	$pollquestion =~ s~\n~~g;
	($question, $lockstatus) = split(/\|/, $pollquestion);
	$num = 1;
	$line = 0;
	my @options;
	my @votes;
	foreach $pointer (@polldata) {
		($vote, $option) = split(/\|/, $polldata[$num]);
		$options[$line] = $option;
		$votes[$line] = $vote;
		$line++;
		$num++;
	}
	
	$search = -1;
	my $found;
	$usersemail = $settings[2];
	$userstatus = $settings[7];
	$found = &CheckVoted($viewnum); 
	
	if ($found) { $userhasvoted = 1; }
	$viewresults = $INFO{'viewresults'};
	if ($lockstatus eq "Locked") { $pollislocked = 1; }
	
########showcase poll
# Look for a showcase.poll file.
	my($scboard, $scviewnum, $comment, $boardpoll, $showcasepoll);
if (-e "$datadir/showcase.poll") {
	fopen (FILE, "$datadir/showcase.poll");
		@showdata = <FILE>;
	fclose (FILE);
	$showcasepoll = $showdata[0];
	$showcasepoll =~ s~\n~~g;
	($scboard, $scviewnum, $comment) = split(/\|/, $showcasepoll);
}
	$boardpoll = '';
	if ($scviewnum == $viewnum) {
		$boardpoll = qq~<i>$scpolltxt{'3'}</i>&nbsp;~;
	}
	if ($userstatus eq "Administrator" && ($scviewnum != $viewnum)) {
		$boardpoll = qq~<a href="$cgi&action=scpoll&num=$viewnum&brd=$currentboard" class="altlink">$scpolltxt{'4'}</a>&nbsp;~;
	}
########showcase poll

	
	if ($username ne "Guest" && ($username eq $susername) || ($userstatus eq "Administrator" or $userstatus eq "Global Moderator" or exists $moderators{$username})) { $modifypoll = qq~<a href="$cgi;action=modify;message=0;thread=$viewnum" class="altlink"><img src="$imagesdir/modify.gif" border="0">$polltxt{'39'}</a>&nbsp;~; }
	if (($userstatus eq "Administrator" || $userstatus eq "Global Moderator" || exists $moderators{$username}) && ($pollislocked ne 1)) { $lockpoll = qq~<a href="$cgi;action=lockpoll;num=$viewnum" class="altlink">$img{'polliconclosed'} $polltxt{'20'}</a>&nbsp;~; }
	if (($userstatus eq "Administrator" || $userstatus eq "Global Moderator" || exists $moderators{$username}) && ($pollislocked eq 1)) { $lockpoll = qq~<a href="$cgi;action=unlockpoll;num=$viewnum" class="altlink">$img{'polliconclosed'} $polltxt{'21'}</a>&nbsp;~; }
	if ($userstatus eq "Administrator"){ $displayvoters = qq~<a href="$cgi;action=showvoters;num=$viewnum" class="altlink"><img src="$imagesdir/register.gif" border="0"> $polltxt{'33'}</a>~;}
	$vresults = qq~<a href="$cgi;action=display;num=$viewnum;viewresults=yes" class="altlink">$polltxt{'19'}</a>~;
	if ($pollislocked eq 1) { $endedtext = $polltxt{'22'}; }


	$poll_icon = qq~$img{'pollicon'}~;
	if ($pollislocked == 1) { $poll_icon = qq~$img{'polliconclosed'}~; }

	$yymain.= qq~<table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td valign="middle" align="left" bgcolor="$color{'titlebg'}" class="titlebg" width="20%"><font size=1 class="text1" color="$color{'titletext'}">&nbsp;$poll_icon <b>$polltxt{'15'}</b></font></td>
    <td valign="middle" align="center" bgcolor="$color{'titlebg'}" class="titlebg" width="45%"><font size=1 class="text1" color="$color{'titletext'}"><b>$endedtext</b></font></td>
    <td valign="middle" align="right" bgcolor="$color{'titlebg'}" class="titlebg" width="35%"><font size=1 color="$color{'titletext'}">$lockpoll &nbsp; $displayvoters &nbsp; $modifypoll</font></td>
 </tr><tr>
    <td colspan="3" valign="top" align="center" bgcolor="$color{'windowbg2'}" class="windowbg2">
~;
	# Censor the question.
	foreach (@censored) {
		($tmpa,$tmpb) = @{$_};
		$question =~ s~\Q$tmpa\E~$tmpb~gi;
	}

	if (($userhasvoted) || $viewresults eq 'yes' || $pollislocked eq 1 ) {
	
		
		$yymain.= qq~
      <table border="0" cellspacing="0" cellpadding="5" bgcolor="$color{'windowbg2'}" class="windowbg2">
        <tr valign="top">
          <td align="center"><font size="1"><b>$polltxt{'16'}:</b>  $question</font><br><br></td>
        </tr>
        <tr> 
          <td align="center">
            <table border="0" cellspacing="0" cellpadding="0">~;
		$nums = 0;
    
		my $Key; 
		my $Total; 
		$maxvote = 0;
		foreach $Key (@votes) { 
			$Total += $Key; 
			if ($Key >= $maxvote) { $maxvote = $Key;}
		} 

		$totalvotes = $Total;
		pop (@options);
		foreach (@options) {

			# Censor the options.
			foreach (@censored) {
				($tmpa,$tmpb) = @{$_};
				$options[$nums] =~ s~\Q$tmpa\E~$tmpb~gi;
			}
			$message = $options[$nums]; # put the message back into the proper variable to do ubbc on it
			if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &MakeSmileys;
			$options[$nums] = $message;
			$options[$nums] =~ s~\n~~g;
			$options[$nums] =~ s~<br>~~g;
			$yymain .= qq~
              <tr> 
                <td><b><font size="1">$options[$nums]</font></b></td>
                <td>~;

# Now lets calculate how many devisions by the total number of votes are needed to make the bar graphs stay nicely sized in the browser window:

			$pollpercent = 0;
			$pollbar = 0;
			if ($totalvotes ne 0 && $maxvote ne 0) {
				$pollpercent = int(1000 * $votes[$nums] / $totalvotes);
				$pollpercent = $pollpercent / 10; 
				$pollbar = int( 150 * $votes[$nums] / $maxvote);
			}
    
			$yymain .= qq~&nbsp;&nbsp;<img src="$imagesdir/poll_left.gif" align="middle"><img src="$imagesdir/poll_middle.gif" height="12" width="$pollbar" align="middle"><img src="$imagesdir/poll_right.gif" align="middle"> <font size="1">$votes[$nums] ($pollpercent%)</font></td>
              </tr>~;
			$nums++;
		}

		$yymain .= qq~
            </table>
            <br><b><font size="1">$polltxt{'17'}: $totalvotes</font></b>
          </td>
        </tr>
      </table>
<table width="100% "border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td valign="middle" align="left" width="30%">&nbsp;</td>
    <td valign="middle" align="center" width="40%"><font size="1">$vthread</font></td>
    <td valign="middle" align="right" width="30%"><font size="1" >$boardpoll</font></td>
 </tr>
</table>
~;
	}
	else {
		$board = $INFO{'board'};
		$yymain.= qq~
      <form name="poll" method="post" action="$cgi;action=vote;board=$board;num=$viewnum">
        <table border="0" cellspacing="0" cellpadding="5">
          <tr valign="top"> 
            <td><font size="1"><b>$polltxt{'16'}:  </b>$question</font></td>
          </tr>
          <tr> 
            <td align="center">
              <table border="0" cellspacing="0" cellpadding="0">~;
		$nums = 0;
		pop (@options);
		foreach (@options) {
			# Censor the options.
			foreach (@censored) {
				($tmpa,$tmpb) = @{$_};
				$options[$nums] =~ s~\Q$tmpa\E~$tmpb~gi;
			}
			$options[$nums] =~ s~\n~~g;
			$options[$nums] =~ s~<br>~~g;
			$message = $options[$nums]; # put the message back into the proper variable to do ubbc on it
			if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &MakeSmileys;
			$options[$nums] = $message;
			$yymain .= qq~
                <tr valign="top"> 
                  <td><INPUT type="radio" name="option" value="$nums">&nbsp;</td>
                  <td valign="middle"><font size="1">$options[$nums]</font></td>
                </tr>~;
			$nums++;
  		}
		$yymain .= qq~
              </table>
            </td>
          </tr>
          <tr>
            <td align="center"><INPUT type="submit" value="$polltxt{'18'}"><br><font size="1">$vresults</font></td>
          </tr></form>
        </table>
<table width="100% "border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td valign="middle" align="right"><font size="1">$boardpoll</font></td>
 </tr>
</table>
~;
	}
$yymain .= qq~
    </td>
  </tr>
</table>~;	
}
$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>
~;


# Look for an auction file for this thread.
if (-e "$datadir/$viewnum.auction") {$auctionthread = 1; }
if ($auctionthread) {
require "$vardir/auctionsettings.txt";
	fopen (FILE, "$datadir/$viewnum.auction");
	@auctiondata = <FILE>;
	fclose (FILE);
	$article = $auctiondata[0];
	$askprice = sprintf("%.2f",$auctiondata[1]);
	$minprice = sprintf("%.2f",$auctiondata[2]);
	$bidincr = sprintf("%.2f",$auctiondata[3]);
	$aucttype = $auctiondata[4];
	$bidduration = $auctiondata[5];
	$bidphone = $auctiondata[6];
	$bidcity = $auctiondata[7];
	$bidpicture = $auctiondata[8];
	$biduser = $auctiondata[9];
	$bidusername = $auctiondata[10];
	$bidmail = $auctiondata[11];
	chomp $askprice;
	chomp $minprice;
	chomp $bidincr;
	$biduser =~ s/[\n\r]//g;
	$bidusername =~ s/[\n\r]//g;
	$bidcity =~ s/[\n\r]//g;
	$bidphone =~ s/[\n\r]//g;
	$exttext ="";
	($bidpicurl,$picwidth) = split (/\|/,$bidpicture);
	if (-e "$datadir/$viewnum.auctx"){
		fopen (FILE, "$datadir/$viewnum.auctx");
		@extdata = <FILE>;
		fclose (FILE);
		$extnum = 0;
		$exttime = 0;
		foreach $extention(@extdata){
			chomp $extention;
			$extnum++;
			$exttime = $exttime + $extention;
		}
		if ($extnum == 1){
			$exttext = qq~$extnum $aucttxt{'49a'} $aucttxt{'49'}.~; }
		elsif ($extnum > 1){
			$exttext = qq~$extnum $aucttxt{'49b'} $aucttxt{'49'}.~;
		}
	}
	my $day = 86400; 
	$today = time; 
	$dif = (($today - $viewnum) / $day) ; 
	if(!$dif) { $dif = 0; } 
	$bidtimeleft = sprintf("%.1f",$bidduration - $dif + $exttime);
	if($bidtimeleft <=1){
		$duration = $aucttxt{'10c'};
	} else {
		$duration = $aucttxt{'10a'};
	}
	if(!$yyUDLoaded{$username}) {
		&LoadUser($username);
	}
	if ($bidphone eq ""){ $bidphone = qq~<i>$aucttxt{'44'}</i>~;}
	if ($bidcity eq ""){ $bidcity = qq~<i>$aucttxt{'44'}</i>~;}
if (-e "$datadir/$viewnum.bids") {$auctionbid = 1; } else {$auctionbid = 0; }
	fopen (FILE, "$datadir/$viewnum.bids");
	@auctionbids = <FILE>;
	fclose (FILE);
	@auctionbids = reverse @auctionbids;

if ($settings[7] eq "Administrator" || $settings[7] eq "Global Moderator" || $biduser eq $username || exists $moderators{$username} ){$bidcontrol =1; } else {$bidcontrol =0;}
if ($settings[7] eq "Administrator" || $settings[7] eq "Global Moderator" || exists $moderators{$username} ){$admcontrol =1; } else {$admcontrol =0;}
	
	if ($aucttype == 1 ){ $showtype = $aucttxt{'26'};} else { $showtype = $aucttxt{'27'};}
	if ($bidtimeleft <=0){$auctislocked = 2;  $exttext="";}
	if (-e "$datadir/$viewnum.auctl") { $auctislocked = 1; $exttext="";}
	if ($bidcontrol==1 && $auctislocked ne 1) { $lockauct = qq~<a href="$cgi;action=lockauction;num=$viewnum">$aucttxt{'30'}</a>~; }
	if ($bidcontrol==1 && $auctislocked eq 1) { $lockauct = qq~<a href="$cgi;action=unlockauction;num=$viewnum">$aucttxt{'31'}</a>~; }
	if ($bidcontrol==1 && $auctislocked eq 2 && -($bidtimeleft) < $maxextendtime) { $extendauct = qq~<a href="$cgi;action=extendauction;num=$viewnum">$aucttxt{'32'}</a>~; } else {$extendauct="";}
	if ($bidcontrol==1 ) { $editauct = qq~<a href="$cgi;action=editauction;num=$viewnum">$aucttxt{'33'}</a>~; } else {$extendauct="";}
if ($auctionbid ){
	$bidders = qq~
	<tr>
	<td class="titlebg" align = "center" bgcolor="$color{'titlebg'}"><font size=2 class="text1" color="$color{'titletext'}"><b>$aucttxt{'16'}</b></font></td>
	<td class="titlebg" align = "center" bgcolor="$color{'titlebg'}"><font size=2 class="text1" color="$color{'titletext'}"><b>$aucttxt{'17'}</b></font></td>
	<td class="titlebg" align = "center" bgcolor="$color{'titlebg'}"><font size=2 class="text1" color="$color{'titletext'}"><b>$aucttxt{'18'}</b></font></td>
	</tr>~;
	$highestbid =0;
	foreach $bidline (@auctionbids){
		chomp $bidline;
		@biditem = split(/\|/,$bidline);
		if($biditem[2] >= $highestbid){
			$highestbid = $biditem[2];
			$hbuser = $biditem[0];
			$hbusername = $biditem[1];
			if ($hbuser eq $username) {$viewbid =1;}
		}
		if($highestbid < $minprice){
			$minbidreached = $aucttxt{'21'};
		} else {
			$minbidreached = "";
		}
		$biddingtime = &timeformat($biditem[3], 1);
		if ($showsecondcur) {
			$secbidval = sprintf("%.2f",$biditem[2]*$curfactor);
			$secondbidval = qq~<i>($secbidval $secondcur)</i>~;
		} else {$secondbidval = ""; }
		$bidders .=qq~
		<tr>
		<td class="windowbg2" align = "center" bgcolor="$color{'windowbg2'}"><font size=2><a href="$scripturl?board=$currentboard;action=viewprofile;username=$biditem[0]">$biditem[1]</a></font></td>
		<td class="windowbg2" align = "center" bgcolor="$color{'windowbg2'}"><font size=2>$biditem[2] $aucttxt{'11'}  $secondbidval </font></td>
		<td class="windowbg2" align = "center" bgcolor="$color{'windowbg2'}"><font size=2>$biddingtime</font></td>
		</tr>~;
		}
	}
	if ($auctislocked eq 1) { $bidtimeleft = $aucttxt{'34a'}; $duration =""; }
	if ($auctislocked eq 2) { $bidtimeleft = $aucttxt{'34'}; $duration =""; }
	if ($aucttype == 1 && $bidcontrol == 0 && $viewbid == 0 && $auctislocked == 0){ $showbidder = qq~<i>$aucttxt{'27a'}</i>~;} 
	else {
	$showbidder = qq~<a href="$scripturl?board=$currentboard;action=viewprofile;username=$hbuser">$hbusername</a>~;
	}
if (!$auctionbid ){$showbidder = $aucttxt{'45'};}
if ($showsecondcur) {
	$seccurval = sprintf("%.2f",$highestbid*$curfactor);
	$secondval = qq~<i>($seccurval $secondcur)</i>~;
} else {$secondval = ""; }

my $autobid = sprintf("%.2f",$highestbid+$bidincr);
$yymain .= qq~
<table cellpadding="0" cellspacing="1" border="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
	<tr><td>
	<table width="100%" cellpadding="3" cellspacing="0" border="0">
	<tr>
	<td height="22" colspan = "3" valign="middle" class="titlebg" color="$color{'titlebg'}">
	<font size=2 class="text1" color="$color{'titletext'}">&nbsp;$img{'auctionicon'}&nbsp;$aucttxt{'15'}</font>
	</td>
	</tr>
	<tr>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}" width="23%"><font size=2><b>$aucttxt{'6'}:</b></font></td>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}">$article</td>
	<td class="windowbg2" align = "center" bgcolor="$color{'windowbg2'}" ><font size=1>$aucttxt{'14'}</font></td>
	</tr><tr>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}" width="23%"><font size=2><b>$aucttxt{'25'}:</b></font></td>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size='1'>$showtype</font></td>
	<td class="windowbg2" rowspan = "6" align = "center" bgcolor="$color{'windowbg2'}"><font size=1><a href = $bidpicurl target="_blank"><img src="$bidpicurl" alt = "$aucttxt{'14c'}" border = "0" width = "$picwidth"></a></font></td>
	</tr><tr>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}" width="23%"><font size=2><b>$aucttxt{'19'}:</b></font></td>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}"><a href="$scripturl?board=$currentboard;action=viewprofile;username=$biduser">$bidusername</a></td>
	</tr><tr>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}" width="23%"><font size=2><b>$aucttxt{'20'}:</b></font></td>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}">$highestbid $aucttxt{'11'} $secondval <font size=1 color=red><i>$minbidreached</i></font></td>
	</tr><tr>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}" width="23%"><font size=2><b>$aucttxt{'29'}:</b></font></td>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}">$showbidder</td>
	</tr><tr>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}" width="23%"><font size=2><b>$aucttxt{'10b'}:</b></font></td>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}">$bidtimeleft $duration <font size=1 color=red><i>$exttext</i></font></td>
	</tr><tr>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}" width="23%"><font size=2><b>$aucttxt{'12'}:</b></font></td>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}">$bidphone</td>
	</tr><tr>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}" width="23%"><font size=2><b>$aucttxt{'13'}:</b></font></td>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}">$bidcity</td>
	<td class="windowbg2" align = "center" bgcolor="$color{'windowbg2'}" ><font size=1></font></td>
	</tr><tr>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}"></td>~;
if($username eq "Guest"){
	$yymain .= qq~
	<td class="windowbg2" align = "center" bgcolor="$color{'windowbg2'}"><font size=2><b>$aucttxt{'28'}</b></font></td>
	~;
} elsif($auctislocked > 0){
	$yymain .= qq~
	<td class="windowbg2" align = "center" bgcolor="$color{'windowbg2'}"></td>
	~;
} elsif($bidcontrol == 1 && $allowownbids == 0 && $admcontrol == 0){
	$yymain .= qq~
	<td class="windowbg2" align="center" bgcolor="$color{'windowbg2'}"><font size="2"><b>$aucttxt{'43a'}</b></font></td>
	~;
} elsif($viewbid == 1 && $allowoverbid == 0 && $admcontrol == 0){
	$yymain .= qq~
	<td class="windowbg2" align="center" bgcolor="$color{'windowbg2'}"><font size="2"><b>$aucttxt{'43'}</b></font></td>
	~;
} else {
	$yymain .= qq~
	<td class="windowbg2" align = "center" bgcolor="$color{'windowbg2'}"><font size=2><b><form action="$cgi;action=dobid;num=$viewnum" method="POST"><input type="submit" value = "$aucttxt{'22'}"> <input type="text" name="bid" value=$autobid size="10" maxlength="10"> $aucttxt{'11'}</b></font></td>
	~;
}
	$yymain .= qq~
	<td class="windowbg2" align = "center" bgcolor="$color{'windowbg2'}" ><font size=1></font></td>
	</tr>~;
	if ($bidcontrol ==1){
	$yymain .= qq~
	<tr>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}">
	<center>$lockauct</center>
	</td>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}">
	<center>$extendauct</center>
	</td>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}">
	<center>$editauct</center>
	</td>
	</tr>~;
	}
	if ($aucttype == 0 || $bidcontrol == 1 || $viewbid == 1){
		$yymain .= qq~
		$bidders~;
	}
	$yymain .= qq~
	</table>
	</td></tr>
	</form></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;

	# For each post in this thread:
	foreach (@messages) {
		$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")) {
			$attachment = qq~<font size="1"><a href="$msf" target="_blank"><img src="$imagesdir/paperclip.gif" border="0" align="absmiddle">  $mfn</a></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 = ''; 
				}
			} elsif (-e ("$upload_temp/$mfn")) {
				fopen (FILE, "$memberdir/$username.dat");
				@usersdata = <FILE>;
				fclose (FILE);
				chop $usersdata[7];
				$userstatus = $usersdata[7];
				if ( ($userstatus eq "Administrator") || ($userstatus eq "Global Moderator") || (exists $moderators{$username}) ) {
					$tmpb2=$INFO{'tmpb'};
					$attachment = qq~<font size="1"><img src="$imagesdir/paperclip.gif" border="0" align="absmiddle">  $mfn <a href="javascript:DoConfirm('$factxt{'3'}','$cgi;action=censorattachment;file=$mfn;mnum=$mnum;start=$tmpb2')">$factxt{'2'}</a></font>~;
					$showattach = '';
				} else {
					$attachment = qq~<font size="1"><img src="$imagesdir/paperclip.gif" border="0" align="absmiddle">  $mfn &nbsp;&nbsp; $factxt{'1'}</font>~;
					$showattach = '';
				}
			} else { 
				$attachment = qq~<font size="1"><img src="$imagesdir/paperclip.gif" border="0" align="absmiddle">  $mfn $fatxt{'1'}</font>~;
				$showattach = '';
			}
		} else {
			$attachment = '';
			$showattach = '';
		}
		
		$lastmoduser = $mlmb;
		# 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;~;
			}
		}
# End Time Lock mod
		else {
			$mlm = '-';
			$lastmodified = '';
		}
		$msub ||= $txt{'24'};
		$messdate = &timeformat($mdate);
		$mip = $settings[7] eq 'Administrator' ? $mip : "$txt{'511'}";
		$sendm = '';

		# If the user isn't a guest, load his/her info.
		$online = "";
		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);
		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="absmiddle" alt="$dispcountry"></a>&nbsp;~; }
			elsif($loccode eq "x0") { $dispflag = qq~<img src="$imagesdir/flag/$dispcountry.gif" vspace=3 border=0 align="absmiddle" 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};
			$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((exists $moderators{$useraccount{$musername}})){			
				$usernamelink = qq~<a href="$scripturl?board=$currentboard;action=viewprofile;username=$useraccount{$musername}"><font size="2" color=$color{'adminname'}><b>$userprofile[1]</b></font></a>~;
			}
			else{
				$usernamelink = qq~<a href="$scripturl?board=$currentboard;action=viewprofile;username=$useraccount{$musername}"><font size="2"><b>$userprofile[1]</b></font></a>~;
			}
			$postinfo = qq~$txt{'26'}: $userprofile[6]<br>~;
			$memail = $userprofile[2];
			### Begin HTML MOD
			if ($postmessage =~ /\#enable_html/isg) {
				$html_username = $musername;
				if ($lastmoduser ne $html_username && $lastmoduser ne '') {
					$html_username = $lastmoduser;
				}
				$message_backup = $postmessage; # since $message is no local variable, it often gets overwritten accidently somehwere (couldn't find out where)
				$enable_html = HTML_allow($html_username);
				$postmessage = $message_backup;
				if ($enable_html == 1) { $postmessage =~ s/\#enable_html//isg; }
			} else { $enable_html = 0; }
			### End HTML MOD
        	        $karmainfo = "<br>$karmaLabel " . &getKarma($musername);
                        my($inMemberGroup) = &isInMemberGroup;
                	if (($username ne "Guest") && ($inMemberGroup == 1)){
	                  $karmainfo .= "<br><a href=\"$cgi\&action=modifyKarma\&username=$musername\&karmaAction=smite\">$karmaSmiteLabel</a> <a href=\"$cgi\&action=modifyKarma\&username=$musername\&karmaAction=applaud\">$karmaApplaudLabel</a>";
        	        }
			$online = "";
			fopen(FILE, "$vardir/log.txt");
			@entries = <FILE>;
			fclose(FILE);
			$online = qq~<font size="1"><br><i> $img{'offline1'} Offline</i></font>~;
			foreach $curentry (@entries) {
			chomp $curentry;
			($name, $value) = split(/\|/, $curentry);
			if( $name eq $musername) 
					{
					$online = qq~<font size="1"><br><i> $img{'online1'} Online</i></font>~;	
					}
			}
			
		}
		else {
			$musername = "Guest";
			$displaynumb = '';
			$star = '';
			$memberinfo = "$txt{'28'}";
			$icqad = '';
			$yimon = '';
			$usernamelink = qq~<font size="2"><b>$mname</b></font>~;
			$postinfo = '';
			@userprofile = ();
			$displayname = $mname;
		}
		# 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.
		$message = $postmessage; # put the message back into the proper variable to do ubbc on it
		&wrap;
		if($enable_ubbc && $enable_html != 1) { 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 = ""; }
		if($enable_html == 1) { &FromHTML($message); }
		# Print the post and user info for the poster.
		$yymain .= qq~
<a name="$counter"></a></a>
<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">
        <table width='100%' cellpadding='4' cellspacing='0' class="$css" bgcolor="$windowbg">
          <tr>
            <td class="$css" bgcolor="$windowbg" valign="top" width="20%" rowspan="2"><font size="1">
            $usernamelink $online<BR>
            $memberinfo<BR>~;
	if($musername ne "Guest") {
			fopen(FILE, "$memberdir/$useraccount{$musername}.flg");
			@flag = <FILE>;
			fclose(FILE);
chomp @flag;
$test = $flag[0];
if($test eq '') {
	$test = "blank";
}
		$yymain .= qq~
            $star<BR>
		$displaynumb<BR><BR>
	    <img src="$imagesdir/flags/$test.gif" border="0"><br>
	    $karmainfo

	$pop{$musername}
            <center>$userprofile[13]$userprofile[12]</center><BR>


~;

        }

        $yymain .= qq~

            $userprofile[11]
~;
require "$sourcedir/ExtendedProfiles.pl";
$yymain .= ext_viewinposts($musername) . qq~

	$postinfo<br>~;
if(!$rpgdisabled) {
	if($money) { $yymain .= qq~$rpgtxt{'4'}: $userprofile[34]->[0]<br>~; }
	### SHOW RPG INFO ###

}
	$yymain .= qq~
            <br>$avgpost{$musername}
	    <br>$exp{$musername}
            </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="1">&#171; <B>$counterwords $txt{'30'}:</B> $messdate &#187;</font></td>

                <td align="right" valign="bottom" nowrap height="20">
                <font size=-1>
~;
	############################
	## My Status Mod by Sonic ##
	############################
if ($showstatus) { 
               fopen(FILE, "$memberdir/$musername.status");
 	@statussettings=<FILE>;
	fclose(FILE);
	$mystatus=@statussettings[0];
	if ($mystatus eq '0') { $memstatus =$status{'4'} ; }
	elsif ($mystatus eq '1') { $memstatus =$status{'5'} ; }
	elsif ($mystatus eq '2') { $memstatus =$status{'6'} ; }
	else { $memstatus =$status{'7'} ; }
	if ($memstatus ne $status{'7'}) {
	$userprofile[5]=qq~<hr>$status{'3'} <b>$memstatus</b>$userprofile[5]~; }
	else {
	$userprofile[5]=qq~$userprofile[5]~;
	}
}
	################################
	## / My Status Mod by Sonic / ##
	################################
if ($mstate != 1)
{
$yymain .= qq~
                <a href="$cgi&action=reporttm&thread=$viewnum&id=$counter&subject=$msub&poster=$mname&username=$musername&email=$memail"><img src="$imagesdir/rtm.gif" alt="$rtm{'22'}" border="0"> <font size="1" class="imgwindowbg">$rtm{'22'}</font></a>
                $menusep
                $replybutton $linktohelp<br><a href="$cgi;action=post;num=$viewnum;quote=$counter;title=$txt{'116'};start=$start">$img{'replyquote'}</a>$menusep<a href="$cgi;action=modify;message=$counter;thread=$viewnum">$img{'modify'}</a> 
~;
	if(exists $moderators{$username} || $settings[7] eq 'Administrator' || $username eq $musername && $userpostdel != 1) {
		$yymain .= qq~  $menusep<a href="javascript:DoConfirm('$txt{'739'}','$cgi;action=modify2;thread=$viewnum;id=$counter;d=1')">$img{'delete'}</a>~;
	}
}
	$yymain .= qq~
                </font></td>
              </tr>
            </table>
            <hr width="100%" size="1" class="hr">
            <font size="2" class="postfontsize">
            $message
            </font>
            </td>
          </tr><tr>
            <td class="$css" bgcolor="$windowbg" valign="bottom">
            <table width="100%" border="0">
              <tr>
                <td align="left"><font size="1">$lastmodified</font></td>
                <td align="right"><font size="1"><img src="$imagesdir/ip.gif" alt="" border="0"> $mip</font></td>
              </tr>
            </table>
            $showattach
            <font size="1">
            $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><img src="$imagesdir/on.gif"> <font size="+2"><b>$txt{'139'}: $pageindex</b> </font>
~;
if ($enable_topicrating == 1)  {
   $yymain .= qq~<br>~;
     	require "$sourcedir/Rate.pl"; &PrintStars;
}
   $yymain .= qq~</td>~;
if ($enable_topicrating == 1)  {
   $yymain .= qq~
   <td class="catbg" bgcolor="$color{'catbg'}" align=center valign=middle>
	<form action="YaBB.cgi" method="GET">
	    <font size=1>$rate{'008'} 
		<input type="hidden" NAME="action" VALUE="ratetopic">
		<input type="hidden" NAME="board" VALUE="$currentboard">
		<input type="hidden" NAME="num" VALUE="$viewnum">
		<select name="rating">
			<option value=5>5 $rate{'010'}</option>
			<option value=4>4 $rate{'010'}</option>
			<option value=3>3 $rate{'010'}</option>
			<option value=2>2 $rate{'010'}</option>
			<option value=1>1 $rate{'011'}</option>
		</select> <input type=submit value="$rate{'012'}">
	    </form>
    </td>
~;
}
else  {
   $yymain .= qq~<td bgcolor="$color{'catbg'}"></td>~;
}
   $yymain .= qq~
            <td class="catbg" bgcolor="$color{'catbg'}" align=right><font size=2>
            $replybutton$notify$menusep
            <a href="$cgi;action=sendtopic;topic=$viewnum">$img{'sendtopic'}</a>$menusep
            <a href="$cgi;action=print;board=$currentboard;num=$viewnum" target="_blank">$img{'print'}</a>
            </font></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table><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') {
		$yymain .= qq~<font size="1"><b>$img{'admin_func'}</b>
        &nbsp;<a href="$cgi;action=movethread;thread=$viewnum">$img{'admin_move'}</a>$menusep
        <a href="$cgi;action=split;thread=$viewnum">$img{'admin_split'}</a>$menusep
        <a href="$cgi;action=splice;thread=$viewnum">$img{'admin_splice'}</a>$menusep
        <a href="javascript:DoConfirm('$txt{'162'}','$cgi;action=removethread;thread=$viewnum')">$img{'admin_rem'}</a>$menusep
        <a href="$cgi;action=lock;thread=$viewnum">$img{'admin_lock'}</a>$menusep
        <a href="$cgi;action=sticky;thread=$viewnum">$img{'admin_sticky'}</a>
</font>~;
	}
	$yymain .= qq~
    </td>
    <td valign="top" height="18" align="right"><font size="1">$selecthtml</font></td>
  </tr><tr>
    <td colspan="3" valign="top" align="right"><font size="1">$nav</font></td>
  </tr>
</table>
~;
	if ($username ne "Guest" && $mstate != 1 && $enable_quickreply == 1) {
$yymain .= qq~
<form action="$cgi;action=post2" method="post" name="postmodify">
<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="1" class="text1" color="$color{'titletext'}"><b>$txt{'172a'}</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) {
$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">

          <!--
            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("<a href=javascript:smiley()><img src='$imagesdir/smiley.gif' align='bottom' alt='$txt{'287'}' border='0'></a> ");
              document.write("<a href=javascript:wink()><img src='$imagesdir/wink.gif' align='bottom' alt='$txt{'292'}' border='0'></a> ");
              document.write("<a href=javascript:cheesy()><img src='$imagesdir/cheesy.gif' align='bottom' alt='$txt{'289'}' border='0'></a> ");
              document.write("<a href=javascript:grin()><img src='$imagesdir/grin.gif' align='bottom' alt='$txt{'293'}' border='0'></a> ");
              document.write("<a href=javascript:angry()><img src='$imagesdir/angry.gif' align='bottom' alt='$txt{'288'}' border='0'></a> ");
              document.write("<a href=javascript:sad()><img src='$imagesdir/sad.gif' align='bottom' alt='$txt{'291'}' border='0'></a> ");
              document.write("<a href=javascript:shocked()><img src='$imagesdir/shocked.gif' align='bottom' alt='$txt{'294'}' border='0'></a> ");
              document.write("<a href=javascript:cool()><img src='$imagesdir/cool.gif' align='bottom' alt='$txt{'295'}' border='0'></a> ");
              document.write("<a href=javascript:huh()><img src='$imagesdir/huh.gif' align='bottom' alt='$txt{'296'}' border='0'></a> ");
              document.write("<a href=javascript:rolleyes()><img src='$imagesdir/rolleyes.gif' align='bottom' alt='$txt{'450'}' border='0'></a> ");
              document.write("<a href=javascript:tongue()><img src='$imagesdir/tongue.gif' align='bottom' alt='$txt{'451'}' border='0'></a> ");
              document.write("<a href=javascript:embarassed()><img src='$imagesdir/embarassed.gif' align='bottom' alt='$txt{'526'}' border='0'></a> ");
              document.write("<a href=javascript:lipsrsealed()><img src='$imagesdir/lipsrsealed.gif' align='bottom' alt='$txt{'527'}' border='0'></a> ");
              document.write("<a href=javascript:undecided()><img src='$imagesdir/undecided.gif' align='bottom' alt='$txt{'528'}' border='0'></a> ");
              document.write("<a href=javascript:kiss()><img src='$imagesdir/kiss.gif' align='bottom' alt='$txt{'529'}' border='0'></a> ");
              document.write("<a href=javascript:cry()><img src='$imagesdir/cry.gif' align='bottom' alt='$txt{'530'}' border='0'></a> ");
            }
            else { document.write("<font size='1'>$txt{'215'}</font>"); }
          //-->
          </script>
          <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" 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" value="$txt{'278'}" accesskey="r"></td>
  </tr>
</table>
</form>
~;
	}
	$yytitle = $msubthread;
	&template;
	exit;
}

sub ReadAnnouncements {
	if( $currentboard eq '' ) { &fatal_error($txt{'1'}); }
	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);
	#Load announcement
	fopen(ANNOUNCEMENT, "$vardir/announcements.txt");
	@announcement = <ANNOUNCEMENT>;
	fclose(ANNOUNCEMENT);
	#Load announcement data
	fopen(ANNDATA, "$vardir/announcements.dat");
	$title = <ANNDATA>;
	fclose(ANNDATA);
	#($announcedby, $title) = split(/\,/, @anndata);

	# 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);

	# Set thread class as announcement, and therefore prevent replying
		$threadclass = 'announce';
		$replybutton = "";

	&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/)/;
	}

	# Build the page links list.
	$postdisplaynum = 3;	# max number of pages to display
	$max = $mreplies + 1;
	$start = $INFO{'start'} || 0;
	$start = $start > $mreplies ? $mreplies : $start;
	$start = ( int( $start / $maxmessagedisplay ) ) * $maxmessagedisplay;
	$tmpa = 1;
	$tmpx = int( $max / $maxmessagedisplay );
	if ($start >= (($postdisplaynum-1) * $maxmessagedisplay)) { $startpage = $start - (($postdisplaynum-1) * $maxmessagedisplay); $tmpa = int( $startpage / $maxmessagedisplay ) + 1; }
	if ($max >= $start + ($postdisplaynum * $maxmessagedisplay)) { $endpage = $start + ($postdisplaynum * $maxmessagedisplay); } else { $endpage = $max }
	if ($startpage > 0) { $pageindex = qq~<a href="$cgi;action=display;num=$viewnum;start=0">1</a>&nbsp;...&nbsp;~; }
	if ($startpage == $maxmessagedisplay) { $pageindex = qq~<a href="$cgi;action=display;num=$viewnum;start=0">1</a>&nbsp;~;}
	for( $counter = $startpage; $counter < $endpage; $counter += $maxmessagedisplay ) {
		$pageindex .= $start == $counter ? qq~<b>$tmpa</b>&nbsp;~ : qq~<a href="$cgi;action=display;num=$viewnum;start=$counter">$tmpa</a>&nbsp;~;
		$tmpa++;
	}
	$tmpx = $max - $maxmessagedisplay;
	$outerpn = int($tmpx / $maxmessagedisplay) + 0;
	$lastpn = int($mreplies / $maxmessagedisplay) + 1;
	$lastptn = ($lastpn - 1) * $maxmessagedisplay;
	if ($endpage < $max - ($maxmessagedisplay) ) {$pageindexadd = qq~&nbsp;...&nbsp;~;}
	if ($endpage != $max) {$pageindexadd .= qq~&nbsp;<a href="$cgi;action=display;num=$viewnum;start=$lastptn">$lastpn</a>~;}
	$pageindex .= $pageindexadd;

	foreach (@censored) {
		($tmpa,$tmpb) = @{$_};
		$msubthread =~ s~\Q$tmpa\E~$tmpb~gi;
	}
	if ($boardlinks == 1) {$yymain .= "$blink";}
	$curthreadurl = $curposlinks ? qq~<a href="$cgi;action=display;num=$viewnum" class="nav">$txt{'ann'} $title</a>~ : $title;

	# 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~&#171; $txt{'766'} | $txt{'766'} &#187;~; }
	if($endthread eq $prevtopic && $gonext ne "") { $nav = qq~&#171; $txt{'766'} | <a href="$nexttopic">$txt{'767'}</a> &#187;~; }
	if ( $endthread ne $prevtopic && $gonext eq "") { $nav = qq~&#171; <a href="$prevtopic">$txt{'768'}</a> | $txt{'766'} &#187;~; }
	if ($endthread ne $prevtopic && $gonext ne "") { $nav = qq~&#171; <a href="$prevtopic">$txt{'768'}</a> | <a href="$nexttopic">$txt{'767'}</a> &#187;~; 	}
	$yymain .= qq~
<script language="JavaScript1.2" src="$ubbcjspath" type="text/javascript"></script>
<object classid="clsid:F3A614DC-ABE0-11d2-A441-00C04F795683" codebase="#Version=2,0,0,83" codetype=application/x-oleobject id=MsgrObj width=0 height=0>
</object>
<OBJECT classid="clsid:FB7199AB-79BF-11d2-8D94-0000F875C541" codeType=application/x-oleobject id=MsgrApp width=0 height=0></OBJECT>
<SCRIPT LANGUAGE="JavaScript">           
<!--            
function stopError() {             return true;           }            
window.onerror = stopError;            
// -->
</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="1">$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="1">$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><img src="$imagesdir/on.gif"> <font size="+2"> <b>$txt{'139'}: $pageindex</b></font></td>
            <td class="catbg" bgcolor="$color{'catbg'}" align="right"><font size="2">
            $replybutton$notify$menusep
            <a href="$cgi;action=sendtopic;topic=$viewnum">$img{'sendtopic'}</a>$menusep
            <a href="$cgi;action=print;board=$currentboard;num=$viewnum" target="_blank">$img{'print'}</a>
            </font></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<table cellpadding="0" cellspacing="0" border="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
<a name="$viewnum">
  <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{'ann'} $title</b> &nbsp;</font></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;

	$#messages = $counter - 1;
	$counter = $start;

	# Start writing out the announcement:
		$windowbg = $bgcolors[($counter % $bgcolornum)];
		$css = $cssvalues[($counter % $cssnum)];
		chomp;
		$msub ||= $txt{'24'};
		$messdate = &timeformat($mdate);
		$mip = $settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator' ? $mip : "$txt{'511'}";
		$sendm = '';

		# If the user isn't a guest, load his/her info.
		if(! $yyUDLoaded{$announce_acc} && -e("$memberdir/$announce_acc.dat") ) {
			&LoadUserDisplay($announce_acc);	# If user is not in memory, s/he must be loaded.
		}
		if($yyUDLoaded{$announce_acc}) {
			@userprofile = @{$userprofile{$announce_acc}};
			$displayname = $userprofile[1];
			$star = $memberstar{'krikkert'};
			$memberinfo = $memberinfo{$announce_acc};
			$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>~;
			}
			$usernamelink = qq~<a href="$scripturl?board=$currentboard;action=viewprofile;username=$useraccount{$announce_acc}"><font size="2"><b>$userprofile[1]</b></font></a>~;
			$postinfo = qq~$txt{'26'}: $userprofile[6]<br>~;
			$memail = $userprofile[2];
		}
		# Censor the subject and message.
		foreach (@censored) {
				foreach $postmessage (@announcement) {
					($tmpa,$tmpb) = @{$_};
					$postmessage =~ s~\Q$tmpa\E~$tmpb~gi;
					$title =~ s~\Q$tmpa\E~$tmpb~gi;
				}
		}
		# Run UBBC interpreter on the message.
		#$message = $postmessage; # put the message back into the proper variable to do ubbc on it
		#&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">
        <table width='100%' cellpadding='4' cellspacing='0' class="$css" bgcolor="$windowbg">
          <tr>
            <td class="$css" bgcolor="$windowbg" valign="top" width="20%" rowspan="2"><font size="1">
            $usernamelink<BR>
~;
	if($musername ne "Guest") {
		$yymain .= qq~
~;
	if($view_flag) {
	$yymain .= qq~
		$dispflag
~;
		if(!$view_text) {
		$yymain .= qq~
			<br>
	~;
		}
	}
	if($view_text) {
	$yymain .= qq~
		$disptext<br>
~;
	}
	$yymain .= qq~
            $star<BR><BR>
	$karmainfo
#changes made here           

            $grouppic$userprofile[13]$userprofile[12]

~;

	}

	$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/exclamation.gif" alt=""></td>
                <td align="left" valign="middle">
                <font size="2"><B>$title</b></font><BR>
                <font size="1">&#171; <B>$counterwords $txt{'30'}:</B> $messdate &#187;</font></td>
                <td align="right" valign="bottom" nowrap height="20">
                <font size=-1>
~;

	$yymain .= qq~
                </font></td>
              </tr>
            </table>
            <hr width="100%" size="1" class="hr">
            <font size="2">
~;
            foreach $line (@announcement) {
		$yymain .= qq~$line~;
	}
$yymain .= qq~
            </font>
            </td>
          </tr><tr>
            <td class="$css" bgcolor="$windowbg" valign="bottom">
            <table width="100%" border="0">
              <tr>
                <td align="left"><font size="1">$lastmodified</font></td>
                <td align="right"><font size="1"><img src="$imagesdir/ip.gif" alt="" border="0"> $mip</font></td>
              </tr>
            </table>
            <font size="1">
            $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><img src="$imagesdir/on.gif"> <font size="+2"><b>$txt{'139'}: $pageindex</b></font></td>
            <td class="catbg" bgcolor="$color{'catbg'}" align=right><font size=2>
            $replybutton$notify$menusep
            <a href="$cgi;action=sendtopic;topic=$viewnum">$img{'sendtopic'}</a>$menusep
            <a href="$cgi;action=print;board=$currentboard;num=$viewnum" target="_blank">$img{'print'}</a>
            </font></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table><br>
<table border="0" width="100%" cellpadding="0" cellspacing="0">~;
	  $yymain .= qq~
  <tr>
    <td align="left" valign="top" colspan="2">~;
	$yymain .= qq~
    </td>
    <td valign="top" height="18" align="right"><font size="1">$selecthtml</font></td>
  </tr><tr>
    <td colspan="3" valign="top" align="right"><font size="1">$nav</font></td>
  </tr>
</table>
~;
	$yytitle = $txt{'ann'};
	&template;
	exit;
}
1;