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

$memberlistplver = "1 Gold - SP 1.3";

if($username eq "Guest") { &fatal_error("$txt{'223'}"); }

require "$sourcedir/StealthMail.pl";

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

if($action eq "mlall") { $Sort .= qq($txt{'303'} | ); } else { $Sort .= qq(<a href="$cgi;action=mlall"><font size=2 class="text1" color="$color{'titletext'}">$txt{'303'}</font></a> | ); }
if($action eq "mlletter") { $Sort .= qq($txt{'304'} | ); } else { $Sort .= qq(<a href="$cgi;action=mlletter"><font size=2 class="text1" color="$color{'titletext'}">$txt{'304'}</font></a> | ); }
if($action eq "mltop") { $Sort .= qq($txt{'305'} $txt{'411'} $TopAmmount $txt{'306'}); } else { $Sort .= qq(<a href="$cgi;action=mltop"><font size=2 class="text1" color="$color{'titletext'}">$txt{'305'} $txt{'411'} $TopAmmount $txt{'306'}</font></a>); }
$barmax = 0; 
fopen(MEMBERLISTREAD,"$memberdir/memberlist.txt"); 
@member = (); 
while(chomp($membername=<MEMBERLISTREAD>)) { 
      fopen(MEMBERFILE,"$memberdir/$membername.dat"); 
      @member = <MEMBERFILE>; 
      fclose(MEMBERFILE); 
      chomp @member; 
      if($member[6] > $barmax) { $barmax = $member[6]; } 
} 
fclose(MEMBERLISTREAD); 
if($barmax == 0) { $barmax = 1; } 

if($action eq "mlletter") {
	$page = "a"; $showpage = "A";
	while($page ne "z") {
		$LetterLinks .= qq(<a href="$scripturl?action=mlletter;letter=$page">$showpage&nbsp;</a> );
		$page++; $showpage++;
	}
	$LetterLinks .= qq(<a href="$scripturl?action=mlletter;letter=z">Z</a>  <a href="$scripturl?action=mlletter;letter=other">$txt{'800'}</a> );
}

$TableHeader .= qq(
<table border="0" width="100%" cellspacing="1" bgcolor="$color{'bordercolor'}" class="bordercolor">
<tr>
	<td class="titlebg" bgcolor="$color{'titlebg'}" colspan="7"><b><font size=2 class="text1" color="$color{'titletext'}">$Sort</font></b></td>
</tr>
);
if($LetterLinks ne "") {
	$TableHeader .= qq(<tr>
		<td class="catbg" bgcolor="$color{'catbg'}" colspan="7"><b><font size=2>$LetterLinks</td>
	</tr>
	);
}
$TableHeader .= qq(<tr>
	<td class="catbg" bgcolor="$color{'catbg'}" width="200"><b><font size=2>$txt{'35'}</font></b></td>
	<td class="catbg" bgcolor="$color{'catbg'}"><b><font size=2>$txt{'307'}</font></b></td>
	<td class="catbg" bgcolor="$color{'catbg'}"><b><font size=2>$txt{'96'}</font></b></td>
	<td class="catbg" bgcolor="$color{'catbg'}"><b><font size=2>$txt{'86'}</font></b></td>
	<td class="catbg" bgcolor="$color{'catbg'}"><b><font size=2>$txt{'87'}</font></b></td>
	<td class="catbg" bgcolor="$color{'catbg'}"><b><font size=2>$txt{'21'}</font></b></td>
</tr>
);

$TableFooter = qq~</table>~;

