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

$adminplver = "1 Gold - SP 1.3";

sub Admin {
	&is_admin;

	# Load data for the 'remove old messages' feature, get totals, and get moderators
	fopen(FILE, "$vardir/oldestmes.txt");
	$maxdays = <FILE>;
	fclose(FILE);
# greetplus mod
	$usertime= time + (3600*$timeoffset);
      ($greet_sec,$greet_min,$greet_hour,$greet_mday,$greet_mon,$greet_year,$greet_wday,$greet_yday,$greet_isdst) = localtime($usertime);
      if ($greet_hour < 12) { $greet_message = "$greettxt{'1'}"; }
        elsif ($greet_hour < 17) { $greet_message = "$greettxt{'2'}"; }
        else { $greet_message = "$greettxt{'3'}"; }
		if ($settings[16] ne "") {
			($bdgmonth, $bdgday, $bdgyear) = split(/\//, $settings[16]);
			$bdgdateindex = ( timelocal(0,0,0,$bdgday,$bdgmonth-1,$greet_year) + ( 3600 * ($timeoffset + $settings[18]) ) );
			if ( ( $usertime > $bdgdateindex ) && ( $usertime < ( $bdgdateindex + (3600*24) ) ) ) {
				$greet_message = $greettxt{'4'};
			}
		}
# end greetplus mod


	$yymain .= qq~
<map NAME="egg">
<AREA SHAPE="poly" COORDS="33,63,37,60,44,60,45,62,39,64" HREF="http://yabb.xnull.com/01g.php">
</MAP>
<table border="0" cellpadding="0" cellspacing="0" align="center" width="100%">
  <tr>
    <td valign="top" colspan="3" align="center">
    <table border="0" cellpadding="4" cellspacing="1" bgcolor="$color{'bordercolor'}" class="bordercolor" width="100%">
      <tr>
        <td bgcolor="$color{'titlebg'}" height="24" class="titlebg" align="center"><font size="3"><B>$txt{'208'}</B></font></td>
      </tr>
    </table>
    </td>
  </tr><tr>
    <td valign="top"><BR>
    <table border="0" cellpadding="4" cellspacing="1" bgcolor="$color{'bordercolor'}" class="bordercolor" width="100%">
      <tr>
        <td bgcolor="$color{'catbg'}" height="19" class="catbg"><img src="$imagesdir/board.gif" alt="" border="0"> <font size="2"><b>$txt{'428'}</b></font></td>
      </tr><tr>
        <td bgcolor="$color{'windowbg2'}" class="windowbg2"><font size="1">
        - <a href="$cgi;action=modsettings">$txt{'222'}</a><br>
		<!-- Begin FTT Corporation language mod -->
        - <a href="$cgi;action=languagepanel">$langtxt{'04'}</a><br>
		<!-- End FTT Corporation language mod -->
	- <a href="$cgi;action=backupmanage2">Manage Backups</a><br>
        - <a href="$cgi&action=micon">$mitxt{'01'}</a><br>
        - <a href="$cgi&action=ssicmain">$ssictxt{'01'}</a><br>
        - <a href="$cgi;action=smilies">$asmtxt{'01'}</a><br>
        - <a href="$cgi;action=quizsettings">$quiztxt{'23'}</a><br>
        - <a href="$cgi;action=editnews">$txt{'7'}</a><br>
		<!-- Begin FTT Corporation language mod -->
        - <a href="$cgi;action=translatenews">$langtxt{'01'}</a><br>
		<!-- End FTT Corporation language mod -->
        - <a href="$cgi;action=modtemp">$txt{'216'}</a><br>
		<!-- Begin FTT Corporation language mod -->
        - <a href="$cgi;action=translatetemplate">$langtxt{'06'}</a><br>
		<!-- End FTT Corporation language mod -->
        - <a href="$cgi;action=advemail">$advemailtxt{'1'}</a><br>
        - <a href="$cgi;action=modagreement">$txt{'764'}</a><br>
		<!-- Begin FTT Corporation language mod -->
        - <a href="$cgi;action=translateagreement">$langtxt{'02'}</a><br>
		<!-- End FTT Corporation language mod -->
        - <a href="$cgi;action=modquotes">$quotetxt{'1'}</a><br> 
        - <a href="$cgi;action=newcalset">$ecaltxt{'60'}</a><br>
	  - <a href="$cgi&action=chatset1">$chadmtxt{'6'}</a><br>
<!--- Deleted for Notify Plus 2.2 --->
<!---   - <a href="$cgi;action=setcensor">$txt{'135'}</a> --->
<!--- Deleted for Notify Plus 2.2 --->

<!--- Added for Notify Plus 2.2 --->
~;
	# Only show when Guestnotification is on
	if ($enable_notification_guest) {
		$yymain .= qq~
        - <a href="$cgi;action=setcensor">$txt{'135'}</a><br>
        - <a href="$cgi;action=showguestnotify">$notify_txt{'62'}</a>
~;
	}
	else {
		$yymain .= qq~
        - <a href="$cgi;action=setcensor">$txt{'135'}</a>
~;
	}

$yymain .= qq~
<!--- /Added for Notify Plus 2.2 --->

        </font></td>
      </tr>
    </table><BR>
    <table border="0" cellpadding="4" cellspacing="1" bgcolor="$color{'bordercolor'}" class="bordercolor" width="100%">
      <tr>
        <td bgcolor="$color{'catbg'}" height="19" class="catbg"><img src="$imagesdir/board.gif" alt="" border="0"> <font size="2"><b>$txt{'427'}</b></font></td>
      </tr><tr>
        <td bgcolor="$color{'windowbg2'}" class="windowbg2"><font size="1">
        - <a href="$cgi;action=managecats">$txt{'3'}</a><br>
        - <a href="$cgi;action=manageboards">$txt{'4'}</a><br>
		<!-- Begin FTT Corporation language mod -->
        - <a href="$cgi;action=translateboards">$langtxt{'03'}</a><br>
		<!-- End FTT Corporation language mod -->
        - <a href="$cgi;action=managesubcats">Edit Sub Categories (create/remove)</a><br>
        - <a href="$cgi;action=morebcoptions">$mbco{'1'}</a><br>
        </font></td>
      </tr>
    </table><BR>
    <table border="0" cellpadding="4" cellspacing="1" bgcolor="$color{'bordercolor'}" class="bordercolor" width="100%">
      <tr>
        <td bgcolor="$color{'catbg'}" height="19" class="catbg"><img src="$imagesdir/board.gif" alt="" border="0"> <font size="2"><b>$txt{'426'}</b></font></td>
      </tr><tr>
        <td bgcolor="$color{'windowbg2'}" class="windowbg2"><font size="1">
        - <a href="$cgi;action=viewmembers;sort=last">$txt{'5'}</a><br>
        - <a href="$cgi;action=modmemgr">$txt{'8'}</a><br>
        - <a href="$cgi;action=mailing">$txt{'6'}</a><br>
        - <a href="$cgi;action=imsend;adminim=1">$imtxt{'02'}</a><br>
        - <a href="$cgi;action=ipban">$txt{'206'}</a><br>
        - <a href="$cgi;action=setreserve">$txt{'207'}</a><BR>
        - <a href="$cgi;action=setmembmap">$maptxt{'08'}</a>
        </font></td>
      </tr>
<!--- Added for Notify Plus 2.2 --->
~;
if ($enable_mailinglist == 1) {

	# Open default Mailinglist Text
	fopen(FILE, "$vardir/mailtext.txt");
	@mailtext = <FILE>;
	fclose(FILE);

	# Get date
	($dummy1, $dummy2, $dummy3, $ml_date) = split(/\|/, @mailtext[0]);
	chomp($ml_date);
	&timeformat($ml_date,0);
	$newml_date = $newformat;

$yymain .= qq~
    </table><BR>
    <table border="0" cellpadding="4" cellspacing="1" bgcolor="$color{'bordercolor'}" class="bordercolor" width="100%">

      <tr>


        <td bgcolor="$color{'catbg'}" height="19" class="catbg"><img src="$imagesdir/board.gif" alt="" border="0"> <font size="2"><b>$notify_txt{'58'}</b></font></td>
      </tr><tr>
        <td bgcolor="$color{'windowbg2'}" class="windowbg2"><font size="1">
        <font size="1">$notify_txt{'33'} $newml_date</font><br>
        - <a href="$cgi;action=viewmailinglist">$notify_txt{'20'}</a><br>
        - <a href="$cgi;action=sendmailinglist">$notify_txt{'21'}</a><br>
        </font></td>

      </tr>
~;
}

$yymain .= qq~
<!--- /Added for Notify Plus 2.2 --->

    </table><BR>
    <table border="0" cellpadding="4" cellspacing="1" bgcolor="$color{'bordercolor'}" class="bordercolor" width="100%">
      <tr>
        <td bgcolor="$color{'catbg'}" height="19" class="catbg"><img src="$imagesdir/board.gif" alt="" border="0"> <font size="2"><b>$txt{'501'}</b></font></td>
      </tr><tr>
        <td bgcolor="$color{'windowbg2'}" class="windowbg2"><font size="1">
        - <a href="$cgi;action=clean_log" onclick="return confirm('$txt{'203'}')">$txt{'202'}</a><br>
        - <a href="$cgi;action=boardrecount">$txt{'502'}</a><br>
        - <a href="$cgi;action=membershiprecount">$txt{'504'}</a><br>
        - <a href="$cgi;action=rebuildmemnumb">$membtxt{'25'}</a><br>
        - <a href="$cgi;action=rebuildmemlist">$txt{'593'}</a><BR>
        - <font size="1">($txt{'595'})</font>
        <form action="$cgi;action=removeoldthreads" method="POST">
        $txt{'124'} <input type=text name="maxdays" size="2" value="$maxdays"> $txt{'579'}
        <input type=submit value="$txt{'31'}"></form>
        </font></td>
      </tr>
    </table>
    </td>
    <td width="6">&nbsp;</td>
    <td valign="top"><BR>
    <table border="0" cellpadding="5" cellspacing="1" align="center" bgcolor="$color{'bordercolor'}" class="bordercolor" width="100%">
      <tr>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}" width="100%">
        <table width="100%" cellpadding="4">
          <tr>
            <td class="windowbg2" bgcolor="$color{'windowbg2'}" valign="middle" align="center" width="50"><img src="$imagesdir/administrator.gif" border="0" alt="" usemap="#egg"></td>
            <td class="windowbg2" bgcolor="$color{'windowbg2'}">
            <font size="1"><B>$greet_message $settings[1]!</B><BR><BR>

            $txt{'644'}</font></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    <BR>
    <table border="0" cellpadding="5" cellspacing="1" align="center" bgcolor="$color{'bordercolor'}" class="bordercolor" width="100%">
      <tr>
	<td class="catbg" bgcolor="$color{'catbg'}" colspan="2"><img src="$imagesdir/info.gif" alt="" border="0"> <font size="2"><B>$txt{'645'}</B></font></td>
      </tr><tr>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}" colspan="2"><font size="1">
        <a href="$scripturl?action=stats">$txt{'795'}</a><BR>
        <a href="$scripturl?action=showclicks">$txt{'693'}</a>
		<!-- Begin FTT Corporation language mod -->
        <br><a href="$scripturl?action=languagelog">$langtxt{'05'}</a>
		<!-- End FTT Corporation language mod -->
        <br><b>$txt{'425'}:</b> $YaBBversion/<img src="http://www.yabbforum.com/images/version/versioncheck.gif">
        <BR>(<a href="$cgi;action=detailedversion">$txt{'429'}</a>)
        </font></td>
      </tr>
    </table><BR>
    <table border="0" cellpadding="5" cellspacing="1" align="center" bgcolor="$color{'bordercolor'}" class="bordercolor" width="100%">
      <tr>
	<td class="catbg" bgcolor="$color{'catbg'}" colspan="2"><img src="$imagesdir/info.gif" alt="" border="0"> <font size="2"><B>$txt{'571'}</B></font></td>
      </tr><tr>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}" colspan="2">
        <font size="1"><BR><i><B>Service Pack l:</B></i> Special thanks to Corey Chapman, Bjoern Berg, Dave Baughman, Tim
        Ceuppens, Jay Silverman and Gunther Meyer.
        <BR><BR><i><B>YaBB 1 Gold:</B></i> Corey Chapman, Darya Misse, Popeye, Michael Prager, Dave Baughman,
        Dave G, Carey P, Christian Land, Tim Ceuppens, ejdmoo, StarSaber, Parham and the rest for helping out with
        graphics, code and other things :-)
        <BR><BR><i><B>YaBB 1 Final:</B></i> Zef Hemel, Jeff Lewis, Christian Land, Corey Chapman, Peter Crouch
        and a bunch of others we want to thank!</font>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
