Advanced Memberview in Admin Center 1.1 You have much members in your YaBB? And if you want to view/delete members from the Admin Center all are listed but you don't want it? Then you should install this mod. Now it looks like the Memberlist of your Yabb. It displays now: USERNAME | POSTS | REGISTRATION | DATE | STATUS | DELETE-CHECKBOX Safety Option: Users with Administrator Status can't be deleted - no checkbox will be displayed! dOCda S! mailto:docda_s@yahoo.de Sources/Admin.pl sub ViewMembers { &is_admin; # Load member list fopen(FILE, "$memberdir/memberlist.txt"); @memberlist = ; fclose(FILE); $yytitle = "$txt{'9'}"; &header; print <<"EOT";
  $txt{'9'}
EOT $count = 0; foreach $curmem (@memberlist) { $curmem =~ s/[\n\r]//g; &FormatUserName($curmem); if ($curmem eq "admin") { print qq~ \n \n \n~; } else { print qq~ \n \n \n~; } $count++; } print <<"EOT";
$curmem   
$curmem   
EOT &footer; exit; }
sub ViewMembers { &is_admin; # Load member list fopen(FILE, "$memberdir/memberlist.txt"); @memberlist = ; fclose(FILE); $yytitle = "$txt{'9'}"; &header; if($username eq "Guest") { &fatal_error("$txt{'223'}"); } # Get the number of members fopen(FILE, "$memberdir/memberlist.txt"); @memberlist = ; $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; print qq(
$txt{'308'} $numbegin $txt{'311'} $numend ($txt{'309'} $memcount $txt{'310'})
); 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 = ""; $namenow = $name; fopen(MEMBERFILEREAD,"$memberdir/$name.dat"); @member = ; fclose(MEMBERFILEREAD); chomp @member; &FormatUserName($name); $barchart = ($member[6] / 5); if ($barchart < 1) {$Bar = "$Bar";} elsif ($barchart > 100) { $Bar = qq~~; } else { $Bar = qq~~; } $member[8] =~ s/[\n\r]//g; if($member[8] ne "") { $ICQ = qq~$member[8]~; } if ($Bar eq "") { $Bar=" "; } if($member[6] > 100000) { $member[6] = "$txt{'683'}"; } fopen(FILE, "$memberdir/$name.dat"); @memsettings=; fclose(FILE); chomp @memsettings; fopen(FILE, "$vardir/membergroups.txt"); @membergroups = ; fclose(FILE); if($memsettings[6] > $GodPostNum) { $memberinfo = "$membergroups[6]"; } elsif($memsettings[6] > $SrPostNum) { $memberinfo = "$membergroups[5]"; } elsif($memsettings[6] > $FullPostNum) { $memberinfo = "$membergroups[4]"; } elsif($memsettings[6] > $JrPostNum) { $memberinfo = "$membergroups[3]"; } else { $memberinfo = "$membergroups[2]"; } if($memsettings[7] ne "") { $memberinfo = "$memsettings[7]"; } if($memsettings[7] eq "Administrator") { $memberinfo = qq($membergroups[0]); } if ($memsettings[7] eq "Administrator") { $addel = qq(); } else { $addel = qq(); } if($tempname) { print qq( $addel ); } } print qq~$TableFooter~; print <<"EOT";
$txt{'35'}
$txt{'86'}
$txt{'233'}
$txt{'87'}
$txt{'21'}
$member[1] $member[6]  $member[14] $memberinfo 
$txt{'139'}: EOT $c=0; while(($c*$MembersPerPage) < $memcount) { $viewc = $c+1; $strt = ($c*$MembersPerPage); if($start == $strt) { print <<"EOT"; $viewc EOT } else { print <<"EOT"; $viewc EOT } ++$c; } print <<"EOT";
Advanced Memberview 1.1 by dOCda S!
EOT # /Build 10 &footer; exit; }