sub MLAll {
	if($username eq "Guest") { &fatal_error("$txt{'223'}"); }
	# Get the number of members
	fopen(FILE, "$memberdir/memberlist.txt");
	@memberlist = <FILE>;
	$memcount = @memberlist;
	@membername = @memberlist;
	fclose(FILE);

	if($INFO{'start'} eq "") { $start=0; } else { $start="$INFO{'start'}"; }
	$numshown=0;
	$numbegin = ($start + 1);
	$numend = ($start + $MembersPerPage);
	if($numend > $memcount) { $numend = $memcount; }
	$b = $start;

	$yymain .= qq~
		<center><font size="2" class="nav"><B>$txt{'308'} $numbegin $txt{'311'} $numend ($txt{'309'} $memcount $txt{'310'})</B></font></center><BR>
	~;
	$yymain .= qq~$TableHeader~;

	while(($numshown < $MembersPerPage)) {
		$numshown++;
		$c=0;
		$pages="";
		chomp(@membername);
		$tempname = $membername[$b];
		$membername[$b] =~ s/ //gi;
		$membername[$b] =~ s/\n//gi;
		$name = $membername[$b];
		$b++;

		@member = ();
		$Bar = "";
		$ICQ = "";
		fopen(MEMBERFILEREAD,"$memberdir/$name.dat");
		@member = <MEMBERFILEREAD>;
		fclose(MEMBERFILEREAD);
		chomp @member;
		&FormatUserName($name);
	if($member[4] ne "" && $member[4] !~ m~\Ahttp://\S*~) { $member[4] = "<a href=\"http://$member[4]\" target=\"_blank\">$member[3]</a>"; }
	elsif($member[4] ne "") { $member[4] = "<a href=\"$member[4]\" target=\"_blank\">$member[3]</a>"; }

		$barchart = ($member[6] * 100) / $barmax; 
            $barchart = int($barchart + 0.5); 
            if($barchart > 100) {$barchart = 100} 
            $Bar = qq~<img src="$imagesdir/bar.gif" width=$barchart height=15 alt="" border="0">~; 


		if ($Bar eq "") { $Bar="&nbsp;"; }
		if($member[6] > 100000) { $member[6] = "$txt{'683'}"; }

		if($member[7] eq "Administrator") { $member[7] = "$membergroups[0]"; }

		if($tempname)
		{
			$cryptmail = &scramble($member[2]);
			$memail = qq~$scripturl?action=mailto;user=$name;mail_id=$cryptmail~;
			$yymain .= qq~
			<tr>
				<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2><a href="$cgi;action=viewprofile;username=$useraccount{$name}">$member[1]</a></font></td>
				~;
				if ($showgmod_email) {
				if ($member[19] eq "checked" && $settings[7] ne "Administrator" &&  $settings[7] ne 'Global Moderator' && $allow_hide_email eq 1) { $yymain .= qq~
					<td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=2><i>$txt{'722'}</i></font></td>
				~; } else { $yymain .= qq~
					<td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=2><a href="$memail" target="_blank">$txt{'hidemail'}</a></font></td>
				~; }
				} else {
				if ($member[19] eq "checked" && $settings[7] ne "Administrator" &&  $settings[7] eq 'Global Moderator' && $allow_hide_email eq 1) { $yymain .= qq~
					<td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=2><i>$txt{'722'}</i></font></td>
				~; } else { $yymain .= qq~
					<td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=2><a href="$memail" target="_blank">$txt{'hidemail'}</a></font></td>
				~; }
				}
				$yymain .= qq~
				<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2>$member[4]</font>&nbsp;</td>
				<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center"><font size=2>$member[6]</font>&nbsp;</td>
				<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2>$member[7]</font>&nbsp;</td>
				<td class="windowbg" bgcolor="$color{'windowbg'}">$Bar</td>
			</tr>
			~;
		}
	}
	$yymain .= qq~$TableFooter~;

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

	$yymain .= qq~
	<table border="0" width="100%" cellpadding="0" cellspacing="0">
	<tr>
		<td><font size="2"><b>$txt{'139'}:</b>
		$pageindex
		</font></td>
	</tr>
	</table>
	~;

	$yytitle = "$txt{'308'} $numbegin $txt{'311'} $numend";
	&template;
	exit;
}

sub MLByLetter {
	if($username eq "Guest") { &fatal_error("$txt{'223'}"); }
	$yymain .= qq~$TableHeader~;

	$letter = $INFO{'letter'};
	if($INFO{'start'} eq "") { $start=0; } else { $start="$INFO{'start'}"; }

	unless(!$letter)
	{
		fopen(MEMBERSLISTREAD,"$memberdir/memberlist.txt");
		while(chomp($memberfile=<MEMBERSLISTREAD>)) {
			fopen(MEMBERFILEREAD,"$memberdir/$memberfile.dat");
			@member = <MEMBERFILEREAD>;
			fclose(MEMBERFILEREAD);
			chomp @member;

			$SearchName = $member[1];
			$SearchName = substr $SearchName,0,1;
			$SearchName = lc $SearchName;
			if($letter eq "other" && (($SearchName lt "a") || ($SearchName gt "z"))) {
				push(@ToShow,$memberfile);
			} elsif($SearchName eq $letter) {
				push(@ToShow,$memberfile);
			}
		}
		fclose(MEMBERSLISTREAD);
		@ToShow = sort { uc($a) cmp uc($b)} @ToShow;
		$memcount=@ToShow;
		$numshown=0; $b=$start;

		unless ($memcount == 0)	{
		while(($numshown < $MembersPerPage))
		{
			$membername=@ToShow[$b];
			if ($membername ne "")
			{
			@member = ();
			$Bar = "";
			$ICQ = "";
			fopen(MEMBERFILEREAD,"$memberdir/$membername.dat");
			@member = <MEMBERFILEREAD>;
			fclose(MEMBERFILEREAD);
			chomp @member;
			&FormatUserName($membername);
			$cryptmail = &scramble($member[2]);
			$memail = qq~$scripturl?action=mailto;user=$membername;mail_id=$cryptmail~;
			if($member[4] ne "" && $member[4] !~ m~\Ahttp://\S*~) { $member[4] = "<a href=\"http://$member[4]\" target=\"_blank\">$member[3]</a>"; }
			elsif($member[4] ne "") { $member[4] = "<a href=\"$member[4]\" target=\"_blank\">$member[3]</a>"; }
			$barchart = ($member[6] * 100) / $barmax; 
            $barchart = int($barchart + 0.5); 
            if($barchart > 100) {$barchart = 100} 
            $Bar = qq~<img src="$imagesdir/bar.gif" width=$barchart height=15 alt="" border="0">~; 

			$member[8] =~ s/[\n\r]//g;
			if ($Bar eq "") { $Bar="&nbsp;"; }

			if($member[6] > 100000) { $member[6] = "$txt{'683'}"; }

			if($member[7] eq "Administrator") { $member[7] = "$membergroups[0]"; }

			$yymain .= qq~
				<tr>
					<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2><a href="$cgi;action=viewprofile;username=$useraccount{$membername}">$member[1]</a></font></td>
			~;
			if ($showgmod_email) {
			if ($member[19] eq "checked" && $settings[7] ne "Administrator" &&  $settings[7] ne 'Global Moderator' && $allow_hide_email eq 1) { $yymain .= qq~
				<td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=2><i>$txt{'722'}</i></font></td>
			~; } else { $yymain .= qq~
				<td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=2><a href="$memail" target="_blank">$txt{'hidemail'}</a></font></td>
			~; }
			} else {
			if ($member[19] eq "checked" && $settings[7] ne "Administrator" &&  $settings[7] eq 'Global Moderator' && $allow_hide_email eq 1) { $yymain .= qq~
				<td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=2><i>$txt{'722'}</i></font></td>
			~; } else { $yymain .= qq~
				<td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=2><a href="$memail" target="_blank">$txt{'hidemail'}</a></font></td>
			~; }
			}
			$yymain .= qq~
			<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2>$member[4]</font>&nbsp;</td>
			<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center"><font size=2>$member[6]</font>&nbsp;</td>
			<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2>$member[7]</font>&nbsp;</td>
			<td class="windowbg" bgcolor="$color{'windowbg'}">$Bar</td>
			</tr>
			~;
			}
			$numshown++;
			$b++;
		}
		}
	}
	if(!$letter) {$yymain .= qq~ <td class="windowbg" bgcolor="$color{'windowbg'}" colspan="7" align="center"><br><b>$txt{'759'}</b><br><br></td>~;}
	if($memcount == 0 && $letter) {$yymain .= qq~ <td class="windowbg" bgcolor="$color{'windowbg'}" colspan="7" align="center"><br><b>$txt{'760'}</b><br><br></td>~;}
	$yymain .= qq~$TableFooter~;

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

	$yymain .= qq~
	<table border="0" width="100%" cellpadding="0" cellspacing="0">
	<tr>
		<td><font size="2"><b>$txt{'139'}:</b>
		$pageindex
		</font></td>
	</tr>
	</table>
	~;
}
	$yytitle = "$txt{'312'}";
	&template;
	exit;
}

sub MLTop {
	if($username eq "Guest") { &fatal_error("$txt{'223'}"); }
	$yymain .= qq~$TableHeader~;
	%TopMembers = ();
	fopen(MEMBERLISTREAD,"$memberdir/memberlist.txt");
		@member = ();
		while(chomp($membername=<MEMBERLISTREAD>)) {
			fopen(MEMBERFILE,"$memberdir/$membername.dat");
				@member = <MEMBERFILE>;
			fclose(MEMBERFILE);
			chomp @member;

			$TopMembers{$membername} = $member[6];
		}
	fclose(MEMBERLISTREAD);

	my @toplist = sort {$TopMembers{$a} <=> $TopMembers{$b}} keys %TopMembers;
	@toplist = reverse @toplist;
	$TopListNum = $TopAmmount - 1;

for ($i=0;$i<=$TopListNum;$i++) {
		@member = ();
		$Bar = "";
		$ICQ = "";
		$membername = @toplist[$i];
		fopen(MEMBERFILEREAD,"$memberdir/$membername.dat");
			@member = <MEMBERFILEREAD>;
		fclose(MEMBERFILEREAD);
		&FormatUserName($membername);
		if($member[4] ne "" && $member[4] !~ m~\Ahttp://\S*~) { $member[4] = "<a href=\"http://$member[4]\" target=\"_blank\">$member[3]</a>"; }
		elsif($member[4] ne "") { $member[4] = "<a href=\"$member[4]\" target=\"_blank\">$member[3]</a>"; }
		chomp @member;
		if($member[1] ne "") {
			$barchart = ($member[6] * 100) / $barmax; 
            $barchart = int($barchart + 0.5); 
            if($barchart > 100) {$barchart = 100} 
            $Bar = qq~<img src="$imagesdir/bar.gif" width=$barchart height=15 alt="" border="0">~; 

			$member[8] =~ s/[\n\r]//g;

			if($member[8] ne "") { $ICQ = qq~<a href="$cgi;action=icqpager;UIN=$memset[8]" target="_blank"><img src="http://web.icq.com/whitepages/online?icq=$member[8]&img=5" alt ="$member[8]" border=0></a>~; }
			if ($Bar eq "") { $Bar="&nbsp;"; }
			if($member[6] > 100000) { $member[6] = "$txt{'683'}"; }

			if($member[7] eq "Administrator") { $member[7] = "$membergroups[0]"; }
			$cryptmail = &scramble($member[2]);
			$memail = qq~$scripturl?action=mailto;user=$membername;mail_id=$cryptmail~;

			$yymain .= qq~
	<tr>
		<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2><a href="$cgi;action=viewprofile;username=$useraccount{$membername}">$member[1]</a></font></td>
		~;
		if ($showgmod_email) {
		if ($member[19] eq "checked" && $settings[7] ne "Administrator" &&  $settings[7] ne 'Global Moderator' && $allow_hide_email eq 1) { $yymain .= qq~
			<td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=2><i>$txt{'722'}</i></font></td>
		~; } else { $yymain .= qq~
			<td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=2><a href="$memail" target="_blank">$txt{'hidemail'}</a></font></td>
		~; }
		} else {
		if ($member[19] eq "checked" && $settings[7] ne "Administrator" &&  $settings[7] eq 'Global Moderator' && $allow_hide_email eq 1) { $yymain .= qq~
			<td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=2><i>$txt{'722'}</i></font></td>
		~; } else { $yymain .= qq~
			<td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=2><a href="$memail" target="_blank">$txt{'hidemail'}</a></font></td>
		~; }
		}
		$yymain .= qq~
		<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2>$member[4]</font>&nbsp;</td>
		<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center"><font size=2>$member[6]</font>&nbsp;</td>
		<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2>$member[7]</font>&nbsp;</td>
		<td class="windowbg" bgcolor="$color{'windowbg'}">$Bar</td>
	</tr>
			~;
		}
	}
	$yymain .= qq~$TableFooter~;
	$yytitle = "$txt{'313'} $TopAmmount $txt{'314'}";
	&template;
	exit;
}


sub ShowStaff {
	my(@members, @mem, @membera, $membernum, $adm, $gmod, %mod);
	my (@members, $curentry);
	$adm = ''; 
	$gmod = '';
	fopen(FILE, "$memberdir/memberlist.txt");  
	@members = <FILE>;  
	fclose(FILE);  
	foreach $curentry (@members) {
		chomp $curentry;
		&LoadUser($curentry);
		$cryptmail = &scramble($userprofile{$curentry}->[2]);
		$memail = qq~$scripturl?action=mailto;user=$curentry;mail_id=$cryptmail~;
	if( $userprofile{$curentry}->[7] eq 'Administrator' ) {
			$adm .= qq~<td class="windowbg2" bgcolor="$color{'windowbg2'}"><table cellpadding='4' cellspacing='1' width="100%">
  <tr>
	 <td align='left' width="20%"><a href="$scripturl?action=viewprofile&username=$useraccount{$curentry}">$userprofile{$curentry}->[1]</a></td>
	 <td align='center' width="30%">$txt{'190'} $staff_txt{'7'}</td>
	 <td align='center' width="20%">$userprofile{$curentry}->[7]</td>
	 <td align='center' width="15%"><a href="$cgi;action=imsend;to=$useraccount{$curentry}">$img{'message_sm'}</a></td>
	 <td align='center' width="15%"><a href="$memail" target="_blank">$img{'email_sm'}</a></td>
  </tr>  <tr>
</table></td><tr> \n~;
		}
		elsif( $userprofile{$curentry}->[7] eq 'Global Moderator' ) {
			$gmod .= qq~<td class="windowbg2" bgcolor="$color{'windowbg2'}"><table cellpadding='4' cellspacing='1' width="100%">
  <tr>
	 <td align='left' width="20%"><a href="$scripturl?action=viewprofile&username=$useraccount{$curentry}">$userprofile{$curentry}->[1]</a></td>
	 <td align='center' width="30%">$txt{'190'} $staff_txt{'7'}</td>
	 <td align='center' width="20%">$userprofile{$curentry}->[7]</td>
	 <td align='center' width="15%"><a href="$cgi;action=imsend;to=$useraccount{$curentry}">$img{'message_sm'}</a></td>
	 <td align='center' width="15%"><a href="$memail" target="_blank">$img{'email_sm'}</a></td>
  </tr>  <tr>
</table></td><tr> \n~;      
		}
	}




#Load up boards so we can check moderators
	opendir(BOARD, "$boardsdir");
	@board = readdir(BOARD);
	closedir(BOARD);
	chomp @board;
	foreach $line (@board){
		($name, $extension) = split (/\./, $line);
		if ($extension eq "dat") {
			#$tmpa .= "$name|";
			fopen(BOARD, "$boardsdir/$line");    #Load up the boards moderators
			@data = <BOARD>;
			fclose(BOARD);
			chomp @data;
			@moder = split(/\|/, $data[2]);
			foreach $modera (@moder) {
				fopen(FIL, "$memberdir/$modera.dat"); @mema = <FIL>; fclose(FILE);
					if($mema[7] ne 'Administrator' && $mema[7] ne 'Global Moderator') {
						$mod{$modera} .= "$name,"; }
			}
#			$mod{$name} = "$data[2]";
		}
	}

$yymain .= qq~
<table width="100%" cellpadding="0" cellspacing="0">
  <tr>
    <td><font size="2" class="nav"><b>
    <IMG SRC="$imagesdir/open.gif" alt="" BORDER=0>&nbsp;&nbsp;
    <a href="$scripturl" class="nav">$mbname</a><br>
    <IMG SRC="$imagesdir/tline.gif" alt="" BORDER=0><IMG SRC="$imagesdir/open.gif" alt="" BORDER=0>&nbsp;&nbsp;
    <a href="$cgi;action=staff" class="nav">$staff_txt{'2'}</a></font></td>
  </tr>
</table>
<table border=0 width=100% cellspacing=1 cellspacing="4" align="center" bgcolor="$color{'bordercolor'}" class="bordercolor"></tr><tr><td class="staffborder" bgcolor="$color{'staffborder'}"><font size="3" color="#FFFFFF"><b>$staff_txt{'4'}</b></font></td></tr><tr></tr><tr><td class="catbg" bgcolor="$color{'catbg'}"><font size="2"><b>$staff_txt{'3'} <a href="mailto:$webmaster_email">$webmaster_email</a> 
</b></font></td></tr></table><BR><BR>~;



	#Display the admins
               $yymain .= qq~
<table border=0 width=100% cellspacing=1 cellspacing="4" align="center" bgcolor="$color{'bordercolor'}" class="bordercolor"></tr><tr><td class="staffborder" bgcolor="$color{'staffborder'}"><img src="$imagesdir/staradmin.gif"><font size="3" color="#FFFFFF"><b>$txt{'684'}</b></font></td></tr><tr><td class="catbg" bgcolor="$color{'catbg'}"> 
<table cellpadding='4' cellspacing='1' width="100%">
  <tr>
	 <td align='left' width="20%"><b>$txt{'68'}</b></td>
	 <td align='center' width="30%"><b>$staff_txt{'5'}</b></td>
	 <td align='center' width="20%"><b>$txt{'87'}</b></td>
	 <td align='center' width="15%"><b>$staff_txt{'6'}</b></td>
	 <td align='center' width="15%"><b>$txt{'69'}</b></td>
  </tr>  <tr>
</table></td>

</tr><tr>$adm</tr></table><BR><BR>~;




	#Display the GM's
               $yymain .= qq~
<table border=0 width=100% cellspacing=1 cellspacing="4" align="center" bgcolor="$color{'bordercolor'}" class="bordercolor"></tr><tr><td class="staffborder" bgcolor="$color{'staffborder'}"><img src="$imagesdir/stargmod.gif"><font size="3" color="#FFFFFF"><b>$txt{'gmod4'}</b></font></td></tr><tr><td class="catbg" bgcolor="$color{'catbg'}"> 
<table cellpadding='4' cellspacing='1' width="100%">
  <tr>
	 <td align='left' width="20%"><b>$txt{'68'}</b></td>
	 <td align='center' width="30%"><b>$staff_txt{'5'}</b></td>
	 <td align='center' width="20%"><b>$txt{'87'}</b></td>
	 <td align='center' width="15%"><b>$staff_txt{'6'}</b></td>
	 <td align='center' width="15%"><b>$txt{'69'}</b></td>
  </tr>  <tr>
</table></td>

</tr><tr>$gmod</tr></table><BR><BR>~;





	# Print the moderator header
	$yymain .= qq~

<table border=0 width=100% cellspacing=1 cellspacing="4" align="center" bgcolor="$color{'bordercolor'}" class="bordercolor"></tr><tr><td class="staffborder" bgcolor="$color{'staffborder'}"><img src="$imagesdir/starmod.gif"><font size="3" color="#FFFFFF"><b>$txt{'299'}</b></font></td></tr><tr><td class="catbg" bgcolor="$color{'catbg'}"> 
<table cellpadding='4' cellspacing='1' width="100%">
  <tr>
	 <td align='left' width="20%"><b>$txt{'68'}</b></td>
	 <td align='center' width="30%"><b>$staff_txt{'5'}</b></td>
	 <td align='center' width="20%"><b>$txt{'87'}</b></td>
	 <td align='center' width="15%"><b>$staff_txt{'6'}</b></td>
	 <td align='center' width="15%"><b>$txt{'69'}</b></td>
  </tr>  <tr>
</table></td>

</tr><tr>~;




	#Finally, start displaying the moderators
	#@tmp = split(/\,/, $tmpa);
	while (($key, $value) = each %mod) {
		my(@tmpmod, @tmpc, $bnames); 
		@tmpmod = split(/\,/, $value);
		foreach $line (@tmpmod) {
			fopen(tmp, "$boardsdir/$line.dat");
			@tmpc = <tmp>;
			fclose(tmp);
			chomp @tmpc;

			$bnames .= qq~<a href="$script?board=$line">$tmpc[0]</a><br>~;
		}
		$bnames =~ s~, \Z~~;
		&LoadUser($key);
		$cryptmail = &scramble($userprofile{$key}->[2]);
		$memail = qq~$scripturl?action=mailto;user=$key;mail_id=$cryptmail~;
		if($userprofile{$key}->[7] eq 'Administrator' || $userprofile{$key}->[7] eq 'Global Moderator') { next; }
		$yymain .= qq~<td class="windowbg2" bgcolor="$color{'windowbg2'}"><table cellpadding='4' cellspacing='1' width="100%">
  <tr>
	 <td align='left' width="20%" valign="top"><a href="$cgi;action=viewprofile;username=$key">$userprofile{$key}->[1]</a></td>
	 <td align='center' width="30%" valign="top">$bnames</td>
	 <td align='center' width="20%" valign="top">$txt{'12'}</td>
	 <td align='center' width="15%" valign="top"><a href="$cgi;action=imsend;to=$key">$img{'message_sm'}</a></td>
	 <td align='center' width="15%" valign="top"><a href="$memail" target="_blank">$img{'email_sm'}</a></td>
  </tr>  <tr>
</table></td><tr>   
~;
			   	
	}
	$yymain .= qq~</tr></table><BR><BR>~;
	$yytitle = "$staff_txt{'1'}";
	&template;
	exit;
}

1;