~;
	$yytitle = "$txt{'208'}";
	&template;
	exit;
}

sub FullStats {
	&is_admin;
	my($numcats, $numboards, @categories, @catboards, @curcataccess, $curcat, $curcatname, $curcataccess, $curboard, $threadcount, $messagecount, $maxdays, $totalt, $totalm, $avgt, $avgm);
	my($memcount, $latestmember) = &MembershipGet;
	&LoadUser($latestmember);
	$thelatestmember = qq~<font size="2"><B>$txt{'656'}</B></font> <font size="1"><a href="$scripturl?action=viewprofile;username=$useraccount{$latestmember}">$userprofile{$latestmember}->[1]</a></font>~;
	$memcount ||= 1;

	fopen(FILE, "$vardir/cat.txt");
	@categories = <FILE>;
	fclose(FILE);
	$yyCatsLoaded = 1;
	$numcats = @categories; # get the number of categories
	foreach $curcat (@categories) {
		chomp $curcat;
		fopen(CATFILE, "$boardsdir/$curcat.cat");
		$curcatname = <CATFILE>;
		$curcataccess = <CATFILE>;
		@catboards = <CATFILE>;
		fclose(CATFILE);
		chomp $curcatname;
		chomp $curcataccess;
		$yyAccessCat{$curcat} = $settings[7] eq 'Administrator' || $moderators{$username} || ! $curcataccess;
		unless( $yyAccessCat{$curcat} ) {
			foreach ( split(/\,/, $curcataccess) ) {
				if( $_ && $_ eq $settings[7] ) { $yyAccessCat{$curcat} = 1; last; }
			}
		}
		foreach $curboard (@catboards) {
			chomp $curboard;
			$numboards++;
			( $threadcount, $messagecount ) = &BoardCountGet($curboard);
			$totalt += $threadcount;
			$totalm += $messagecount;
		}
	}
	$avgt = $totalt / $memcount;
	$avgm = $totalm / $memcount;
	&LoadAdmins;
	&LoadLogCount;

	$yymain .= qq~
<table border="0" width="70%" cellspacing="1" cellpadding="3" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}">
    <img src="$imagesdir/info.gif" alt="">
    <font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'645'}</b></font></td>
  </tr><tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}"><img src="$imagesdir/cat.gif" alt="" border="0"> <font size="2"><B>$txt{'94'}</B></font></td>
  </tr><tr>
    <td bgcolor="$color{'windowbg2'}" class="windowbg2">
    <table border="0" cellpadding="3" cellspacing="0">
      <tr>
        <td><font size="2"><b>$txt{'488'}</b></font></td>
        <td><font size="1">$memcount</font></td>
      </tr><tr>
        <td><font size="2"><b>$txt{'489'}</b></font></td>
        <td><font size="1">$totalm</font><BR></td>
      </tr><tr>
        <td><font size="2"><b>$txt{'490'}</b></font></td>
        <td><font size="1">$totalt</font></td>
      </tr><tr>
        <td><font size="2"><b>$txt{'658'}</b></font></td>
        <td><font size="1">$numcats</font></td>
      </tr><tr>
        <td><font size="2"><b>$txt{'665'}</b></font></td>
        <td><font size="1">$numboards</font></td>
      </tr><tr>
        <td><font size="2"><b>$txt{'691'} <font size="1">($txt{'692'})</font>:</b></font></td>
        <td><font size="1">$yyclicks</font> &nbsp;<font size="2">(<a href="$scripturl?action=showclicks">$txt{'693'}</a>)</font></td>
      </tr>
    </table>
    </td>
  </tr><tr>
    <td bgcolor="$color{'windowbg'}" class="windowbg" height="21">
    <img src="$imagesdir/cat.gif" alt="" border="0"> <font size="2"><B>$txt{'657'}</B></font><BR></td>
  </tr><tr>
    <td bgcolor="$color{'windowbg2'}" class="windowbg2">
    $thelatestmember<BR>
    <font size="2"><B>$txt{'659'}</b></font><font size="1">
