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

$boardindexplver = "1 Gold - SP 1.3";

$high_lst = 5; # Set the number of members in the Top-Poster list

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

	#RECENT USERS LIST MOD START
	if ($username ne 'Guest' && $action ne 'login2')
	{
		require "$sourcedir/LogInOut.pl";
		&RecentUsersList;
	}
	#RECENT USERS LIST MOD END
	# Open the file with all categories
	fopen(FILE, "$vardir/cat.txt");
	@categories = <FILE>;
	fclose(FILE);
	$yyCatsLoaded = 1;
	my($memcount, $latestmember) = &MembershipGet;
	$totalm = 0;
	$totalt = 0;
	foreach $curcat (@categories) {
		chomp $curcat;
		fopen(FILE, "$boardsdir/$curcat.cat");
		$catname{$curcat} = <FILE>;
		chomp $catname{$curcat};
		$cataccess{$curcat} = <FILE>;
		chomp $cataccess{$curcat};
		@{$catboards{$curcat}} = <FILE>;
		fclose(FILE);
		@membergroups = split( /,/, $cataccess{$curcat} );
		$openmemgr{$curcat} = 0;
		my($mscount);
		$mscount=0;
		foreach $tmpa (@membergroups) {
			if( $tmpa eq $settings[7]) { $openmemgr{$curcat} = 1; last; }
	while($MemStat[$mscount]) {
	if($settings[6] >= $MemPostNum[$mscount] && $MemPostNum[$mscount] ne "x") {
	$memberinfo = "$MemStat[$mscount]"; }
	++$mscount;
	}
	if ( $memberinfo eq $tmpa ) { $openmemgr{$curcat} = 1; last; }
		}
		if( ! $cataccess{$curcat} || $settings[7] eq 'Administrator' ) { $openmemgr{$curcat} = 1; }
		unless($openmemgr{$curcat}) { next; }
		foreach $curboard (@{$catboards{$curcat}}) {
			chomp $curboard;
			( $threadcount, $messagecount, $lastposttime, $lastposter, $lastthreadid{$curboard} ) = &BoardCountGet($curboard);

			$lastposttime{$curboard} = $lastposttime eq 'N/A' || ! $lastposttime ? $txt{'470'} : &timeformat($lastposttime);
			$lastpostrealtime{$curboard} = $lastposttime eq 'N/A' || ! $lastposttime ? '' : $lastposttime;
			if( $lastposter =~ m~\AGuest-(.*)~ ) {
				$lastposter = $1;
				$lastposterguest{$curboard} = 1;
			}
			$lastposter{$curboard} = $lastposter eq 'N/A' || ! $lastposter ? $txt{'470'} : $lastposter;
			$messagecount{$curboard} = $messagecount || 0;
			$threadcount{$curboard} = $threadcount || 0;
			$totalm += $messagecount;
			$totalt += $threadcount;
		}
	}

	$curforumurl = $curposlinks ? qq~<a href="$scripturl" class="nav">$mbname</a>~ : $mbname;
     	if( $enable_favorites && $enable_favdrop && $username ne 'Guest' ) { require "$sourcedir/Favor.pl"; &favordrop;
	$yymain .= qq~
<table border="0" width="100%">
  <tr>
    <td align="right" valign="bottom" colspan=2>$favselect<br><br></td></form>
  </tr>
</table>~;
	}
	#RECENT USERS LIST MOD START
	if ($rul_show_avatars && ($rul_avatar_width || $rul_avatar_height)) { $yymain .= qq~
<script language="JavaScript1.2" type="text/javascript">
<!--
function resize_img(thisimage) {
	if (document.images) {
		tmp_image = new Image;
		tmp_image.src = thisimage.src;
		var tmpwidth = tmp_image.width;
		var tmpheight = tmp_image.height;

		maxwidth = $rul_avatar_width;
		maxheight = $rul_avatar_height;

		if (maxwidth != 0 && tmpwidth > maxwidth) {
			tmpheight = (tmpheight * maxwidth / tmpwidth);
			tmpwidth = maxwidth;
		}

		if (maxheight != 0 && tmpheight > maxheight) {
			tmpwidth = tmpwidth * maxheight / tmpheight;
			tmpheight = maxheight;
		}

		thisimage.width = tmpwidth;
		thisimage.height = tmpheight;
		thisimage.style.display = 'inline';
	}
}
// -->
</script>
~; }
	#RECENT USERS LIST MOD END

	$yymain .= qq~
<P align="left"><font size="2" class="nav"><IMG SRC="$imagesdir/open.gif" BORDER="0" alt=""> <b>$curforumurl</b></font>~;
	if($shownewsfader == 1) {
		if(!$fadedelay) { $fadedelay = 5000; }
		$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 bgcolor="$color{'titlebg'}" class="titlebg" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'102'}</b></font></td>
      </tr><tr>
        <td bgcolor="$color{'windowbg2'}" class="windowbg2" valign="middle" align="center" height="60">
