###############################################################################
# CatIndex.pl by Sam Holman                                                   #
###############################################################################
# YaBB: Yet another Bulletin Board                                            #
# Open-Source Community Software for Webmasters                               #
# Software Version: YaBB 1 Gold - SP1                                         #
# Released: December 2001                                                     #
# =========================================================================== #
# Software Distributed by:    http://yabb.xnull.com                           #
# Support, News, Updates at:  http://yabb.xnull.com/community/                #
# =========================================================================== #
# Copyright (c) 2000-2002 Xnull (www.xnull.com) - All Rights Reserved.        #
# Software by: The YaBB Development Team                                      #
#              with assistance from the YaBB community.                       #
###############################################################################
# Expand yabb index mod by Sam Holman (sam@shlmn.com - http://www.shlmn.com)  #
# YaBB 1 Gold - SP1 port by Richard Ashley (LRdM) meeh@LRdM.net www.LRdM.net  #
###############################################################################

sub cat {

	# Grab the name of the current category
	@categories = $INFO{'cat'};

	for( $catnum = 0; $catnum < @categories; $catnum++ ) {
		chomp $categories[$catnum];
		$curcat = @categories[$catnum];
		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;
		foreach $tmpa (@membergroups) {
			if( $tmpa eq $settings[7]) { $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 ) = &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;
		}
	}
	$yytitle = "$txt{'18'}";
	$curforumurl = $curposlinks ? qq~<a href="$scripturl" class="nav">$mbname</a>~ : $mbname;

	$yymain .= qq~
<table border=0 width="100%" cellspacing="1" cellpadding="5" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}" colspan="2"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'20'}</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="23%" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'22'}</b></font></td>
  </tr>
~;

	foreach $curcat (@categories) {
		unless( $openmemgr{$curcat} ) { next; }
		$yymain .= qq~
  <tr>
    <td colspan="5" class="catbg" bgcolor="$color{'catbg'}" height="18"><a name="$curcat"><font size=2>&#171; <b>$catname{$curcat}</b> &#187;</font></td>
  </tr>
~;
		foreach $curboard (@{$catboards{$curcat}}) {
			chomp $curboard;
			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'};
			$yymain .= qq~
  <tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}" width="6%" align="center" valign="top">$new</td>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}" align="left" width="69%">
    <a name="$curboard"></a>
    <font size=2><b><a href="$scripturl?board=$curboard">$curboardname</a></b>
    <br>$curboarddescr</font><BR>
    <font size="1">&#187; <i>$showmods</i></font></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="23%"><font size=1>$lastposttime{$curboard}<BR>$txt{'525'} $lastposter</font></td>
  </tr>
~;
		}
	}

	$guests = 0;
	$users = '';
	fopen(FILE, "$vardir/log.txt");
	@entries = <FILE>;
	fclose(FILE);
	foreach $curentry (@entries) {
		chomp $curentry;
		($name, $value) = split(/\|/, $curentry);
		if( $name ) {
			&LoadUser($name);
			if( exists $userprofile{$name} ) {
				$users .= qq~ <a href="$scripturl?action=viewprofile;username=$useraccount{$name}">$userprofile{$name}->[1]</a><font size=1>,</font> \n~;
			}
			else { ++$guests; }
		}
	}
	$users =~ s~<font size=1>,</font> \n\Z~~;
	if( $username ne 'Guest' ) {
		$messnum = @immessages;
		$yymain .= qq~
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}" colspan="6" align="center">
    <table cellpadding="0" border="0" cellspacing="0" width="100%">
      <tr>
        <td align="left">
        <img src="$imagesdir/new_some.gif" border=0 alt="$txt{'333'}"> &nbsp;&nbsp;
        <img src="$imagesdir/new_none.gif" border=0 alt="$txt{'334'}"></td>
        <td align="center"><font size=-1>&nbsp;
~;
if($showmarkread) { 
	$yymain .= qq~        <a href="$scripturl?action=markallasread">$img{'markallread'}</a>
~; 
}
	$yymain .= qq~
        </font></td>
      </tr>
    </table>
    </td>
  </tr>
~;
	}

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

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;
	&cat;
}
1;