~;
	require "$sourcedir/Recent.pl";
	$recentsender = "admin";
	&LastPost;
	$yymain .= qq~
    </font><BR><BR>
    <font size="2"><B>$txt{'684'}:</B></font> <font size="1">$administrators</font><BR><BR>
    <font size="2"><b>$txt{'425'}:</b></font>
    <font size="1">$YaBBversion</font>/<img src="http://www.yabbforum.com/images/version/versioncheck.gif">
    <br><font size="2">(<a href="$cgi;action=detailedversion">$txt{'429'}</a>)</font><br></td>
  </tr>
</table>~;
	$yytitle = "$txt{'208'}";
	&template;
	exit;
}

# advanced forum log analysis mod
#	sub ShowClickLog is moved into ShowClicks.pl to make updates easier
# end advanced forum log analysis mod
sub AdminMembershipRecount {
	&is_admin;
	&MembershipCountTotal;
	$yymain .= qq~<b>$txt{'505'}</b>~;
	$yytitle = $txt{'504'};
	&template;
	exit;
}

sub AdminBoardRecount {
	&is_admin;
	my( $curcat, $curcatname, $curcataccess );
	my( @categories, @catboards );
	fopen(FILE, "$vardir/cat.txt");
	@categories = <FILE>;
	fclose(FILE);
	foreach $curcat (@categories) {
		chomp $curcat;
		fopen(FILE, "$boardsdir/$curcat.cat");
		chomp( $curcatname = <FILE> );
		chomp( $curcataccess = <FILE> );
		@catboards = <FILE>;
		fclose(FILE);
		foreach (@catboards) {
			chomp;
			&BoardCountTotals($_);
		}
	}
	$yymain .= qq~<b>$txt{'503'}</b>~;
	$yytitle = $txt{'502'};
	&template;
	exit;
}

sub RebuildMemList { 
	&is_admin; 

	opendir(DIR, "$memberdir") || die "$txt{'230'} ($memberdir) :: $!"; 
	@contents = readdir(DIR); 
	closedir(DIR); 

	my %members;
	my @mem_groups;
	foreach my $file( @contents) { 
		$file =~ m~(.+)\.(.+)~; 
		if( $2 eq 'dat') { 
			if( fopen(MEMFILE, "$memberdir/$file")) { 
				@memberdata = <MEMFILE>; 
				fclose(MEMFILE); 
				$date1 = $memberdata[14]; $date2 = 0; 
				&calcdaystime; # returns result in $result 
				$members{ $1 } = $result;
				chomp $memberdata[1]; 
				chomp $memberdata[7];
				if ($memberdata[7]) { push @mem_groups, $1."|".$memberdata[7]."|".$memberdata[1]."\n"; }
			} 
		}
	} 
 
	fopen(MEMLIST, ">$memberdir/memberlist.txt", 1);
	foreach my $member( sort { $members{$b} <=> $members{$a} } keys %members){ 
		print MEMLIST "$member\n"; 
	}  
	fclose(MEMLIST); 

	# Forum Staff Info - Create Membergroup list
	fopen(FILE, ">$vardir/mem_groups.txt", 1);
	print FILE @mem_groups;
	fclose(FILE);


### Newcalendar mod start
	&RebuildMemBirth;
### Newcalendar mod end

	$yymain .= qq~<b>$txt{'594'}</b>~; 
	$yytitle = "$txt{'593'}"; 
	&template; 
	exit; 
} 


### Newcalendar mod start
sub RebuildMemBirth {
	if(-e "$memberdir/memberbirth.txt") { unlink("$memberdir/memberbirth.txt"); }
	fopen(FILE, "$memberdir/memberlist.txt");
	@memberlist = <FILE>;
	$memcount = @memberlist;
	@membername = @memberlist;
	fclose(FILE);
	fopen(FILE, ">$memberdir/memberbirth.txt", 1);
	for($i=0;$i<$memcount;$i++) {
		chomp(@membername);
		$membname = $membername[$i];
		fopen(MEMBERFILE,"$memberdir/$membname.dat");
		@member = <MEMBERFILE>;
		fclose(MEMBERFILE);
		chomp(@member);
		$membdisname = $member[1];
		$birthdate = $member[16];
		if ($birthdate ne "") {	print FILE "$membname|$membdisname|$birthdate\n"; }
	}
	fclose(FILE);
	chmod(0666,"$memberdir/memberbirth.txt");
}
### Newcalendar mod end

sub RebuildMemNumb {
	&is_admin;
	fopen(FILE, "$memberdir/memberlist.txt");
	@memberlist = <FILE>;
	$memcount = @memberlist;
	fclose(FILE);
	fopen(FILE, "$memberdir/membernumb.txt");
	@membernumb = <FILE>;
	$numcount = @membernumb;
	fclose(FILE);
	$membxadmin = $memcount - 1;
	$numbxadmin = $numcount - 1;
$yymain .= qq~
<table border=0 width="300" cellspacing=1 cellpadding="2" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}">
    <img src="$imagesdir/guest.gif" alt="" border="0">&nbsp;
    <font size=2 class="text1" color="$color{'titletext'}"><b>$membtxt{'25'}</b></font>
    </td>
  </tr>
  <tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}">
    <font size="2">
    $membtxt{'26'}: $membxadmin<BR>
    $membtxt{'27'}: $numbxadmin
    </font>
  </td>
  </tr>