<script language="JavaScript1.2" type="text/javascript">
<!--
var delay = $fadertime
var bcolor = "$color{'windowbg2'}"
var tcolor = "$color{'fadertext'}"
var fcontent = new Array()
begintag = '<font size="2"><B>'
~;
fopen(FILE, "$vardir/news.txt");
@newsmessages = <FILE>;
fclose(FILE);
for($i=0; $i < @newsmessages; $i++) {
	$newsmessages[$i] =~ s/\n|\r//g;
	if($i != 0){ $yymain .= qq~\n~; }
	$message = $newsmessages[$i];
	if($enable_ubbc) { if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &DoUBBC; }
	$message =~ s/\"/\\\"/g;
	$yymain .= qq~fcontent[$i] = "$message"~;
}
$yymain .= qq~
closetag = '</b></font>'
// -->
</script>
<script language="JavaScript1.2" type="text/javascript" src="$faderpath"></script>
<script language="JavaScript1.2" type="text/javascript">
<!--
if (navigator.appVersion.substring(0,1) < 5 && navigator.appName == "Netscape") {
   var fwidth = screen.availWidth / 2;
   var bwidth = screen.availWidth / 4;
   document.write('<ilayer id="fscrollerns" width='+fwidth+' height=35 left='+bwidth+' top=0><layer id="fscrollerns_sub" width='+fwidth+' height=35 left=0 top=0></layer></ilayer>');
   window.onload = fade;
}
else if (navigator.userAgent.search(/Opera/) != -1 || (navigator.platform != "Win32" && navigator.userAgent.indexOf('Gecko') == -1)) {
   document.open();
   document.write('<div id="fscroller" style="width:90%; height:15px; padding:2px">');
   for(i=0; i < fcontent.length; ++i) {
      document.write(begintag+fcontent[i]+closetag+'<br>');
   }
   document.write('</div>');
   document.close();
   window.onload = fade;
}
else {
   document.write('<div id="fscroller" style="width:90% height:15px; padding:2px"></div>');
   window.onload = fade;
}
// -->
</script>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
~;
	}
########showcase poll start
# Look for a showcase.poll file.
if (-e "$datadir/showcase.poll") {
	my ($board, $viewnum);
	fopen (FILE, "$datadir/showcase.poll");
	@showdata = <FILE>;
	fclose (FILE);
	$showcasepoll = $showdata[0];
	$showcasepoll =~ s~\n~~g;
	($scboard, $viewnum) = split(/\|/, $showcasepoll);

	# Look for a valid poll file.
	if (-e "$datadir/$viewnum.poll") {
	$pollthread = 1;
	unless( &BoardAccessGet($scboard) ) { $pollthread = 0; }
	}
	if ($pollthread) { 
		$yymain .= qq~<script language="JavaScript1.2" src="$ubbcjspath" type="text/javascript"></script>~;
		require "$sourcedir/Poll.pl"; &display_poll($viewnum, 1, $scboard);
	 }
}
#########showcase poll end

	$yymain .= qq~
<table border=0 width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td>~;

	#Check to see if the subcat.txt doesn't exist, if it doesn't we still need a forum header or it looks funny
	if(!(-e "$vardir/subcat.txt"))
	{
		$yymain .= qq~
		<table cellpadding="4" cellspacing="1" border="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor">
		  <tr>
		    <td class="titlebg" bgcolor="$color{'titlebg'}" colspan="2"><font class="text1" color="$color{'titletext'}" size="2"><b>Forum Name</b></font></td>
		    <td class="titlebg" bgcolor="$color{'titlebg'}" width="1%" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'330'}</b></font></td>
		    <td class="titlebg" bgcolor="$color{'titlebg'}" width="1%" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'21'}</b></font></td>
		    <td class="titlebg" bgcolor="$color{'titlebg'}" width="24%" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'22'}</b></font></td>
		   </tr>
		  ~;
	}

	#This bit of code goes through and checks if we have visible categories. If there are no visible
	# categories, we need to still insert a <TABLE> string or else the info table will expand to full screen.
	$catisvisible="false";
	foreach $curcat (@categories)
	{
		unless( $openmemgr{$curcat} ) { next; }
		$catisvisible="true";
	}
	if($catisvisible eq "false")
	{
		$yymain .= qq~
		<table cellpadding="4" cellspacing="1" border="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor">
		~;
	}

	#Go through the categories and creat the tables if they are needed
	$foundasubcat="false";
	foreach $curcat (@categories)
	{
		unless( $openmemgr{$curcat} ) { next; }
		####
		if ($catpic{$curcat} =~ /\//i) {$catpic{$curcat} = qq~ <img src="$catpic{$curcat}" alt="" border="0" align="absmiddle"> ~;}
		elsif ($catpic{$curcat}) {$catpic{$curcat} = qq~ <img src="$imagesdir/$catpic{$curcat}" alt="" border="0" align="absmiddle"> ~;}
		####

		fopen(FILE, "$vardir/subcat.txt");
		@subcategories = <FILE>;
		fclose(FILE);
		$newsubcatlist="";

		#Go through the subcats and check to see if the curcat is found in the subcats file (It is a subcategory)
		foreach $cursubcat (@subcategories)
		{
			chomp($cursubcat);
			($cursubcatid,$cursubcatname) = split(/\|/,$cursubcat);
	
			#Check if we found a match
			if ($curcat eq $cursubcatid)
			{
				$foundasubcat="true";

				#This little code breaks the table away from the previous category
				if ($curcat ne @categories[0]) { $yymain .= qq~</TABLE><P>~; }

				 $yymain .= qq~
				    <table cellpadding="4" cellspacing="1" border="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor">
				      <tr>
				        <td class="titlebg" bgcolor="$color{'titlebg'}" colspan="2"><font class="text1" color="$color{'titletext'}" size="2"><b>$cursubcatname</b></font></td>
				        <td class="titlebg" bgcolor="$color{'titlebg'}" width="1%" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'330'}</b></font></td>
				        <td class="titlebg" bgcolor="$color{'titlebg'}" width="1%" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'21'}</b></font></td>
				        <td class="titlebg" bgcolor="$color{'titlebg'}" width="24%" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'22'}</b></font></td>
				      </tr>
				~;
			}
		}

		#This code adds a table header for the very first category if the very first category is not found in subcat.txt
		if ((-e "$vardir/subcat.txt") && $foundasubcat eq "false")
		{
			$foundasubcat="true";
			$yymain .= qq~
			<table cellpadding="4" cellspacing="1" border="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor">
		  	  <tr>
		    	    <td class="titlebg" bgcolor="$color{'titlebg'}" colspan="2"><font class="text1" color="$color{'titletext'}" size="2"><b>Forum Name</b></font></td>
		    	    <td class="titlebg" bgcolor="$color{'titlebg'}" width="1%" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'330'}</b></font></td>
		    	    <td class="titlebg" bgcolor="$color{'titlebg'}" width="1%" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'21'}</b></font></td>
		    	    <td class="titlebg" bgcolor="$color{'titlebg'}" width="24%" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'22'}</b></font></td>
		   	  </tr>
		  	~;
		}
		$yymain .= qq~<tr>
        <td colspan="5" class="catbg" bgcolor="$color{'catbg'}" height="18"><a name="$curcat"> $catpic{$curcat}<font size="2"><b>$catname{$curcat}</b></font></a></td>
      </tr>~;
		foreach $curboard (@{$catboards{$curcat}}) {
			chomp $curboard;
			my $access = &AccessCheck($curboard, '');
			if ($settings[7] ne "Administrator" && $access ne "granted" && $showprivboards{$curboard} ne "1") {next;}
			fopen(FILE, "$boardsdir/$curboard.dat");
			$curboardname = <FILE>;
			chomp $curboardname;
			$curboarddescr = <FILE>;
			chomp $curboarddescr;
			$curboardmods = <FILE>;
			chomp $curboardmods;
			fclose(FILE);
			%moderators = ();
			foreach $curuser (split(/\|/, $curboardmods)) {
				&LoadUser($curuser);
				$moderators{$curuser} = $userprofile{$curuser}->[1];

			}
			$showmods = '';
			if(scalar keys %moderators == 1) { $showmods = qq~$txt{'298'}: ~; }
			elsif(scalar keys %moderators != 0) { $showmods = qq~$txt{'299'}: ~; }
			while($tmpa = each(%moderators)) {
				&FormatUserName($tmpa);
				$showmods .= qq~<a href="$scripturl?action=viewprofile;username=$useraccount{$tmpa}">$moderators{$tmpa}</a>, ~;
			}
			$showmods =~ s/, \Z//;
			if($showmods eq "") { $showmods = qq~$txt{'298'}: $txt{'470'}~; }
			$dlp = &getlog($curboard);
			if( $max_log_days_old && $lastposttime{$curboard} ne $txt{'470'} && $username ne 'Guest' && $dlp < stringtotime( $lastpostrealtime{$curboard} ) ) {
				$new = qq~<img src="$imagesdir/on.gif" alt="$txt{'333'}" border="0">~;
			}
			else { $new = qq~<img src="$imagesdir/off.gif" alt="$txt{'334'}" border="0">~; }
			$lastposter = $lastposter{$curboard};
			unless( $lastposterguest{$curboard} || $lastposter{$curboard} eq $txt{'470'} ) {
				$lastposterid = $lastposter;
				&LoadUser($lastposterid);
				if($userprofile{$lastposter}->[1]) { $lastposter = qq~<a href="$scripturl?action=viewprofile;username=$lastposterid">$userprofile{$lastposter}->[1]</a>~; }
			}
			$lastposter ||= $txt{'470'};
			$lastposttime ||= $txt{'470'};
			####
			$boardpic = "";
			if (-e "$boardsdir/$curboard.mbo" ) { require "$boardsdir/$curboard.mbo"; }
			if ($boardpic{$curboard} =~ /\//i) {$boardpic{$curboard} = qq~ <img src="$boardpic{$curboard}" alt="" border="0" align="absmiddle"> ~;}
			elsif ($boardpic{$curboard}) {$boardpic{$curboard} = qq~ <img src="$imagesdir/$boardpic{$curboard}" alt="" border="0" align="absmiddle"> ~;}

			my $cookiename = "$cookiepassword$curboard";
			my $crypass = crypt($boardpw{$curboard},$pwseed);
			my $boardpwpic = "";
			if ($settings[7] ne "Administrator" && $boardpw{$curboard} && $yyCookies{$cookiename} ne $crypass) {$boardpwpic = qq~<img border="0" alt="" align="absmiddle" src="$imagesdir/locking.gif">~;}
			elsif ($boardpw{$curboard}) {$boardpwpic = qq~<img border="0" align="absmiddle" alt="" src="$imagesdir/lockopen.gif">~;}
			####

			## LAST SUBJECT MOD ##

			#	Use the following line to decide if you want the Latest Subject in the Board Index to display the details
			#	(message icon, subject and link) of the FIRST post or LAST post of the most recently replied to thread

			$last_post = 1;		# 0 = FIRST post; 1 = LAST post

			$subjecthtml = "";
			if ($lastthreadid{$curboard}) {
				fopen(FILE,"$datadir/$lastthreadid{$curboard}.txt");
				@tmp_messages = <FILE>;
				fclose(FILE);
				if ($last_post) {$subjectmain = $tmp_messages[$#tmp_messages];} else {$subjectmain = $tmp_messages[0];} 
				($subjectmain, $dummy, $dummy, $dummy, $dummy, $subicon, $dummy) = split(/\|/, $subjectmain);

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

				if (length($subjectmain) > 25) { $subjectmain = substr($subjectmain, 0, 25) . qq~ ...~; }
				$subicon = qq~<img src="$imagesdir/$subicon.gif" alt="" align="absmiddle">~;

				# Detect if this thread is a poll thread
				if (-e "$datadir/$lastthreadid{$curboard}.poll") {
					fopen (FILE, "$datadir/$lastthreadid{$curboard}.poll");
					$poll_question = <FILE>; 
					fclose (FILE);
					chomp $poll_question;
					($dummy, $poll_locked, $dummy) = split(/\|/, $poll_question, 3);
					$subicon = qq~$img{'pollicon'}~;
					if ($poll_locked eq "1" || $poll_locked eq "Locked") { $subicon = qq~$img{'polliconclosed'}~; }
				}
				if ($last_post) {$tmp_start = qq~;start=$#tmp_messages\#$#tmp_messages~;} else {$tmp_start = "";} 
				$subjecthtml = qq~$subicon <a href="$scripturl?board=$curboard;action=display;num=$lastthreadid{$curboard}$tmp_start">$subjectmain</a><br>~;
				if ($settings[7] ne "Administrator" && $boardpw{$curboard} && $yyCookies{$cookiename} ne $crypass) {$subjecthtml = qq~<img src="$imagesdir/locking.gif" alt="" align="absmiddle"> $mbco{'14'}<br>~;}
			}

			## END LAST SUBJECT MOD ##

			$yymain .= qq~<tr>
        <td class="windowbg" bgcolor="$color{'windowbg'}" width="8%" align="center" valign="top">$new</td>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}" align="left" width="66%" onMouseOver="this.style.backgroundColor='$hover{'cellhover'}'; this.style.cursor='hand';" onMouseOut="this.style.backgroundColor='$hover{'windowbg2'}';" onclick="window.location.href='$scripturl?board=$curboard'"$curboardname'">
        <font size="2"><a name="$curboard" href="$scripturl?board=$curboard">$boardpic{$curboard}<b>$curboardname $boardpwpic</b></a></font>
        <br><font size="1">$curboarddescr</td>
        <td class="windowbg" bgcolor="$color{'windowbg'}" valign="middle" align="center" width="1%"><font size="2">$threadcount{$curboard}</font></td>
        <td class="windowbg" bgcolor="$color{'windowbg'}" valign="middle" align="center" width="1%"><font size="2">$messagecount{$curboard}</font></td>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}" valign="middle" width="24%"><font size="1">$subjecthtml$lastposttime{$curboard}<BR>$txt{'525'} $lastposter</font></td>
      </tr>~;
		}
	}
	my $checkadded = 0;
	$guests = 0;
	$users = '';
	$numusers = 0;
	fopen(FILE, "$vardir/log.txt");
	@entries = <FILE>;
	fclose(FILE);
	foreach $curentry (@entries) {
		chomp $curentry;
		($name, $value, $last_ip) = split(/\|/, $curentry);
		if(!$last_ip){$last_ip = qq~<font color="##FF0000">$txt{'no_ip'}</font>~;}
		if($name) {
			if(!$yyUDLoaded{$musername}) { &LoadUser($name); }
			if(exists $userprofile{$name}) {
				$numusers++;
				$users .= qq~ <a href="$scripturl?action=viewprofile;username=$useraccount{$name}">$userprofile{$name}->[1]</a>~;
				if($settings[7] eq "Administrator") { $users .= qq~<font size="1"><i> ($last_ip)</i></font>~; }
				$users .= qq~<font size="1">,</font> \n~;
			}
			else { 
				$guests++; 
				if($settings[7] eq "Administrator") {
					if($guests == 1){$guestlist = "<br />$txt{'guest_ip'}: ";}
					$guestlist .= qq~<font size="1"><i>$last_ip</i>, </font>\n~; 
				}
			}
		}
	}
	$users =~ s~<font size="1">,</font> \n\Z~~;
	$guestlist =~ s~, </font>\n\Z~</font>\n~;
	if($username ne 'Guest') {
		$ims = @immessages;
### AIMB START ###
if($userimcfg[5] eq "on") {
$yymain .= qq~<script language="javascript"> function viewinstant() { window.open("$scripturl?action=im") } </script>~; }
else {
$yymain .= qq~<script language="javascript"> function viewinstant() { location.href = ("$scripturl?action=im") } </script>~; }

if ($minnum == $numibox && $enable_imlimit) {
	$yymain .= qq~<script language="javascript">
	if(confirm('$imtxt{'91'}')) { viewinstant(); } else cancel() </script>~;
}

if ($minnum > $numibox && $numibox ne "" && $enable_imlimit == 1) {
	$yymain .= qq~<script language="javascript"> if(confirm('$imtxt{'11'} $minnum $imtxt{'12'} $txt{'316'}!\\n$numibox $imtxt{'18'}')) { viewinstant(); } else cancel() </script>~;
		&Del_Max_IM; 
}

if ($moutnum > $numobox && $numobox ne "" && $enable_imlimit == 1) {
	$yymain .= qq~<script language="javascript"> if(confirm('$imtxt{'11'} $moutnum $imtxt{'12'} $txt{'320'}!\\n$numobox $imtxt{'18'}')) { viewinstant(); } else cancel() </script>~;
		&Del_Max_IMOUT; 
}

if ($storenum > $numstore && $numstore ne "" && $enable_imlimit == 1) {
	$yymain .= qq~<script language="javascript"> if(confirm('$imtxt{'11'} $storenum $imtxt{'12'} $imtxt{'46'}!\\n$numstore $imtxt{'18'}')) { viewinstant(); } else cancel() </script>~;
		&Del_Max_STORE; 
}

$ims = qq~<BR>$txt{'796'} <a href="$scripturl?action=im"><B>$ims</B></a> $imtxt{'24'}: <a href="$scripturl?action=im"><B>$imnewcount</B></a>~;
### AIMB END ###
		$yymain .= qq~<tr>
        <td class="catbg" bgcolor="$color{'catbg'}" colspan="6" align="center">
        <table cellpadding="0" border="0" cellspacing="0" width="100%">
          <tr>
            <td align="left"> <font size="1">
            <img src="$imagesdir/on.gif" border=0 alt="$txt{'333'}"> $txt{'333'}&nbsp;&nbsp;
            <img src="$imagesdir/off.gif" border=0 alt="$txt{'334'}"> $txt{'334'}</font></td>
            <td align="right"><font size=1>&nbsp;
~;
	if($showmarkread) { $yymain .= qq~<a href="$scripturl?action=markallasread">$img{'markallread'}</a>~; }
	$yymain .= qq~
            </font></td>
          </tr>
        </table>
        </td>
      </tr>~;
	}

	#set the correct rowspan for the RECENT USERS LIST main cell
	$rul_rowspan = ($username eq 'Guest') ? $rul_rowspan : $rul_rowspan - 2;

	$yymain .= qq~
    </table>
    </td>
  </tr>
</table>
<BR><BR>
<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 bgcolor="$color{'titlebg'}" class="titlebg" align="center" colspan="2">
        <font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'685'}</b><a name="Info_Center"></a></font></td>
		<td bgcolor="$color{'titlebg'}" class="titlebg" align="center" colspan="2">
        <font class="text1" color="$color{'titletext'}" size="2"><b>$rul_users_display $rul_txt{'1'}</b></font></td>
      </tr>~;