~;
	if ($membxadmin == $numbxadmin) {
	$yymain .= qq~
	  <tr>
	    <td class="windowbg" bgcolor="$color{'windowbg'}">
	    <font size="2">
	    $membtxt{'28'}
	    </font>
	    </td>
	  </tr>
	~;
	}
	else {
	$yymain .= qq~
	  <tr>
	    <td class="windowbg" bgcolor="$color{'windowbg'}">
	    <font size="2">
	    $membtxt{'29'}
	    </font>
	    </td>
	  </tr>
	  <tr>
	    <td class="windowbg" bgcolor="$color{'windowbg'}" align="center">
          <form action="$cgi;action=rebuildmemnumb2" method="POST">
          <input type=submit value="$membtxt{'25'}">
	    </form>
	    </td>
	  </tr>
	~;
	}
$yymain .= qq~
</table>
~;
	$yytitle = "$membtxt{'25'}";
	&template;
	exit;
}


sub RebuildMemNumb2 {
	&is_admin;
	if(-e "$memberdir/membernumb.txt") { unlink("$memberdir/membernumb.txt"); }
	&LoadMembNumber;
	$yySetLocation = qq~$cgi;action=mlall~;
	&redirectexit;
}

sub ViewMembers {

	#### Advanced Memberview Plus - version 3.1 ####

	&is_admin;

	$yytitle = "$txt{'9'}";

	# Load MemberGroups
	if(!$MemStatAdmin) {
		fopen(FILE, "$vardir/membergroups.txt");
		@membergroups = <FILE>;
		fclose(FILE);
	}

	# Load member list
	fopen(FILE, "$memberdir/memberlist.txt");
	@memberlist = <FILE>;
	fclose(FILE);
	$memcount = @memberlist;

	# Create memberlist
	@tmplist = @memberlist;
	$date2 = $date;
	for($i=0;$i<$memcount;$i++) {
		$membname = $memberlist[$i];
		chomp($membname);

		fopen(MEMBERFILE,"$memberdir/$membname.dat");
		@member = <MEMBERFILE>;
		fclose(MEMBERFILE);
		chomp @member;

		$date1 = $member[14];
		&calcdifference;
		$days_reg = $result;

		fopen(FILE,"$memberdir/$membname.ll");
		my ($userlastonline, $userlastpost, $userlastim) = <FILE>;
		fclose(FILE);
		chomp($userlastonline);
		chomp($userlastpost);
		chomp($userlastim);

		if ($userlastonline eq "") {$userlastonline = "-"; $tmpa = $days_reg;}
		else {$date1 = $userlastonline; &calcdifference; $userlastonline = $result; $tmpa = $userlastonline;}
		if ($userlastpost eq "") {$userlastpost = "-"; $tmpb = $days_reg;}
		else {$date1 = $userlastpost; &calcdifference; $userlastpost = $result; $tmpb = $userlastpost; }
		if ($userlastim eq "") { $userlastim = "-"; $tmpc = $days_reg;}
		else { $date1 = $userlastim; &calcdifference; $userlastim = $result; $tmpc = $userlastim; }

		$tmplist[$i] = qq~$membname|$member[1]|$member[6]|$member[7]|$member[14]|$days_reg|$userlastonline|$userlastpost|$userlastim|$tmpa|$tmpb|$tmpc~;
	}

	# Sort memberlist
	$sortmode = $INFO{'sort'};
	$sortorder = $INFO{'order'};

	if($sortmode eq "name") {@sortlist = map {$_->[0]} sort{uc($a->[2]) cmp uc($b->[2])} map { [ $_, (split /\|/)[0..2] ] } (@tmplist);}
	elsif($sortmode eq "posts") {@sortlist = map {$_->[0]} sort{($b->[3])<=>($a->[3])} map { [ $_, (split /\|/)[0..3] ] } (@tmplist);}
	elsif($sortmode eq "reg") {@sortlist = map {$_->[0]} sort{($b->[6])<=>($a->[6])} map { [ $_, (split /\|/)[0..6] ] } (@tmplist);}
	elsif($sortmode eq "last") {@sortlist = map {$_->[0]} sort{($a->[10])<=>($b->[10]) || ($a->[11])<=>($b->[11]) || ($a->[12])<=>($b->[12])} map { [ $_, (split /\|/)[0..12] ] } (@tmplist);}
	else {@sortlist = @tmplist;}

	if ($INFO{'order'} eq "reverse") {
		@sortlist = reverse @sortlist;
	} else {
		if ($sortmode eq "name") {$order_name = ";order=reverse";}
		elsif ($sortmode eq "posts") {$order_posts = ";order=reverse";}
		elsif ($sortmode eq "reg") {$order_reg = ";order=reverse";}
		elsif ($sortmode eq "last") {$order_last = ";order=reverse";}
	}
	if ($sortmode ne "") {$sortmode = ";sort=".$INFO{'sort'};}
	if ($sortorder ne "") {$sortorder = ";order=".$INFO{'order'};}

#	fopen(FILE,">$memberdir/memberlist.plus");
#		foreach $line (@sortlist) {
#			print FILE qq~$line\n~;
#		}
#	fclose(FILE);

	# Construct the page links for this board.
	if($INFO{'start'} eq "all") { $start = 0; $showall = 1; } 
	elsif($INFO{'start'}) { $start = $INFO{'start'}; }
	else { $start = 0; }
	$numbegin = ($start + 1);
	$numend = ($start + $MembersPerPage);
	if($numend > $memcount) { $numend = $memcount; }
	$b = $start;

	$indexdisplaynum = 3;	# max number of pages to display
	$startpage = 0;
	$tmpa = 1;
	$tmpx = int( $memcount / $MembersPerPage);
	if ($start >= (($indexdisplaynum-1) * $MembersPerPage)) {
		$startpage = $start - (($indexdisplaynum-1) * $MembersPerPage);
		$tmpa = int( $startpage / $MembersPerPage) + 1;
	}
	if ( $memcount >= $start + ($indexdisplaynum * $MembersPerPage)) {$endpage = $start + ($indexdisplaynum * $MembersPerPage); } else { $endpage = $memcount }
	if ($startpage > 0) { $pageindex = qq~<a href="$cgi;action=$action;start=0$sortmode$sortorder">1</a>&nbsp;...&nbsp;~; }
	if ($startpage == $MembersPerPage) { $pageindex = qq~<a href="$cgi;action=$action;start=0$sortmode$sortorder">1</a>&nbsp;~;}
	for( $counter = $startpage; $counter < $endpage; $counter += $MembersPerPage) {
		$pageindex .= $start == $counter && !$showall? qq~<B>$tmpa</B>&nbsp;~ : qq~<a href="$cgi;action=$action;start=$counter$sortmode$sortorder">$tmpa</a>&nbsp;~;
		++$tmpa;
	}
	$tmpx = $memcount - 1 - $MembersPerPage;
	$outerpn = int($tmpx / $MembersPerPage);
	$lastpn = int(($memcount - 1) / $MembersPerPage) + 1;
	$lastptn = ($lastpn - 1) * $MembersPerPage;
	if ($endpage < $memcount - $MembersPerPage) {$pageindexadd = qq~...&nbsp;~;}
	if ($endpage != $memcount) {$pageindexadd .= qq~<a href="$cgi;action=$action;start=$lastptn$sortmode$sortorder">$lastpn</a>&nbsp;~;}
	$pageindex .= $pageindexadd;
	if ($showall) {$pageindex .= qq~$txt{'190'}~; $MembersPerPage = $memcount; $startmode = qq~;start=all~; $heading = qq~$amv_txt{'16'} $memcount $amv_txt{'17'}~;}
	else {$pageindex .= qq~<a href="$cgi;action=$action;start=all$sortmode$sortorder">$txt{'190'}</a>~; $startmode = qq~;start=$start~; $heading = qq~$txt{'308'} $numbegin $txt{'311'} $numend ($txt{'309'} $memcount $txt{'310'})~;}

	# Display Page.
	$yymain = qq~
<script language="JavaScript1.2" src="$ubbcjspath" type="text/javascript"></script>
<form name="adv_memberview" action="$cgi;action=deletemultimembers;$startmode$sortmode$sortorder" method="POST" onSubmit="submitonce(this);">
<input type="hidden" name="button" value="0">
<table border="0" cellspacing="0" cellpadding="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td>
      <table border="0" cellspacing="1" cellpadding="4" width="100%">
        <tr>
          <td bgcolor="$color{'titlebg'}" align="center" class="titlebg" colspan="8"><font size="2" class="text1" color="$color{'titletext'}"><b>$heading</b></font></td>
        </tr><tr>
          <td class="catbg" bgcolor="$color{'catbg'}" width="25%"><a href="$cgi;action=viewmembers$startmode;sort=name$order_name"><b><font size="2">$txt{'68'}</font></b></a></td>
          <td class="catbg" bgcolor="$color{'catbg'}" width="8%" align="center"><a href="$cgi;action=viewmembers$startmode;sort=posts$order_posts"><b><font size="2">$txt{'86'}</font></b></a></td>
          <td class="catbg" bgcolor="$color{'catbg'}" width="20%" align="center"><a href="$cgi;action=viewmembers$startmode;sort=reg$order_reg"><b><font size="2">$txt{'233'}</font></b></a></td>
          <td class="catbg" bgcolor="$color{'catbg'}" width="21%" colspan="3" align="center"><a href="$cgi;action=viewmembers$startmode;sort=last$order_last"><b><font size="1">($amv_txt{'4'})</font><br><font size=2>$amv_txt{'5'} / $amv_txt{'6'} / $amv_txt{'7'}</font></b></a></td>
          <td class="catbg" bgcolor="$color{'catbg'}" width="20%" align="center"><b><font size="2">$txt{'87'}</font></b></td>
          <td class="catbg" bgcolor="$color{'catbg'}" width="6%" align="center"><b><font size="2">$amv_txt{'8'}?</font></b></td>
        </tr>~;

	$numshown = 0; $actualnum = 0;
	while($numshown < $MembersPerPage) {
		$numshown++;
		my ($tmp_username, $tmp_name, $tmp_posts, $tmp_memgroup, $tmp_reg, $tmp_days, $tmp_lastonline, $tmp_lastpost, $tmp_lastim, $tmp_a, $tmp_b, $tmp_c) = split(/\|/, $sortlist[$b]);
		if (!$tmp_username) {next;}
		$tmp_username =~ s/[\n\r]//g;
		&FormatUserName($tmp_username);
		$b++;

		# Get Membergroup Info
		if ($MemStatAdmin) {
			if ($tmp_memgroup eq "Administrator") {$memberinfo = qq~<i>$MemStatAdmin</i>~;} 
			elsif ($tmp_memgroup eq "Global Moderator") {$memberinfo = qq~<i>$MemStatGMod</i>~;}
			elsif ($tmp_memgroup ne "") {$memberinfo = $tmp_memgroup;}
			elsif ($showallgroups eq "1") {
				$msstatcount = "0";
				if( $tmp_posts >= $MemPostNewbie) {$memberinfo = "$MemStatNewbie";}
				while($MemStat[$msstatcount]) {
					if( $tmp_posts >= $MemPostNum[$msstatcount] && $MemPostNum[$msstatcount] ne "x") {$memberinfo = "$MemStat[$msstatcount]";}
					++$msstatcount;
				}
			}
			else {$memberinfo = "&nbsp;";}
		} else {
			if ($tmp_memgroup eq "Administrator") {$memberinfo = qq~<i>$membergroups[0]</i>~;}
			elsif ($tmp_memgroup ne "") {$memberinfo = $tmp_memgroup;}
			elsif ($showallgroups eq "1") {
				if($tmp_posts > $GodPostNum) {$memberinfo = "$membergroups[6]";}
				elsif($tmp_posts > $SrPostNum) {$memberinfo = "$membergroups[5]";}
				elsif($tmp_posts > $FullPostNum) {$memberinfo = "$membergroups[4]";}
				elsif($tmp_posts > $JrPostNum) {$memberinfo = "$membergroups[3]";}
				else {$memberinfo = "$membergroups[2]";}
			}
			else {$memberinfo = "&nbsp;";}
		}

		if ($tmp_username eq 'admin') {
			$addel = qq~<td class="windowbg" bgcolor="$color{'windowbg'}" width="6%" align="center">&nbsp;</td>~;
		} else {
			$mem_data .= qq~"$tmp_days|$tmp_posts|$tmp_a|$tmp_b|$tmp_c|$tmp_username", ~;
			$addel = qq~<td class="windowbg" bgcolor="$color{'windowbg'}" width="6%" align="center"><input type="checkbox" name="member$numshown" value="$tmp_username"></td>~;
			$actualnum++
		}

		if ($tmp_lastonline > 90) { $tmp_lastonline = qq~<font color="red"><b>$tmp_lastonline</b></font>~; }
		elsif ($tmp_lastonline > 30) { $tmp_lastonline = qq~<b>$tmp_lastonline</b>~; }
		if ($tmp_lastpost > 90) { $tmp_lastpost = qq~<font color="red"><b>$tmp_lastpost</b></font>~; }
		elsif ($tmp_lastpost > 30) { $tmp_lastpost = qq~<b>$tmp_lastpost</b>~; }
		if ($tmp_lastim > 90) { $tmp_lastim = qq~<font color="red"><b>$tmp_lastim</b></font>~; }
		elsif ($tmp_lastim > 30) { $tmp_lastim = qq~<b>$tmp_lastim</b>~; }

		$yymain .= qq~
        <tr>
          <td class="windowbg" bgcolor="$color{'windowbg'}" width="25%"><font size="2"><a href="$cgi;action=viewprofile;username=$useraccount{$tmp_username}">$tmp_name</a></font></td>
          <td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center" width="8%"><font size="2">$tmp_posts</font></td>
          <td class="windowbg" bgcolor="$color{'windowbg2'}" align="center" width="20%"><font size="1">$tmp_reg</font></td>
          <td class="windowbg" bgcolor="$color{'windowbg'}" align="center" width="7%"><font size="2">$tmp_lastonline</font></td>
          <td class="windowbg" bgcolor="$color{'windowbg'}" align="center" width="7%"><font size="2">$tmp_lastpost</font></td>
          <td class="windowbg" bgcolor="$color{'windowbg'}" align="center" width="7%"><font size="2">$tmp_lastim</font></td>
          <td class="windowbg2" bgcolor="$color{'windowbg2'}" width="20%"><font size="2">$memberinfo</font></td>
          $addel
        </tr>~;
	}

	$yymain .= qq~
<script language="JavaScript1.2" type="text/javascript">
<!-- 
    document.write('<tr>');
    document.write('<td class="catbg" bgcolor="$color{'catbg'}" colspan="7" align="right"><font size="2"><b>$amv_txt{'39'} - ');
    document.write('<select name="field1">');
    document.write('<option value="0">$amv_txt{'30'}');
    document.write('<option value="1">$amv_txt{'31'}');
    document.write('<option value="2" selected>$amv_txt{'32'}');
    document.write('<option value="3">$amv_txt{'33'}');
    document.write('<option value="4">$amv_txt{'34'}');
    document.write('</select> ');
    document.write('<select name="field2">');
    document.write('<option value="0">$amv_txt{'35'}');
    document.write('<option value="1">$amv_txt{'36'}');
    document.write('<option value="2" selected>$amv_txt{'37'}');
    document.write('</select> ');
    document.write('<input type="text" size="5" name="number" value="30" maxlength="5" onkeydown="javascript: if(navigator.appName == '+"'Microsoft Internet Explorer'"+') {if ((self.event.keyCode < 46 && self.event.keyCode != 8) || self.event.keyCode > 58 ) {return false;}}"> &nbsp; $amv_txt{'38'}');
    document.write('</b></font></td>');
    document.write('<td class="catbg" bgcolor="$color{'catbg'}" align="center"><input type="checkbox" name="check_all" value="1" onclick="javascript: if (this.checked) checkAll(true); else checkAll(false);"></td>');
    document.write('</tr>');
//-->
</script>

        <tr>
          <td class="catbg" bgcolor="$color{'catbg'}" colspan="8">
            <table border="0" width="100%" cellspacing="4" cellpadding="1">
              <tr>
                <td width="30%"><font size=""2><b>$amv_txt{'1'}:</b></font></td>
                <td align="right" width="70%"><input type="text" value="" size="42" name="emailsubject" style="width:100%"></td>
              </tr><tr>
                <td width="30%"><font size="2"><b>$amv_txt{'2'}:</b></font><br><font size="1">($amv_txt{'3'})</font></td>
                <td align="right" width="70%"><textarea cols="40" rows="5" name="emailtext" style="width:100%"></textarea></td>
              </tr>
            </table>
          </td>
        </tr><tr>
          <td colspan="8">
            <table border="0" width="100%">
              <tr>
                <td><font size="2" class="text1" color="$color{'titletext'}"><b>$txt{'139'}: $pageindex</b></font></td>
                <td align="right"><input type="submit" value="$amv_txt{'14'}" onclick="javascript:window.document.adv_memberview.button.value = '1'; return confirm('$amv_txt{'19'}')"> &nbsp; <input type="submit" value="$amv_txt{'15'}" onclick="javascript:window.document.adv_memberview.button.value = '2'; return confirm('$amv_txt{'20'}')"></td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</form>

<script language="JavaScript1.2" type="text/javascript">
<!-- 
mem_data = new Array ( "", $mem_data"" );

function checkAll(ticked) {

  if(navigator.appName == "Microsoft Internet Explorer") {var alt_pressed = self.event.altKey; var ctrl_pressed = self.event.ctrlKey;}
  else {var alt_pressed = false; var ctrl_pressed = false;}

  var limit = document.adv_memberview.number.value; 
  for (var i = 1; i <= $actualnum; i++) {
    var check = 0;
    var value1 = eval(mem_data[i].split("|")[document.adv_memberview.field1.value]);
    if (document.adv_memberview.field2.value == "0" && value1 < limit) { check = 1;}
    if (document.adv_memberview.field2.value == "1" && value1 == limit) { check = 1;}
    if (document.adv_memberview.field2.value == "2" && value1 > limit) { check = 1;}
    if (ctrl_pressed == true) {check = 0;}
    if (alt_pressed == true) {check = 1;}
    if (check == 1) {document.adv_memberview.elements[i].checked = ticked;}
  }
}
//-->
</script>
~;
	&template;
	exit;

	#### Advanced Memberview Plus - version 3.1 ####

}

sub DeleteMultiMembers {
&is_admin;
my(@deaduser);
my($count, $memnum, $currentmem, $start, $sortmode, $sortorder, @deademails);

chomp $FORM{"button"};
chomp $FORM{"emailsubject"};
chomp $FORM{"emailtext"};
if ($FORM{"button"} ne "1" && $FORM{"button"} ne "2") {&fatal_error($txt{'1'});}

fopen(FILE, "$memberdir/memberlist.txt");
@memnum = <FILE>;
fclose(FILE);

$count = 0;
while (@memnum >= $count) {
$currentmem = $FORM{"member$count"};
if (exists $FORM{"member$count"}) {
	fopen(FILE, "$memberdir/$currentmem.dat");
	@memsettings=<FILE>;
	fclose(FILE);
	foreach (@memsettings) {
		$_ =~ s~[\n\r]~~g;
	}

	push(@deademails,$memsettings[2]);

	push(@deaduser,$currentmem);

      # Advanced System eMails Mod
      &advsendmail3(14,$memail,$member{'username'},"");
      # End Advanced System eMails Mod

	$emailsubject = $FORM{"emailsubject"};
	$emailsubject =~ s~\[name\]~$memsettings[1]~ig;
	$emailsubject =~ s~\[username\]~$currentmem~ig;
	$emailsubject =~ s~\[password\]~$memsettings[0]~ig;

	$emailtext = $FORM{"emailtext"};
	$emailtext =~ s~\[name\]~$memsettings[1]~ig;
	$emailtext =~ s~\[username\]~$currentmem~ig;
	$emailtext =~ s~\[password\]~$memsettings[0]~ig;

	if ($emailtext ne "") {&sendmail( $memsettings[2] , $emailsubject, $emailtext);}

	if ($FORM{'button'} eq "2") {

	unlink("$memberdir/$currentmem.dat");
	unlink("$memberdir/$currentmem.msg");
	unlink("$memberdir/$currentmem.log");
	unlink("$memberdir/$currentmem.outbox");
	unlink("$memberdir/$currentmem.quiz");
	unlink("$memberdir/$currentmem.quizlog");
	unlink("$memberdir/$currentmem.imconfig");
	unlink("$memberdir/$currentmem.ll");
	unlink("$memberdir/$currentmem.buddy");
	unlink("$memberdir/$currentmem.storage");
# --- Added for Notify Plus 2.2 --- #
	unlink("$memberdir/$currentmem.da2");
	}
	# Delete Member from Mailinglist
	if ($enable_mailinglist == 1) {

		# Read Mailinglist File
		fopen(FILE, "$vardir/mailinglist.txt");
		@mailinglist = <FILE>;
		fclose (FILE);

		# Open file again to update !
		fopen(FILE, ">$vardir/mailinglist.txt");

		# -----------------------------------------------------------------------------
		# Read the mailinglist File
		# -----------------------------------------------------------------------------
		foreach $line (@mailinglist) {

			chomp($line);
			local($user, $email, $format, $oldsubscribed) = split(/\|/, $line);

			# Write Member when not deleted
			if ($user ne $currentmem) {
				print FILE "$line\n";
			}
		}

		# Close file
		fclose (FILE);
	}
# --- /Added for Notify Plus 2.2 --- #

	unlink("$memberdir/$currentmem.yam");

	opendir (DIRECTORY,"$datadir");
	@dirdata = readdir(DIRECTORY);
	closedir (DIRECTORY);
	$umail = $memsettings[2];

	foreach $filename (@dirdata) {
		unless( $filename =~ m~mail\A~ ) { next; }
		fopen(FILE, "$datadir/$filename");
		@entries = <FILE>;
		fclose(FILE);

		fopen(FILE, ">$datadir/$filename");
		foreach $entry (@entries) {
			$entry =~ s/[\n\r]//g;
			if ($entry ne $umail) {
				print FILE "$entry\n";
			}
		}
		fclose(FILE);

	}

	fopen(FILE, "$memberdir/memberlist.txt");
	@members = <FILE>;
	fclose(FILE);
	fopen(FILE, ">$memberdir/memberlist.txt", 1);
	my $memberfound = 0;
	my $lastvalidmember = '';
	foreach $curmem (@members) {
		chomp $curmem;
		if($curmem ne $currentmem) { print FILE "$curmem\n"; $lastvalidmember = $curmem; }
		else { ++$memberfound; }
	}
	fclose(FILE);
	my $membershiptotal = @members - $memberfound;
	fopen(FILE, "+>$memberdir/members.ttl");
	print FILE qq~$membershiptotal|$lastvalidmember~;
	fclose(FILE);

	# For security, remove username from mod position
	fopen(FILE, "$vardir/cat.txt"); @categories = <FILE>; fclose(FILE);

	foreach $curcat (@categories) {
		$curcat =~ s/[\n\r]//g;
		fopen(CAT, "$boardsdir/$curcat.cat"); @catinfo = <CAT>; fclose(CAT);

		foreach $curboard (@catinfo) {
				$curboard =~ s/[\n\r]//g; chomp $curboard;

				fopen(BOARD, "$boardsdir/$curboard.dat"); @boardinfo = <BOARD>; fclose(BOARD);

				$boardinfo[2] =~ s/[\n\r]//g; $boardinfo[2] =~ /^\|(.*?)\|$/;
				$mods = $1 or $mods = $boardinfo[2];
                                $mods =~ s/(\s*)//g;              # remove all whitespaces
				$mods =~ s/(^(\|)+)?((\|)+$)?//;  # remove unnecessary front and back separator
				$mods =~ s/(\|)+/\|/g;            # replace multiple separators with one separator

				my @mod_ary = split(/\|/, $mods);
				my @new_mod_ary;
				my $mods_changed = 0;
				foreach my $mod( @mod_ary) {
					if( $currentmem ne $mod) {
						push( @new_mod_ary, $mod);
					} else {
						$mods_changed = 1;
					}
				}				
				$mods = join( "|", @new_mod_ary);

				if ($mods_changed == 1)
				{
					$boardinfo[2] = $mods;
					fopen(BOARD, ">$boardsdir/$curboard.dat", 1);
					print BOARD @boardinfo;
					fclose(BOARD);
				}
		}
	}
}
	$count++;
}

if ($INFO{'start'} ne "" ) {$startmode = ";start=".$INFO{'start'};}
if ($INFO{'sort'} ne "" ) {$sortmode = ";sort=".$INFO{'sort'};}
if ($INFO{'order'} ne "" ) {$sortorder = ";order=".$INFO{'order'};}


require "$sourcedir/Notify.pl";
remove_notifications(@deademails);
	# Forum Staff Info - Delete User from Membergroup list
	fopen(FILE,"+<$vardir/mem_groups.txt");
		seek FILE, 0, 0;
		@mem_groups = <FILE>;
		truncate FILE, 0;
		seek FILE, 0, 0;
		for ($a = 0; $a < @mem_groups; $a++) {
			foreach $currentmem (@deaduser) {
				if ( $mem_groups[$a] =~ m~\A$currentmem\|~o ) { $mem_groups[$a] = ""; last; }
			}
		}
		print FILE @mem_groups;
	fclose(FILE);

$yySetLocation = qq~$scripturl?action=viewmembers~;
&redirectexit;
}