### Recent Topics List	$Show_RecentPostList=5;	if($Show_RecentPostList>0) {		require "$sourcedir/Recent.pl";		&RecentPostList($Show_RecentPostList);	}
	$yymain .= qq~<tr>
        <td class="catbg" bgcolor="$color{'catbg'}" colspan="2"> <font size="2" class="catbg"><b>$txt{'200'}</b></font></td>
		<td rowspan="$rul_rowspan" class="windowbg2" bgcolor="$color{'windowbg'}" valign="top" width="25%">~;
	  
	&RecentUsersListShow;
	
	$yymain .= qq~
      </td></tr><tr>
        <td class="windowbg" bgcolor="$color{'windowbg'}" width="20" valign="middle" align="center"><img src="$imagesdir/info.gif" border="0" alt=""></td>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}" valign="top" align="center"><font size="1">
        <table width="98%" cellpadding="3" align="center">
          <tr>
            <td valign="top" align="left" width="60%"><font size="1">
            $txt{'490'} <B>$totalt</B> &nbsp; - &nbsp; $txt{'489'} <B>$totalm</B>
	    ~;
	if($Show_RecentBar) {
		require "$sourcedir/Recent.pl";
		&LastPost;
	}
	$yymain .= qq~
	    </font></td>
	    <td valign="top" align="left" width="40%"><font size="1">
	    $txt{'488'} <a href="$scripturl?action=mlall"><B>$memcount</B></a>
	    ~;
	if ($showlatestmember) {
		&LoadUser($latestmember);
		$yymain .= qq~<BR>$txt{'201'}: <a href="$scripturl?action=viewprofile;username=$useraccount{$latestmember}"><b>$userprofile{$latestmember}->[1]</b></a>~;
	}
	$yymain .= qq~
	    $ims
	    </font></td>
	  </tr>
	</table>
	</font></td>
	~;
	if($totalt > 0) {
		require "$sourcedir/TopStats.pl";
		&TopLink;
	}
	$yymain .= qq~
      </tr><tr>