sub MailingList {
	&is_admin;
	fopen(FILE, "$memberdir/memberlist.txt");
	@memberlist = <FILE>;
	fclose(FILE);
	$yymain .= qq~
<form action="$cgi;action=ml" method="POST">
<table border="0" width="600" cellspacing="1" cellpadding="4" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}">
    &nbsp;<img src="$imagesdir/email.gif" alt="" border="0">
    <font size="2" class="text1" color="$color{'titletext'}"><b>$txt{'6'}</b></font></td>
  </tr><tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}">
    <br><font size="1">$txt{'735'}</font><br><br></td>
  </tr><tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}">
    <textarea cols="70" rows="7" name="emails">
~;
	foreach $curmem (@memberlist) {
		$curmem =~ s/[\n\r]//g;
		fopen(FILE, "$memberdir/$curmem.dat");
		@memsettings = <FILE>;
		fclose(FILE);
		$email = $memsettings[2];
		$email =~ tr/\r//d;
		$email =~ tr/\n//d;
		$yymain .= "$email; ";
	}
      my ($tmpsubj, $tmpbody);
	fopen(FILE, "$vardir/advemails.txt");
	@EMAILTEMPL = <FILE>;
	fclose(FILE);
      $tmpsubj = substr(@EMAILTEMPL[15],0,index(@EMAILTEMPL[15],'|'));
      $tmpbody = substr(@EMAILTEMPL[15],index(@EMAILTEMPL[15],'|')+1,length(@EMAILTEMPL[15]));
      $tmpbody =~ s~\\n~\n~g;

	$yymain .= qq~