~;
	if ($forum_staff) {
		# Load MemberGroups
		if(!$MemStatAdmin) {
			fopen(FILE, "$vardir/membergroups.txt") || &fatal_error("100 $txt{'106'}: $txt{'23'} membergroups.txt");
			@membergroups = <FILE>;
			fclose(FILE);
			chomp $membergroups[0]; $tmp_admin_txt = $membergroups[0] || "Administrator";
			chomp $membergroups[7]; $tmp_gmod_txt =  $membergroups[7] || "Global Moderator";
		} else {
			$tmp_admin_txt = $MemStatAdmin || "Administrator";
			$tmp_gmod_txt = $MemStatGMod || "Global Moderator";
		}

		fopen(FILE, "$vardir/mem_groups.txt");
		@mem_groups = <FILE>;
		fclose(FILE);
		@mem_groups = sort{uc($a) cmp uc($b)} (@mem_groups);
		foreach $curentry (@mem_groups) {
			chomp $curentry;
			($tmp_username, $tmp_group, $tmp_name) = split(/\|/, $curentry);
			if ($group_list{$tmp_group}) { $group_list{$tmp_group} .= qq~, ~;}
			$group_list{$tmp_group} .= qq~<a href="$scripturl?action=viewprofile;username=$tmp_username">$tmp_name</a>~;
		}

		@staff = split (/,/, $forum_staff);
		$list = "";
		foreach $curentry (@staff) {
			$curentry =~ s~^\s*(\S.*?\S|\S)\s*$~$1~; 
			if($curentry eq "Administrator") {$tmp_group_txt = $tmp_admin_txt;} 
			elsif($curentry eq "Global Moderator") {$tmp_group_txt = $tmp_gmod_txt;} 
			else {$tmp_group_txt = $curentry;} 
			if ($group_list{$curentry}) { $list .= qq~
             <tr>
               <td width="10%" valign="top" nowrap><font size="1"><b>$tmp_group_txt:</b>&nbsp;</font></td><td valign="top"><font size="1">$group_list{$curentry}</font></td>
             </tr>~;
			}
		}

		if ($list) {$yymain .= qq~
          <td class="catbg" bgcolor="$color{'catbg'}" colspan="2"> <font size="2"><b>$txt{'509c'}</b></font></td>
        </tr><tr>
         <td class="windowbg" bgcolor="$color{'windowbg'}" width="20" valign="middle" align="center"><img src="$imagesdir/admin.gif" border="0" alt="" align="absmiddle"></td>
         <td class="windowbg2" bgcolor="$color{'windowbg2'}">
           <table width="98%" cellpadding="0" align="center">$list
           </table>
         </td>
       </tr><tr>~;
		}
	}
	$yymain .= qq~
        <td class="catbg" bgcolor="$color{'catbg'}" colspan="2"> <font size="2" class="catbg"><b>$txt{'158'}</b></font></td>
      </tr><tr>
        <td class="windowbg" bgcolor="$color{'windowbg'}" width="20" valign="middle" align="center"><img src="$imagesdir/online.gif" border="0" alt=""></td>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=1>
        <table width="98%" cellpadding="3" align="center">
          <tr>
            <td valign="top" align="left"><font size="1">
            $guests $txt{'141'}, $numusers $txt{'142'}<BR>$users$guestlist
            </font></td>
          </tr>
        </table>
        </font></td>
	~;	$total_posts = 0;	foreach $curcat (@categories) {		chomp $curcat;		fopen(FILE, "$boardsdir/$curcat.cat");			@thiscurcat = <FILE>;			chomp @thiscurcat;		fclose(FILE);		foreach $curboard (@thiscurcat) {			chomp $curboard;			( $threadcount, $messagecount, $lastposttime, $lastposter ) = &BoardCountGet($curboard);			$total_posts += $messagecount;		}	}	my(@templist, @SortAList);	fopen(FILE, "$memberdir/memberlist.txt");	@membername = <FILE>;	$memcount = @membername;	fclose(FILE);	$z = 0;	$total_topposts = 0;	for($i=0;$i<$memcount;$i++) {		chomp(@membername);		$membname = $membername[$i];		fopen(MEMBERFILE,"$memberdir/$membname.dat");		@member = <MEMBERFILE>;		fclose(MEMBERFILE);		chomp(@member);		if($member[6] > 0) {			$templist[$z] .= qq($member[6]|$member[1]|$membname);			$z++;		}	}	@SortAList = sort{$b<=>$a} (@templist);	$pstmem = @SortAList;	if($pstmem > $high_lst) { $pstmem = $high_lst }	if($pstmem > 0) {		$yymain .= qq~	      </tr><tr>	        <td class="catbg" bgcolor="$color{'catbg'}" colspan="2"> <font size="2" class="catbg"><b>$txt{'411'} $pstmem $txt{'306'}</b></font></td>	      </tr><tr>	        <td class="windowbg" bgcolor="$color{'windowbg'}" width="20" valign="middle" align="center"><img src="$imagesdir/guest.gif" border="0" alt=""></td>	        <td class="windowbg2" bgcolor="$color{'windowbg2'}">	        <table width="98%" cellpadding="3" align="center">      	  <tr>	        <td width="50%" valign="top" align="left">	        <table cellpadding="2" cellspacing="0" border="0" align="left">		~;		for($i=0;$i<$pstmem;$i++) {			$x = $i+1;			chomp(@SortAList);			($shposts[$i], $shname[$i], $usname[$i]) = split(/\|/, $SortAList[$i]);			$total_topposts = $total_topposts + $shposts[$i];			$Bar = "";			$barchart = ($shposts[$i]);			$bartemp = ($shposts[$i] * 100);			$barwidth = ($bartemp / $shposts[0]);			$barwidth = ($barwidth + 0.5);			$barwidth = int($barwidth);			if($barwidth > 100) {$barwidth = 100}			if ($barwidth < 1) {$Bar = "$Bar";}			else {				$Bar = qq~<img src="$imagesdir/bar.gif" width="$barwidth" height="10" alt="" border="0">~;			}			if ($Bar eq "") { $Bar="&nbsp;"; }			&LoadUser($usname[$i]);		$yymain .= qq~	          <tr>	            <td valign="middle" align="right"><font size="1"><b>$x.</b></font></td>	            <td valign="middle" align="left"><font size="1"><a href="$scripturl?action=viewprofile;username=$useraccount{$usname[$i]}"><b>$shname[$i]</b></a></font></td>	            <td valign="middle" align="right"><font size="1">$shposts[$i]</font></td>			<td valign="middle" align="left">$Bar</td>	          </tr>		~;		}		if ($total_posts > 0) { $tmp_pct = ($total_topposts * 100) / $total_posts; } else { $tmp_pct = 0; }		$top_pct = sprintf ("%.2f", $tmp_pct);		$yymain .= qq~	        </table>	        </td>	        <td width="50%" valign="top" align="left"><font size="1">			$pstmem $txt{'314'}:<br>			- $total_topposts $txt{'86'}<br>			- $top_pct% $txt{'309'} $txt{'190'} $txt{'86'}	        </font></td>		</tr>		</table>		</td>		~;	}	$yymain .= qq~
      </tr>~;

########### Newcalendar mod start #######################
	chomp $newcalgroup;
	@newcalgrouplist = split(",",$newcalgroup);
	$newcalgroupflag = 0;
	foreach $newcalgroupitem (@newcalgrouplist) {
		if ($settings[7] eq $newcalgroupitem) { $newcalgroupflag = 1; }
	}
if ($newcalopen == 1 || $settings[7] eq 'Administrator' || $newcalgroupflag ==1 ) {
	if ($newcalmoon2 == 1) {
		require "$sourcedir/MoonPhase.pl";                           #This is the moon phase calculator
		( $MoonPhase, $MoonIllum, $MoonAge, $MoonDist, $MoonAng, $SunDist, $SunAng ) = phase();
		my ($newphaselow) = 0.016666667;
		my ($newphasehigh) = 0.983333333;
		my ($phaseincrement) = 0.033333333;

		if ( ($MoonPhase < $newphaselow) || ($MoonPhase > $newphasehigh) ){
			$moonpict = qq~<img src="$imagesdir/moon00.gif" alt="" border="0">~;
		} else {
			$gifnumber = 1;
			for ($phasescan = $newphaselow; $phasescan < $newphasehigh; $phasescan += $phaseincrement) {
				if ( ($MoonPhase > $phasescan) && ( $MoonPhase <= ($phasescan + $phaseincrement)) ){
					if ($gifnumber < 10) {
						$moonpict = qq~<img src="$imagesdir/moon0$gifnumber.gif" alt="" border="0">~;
					} else {
						$moonpict = qq~<img src="$imagesdir/moon$gifnumber.gif" alt="" border="0">~;
					}
				}
				$gifnumber++;
			}
		}
	} else {
		$moonpict = qq~<img src="$imagesdir/newcal.gif" alt="" border="0">~;
	}
	$yymain .=qq~
       <tr>
        <td class="catbg" bgcolor="$color{'catbg'}" colspan="2"> <font size="2" class="catbg"><b>$ecaltxt{'55'}</b></font></td>
      </tr><tr>
        <td class="windowbg" bgcolor="$color{'windowbg'}" width="20" valign="middle" align="center"><a href="$cgi;action=newcalendar">$moonpict</a></td>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=1>
        <table width="98%" cellpadding="3" align="center">
          <tr>
            <td valign="top" align="left"><font size="1">~;
require "$sourcedir/NewcalIndex.pl";
if ($newcalindexmini == 1) {
	$yymain .=qq~
<table width='100%'>
  <tr>
    <td valign='top'>
      <font size="1">~;
        &IndexCal;
	$yymain .=qq~
      </font>
    </td><td align='right'>~;
	require "$sourcedir/NewcalPost.pl";
      &MiniCalYY;
      $yymain .=qq~$yyminical~;
	$yymain .=qq~
    <td>
  </tr>
</table>~;
} else {
	&IndexCal;
}
$yymain .=qq~  
            </font></td>
          </tr>
        </table>
        </font></td>
      </tr>~;
}
########### Newcalendar mod end #######################


	if($username eq 'Guest') {
		require "$sourcedir/LogInOut.pl";
		$sharedLogin_title="$txt{'34'} <small><a href=\"$cgi;action=reminder\">($txt{'315'})</a></small>";
		&sharedLogin;
	}

	$yymain .= qq~
    </table>
    </td>
  </tr>