</textarea><BR><BR></td>
  </tr><tr>
<td bgcolor="$color{'titlebg'}" class="titlebg"><font size="2" color="$color{'titletext'}" class="text1"><b>$txt{'338'}</b></font></td>
  </tr><tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}">
    <BR><font size="1">$advemailtxt{'35'}</font><BR><BR></td>
  </tr> <tr>
    <td bgcolor="$color{'windowbg2'}" class="windowbg2">
    <input type=text name="subject" size=30 value="$tmpsubj"><br><br>
    <textarea cols=70 rows=9 name=message>$tmpbody</textarea><br><br>
    <center><input type="submit" value="$txt{'339'}"></center></td>
  </tr>
</table>
</form>
~;
	$yytitle = "$txt{'6'}";
	&template;
	exit;
}

sub ml {
	&is_admin;
	$FORM{'emails'} = "; " . $FORM{'emails'};
	@emails = split(/;\s*/, $FORM{'emails'});
# Advanced System eMail Mod
	foreach $curmem (@emails) {
		&advsendmail6( $curmem, "$FORM{'subject'}", "$FORM{'message'}");
	}
# End Advanced System eMail Mod
	$yySetLocation = qq~$cgi;action=admin~;
	&redirectexit;
}

sub clean_log {
	&is_admin;
	# Overwrite with a blank file
	fopen(FILE, ">$vardir/log.txt");
	print FILE '';
	fclose(FILE);
	&Admin;
}

sub ipban {
	&is_admin;
	my( @ipban, @emailban, $curban );
	fopen(FILE, "$vardir/ban.txt");
	@ipban = <FILE>;
	fclose(FILE);
	fopen(FILE, "$vardir/ban_email.txt");
	@emailban = <FILE>;
	fclose(FILE);
	fopen(FILE, "$vardir/ban_memname.txt");
	@memnameban = <FILE>;
	fclose(FILE);
	$yymain .= qq~
<table border="0" width="550" cellspacing="1" bgcolor="$color{'titlebg'}" class="bordercolor" align="center">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}">
    <img src="$imagesdir/ban.gif" alt="" border="0">
    <font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'340'}</b></font></td>
  </tr><tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}" align="center">
    <font size="2"><form action="$cgi;action=ipban2" method="POST">
    <BR>$txt{'724'}<br>
    <textarea cols="60" rows="6" name="ban">