</table>
~;
	if($imnewcount > 0 && $enable_mailpopup == 1) {
		if($imnewcount > 1) { $en = "s"; $en2 = "$imtxt{'47'}"; } else { $en = ""; $en2 = "$imtxt{'48'}"; }

		open(FILE, "$memberdir/$username.imconfig");
		@imuserdata = <FILE>;
		close(FILE);

		chomp($imuserdata[3]);
		chomp($imuserdata[5]);

		if($imuserdata[3] eq "on") {
	if($imuserdata[5] eq "on") {
	$yymain .= qq~
	<script language="JavaScript">
	function rimpu() { window.open("$scripturl?action=im") }
	function cancel () { }
	</script>~;
	} else {
	$yymain .= qq~
	<script language="JavaScript">
	function rimpu() { location.href = ("$scripturl?action=im") }
	function cancel () { }
	</script>~;
	}
		$yymain .= qq~
	<script language="JavaScript">
	<!-- BEGIN
		if (confirm("$imtxt{'13'} $imnewcount $imtxt{'14'}$en$imtxt{'15'} $en2?")) { rimpu(); } else cancel()
	// END --> 
	</script>
		~;
		}
	}
	$yytitle = "$txt{'18'}";
	&template;
	exit;
}

#RECENT USERS LIST
#v1.4
#OUTPUTS A TABLE WITH $rul_users_display ROWS - ONE FOR EACH USER IN THE LIST
sub RecentUsersListShow
{
	fopen(FILE, "$vardir/lastuseronline.txt"); @lastusers = <FILE>; fclose(FILE); chomp @lastusers;
	$counter = 1;

	$yymain .= qq~<table border="0" cellspacing="0" cellpadding="3">~;

	foreach $lastuser_line (@lastusers)
	{
		($last_username, $last_userwhen) = split(/\|/, $lastuser_line);

		#is this user online now?
		$online_now = ($users =~ /username=$last_username"/) ? "<br>$rul_txt{'2'}" : '';

		#it should never happen, but a Guest entry might have been stored in the file. this avoids showing it 
		if (fopen(MFILE, "$memberdir/$last_username.dat"))
		{
			@memberinfo = <MFILE>; fclose(MFILE); chomp @memberinfo;
			$last_userwhen = ($rul_show_time) ? '<br>' . &timeformat($last_userwhen) : '';

			#do we want to show an avatar?
			if ($rul_show_avatars)
			{
				#correct url allowing for custom avatars
				if ($memberinfo[13] =~ m~\Ahttp://~) { $avatar = $memberinfo[13]; }
				else { $avatar = $facesurl . '/' . $memberinfo[13]; }
			
				#is resizing enabled or shall we just show a plain image tag?
				#if we're using avatar resizing
				if ($rul_avatar_width || $rul_avatar_height)
				{
					#decide what the avatar link should be
					if ($rul_avatar_link == 2) { $avatars_cell = qq~<td><a href="$cgi;action=imsend;to=$last_username"><img src="$avatar" style="display:none" onerror="javascript:this.style.display='inline'" onload="javascript:if(this.style.display=='none'){resize_img(this)}" alt="$rul_txt{'12'} $memberinfo[1]" border="0" hspace="3"></a></td>~; }
					elsif ($rul_avatar_link == 1) { $avatars_cell = qq~<td><a href="$cgi;action=viewprofile;username=$last_username"><img src="$avatar" style="display:none" onerror="javascript:this.style.display='inline'" onload="javascript:if(this.style.display=='none'){resize_img(this)}" alt="$rul_txt{'13'} $memberinfo[1]" border="0" hspace="3"></a></td>~; }
					else { $avatars_cell = qq~<td><img src="$avatar" style="display:none" onerror="javascript:this.style.display='inline'" onload="javascript:if(this.style.display=='none'){resize_img(this)}" alt="$memberinfo[1]" border="0" hspace="3"></td>~; }
				}
				#else we're not using resizing so just use the normal image tag
				else
				{
					#decide what the avatar link should be
					if ($rul_avatar_link == 2) { $avatars_cell = qq~<td><a href="$cgi;action=imsend;to=$last_username"><img src="$avatar" border="0" alt="$rul_txt{'12'} $memberinfo[1]" hspace="3"></a></td>~; }
					elsif ($rul_avatar_link == 1) { $avatars_cell = qq~<td><a href="$cgi;action=viewprofile;username=$last_username"><img src="$avatar" border="0" alt="$rul_txt{'13'} $memberinfo[1]" hspace="3"></a></td>~; }
					else { $avatars_cell = qq~<td><img src="$avatar" border="0" alt="$memberinfo[1]" hspace="3"></td>~; }
				}
			}
			#else we're not showing avatars, so just show the text counter
			else { $avatars_cell = qq~<td valign="top"><font size="1">$counter.</font></td>~; }

			#output this row
			$yymain .= qq~<tr>$avatars_cell<td><font size="1"><a href="$cgi;action=viewprofile;username=$last_username">$memberinfo[1]</a>$last_userwhen$online_now</font></td></tr>~;
			}

			$counter++;
	}

	$yymain .= qq~</table>~;
}



sub MarkAllRead {
	fopen(FILE, "$vardir/cat.txt");
	my @categories = <FILE>;
	fclose(FILE);
	my( $curcat, $curcatname, $curcataccess, @catboards, @membergroups, $openmemgr, $curboard );
	foreach $curcat (@categories) {
		chomp $curcat;
		fopen(FILE, "$boardsdir/$curcat.cat");
		$curcatname = <FILE>;
		$curcataccess = <FILE>;
		chomp $curcatname;
		chomp $curcataccess;
		@catboards = <FILE>;
		fclose(FILE);
		@membergroups = split( /,/, $curcataccess );
		$openmemgr = 0;
		foreach (@membergroups) {
			if( $_ eq $settings[7]) { $openmemgr = 1; last; }
		}
		if(!$curcataccess || $settings[7] eq 'Administrator') { $openmemgr = 1; }
		unless( $openmemgr ) { next; }
		foreach $curboard (@catboards) {
			chomp $curboard;
			&modlog("$curboard--mark");
			&modlog($curboard);
		}
	}
	&dumplog;
	&BoardIndex;
}

1;