~;
	foreach $curban (@ipban) {
		chomp $curban;
		if( $curban =~ m~\A\s+\Z~  ) { next; }
		$yymain .= "$curban\n";
	}
	$yymain .= qq~</textarea><br><br>
    $txt{'725'}<br>
    <textarea cols=60 rows=6 name="ban_email">
~;
	foreach $curban (@emailban) {
		chomp $curban;
		if( $curban =~ m~\A\s+\Z~  ) { next; }
		$yymain .= "$curban\n";
	}
	$yymain .= qq~</textarea><br><BR>
    $txt{'725a'}<br>
    <textarea cols=60 rows=6 name="ban_memname">
~;
	foreach $curban (@memnameban) {
		chomp $curban;
		if( $curban =~ m~\A\s+\Z~  ) { next; }
		$yymain .= "$curban\n";
	}
	$yymain .= qq~</textarea><br><BR>
    <input type=submit value="$txt{'10'}">
    </form></font></td>
  </tr>
</table>
~;
	$yytitle = "$txt{'340'}";
	&template;
	exit;
}

sub ipban2 {
	&is_admin;
	$FORM{'ban'} =~ tr/\r//d;
	$FORM{'ban'} =~ s~\A[\s\n]+~~;
	$FORM{'ban'} =~ s~[\s\n]+\Z~~;
	$FORM{'ban'} =~ s~\n\s*\n~\n~g;
	$FORM{'ban_email'} =~ tr/\r//d;
	$FORM{'ban_email'} =~ s~\A[\s\n]+~~;
	$FORM{'ban_email'} =~ s~[\s\n]+\Z~~;
	$FORM{'ban_email'} =~ s~\n\s*\n~\n~g;
	$FORM{'ban_memname'} =~ tr/\r//d;
	$FORM{'ban_memname'} =~ s~\A[\s\n]+~~;
	$FORM{'ban_memname'} =~ s~[\s\n]+\Z~~;
	$FORM{'ban_memname'} =~ s~\n\s*\n~\n~g;

	fopen(FILE, ">$vardir/ban.txt", 1);
	print FILE "$FORM{'ban'}";
	fclose(FILE);
	fopen(FILE, ">$vardir/ban_email.txt", 1);
	print FILE "$FORM{'ban_email'}";
	fclose(FILE);
	fopen(FILE, ">$vardir/ban_memname.txt", 1);
	print FILE "$FORM{'ban_memname'}";
	fclose(FILE);
	$yySetLocation = qq~$cgi;action=admin~;
	&redirectexit;
}

sub ver_detail {
	&is_admin;
	&loadfiles;
	$yymain .= qq~
<table border="0" width="70%" cellspacing="1" bgcolor="$color{'titlebg'}" class="bordercolor" align="center">
  <tr>
    <td bgcolor="$color{'titlebg'}" class="titlebg"><img src="$imagesdir/info.gif" alt="" border="0">&nbsp;<font size=2 color="$color{'titletext'}" class="text1"><b>$txt{'429'}</b></font></td>
  </tr><tr>
    <td bgcolor="$color{'windowbg'}" class="windowbg" align="center"><P>
    <table border="0" bgcolor="$color{'windowbg'}" class="windowbg">
      <tr>
        <td width="30%"><font size=2><B>$txt{'495'}</B><BR><BR></td>
        <td><font size=2><B>$txt{'494'}</B><BR><BR></td>
        <td><font size=2><B>$txt{'493'}</B><BR><BR></td>
      </tr><tr>
        <td width="30%"><font size=2>$txt{'496'}</td><td><font size=2><i>$YaBBversion</i></td>
        <td><img src="http://www.yabbforum.com/images/version/versioncheck.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">YaBB.$yyext</font></td><td><font size="2"><i>$YaBBplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/yabbplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">$language</font></td><td><font size="2"><i>$englishlngver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/englishlngver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">Admin.pl</font></td><td><font size="2"><i>$adminplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/adminplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">AdminEdit.pl</font></td><td><font size="2"><i>$admineditplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/admineditplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">BoardIndex.pl</font></td><td><font size="2"><i>$boardindexplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/boardindexplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">Display.pl</font></td><td><font size="2"><i>$displayplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/displayplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">ICQPager.pl</font></td><td><font size="2"><i>$icqpagerplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/icqpagerplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">InstantMessage.pl</font></td><td><font size="2"><i>$instantmessageplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/instantmessageplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">Load.pl</font></td><td><font size="2"><i>$loadplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/loadplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">LockThread.pl</font></td><td><font size="2"><i>$lockthreadplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/lockthreadplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">LogInOut.pl</font></td><td><font size="2"><i>$loginoutplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/loginoutplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">Maintenance.pl</font></td><td><font size="2"><i>$maintenanceplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/maintenanceplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">ManageBoards.pl</font></td><td><font size="2"><i>$manageboardsplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/manageboardsplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">ManageCats.pl</font></td><td><font size="2"><i>$managecatsplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/managecatsplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">Memberlist.pl</font></td><td><font size="2"><i>$memberlistplver</i></font></td>
        <td><img src="http://www.cd-profil.dk/yabb/yamsplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">MessageIndex.pl</font></td><td><font size="2"><i>$messageindexplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/messageindexplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">ModifyMessage.pl</font></td><td><font size="2"><i>$modifymessageplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/modifymessageplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">MoveThread.pl</font></td><td><font size="2"><i>$movethreadplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/movethreadplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">Notify.pl</font></td><td><font size="2"><i>$notifyplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/notifyplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">Post.pl</font></td><td><font size="2"><i>$postplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/postplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">Printpage.pl</font></td><td><font size="2"><i>$printplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/printplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">Profile.pl</font></td><td><font size="2"><i>$profileplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/profileplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">Recent.pl</font></td><td><font size="2"><i>$recentplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/recentplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">Register.pl</font></td><td><font size="2"><i>$registerplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/registerplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">RemoveOldThreads.pl</font></td><td><font size="2"><i>$removeoldthreadsplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/removeoldthreadsplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">RemoveThread.pl</font></td><td><font size="2"><i>$removethreadplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/removethreadplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">Search.pl</font></td><td><font size="2"><i>$searchplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/searchplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">Security.pl</font></td><td><font size="2"><i>$securityplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/securityplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">SendTopic.pl</font></td><td><font size="2"><i>$sendtopicplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/sendtopicplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">SubList.pl</font></td><td><font size="2"><i>$sublistplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/sublistplver.gif"></td>
      </tr><tr>
      </tr><tr>
        <td width="30%"><font size="2">Subs.pl</font></td><td><font size="2"><i>$subsplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/subsplver.gif"></td>
      </tr><tr>
        <td width="30%"><font size="2">YaBBC.pl</font></td><td><font size="2"><i>$yabbcplver</i></font></td>
        <td><img src="http://www.yabbforum.com/images/version/yabbcplver.gif"></td>
      </tr>
    </table>
    </font></td>
  </tr>
</table>
~;
	$yytitle = $txt{'429'};
	&template;
	exit;
}

1;