I had to manualy change memberlist.pl so this may be where the issue is?
Here is my Memberlist.pl file:
###############################################################################
# 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'}"); }
# 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>); }
if($action eq "mlletter") {
$page = "a"; $showpage = "A";
while($page ne "z") {
$LetterLinks .= qq(<a href="$scripturl?action=mlletter;letter=$page">$showpage </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] / 5);
if ($barchart < 1) {$Bar = "$Bar";}
elsif ($barchart > 100) {
$Bar = qq~<img src="$imagesdir/bar.gif" width=100 height=15 alt="" border="0">~;
}
else {
$Bar = qq~<img src="$imagesdir/bar.gif" width=$barchart height=15 alt="" border="0">~;
}
if ($Bar eq "") { $Bar=" "; }
if($member[6] > 100000) { $member[6] = "$txt{'683'}"; }
if($member[7] eq "Administrator") { $member[7] = "$membergroups[0]"; }
if($tempname)
{
$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 ($member[19] eq "checked" && $settings[7] ne "Administrator" && $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="mailto:$member[2]">$member[2]</a></font></td>
~; }
$yymain .= qq~
<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2>$member[4]</font> </td>
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center"><font size=2>$member[6]</font> </td>
<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2>$member[7]</font> </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> ... ~; }
if ($startpage == $MembersPerPage) { $pageindex = qq~<a href="$cgi;action=mlall;start=0">1</a> ~;}
for( $counter = $startpage; $counter < $endpage; $counter += $MembersPerPage ) {
$pageindex .= $start == $counter ? qq~<b>$tmpa</b> ~ : qq~<a href="$cgi;action=mlall;start=$counter">$tmpa</a> ~;
$tmpa++;
}
$tmpx = $max - $MembersPerPage;
$outerpn = int($tmpx / $MembersPerPage) + 0;
$lastpn = int($memcount / $MembersPerPage) + 1;
$lastptn = ($lastpn - 1) * $MembersPerPage;
if ($endpage < $max - ($MembersPerPage) ) {$pageindexadd = qq~ ... ~;}
if ($endpage != $max) {$pageindexadd .= qq~ <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);
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] / 5);
if ($barchart < 1) {$Bar = "$Bar";}
elsif ($barchart > 100) {$Bar = qq~<img src="$imagesdir/bar.gif" width=100 height=15 alt="" border="0">~;}
else {
$Bar = qq~<img src="$imagesdir/bar.gif" width=$barchart height=15 alt="" border="0">~;
}
$member[8] =~ s/[\n\r]//g;
if ($Bar eq "") { $Bar=" "; }
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 ($member[19] eq "checked" && $settings[7] ne "Administrator" && $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="mailto:$member[2]">$member[2]</a></font></td>
~; }
$yymain .= qq~
<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2>$member[4]</font> </td>
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center"><font size=2>$member[6]</font> </td>
<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2>$member[7]</font> </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> ... ~; }
if ($startpage == $MembersPerPage) { $pageindex = qq~<a href="$cgi;action=mlletter;letter=$letter;start=0">1</a> ~;}
for( $counter = $startpage; $counter < $endpage; $counter += $MembersPerPage ) {
$pageindex .= $start == $counter ? qq~<b>$tmpa</b> ~ : qq~<a href="$cgi;action=mlletter;letter=$letter;start=$counter">$tmpa</a> ~;
$tmpa++;
}
$tmpx = $max - $MembersPerPage;
$outerpn = int($tmpx / $MembersPerPage) + 0;
$lastpn = int($memcount / $MembersPerPage) + 1;
$lastptn = ($lastpn - 1) * $MembersPerPage;
if ($endpage < $max - ($MembersPerPage) ) {$pageindexadd = qq~ ... ~;}
if ($endpage != $max) {$pageindexadd .= qq~ <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] / 5);
if ($barchart < 1) {$Bar = "$Bar";}
elsif ($barchart > 100) {$Bar = qq~<img src="$imagesdir/bar.gif" width=100 height=15 alt="" border="0">~;}
else {
$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=" "; }
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 ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { $yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windower">$emaillink</td>
);
}
}
else {
if ($view_mailcolm) {
$TableHeader .= qq(
<td class="catbg" bgcolor="$color{'catbg'}" align="center"> $mailhdr </td>
);
}
}
if ($view_wwwcolm && $mlcall ne "mlemail") {
$TableHeader .= qq(
<td class="catbg" bgcolor="$color{'catbg'}" align="center"> $wwwhdr </td>
);
}
if ($view_imcolm && $mlcall ne "mlemail") {
$TableHeader .= qq(
<td class="catbg" bgcolor="$color{'catbg'}" align="center"> $imhdr </td>
);
}
if ($view_icqcolm && $mlcall ne "mlemail") {
$TableHeader .= qq(
<td class="catbg" bgcolor="$color{'catbg'}" align="center"> $icqhdr </td>
);
}
if ($view_yimcolm && $mlcall ne "mlemail") {
$TableHeader .= qq(
<td class="catbg" bgcolor="$color{'catbg'}" align="center"> $yimhdr </td>
);
}
if ($view_aimcolm && $mlcall ne "mlemail") {
$TableHeader .= qq(
<td class="catbg" bgcolor="$color{'catbg'}" align="center"> $aimhdr </td>
);
}
if ($view_msncolm && $mlcall ne "mlemail") {
$TableHeader .= qq(
<td class="catbg" bgcolor="$color{'catbg'}" align="center"> <IMG SRC="$imagesdir/msn.gif" border="0" align="absmiddle" alt="$membtxt{'16'}"> </td>
);
}
$TableHeader .= qq(
<td class="catbg" bgcolor="$color{'catbg'}" align="center"><b><font size=2>$grplink</font></b></td>
<td class="catbg" bgcolor="$color{'catbg'}" colspan="2" align="center"><b><font size=2>$postlink</font></b></td>
);
if ($view_regdate) {
$TableHeader .= qq(
<td class="catbg" bgcolor="$color{'catbg'}" align="center"><b><font size=2>$reglink</font></b></td>
);
}
if ($view_numbcolm) {
$TableHeader .= qq(
<td class="catbg" bgcolor="$color{'catbg'}" align="center"><b><font size=2>$membtxt{'23'}</font></b></td>
);
}
if ($settings[7] eq "Administrator" && $view_ipcolm || $settings[7] eq 'Global Moderator' && $allow_mod == 1 && $view_ipcolm) {
$TableHeader .= qq(
<td class="catbg" bgcolor="$color{'catbg'}" align="center"><b><font size=2>$iplink</font></b></td>
);
}
$TableHeader .= qq(
</tr>
);
$TableFooter = qq~</table>~;
sub MLAll {
if($username eq "Guest" && !$guest_allow) { &fatal_error("$txt{'223'}"); }
# Get the number of members
fopen(FILE, "$memberdir/memberlist.txt");
@memberlist = <FILE>;
$memcount = @memberlist;
@membername = @memberlist;
fclose(FILE);
if($smb1) {
&SortMemb;
if($sortorder == 1) {
@membername = reverse @sortmembername;
}
else {
@membername = @sortmembername;
}
}
elsif($smb3) {
&SortGrpMemb;
@membername = @grpmemberlist;
}
else {
&SortMemb;
@membername = @sortmembername;
}
$stopflag = 0;
$firstgrp= "";
$firstlett = "";
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++;
$hjsite = "";
@entries = ();
@member = ();
$Bar = "";
$ICQ = "";
fopen(MEMBERFILEREAD,"$memberdir/$name.dat");
@member = <MEMBERFILEREAD>;
fclose(MEMBERFILEREAD);
chomp @member;
$viewipnumb = "";
fopen(NUMBERFILEREAD,"$memberdir/$name.yam");
@number = <NUMBERFILEREAD>;
fclose(NUMBERFILEREAD);
chomp @number;
if($settings[7] eq "Administrator" || $settings[7] eq 'Global Moderator' && $allow_mod == 1) {
($ipnumb1, $ipnumb2, $ipnumb3) = split(/\|/, $number[1]);
if ($ipnumb1 == 0) { $viewipnumb = " "; }
else {
$viewipnumb .= qq~<a href="$cgi;action=mlipsearch;searchip=$ipnumb1"><b>$ipnumb1</b></a>~;
if ($ipnumb2 != 0 && $ipnumb2 ne $ipnumb1) { $viewipnumb .= qq~<br><a href="$cgi;action=mlipsearch;searchip=$ipnumb2">$ipnumb2</a>~; }
if ($ipnumb3 != 0 && $ipnumb3 ne $ipnumb1 && $ipnumb3 ne $ipnumb2) { $viewipnumb .= qq~<br><a href="$cgi;action=mlipsearch;searchip=$ipnumb3">$ipnumb3</a>~; }
}
}
if ($number[0] == 0) { $number[0] = " "; }
($e_name, $e_dom) = split(/\@/, $member[2]);
&FormatUserName($name);
fopen(FILE, "$vardir/membergroups.txt");
@membergroups = <FILE>;
fclose(FILE);
chomp @membergroups;
if(!-e "$sourcedir/MemberGroups.pl") {
if($member[6] >= $GodPostNum) { $memberinfo = "$membergroups[6]"; }
elsif($member[6] >= $SrPostNum) { $memberinfo = "$membergroups[5]"; }
elsif($member[6] >= $FullPostNum) { $memberinfo = "$membergroups[4]"; }
elsif($member[6] >= $JrPostNum) { $memberinfo = "$membergroups[3]"; }
else { $memberinfo = "$membergroups[2]"; }
}
else {
$memstatcount = "0";
if( $member[6] >= $MemPostNewbie) { $memberinfo = "$MemStatNewbie"; }
while($MemStat[$memstatcount]) {
if( $member[6] >= $MemPostNum[$memstatcount] && $MemPostNum[$memstatcount] ne "x") {
$memberinfo = "$MemStat[$memstatcount]";
}
$memstatcount++;
}
}
$memberinfo =~ s/\n//gi;
$Bargif = "";
$barchart = ($member[6]);
$bartemp = ($member[6] * 100);
$barwidth = ($bartemp / $barmax);
$barwidth = ($barwidth + 0.5);
$barwidth = int($barwidth);
if($barwidth > 100) {$barwidth = 100}
fopen(FILE, "$vardir/barcolor.dat");
@grpbar=<FILE>;
fclose(FILE);
chomp(@grpbar);
if(!-e "$sourcedir/MemberGroups.pl") {
if ($barchart >= $GodPostNum) {
$Bargif = "img src='$barsurl/$grpbar[3].gif'";
}
elsif ($barchart >= $SrPostNum) {
$Bargif = "img src='$barsurl/$grpbar[2].gif'";
}
elsif ($barchart >= $FullPostNum) {
$Bargif = "img src='$barsurl/$grpbar[1].gif'";
}
elsif ($barchart >= $JrPostNum) {
$Bargif = "img src='$barsurl/$grpbar[0].gif'";
}
else {
$Bargif = "img src='$barsurl/$stfaultbar.gif'";
}
}
else {
$membarcount = 0;
$Bargif .= qq(img src="$barsurl/$stfaultbar.gif");
while($MemStat[$membarcount]) {
if($barchart >= $MemPostNum[$membarcount] && $MemPostNum[$membarcount] ne 'x') {
$Bargif = "";
$Bargif .= qq(img src="$barsurl/$grpbar[$membarcount].gif");
}
$membarcount++;
}
}
if ($barwidth < 1) {$Bar = "$Bar";}
else {
$Bar = qq~<$Bargif width=$barwidth height=10 alt="$memberinfo" border="0">~;
}
if ($Bar eq "") { $Bar=" "; }
if($member[6] > 100000) { $member[6] = "$txt{'683'}"; }
if(-e "$sourcedir/MemberGroups.pl") {
if($member[7] eq "Administrator") { $member[7] = "$MemStatAdmin"; }
if($member[7] eq "Global Moderator") { $member[7] = "$MemStatGMod"; }
}
else {
if(-e "$sourcedir/MemberGroups.pl") {
if($member[7] eq "Administrator") { $member[7] = "$MemStatAdmin"; }
if($member[7] eq "Global Moderator") { $member[7] = "$MemStatGMod"; }
}
else {
if($member[7] eq "Administrator") { $member[7] = "$membergroups[0]"; }
}
if($member[7] eq "") { $member[7] = "$memberinfo"; }
$dispgend = " ";
if($gendcol eq "pic") {
if ($member[11] eq "Male") { $dispgend = qq~<img src="$imagesdir/male.gif" border="0">~; }
if ($member[11] eq "Female") { $dispgend = qq~<img src="$imagesdir/female.gif" border="0">~; }
$gendjust = "center";
}
else {
if ($member[11] eq "Male") { $dispgend = qq~$txt{'238'}~; }
if ($member[11] eq "Female") { $dispgend = qq~$txt{'239'}~; }
$gendjust = "left";
}
if ($username eq "Guest" && $guest_allow) {
if($mailcol eq "pic") { $mailpic = qq~<IMG SRC="$imagesdir/lockmail.gif" border="0" alt="$txt{'722'}">~;
$mailjust = "center"; }
else { $mailpic = "$txt{'722'}";
$mailjust = "left"; }
}
else {
if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $settings[7] ne 'Global Moderator' && $allow_hide_email eq 1) { $yymain .= qq~
~;
if($mailcol eq "pic") { $mailpic = qq~<IMG SRC="$imagesdir/lockmail.gif" border="0" alt="$txt{'722'}">~;
$mailjust = "center"; }
else { $mailpic = "$txt{'722'}";
$mailjust = "left"; }
}
else {
if($mailcol eq "pic") { $mailpic = qq~<a href="mailto:$member[2]"><IMG SRC="$imagesdir/email.gif" border="0" alt="$member[2]"></a>~;
$mailjust = "center"; }
else { $mailpic = qq~<a href="mailto:$member[2]">$member[2]</a>~;
$mailjust = "left"; }
}
}
if($member[4] eq "") { $hjsite = " "; }
elsif($wwwcol eq "pic") { if($member[4] !~ m~\Ahttp://\S*~) { $member4 = "<a href=\"http://$member[4]\" target=\"_blank\">"; }
else { $member4 = "<a href=\"$member[4]\" target=\"_blank\">"; }
$hjsite = qq~$member4<img src="$imagesdir/www.gif" border="0" align="absmiddle" alt="$member[3]"></a>~;
$wwwjust = "center"; }
else { if($member[4] !~ m~\Ahttp://\S*~) { $member4 = "<a href=\"http://$member[4]\" target=\"_blank\">"; }
else { $member4 = "<a href=\"$member[4]\" target=\"_blank\">"; }
$hjsite = qq~$member4$member[3]</a>~;
$wwwjust = "left"; }
if($imcol eq "pic") { $imimg = qq~<a href="$cgi;action=imsend;to=$useraccount{$membername}"><IMG SRC="$imagesdir/message.gif" border="0" align="absmiddle" alt="$txt{'148'} $txt{'311'} $member[1]"></a>~;
$imjust = "center"; }
else { $imimg = qq~<a href="$cgi;action=imsend;to=$useraccount{$membername}">$membtxt{'43'} $member[1]</a>~;
$imjust = "left"; }
if( $member[8] ne "" && $member[8] !~ m~\D~ ) {
$ICQ = $member[8];
if($icqcol eq "pic") { $icqimg = qq~<a href="$cgi;action=icqpager;UIN=$ICQ" target=_blank> <img src="http://web.icq.com/whitepages/online?icq=$member[8]&img=5" alt="$member[8]" border="0" align="absmiddle"> </a>~;
$icqjust = "center"; }
else { $icqimg = qq~<a href="$cgi;action=icqpager;UIN=$ICQ" target=_blank> <img src="http://web.icq.com/whitepages/online?icq=$member[8]&img=5" alt="$member[8]" border="0" align="absmiddle"> $member[8]</a>~;
$icqjust = "left"; }
}
else { $icqimg = " " }
if ($member[10] eq '') { $yimimg = " "; }
elsif($yimcol eq "pic") { $yimimg = qq~<a href="http://edit.yahoo.com/config/send_webmesg?.target=$member[10]"><img SRC="http://opi.yahoo.com/online?u=$member[10]&m=g&t=0" NOSAVE BORDER=0 alt="$member[10]"></a>~;
$yimjust = "center"; }
else { $yimimg = qq~<a href="http://edit.yahoo.com/config/send_webmesg?.target=$member[10]"><img SRC="http://opi.yahoo.com/online?u=$member[10]&m=g&t=0" NOSAVE BORDER=0 alt="$member[10]"> $member[10]</a>~;
$yimjust = "left"; }
if ($member[9] eq '') { $aimimg = " "; }
elsif($aimcol eq "pic") { $aimimg = qq~<a href="aim:goim?screenname=$member[9]&message=Hi,+are+you+there?"><img src="$imagesdir/aim.gif" border="0" align="absmiddle" alt="$member[9]"></a>~;
$aimjust = "center"; }
else { $aimimg = qq~<a href="aim:goim?screenname=$member[9]&message=Hi,+are+you+there?"><img src="$imagesdir/aim.gif" border="0" align="absmiddle" alt="$member[9]"> $member[9]</a>~;
$aimjust = "left"; }
if(-e "$sourcedir/Msn.pl") {
fopen(FILE, "$memberdir/$membername.om");
@msnsettings = <FILE>;
fclose <FILE>;
chomp @msnsettings;
}
$dr = "";
if ($member[14] eq "") { $dr = "$txt{'470'}"; }
else { $dr = "$member[14]"; $dr = &timeformat($dr); }
if ($number[0] eq " ") { $dr = "$membtxt{'32'}"; }
$onlinemem = $img{'mem_offline'};
fopen(FILE, "$vardir/log.txt");
@entries = <FILE>;
fclose(FILE);
foreach $curentry (@entries) {
chomp $curentry;
($onname, $onvalue) = split(/\|/, $curentry);
if(lc $onname eq lc $membername) { $onlinemem = $img{'mem_online'}; }
}
}
if($member[7] eq "") { $member[7] = "$memberinfo"; }
$dispgend = " ";
if($gendcol eq "pic") {
if ($member[11] eq "Male") { $dispgend = qq~<img src="$imagesdir/male.gif" border="0">~; }
if ($member[11] eq "Female") { $dispgend = qq~<img src="$imagesdir/female.gif" border="0">~; }
$gendjust = "center";
}
else {
if ($member[11] eq "Male") { $dispgend = qq~$txt{'238'}~; }
if ($member[11] eq "Female") { $dispgend = qq~$txt{'239'}~; }
$gendjust = "left";
}
if ($username eq "Guest" && $guest_allow) {
if($mailcol eq "pic") { $mailpic = qq~<IMG SRC="$imagesdir/lockmail.gif" border="0" alt="$txt{'722'}">~;
$mailjust = "center"; }
else { $mailpic = "$txt{'722'}";
$mailjust = "left"; }
}
else {
if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $settings[7] ne 'Global Moderator' && $allow_hide_email eq 1) { $yymain .= qq~
~;
if($mailcol eq "pic") { $mailpic = qq~<IMG SRC="$imagesdir/lockmail.gif" border="0" alt="$txt{'722'}">~;
$mailjust = "center"; }
else { $mailpic = "$txt{'722'}";
$mailjust = "left"; }
}
else {
if($mailcol eq "pic") { $mailpic = qq~<a href="mailto:$member[2]"><IMG SRC="$imagesdir/email.gif" border="0" alt="$member[2]"></a>~;
$mailjust = "center"; }
else { $mailpic = qq~<a href="mailto:$member[2]">$member[2]</a>~;
$mailjust = "left"; }
}
}
if($member[4] eq "") { $hjsite = " "; }
elsif($wwwcol eq "pic") { if($member[4] !~ m~\Ahttp://\S*~) { $member4 = "<a href=\"http://$member[4]\" target=\"_blank\">"; }
else { $member4 = "<a href=\"$member[4]\" target=\"_blank\">"; }
$hjsite = qq~$member4<img src="$imagesdir/www.gif" border="0" align="absmiddle" alt="$member[3]"></a>~;
$wwwjust = "center"; }
else { if($member[4] !~ m~\Ahttp://\S*~) { $member4 = "<a href=\"http://$member[4]\" target=\"_blank\">"; }
else { $member4 = "<a href=\"$member[4]\" target=\"_blank\">"; }
$hjsite = qq~$member4$member[3]</a>~;
$wwwjust = "left"; }
if($imcol eq "pic") { $imimg = qq~<a href="$cgi;action=imsend;to=$useraccount{$name}"><IMG SRC="$imagesdir/message.gif" border="0" align="absmiddle" alt="$txt{'148'} $txt{'311'} $member[1]"></a>~;
$imjust = "center"; }
else { $imimg = qq~<a href="$cgi;action=imsend;to=$useraccount{$name}">$membtxt{'43'} $member[1]</a>~;
$imjust = "left"; }
if( $member[8] ne "" && $member[8] !~ m~\D~ ) {
$ICQ = $member[8];
if($icqcol eq "pic") { $icqimg = qq~<a href="$cgi;action=icqpager;UIN=$ICQ" target=_blank> <img src="http://web.icq.com/whitepages/online?icq=$member[8]&img=5" alt="$member[8]" border="0" align="absmiddle"> </a>~;
$icqjust = "center"; }
else { $icqimg = qq~<a href="$cgi;action=icqpager;UIN=$ICQ" target=_blank> <img src="http://web.icq.com/whitepages/online?icq=$member[8]&img=5" alt="$member[8]" border="0" align="absmiddle"> $member[8]</a>~;
$icqjust = "left"; }
}
else { $icqimg = " " }
if ($member[10] eq '') { $yimimg = " "; }
elsif($yimcol eq "pic") { $yimimg = qq~<a href="http://edit.yahoo.com/config/send_webmesg?.target=$member[10]"><img SRC="http://opi.yahoo.com/online?u=$member[10]&m=g&t=0" NOSAVE BORDER=0 alt="$member[10]"></a>~;
$yimjust = "center"; }
else { $yimimg = qq~<a href="http://edit.yahoo.com/config/send_webmesg?.target=$member[10]"><img SRC="http://opi.yahoo.com/online?u=$member[10]&m=g&t=0" NOSAVE BORDER=0 alt="$member[10]"> $member[10]</a>~;
$yimjust = "left"; }
if ($member[9] eq '') { $aimimg = " "; }
elsif($aimcol eq "pic") { $aimimg = qq~<a href="aim:goim?screenname=$member[9]&message=Hi,+are+you+there?"><img src="$imagesdir/aim.gif" border="0" align="absmiddle" alt="$member[9]"></a>~;
$aimjust = "center"; }
else { $aimimg = qq~<a href="aim:goim?screenname=$member[9]&message=Hi,+are+you+there?"><img src="$imagesdir/aim.gif" border="0" align="absmiddle" alt="$member[9]"> $member[9]</a>~;
$aimjust = "left"; }
if(-e "$sourcedir/Msn.pl") {
fopen(FILE, "$memberdir/$name.om");
@msnsettings = <FILE>;
fclose <FILE>;
chomp @msnsettings;
}
$dr = "";
if ($member[14] eq "") { $dr = "$txt{'470'}"; }
else { $dr = "$member[14]"; $dr = &timeformat($dr); }
if ($number[0] eq " ") { $dr = "$membtxt{'32'}"; }
$onlinemem = $img{'mem_offline'};
fopen(FILE, "$vardir/log.txt");
@entries = <FILE>;
fclose(FILE);
foreach $curentry (@entries) {
chomp $curentry;
($onname, $onvalue) = split(/\|/, $curentry);
if(lc $onname eq lc $name) { $onlinemem = $img{'mem_online'}; }
}
if($tempname)
{
if($smb3) {
if($member[7] ne "") {
$startgrp = $member[7];
if($startgrp ne $firstgrp) {
$firstgrp = $startgrp;
$yymain .= qq~
<tr>
<td class="catbg" bgcolor="$color{'catbg'}" colspan=$membspan><font size=1> $startgrp</font></td>
</tr>
~;
}
}
elsif($stopflag == 0) {
$yymain .= qq~
<tr>
<td class="catbg" bgcolor="$color{'catbg'}" colspan=$membspan><font size=1> </font></td>
</tr>
~;
$stopflag = 1;
}
}
if($smb4) {
$startlett = substr $member[1],0,1;
if($startlett eq "$lngtxt{'01lc'}") {$startlett = "$lngtxt{'01uc'}";}
if($startlett eq "$lngtxt{'02lc'}") {$startlett = "$lngtxt{'02uc'}";}
if($startlett eq "$lngtxt{'03lc'}") {$startlett = "$lngtxt{'03uc'}";}
$startlett = uc $startlett;
if($startlett ne $firstlett) {
$firstlett = $startlett;
$yymain .= qq~
<tr>
<td class="catbg" bgcolor="$color{'catbg'}" colspan=$membspan><font size=1> $startlett</font></td>
</tr>
~;
}
}
$yymain .= qq~
<tr>
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center" valign="middle">$onlinemem</td>
<td class="windowbg" bgcolor="$color{'windowbg'}" valign="middle"><font size=2><a href="$cgi;action=viewprofile;username=$useraccount{$name}">$member[1]</a></font></td>
~;
if ($view_gendcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$gendjust" valign="middle"><font size="2">$dispgend</font></td>
~;
}
if ($view_mailcolm && $mlcall ne "mlemail") {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$mailjust" valign="middle"><font size="2">$mailpic</font></td>
~;
}
if ($mlcall eq "mlemail") {
if ($settings[7] ne "Administrator" && $member[19] eq "checked" && $settings[7] ne "Global Moderator" && $allow_hide_email eq 1) { $yymain .= qq~
<td colspan="3" class="windowbg2" bgcolor="$color{'windowbg2'}" align="center" valign="middle">$txt{'722'}</td>
~; } else { $yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="right" valign="middle">
<font size=2><nobr><a href="mailto:$member[2]">$e_name</a></nobr></font>
</td>
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center" valign="middle">
<font size=2><nobr><a href="mailto:$member[2]">@</a></nobr></font>
</td>
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="left" valign="middle">
<font size=2><nobr><a href="mailto:$member[2]">$e_dom</a></nobr></font>
</td>
~; }
}
if ($view_wwwcolm && $mlcall ne "mlemail") {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$wwwjust" valign="middle"><font size=2>$hjsite</font></td>
~;
}
if ($view_imcolm && $mlcall ne "mlemail") {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$imjust" valign="middle"><font size=2>$imimg</font></td>
~;
}
if ($view_icqcolm && $mlcall ne "mlemail") {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$icqjust" valign="middle"><font size=2>$icqimg</font></td>
~;
}
if ($view_yimcolm && $mlcall ne "mlemail") {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$yimjust" valign="middle"><font size=2>$yimimg</font></td>
~;
}
if ($view_aimcolm && $mlcall ne "mlemail") {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$aimjust" valign="middle"><font size=2>$aimimg</font></td>
~;
}
if (-e "$sourcedir/Msn.pl" && $view_msncolm && $mlcall ne "mlemail") {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center" valign="middle">
~;
if ($msnsettings[0] ne '') {
$yymain .= qq~
<nobr>
<a href=javascript:MsgrApp.LaunchAddContactUI("$msnsettings[0]")><img src="$imagesdir/msnadd.gif" alt="$membtxt{'19'} $msnsettings[0] $membtxt{'20'}" border=0 align="absmiddle"></a>
<a id="lll" href=javascript:MsgrApp.LaunchIMUI("$msnsettings[0]")><img src="$imagesdir/msntalk.gif" alt="$membtxt{'21'} $msnsettings[0]" border=0 align="absmiddle"></a>
</nobr>
~;
}
else {
$yymain .= qq~
~;
}
$yymain .= qq~
</td>
~;
}
$yymain .= qq~
<td class="windowbg" bgcolor="$color{'windowbg'}" valign="middle"><font size=2>$member[7]</font> </td>
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center" valign="middle"><font size=2>$member[6]</font></td>
<td class="windowbg" bgcolor="$color{'windowbg'}" width="104" align="absmiddle">$Bar</td>
~;
if ($view_regdate) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" valign="middle"><font size=1>$dr</font></td>
~;
}
if ($view_numbcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="right" valign="middle"><font size=1>$number[0]</font></td>
~;
}
if ($settings[7] eq "Administrator" && $view_ipcolm || $settings[7] eq 'Global Moderator' && $allow_mod == 1 && $view_ipcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" valign="middle"><font size=1>$viewipnumb</font></td>
~;
}
$yymain .= qq~
</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=$mlcall;start=0">1</a> ... ~; }
if ($startpage == $MembersPerPage) { $pageindex = qq~<a href="$cgi;action=$mlcall;start=0">1</a> ~;}
for( $counter = $startpage; $counter < $endpage; $counter += $MembersPerPage ) {
$pageindex .= $start == $counter ? qq~<b>$tmpa</b> ~ : qq~<a href="$cgi;action=$mlcall;start=$counter">$tmpa</a> ~;
$tmpa++;
}
$tmpx = $max - $MembersPerPage;
$outerpn = int($tmpx / $MembersPerPage) + 0;
$lastpn = int($memcount / $MembersPerPage) + 1;
$lastptn = ($lastpn - 1) * $MembersPerPage;
if ($endpage < $max - ($MembersPerPage) ) {$pageindexadd = qq~ ... ~;}
if ($endpage != $max) {$pageindexadd .= qq~ <a href="$cgi;action=$mlcall;start=$lastptn">$lastpn</a>~;}
$pageindex .= $pageindexadd;
$yymain .= qq~
<table border="0" width="100%" cellspacing="1" cellpadding="2" bgcolor="$color{'bordercolor'}" class="bordercolor">
<tr>
<td class="catbg" bgcolor="$color{'catbg'}"><font size=2><b> $txt{'139'}:</b>
$pageindex
</td>
</tr>
</table>
~;
$yytitle = "$txt{'308'} $numbegin $txt{'311'} $numend";
&template;
exit;
}
sub MLByLetter {
if($username eq "Guest" && !$guest_allow) { &fatal_error("$txt{'223'}"); }
$yymain .= qq~$TableHeader~;
fopen(FILE, "$memberdir/memberlist.txt");
@memberlist = <FILE>;
$memcount = @memberlist;
@membername = @memberlist;
fclose(FILE);
for($i=0;$i<$memcount;$i++) {
chomp(@membername);
$membname = $membername[$i];
fopen(MEMBERFILE,"$memberdir/$membname.dat");
@member = <MEMBERFILE>;
fclose(MEMBERFILE);
chomp(@member);
$templist[$i] .= qq($member[1] | $membname);
}
@SortAList = sort{lc($a) cmp lc($b)} (@templist);
for($i=0;$i<$memcount;$i++) {
chomp(@SortAList);
($indxname[$i], $SortList[$i]) = split(/\|/, $SortAList[$i]);
}
chomp(@SortList);
@lmemberfile = @SortList;
$letter = $INFO{'letter'};
if($INFO{'start'} eq "") { $start=0; } else { $start="$INFO{'start'}"; }
unless(!$letter)
{
for($i=0;$i<$memcount;$i++) {
chomp(@lmemberfile);
$lmemberfile[$i] =~ s/ //gi;
$lmemberfile[$i] =~ s/\n//gi;
$memberfile = $lmemberfile[$i];
fopen(MEMBERFILEREAD,"$memberdir/$memberfile.dat");
@member = <MEMBERFILEREAD>;
fclose(MEMBERFILEREAD);
chomp @member;
$SearchName = $member[1];
$SearchName = substr $SearchName,0,1;
if($SearchName eq "$lngtxt{'01uc'}") {$SearchName = "$lngtxt{'01lc'}";}
if($SearchName eq "$lngtxt{'02uc'}") {$SearchName = "$lngtxt{'02lc'}";}
if($SearchName eq "$lngtxt{'03uc'}") {$SearchName = "$lngtxt{'03lc'}";}
$SearchName = lc $SearchName;
if($letter eq "other" && (($SearchName lt "a") || ($SearchName gt "z"))) {
push(@ToShow,$memberfile);
} elsif($SearchName eq $letter) {
push(@ToShow,$memberfile);
}
}
$memcount=@ToShow;
$numshown=0; $b=$start;
unless ($memcount == 0) {
while(($numshown < $MembersPerPage))
{
$membername=@ToShow[$b];
if ($membername ne "")
{
@member = ();
$Bar = "";
$ICQ = "";
$hjsite = "";
fopen(MEMBERFILEREAD,"$memberdir/$membername.dat");
@member = <MEMBERFILEREAD>;
fclose(MEMBERFILEREAD);
chomp @member;
$viewipnumb = "";
fopen(NUMBERFILEREAD,"$memberdir/$membername.yam");
@number = <NUMBERFILEREAD>;
fclose(NUMBERFILEREAD);
chomp @number;
if($settings[7] eq "Administrator" || $settings[7] eq 'Global Moderator' && $allow_mod == 1) {
($ipnumb1, $ipnumb2, $ipnumb3) = split(/\|/, $number[1]);
if ($ipnumb1 == 0) { $viewipnumb = " "; }
else {
$viewipnumb .= qq~<a href="$cgi;action=mlipsearch;searchip=$ipnumb1"><b>$ipnumb1</b></a>~;
if ($ipnumb2 != 0 && $ipnumb2 ne $ipnumb1) { $viewipnumb .= qq~<br><a href="$cgi;action=mlipsearch;searchip=$ipnumb2">$ipnumb2</a>~; }
if ($ipnumb3 != 0 && $ipnumb3 ne $ipnumb1 && $ipnumb3 ne $ipnumb2) { $viewipnumb .= qq~<br><a href="$cgi;action=mlipsearch;searchip=$ipnumb3">$ipnumb3</a>~; }
}
}
if ($number[0] == 0) { $number[0] = " "; }
&FormatUserName($membername);
fopen(FILE, "$vardir/membergroups.txt");
@membergroups = <FILE>;
fclose(FILE);
chomp @membergroups;
if(!-e "$sourcedir/MemberGroups.pl") {
if($member[6] >= $GodPostNum) { $memberinfo = "$membergroups[6]"; }
elsif($member[6] >= $SrPostNum) { $memberinfo = "$membergroups[5]"; }
elsif($member[6] >= $FullPostNum) { $memberinfo = "$membergroups[4]"; }
elsif($member[6] >= $JrPostNum) { $memberinfo = "$membergroups[3]"; }
else { $memberinfo = "$membergroups[2]"; }
}
else {
$memstatcount = "0";
if( $member[6] >= $MemPostNewbie) { $memberinfo = "$MemStatNewbie"; }
while($MemStat[$memstatcount]) {
if( $member[6] >= $MemPostNum[$memstatcount] && $MemPostNum[$memstatcount] ne "x") {
$memberinfo = "$MemStat[$memstatcount]";
}
$memstatcount++;
}
}
$memberinfo =~ s/\n//gi;
$Bargif = "";
$barchart = ($member[6]);
$bartemp = ($member[6] * 100);
$barwidth = ($bartemp / $barmax);
$barwidth = ($barwidth + 0.5);
$barwidth = int($barwidth);
if($barwidth > 100) {$barwidth = 100}
fopen(FILE, "$vardir/barcolor.dat");
@grpbar=<FILE>;
fclose(FILE);
chomp(@grpbar);
if(!-e "$sourcedir/MemberGroups.pl") {
if ($barchart >= $GodPostNum) {
$Bargif = "img src='$barsurl/$grpbar[3].gif'";
}
elsif ($barchart >= $SrPostNum) {
$Bargif = "img src='$barsurl/$grpbar[2].gif'";
}
elsif ($barchart >= $FullPostNum) {
$Bargif = "img src='$barsurl/$grpbar[1].gif'";
}
elsif ($barchart >= $JrPostNum) {
$Bargif = "img src='$barsurl/$grpbar[0].gif'";
}
else {
$Bargif = "img src='$barsurl/$stfaultbar.gif'";
}
}
else {
$membarcount = 0;
$Bargif .= qq(img src="$barsurl/$stfaultbar.gif");
while($MemStat[$membarcount]) {
if($barchart >= $MemPostNum[$membarcount] && $MemPostNum[$membarcount] ne 'x') {
$Bargif = "";
$Bargif .= qq(img src="$barsurl/$grpbar[$membarcount].gif");
}
$membarcount++;
}
}
if ($barwidth < 1) {$Bar = "$Bar";}
else {
$Bar = qq~<$Bargif width=$barwidth height=10 alt="$memberinfo" border="0">~;
}
$member[8] =~ s/[\n\r]//g;
if ($Bar eq "") { $Bar=" "; }
if($member[6] > 100000) { $member[6] = "$txt{'683'}"; }
if($member[7] eq "Administrator") { $member[7] = "$membergroups[0]"; }
$yymain .= qq~
<tr>
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center" valign="middle">$onlinemem</td>
<td valign="middle" class="windowbg" bgcolor="$color{'windowbg'}"><font size=2><a href="$cgi;action=viewprofile;username=$useraccount{$membername}">$member[1]</a></font></td>
~;
if ($view_gendcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$gendjust" valign="middle"><font size="2">$dispgend</font></td>
~;
}
if ($view_mailcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$mailjust" valign="middle"><font size="2">$mailpic</font></td>
~;
}
if ($view_wwwcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$wwwjust" valign="middle"><font size=2>$hjsite</font></td>
~;
}
if ($view_imcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$imjust" valign="middle"><font size=2>$imimg</font></td>
~;
}
if ($view_icqcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$icqjust" valign="middle"><font size=2>$icqimg</font></td>
~;
}
if ($view_yimcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$yimjust" valign="middle"><font size=2>$yimimg</font></td>
~;
}
if ($view_aimcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="aimjust" valign="middle"><font size=2>$aimimg</font></td>
~;
}
if (-e "$sourcedir/Msn.pl" && $view_msncolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center" valign="middle">
~;
if ($msnsettings[0] ne '') {
$yymain .= qq~
<nobr>
<a href=javascript:MsgrApp.LaunchAddContactUI("$msnsettings[0]")><img src="$imagesdir/msnadd.gif" alt="$membtxt{'19'} $msnsettings[0] $membtxt{'20'}" border=0 align="absmiddle"></a>
<a id="lll" href=javascript:MsgrApp.LaunchIMUI("$msnsettings[0]")><img src="$imagesdir/msntalk.gif" alt="$membtxt{'21'} $msnsettings[0]" border=0 align="absmiddle"></a>
</nobr>
~;
}
else {
$yymain .= qq~
~;
}
$yymain .= qq~
</td>
~;
}
$yymain .= qq~
<td class="windowbg" bgcolor="$color{'windowbg'}" valign="middle"><font size=2>$member[7]</font> </td>
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center" valign="middle"><font size=2>$member[6]</font></td>
<td class="windowbg" bgcolor="$color{'windowbg'}" width="104" align="absmiddle">$Bar</td>
~;
if ($view_regdate) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" valign="middle"><font size=1>$dr</font></td>
~;
}
if ($view_numbcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="right" valign="middle"><font size=1>$number[0]</font></td>
~;
}
if ($settings[7] eq "Administrator" && $view_ipcolm || $settings[7] eq 'Global Moderator' && $allow_mod == 1 && $view_ipcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" valign="middle"><font size=1>$viewipnumb</font></td>
~;
}
$yymain .= qq~
</tr>
~;
}
$numshown++;
$b++;
}
}
}
if(!$letter) {$yymain .= qq~ <td class="windowbg" bgcolor="$color{'windowbg'}" colspan=$membspan align="center"><br><b>$txt{'759'}</b><br><br></td>~;}
if($memcount == 0 && $letter) {$yymain .= qq~ <td class="windowbg" bgcolor="$color{'windowbg'}" colspan=$membspan 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> ... ~; }
if ($startpage == $MembersPerPage) { $pageindex = qq~<a href="$cgi;action=mlletter;letter=$letter;start=0">1</a> ~;}
for( $counter = $startpage; $counter < $endpage; $counter += $MembersPerPage ) {
$pageindex .= $start == $counter ? qq~<b>$tmpa</b> ~ : qq~<a href="$cgi;action=mlletter;letter=$letter;start=$counter">$tmpa</a> ~;
$tmpa++;
}
$tmpx = $max - $MembersPerPage;
$outerpn = int($tmpx / $MembersPerPage) + 0;
$lastpn = int($memcount / $MembersPerPage) + 1;
$lastptn = ($lastpn - 1) * $MembersPerPage;
if ($endpage < $max - ($MembersPerPage) ) {$pageindexadd = qq~ ... ~;}
if ($endpage != $max) {$pageindexadd .= qq~ <a href="$cgi;action=mlletter;letter=$letter;start=$lastptn">$lastpn</a>~;}
$pageindex .= $pageindexadd;
$yymain .= qq~
<table border="0" width="100%" cellspacing="1" cellpadding="2" bgcolor="$color{'bordercolor'}" class="bordercolor">
<tr>
<td class="catbg" bgcolor="$color{'catbg'}"><font size=2><b> $txt{'139'}:</b>
$pageindex
</td>
</tr>
</table>
~;
}
$yytitle = "$txt{'312'}";
&template;
exit;
}
sub MLByIP {
if($username eq "Guest") { &fatal_error("$txt{'223'}"); }
$yymain .= qq~$TableHeader~;
fopen(FILE, "$memberdir/memberlist.txt");
@memberlist = <FILE>;
$memcount = @memberlist;
@imemberfile = @memberlist;
fclose(FILE);
if ($FORM{'searchip'} ne "") { $ipaddr = $FORM{'searchip'}; }
else { $ipaddr = $INFO{'searchip'}; }
$ipaddr =~ s/ //gi;
$ipaddr =~ s/\n//gi;
if($INFO{'start'} eq "") { $start=0; }
else { $start="$INFO{'start'}"; }
unless(!$ipaddr)
{
for($i=0;$i<$memcount;$i++) {
chomp(@imemberfile);
$imemberfile[$i] =~ s/ //gi;
$imemberfile[$i] =~ s/\n//gi;
$memberfile = $imemberfile[$i];
fopen(MEMBERFILEREAD,"$memberdir/$memberfile.yam");
@member = <MEMBERFILEREAD>;
fclose(MEMBERFILEREAD);
chomp @member;
($SearchName1, $SearchName2, $SearchName3) = split(/\|/, $member[1]);
if ($SearchName1 eq $ipaddr) {push(@ToShow,$memberfile);}
elsif ($SearchName2 eq $ipaddr) {push(@ToShow,$memberfile);}
elsif ($SearchName3 eq $ipaddr) {push(@ToShow,$memberfile);}
}
$memcount=@ToShow;
$numshown=0; $b=$start;
unless ($memcount == 0) {
while(($numshown < $MembersPerPage))
{
$membername=@ToShow[$b];
if ($membername ne "")
{
@member = ();
$Bar = "";
$ICQ = "";
$hjsite = "";
fopen(MEMBERFILEREAD,"$memberdir/$membername.dat");
@member = <MEMBERFILEREAD>;
fclose(MEMBERFILEREAD);
chomp @member;
$viewipnumb = "";
fopen(NUMBERFILEREAD,"$memberdir/$membername.yam");
@number = <NUMBERFILEREAD>;
fclose(NUMBERFILEREAD);
chomp @number;
if($settings[7] eq "Administrator" || $settings[7] eq 'Global Moderator' && $allow_mod == 1) {
($ipnumb1, $ipnumb2, $ipnumb3) = split(/\|/, $number[1]);
if ($ipnumb1 == 0) { $viewipnumb = " "; }
else {
$viewipnumb .= qq~<a href="$cgi;action=mlipsearch;searchip=$ipnumb1"><b>$ipnumb1</b></a>~;
if ($ipnumb2 != 0 && $ipnumb2 ne $ipnumb1) { $viewipnumb .= qq~<br><a href="$cgi;action=mlipsearch;searchip=$ipnumb2">$ipnumb2</a>~; }
if ($ipnumb3 != 0 && $ipnumb3 ne $ipnumb1 && $ipnumb3 ne $ipnumb2) { $viewipnumb .= qq~<br><a href="$cgi;action=mlipsearch;searchip=$ipnumb3">$ipnumb3</a>~; }
}
}
if ($number[0] == 0) { $number[0] = " "; }
&FormatUserName($membername);
fopen(FILE, "$vardir/membergroups.txt");
@membergroups = <FILE>;
fclose(FILE);
chomp @membergroups;
if(!-e "$sourcedir/MemberGroups.pl") {
if($member[6] >= $GodPostNum) { $memberinfo = "$membergroups[6]"; }
elsif($member[6] >= $SrPostNum) { $memberinfo = "$membergroups[5]"; }
elsif($member[6] >= $FullPostNum) { $memberinfo = "$membergroups[4]"; }
elsif($member[6] >= $JrPostNum) { $memberinfo = "$membergroups[3]"; }
else { $memberinfo = "$membergroups[2]"; }
}
else {
$memstatcount = "0";
if( $member[6] >= $MemPostNewbie) { $memberinfo = "$MemStatNewbie"; }
while($MemStat[$memstatcount]) {
if( $member[6] >= $MemPostNum[$memstatcount] && $MemPostNum[$memstatcount] ne "x") {
$memberinfo = "$MemStat[$memstatcount]";
}
$memstatcount++;
}
}
$memberinfo =~ s/\n//gi;
$Bargif = "";
$barchart = ($member[6]);
$bartemp = ($member[6] * 100);
$barwidth = ($bartemp / $barmax);
$barwidth = ($barwidth + 0.5);
$barwidth = int($barwidth);
if($barwidth > 100) {$barwidth = 100}
fopen(FILE, "$vardir/barcolor.dat");
@grpbar=<FILE>;
fclose(FILE);
chomp(@grpbar);
if(!-e "$sourcedir/MemberGroups.pl") {
if ($barchart >= $GodPostNum) {
$Bargif = "img src='$barsurl/$grpbar[3].gif'";
}
elsif ($barchart >= $SrPostNum) {
$Bargif = "img src='$barsurl/$grpbar[2].gif'";
}
elsif ($barchart >= $FullPostNum) {
$Bargif = "img src='$barsurl/$grpbar[1].gif'";
}
elsif ($barchart >= $JrPostNum) {
$Bargif = "img src='$barsurl/$grpbar[0].gif'";
}
else {
$Bargif = "img src='$barsurl/$stfaultbar.gif'";
}
}
else {
$membarcount = 0;
$Bargif .= qq(img src="$barsurl/$stfaultbar.gif");
while($MemStat[$membarcount]) {
if($barchart >= $MemPostNum[$membarcount] && $MemPostNum[$membarcount] ne 'x') {
$Bargif = "";
$Bargif .= qq(img src="$barsurl/$grpbar[$membarcount].gif");
}
$membarcount++;
}
}
if ($barwidth < 1) {$Bar = "$Bar";}
else {
$Bar = qq~<$Bargif width=$barwidth height=10 alt="$memberinfo" border="0">~;
}
$member[8] =~ s/[\n\r]//g;
if ($Bar eq "") { $Bar=" "; }
if($member[6] > 100000) { $member[6] = "$txt{'683'}"; }
if(-e "$sourcedir/MemberGroups.pl") {
if($member[7] eq "Administrator") { $member[7] = "$MemStatAdmin"; }
if($member[7] eq "Global Moderator") { $member[7] = "$MemStatGMod"; }
}
else {
if($member[7] eq "Administrator") { $member[7] = "$membergroups[0]"; }
}
if($member[7] eq "") { $member[7] = "$memberinfo"; }
$dispgend = " ";
if($gendcol eq "pic") {
if ($member[11] eq "Male") { $dispgend = qq~<img src="$imagesdir/male.gif" border="0">~; }
if ($member[11] eq "Female") { $dispgend = qq~<img src="$imagesdir/female.gif" border="0">~; }
$gendjust = "center";
}
else {
if ($member[11] eq "Male") { $dispgend = qq~$txt{'238'}~; }
if ($member[11] eq "Female") { $dispgend = qq~$txt{'239'}~; }
$gendjust = "left";
}
if ($username eq "Guest" && $guest_allow) {
if($mailcol eq "pic") { $mailpic = qq~<IMG SRC="$imagesdir/lockmail.gif" border="0" alt="$txt{'722'}">~;
$mailjust = "center"; }
else { $mailpic = "$txt{'722'}";
$mailjust = "left"; }
}
else {
if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $settings[7] ne "Global Moderator" && $allow_hide_email eq 1) { $yymain .= qq~
~;
if($mailcol eq "pic") { $mailpic = qq~<IMG SRC="$imagesdir/lockmail.gif" border="0" alt="$txt{'722'}">~;
$mailjust = "center"; }
else { $mailpic = "$txt{'722'}";
$mailjust = "left"; }
}
else {
if($mailcol eq "pic") { $mailpic = qq~<a href="mailto:$member[2]"><IMG SRC="$imagesdir/email.gif" border="0" alt="$member[2]"></a>~;
$mailjust = "center"; }
else { $mailpic = qq~<a href="mailto:$member[2]">$member[2]</a>~;
$mailjust = "left"; }
}
}
if($member[4] eq "") { $hjsite = " "; }
elsif($wwwcol eq "pic") { if($member[4] !~ m~\Ahttp://\S*~) { $member4 = "<a href=\"http://$member[4]\" target=\"_blank\">"; }
else { $member4 = "<a href=\"$member[4]\" target=\"_blank\">"; }
$hjsite = qq~$member4<img src="$imagesdir/www.gif" border="0" align="absmiddle" alt="$member[3]"></a>~;
$wwwjust = "center"; }
else { if($member[4] !~ m~\Ahttp://\S*~) { $member4 = "<a href=\"http://$member[4]\" target=\"_blank\">"; }
else { $member4 = "<a href=\"$member[4]\" target=\"_blank\">"; }
$hjsite = qq~$member4$member[3]</a>~;
$wwwjust = "left"; }
if($imcol eq "pic") { $imimg = qq~<a href="$cgi;action=imsend;to=$useraccount{$name}"><IMG SRC="$imagesdir/message.gif" border="0" align="absmiddle" alt="$txt{'148'} $txt{'311'} $member[1]"></a>~;
$imjust = "center"; }
else { $imimg = qq~<a href="$cgi;action=imsend;to=$useraccount{$name}">$membtxt{'43'} $member[1]</a>~;
$imjust = "left"; }
if( $member[8] ne "" && $member[8] !~ m~\D~ ) {
$ICQ = $member[8];
if($icqcol eq "pic") { $icqimg = qq~<a href="$cgi;action=icqpager;UIN=$ICQ" target=_blank> <img src="http://web.icq.com/whitepages/online?icq=$member[8]&img=5" alt="$member[8]" border="0" align="absmiddle"> </a>~;
$icqjust = "center"; }
else { $icqimg = qq~<a href="$cgi;action=icqpager;UIN=$ICQ" target=_blank> <img src="http://web.icq.com/whitepages/online?icq=$member[8]&img=5" alt="$member[8]" border="0" align="absmiddle"> $member[8]</a>~;
$icqjust = "left"; }
}
else { $icqimg = " " }
if ($member[10] eq '') { $yimimg = " "; }
elsif($yimcol eq "pic") { $yimimg = qq~<a href="http://edit.yahoo.com/config/send_webmesg?.target=$member[10]"><img SRC="http://opi.yahoo.com/online?u=$member[10]&m=g&t=0" NOSAVE BORDER=0 alt="$member[10]"></a>~;
$yimjust = "center"; }
else { $yimimg = qq~<a href="http://edit.yahoo.com/config/send_webmesg?.target=$member[10]"><img SRC="http://opi.yahoo.com/online?u=$member[10]&m=g&t=0" NOSAVE BORDER=0 alt="$member[10]"> $member[10]</a>~;
$yimjust = "left"; }
if ($member[9] eq '') { $aimimg = " "; }
elsif($aimcol eq "pic") { $aimimg = qq~<a href="aim:goim?screenname=$member[9]&message=Hi,+are+you+there?"><img src="$imagesdir/aim.gif" border="0" align="absmiddle" alt="$member[9]"></a>~;
$aimjust = "center"; }
else { $aimimg = qq~<a href="aim:goim?screenname=$member[9]&message=Hi,+are+you+there?"><img src="$imagesdir/aim.gif" border="0" align="absmiddle" alt="$member[9]"> $member[9]</a>~;
$aimjust = "left"; }
if(-e "$sourcedir/Msn.pl") {
fopen(FILE, "$memberdir/$membername.om");
@msnsettings = <FILE>;
fclose <FILE>;
chomp @msnsettings;
}
$dr = "";
if ($member[14] eq "") { $dr = "$txt{'470'}"; }
else { $dr = "$member[14]"; $dr = &timeformat($dr); }
if ($number[0] eq " ") { $dr = "$membtxt{'32'}"; }
$onlinemem = $img{'mem_offline'};
fopen(FILE, "$vardir/log.txt");
@entries = <FILE>;
fclose(FILE);
foreach $curentry (@entries) {
chomp $curentry;
($onname, $onvalue) = split(/\|/, $curentry);
if(lc $onname eq lc $membername) { $onlinemem = $img{'mem_online'}; }
}
$yymain .= qq~
<tr>
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center" valign="middle">$onlinemem</td>
<td valign="middle" class="windowbg" bgcolor="$color{'windowbg'}"><font size=2><a href="$cgi;action=viewprofile;username=$useraccount{$membername}">$member[1]</a></font></td>
~;
if ($view_gendcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$gendjust" valign="middle"><font size="2">$dispgend</font></td>
~;
}
if ($view_mailcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$mailjust" valign="middle"><font size="2">$mailpic</font></td>
~;
}
if ($view_wwwcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$wwwjust" valign="middle"><font size=2>$hjsite</font></td>
~;
}
if ($view_imcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$imjust" valign="middle"><font size=2>$imimg</font></td>
~;
}
if ($view_icqcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="$icqjust" valign="middle"><font size=2>$icqimg</font></td>
~;
}
if ($view_yimcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center" valign="middle"><font size=2>$yimimg</font></td>
~;
}
if ($view_aimcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center" valign="middle"><font size=2>$aimimg</font></td>
~;
}
if (-e "$sourcedir/Msn.pl" && $view_msncolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center" valign="middle">
~;
if ($msnsettings[0] ne '') {
$yymain .= qq~
<nobr>
<a href=javascript:MsgrApp.LaunchAddContactUI("$msnsettings[0]")><img src="$imagesdir/msnadd.gif" alt="$membtxt{'19'} $msnsettings[0] $membtxt{'20'}" border=0 align="absmiddle"></a>
<a id="lll" href=javascript:MsgrApp.LaunchIMUI("$msnsettings[0]")><img src="$imagesdir/msntalk.gif" alt="$membtxt{'21'} $msnsettings[0]" border=0 align="absmiddle"></a>
</nobr>
~;
}
else {
$yymain .= qq~
~;
}
$yymain .= qq~
</td>
~;
}
$yymain .= qq~
<td class="windowbg" bgcolor="$color{'windowbg'}" valign="middle"><font size=2>$member[7]</font> </td>
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center" valign="middle"><font size=2>$member[6]</font></td>
<td class="windowbg" bgcolor="$color{'windowbg'}" width="104" align="absmiddle">$Bar</td>
~;
if ($view_regdate) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" valign="middle"><font size=1>$dr</font></td>
~;
}
if ($view_numbcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="right" valign="middle"><font size=1>$number[0]</font></td>
~;
}
if ($settings[7] eq "Administrator" && $view_ipcolm || $settings[7] eq 'Global Moderator' && $allow_mod == 1 && $view_ipcolm) {
$yymain .= qq~
<td class="windowbg2" bgcolor="$color{'windowbg2'}" valign="middle"><font size=1>$viewipnumb</font></td>
~;
}
$yymain .= qq~
</tr>
~;
}
$numshown++;
$b++;
}
}
}
if(!$ipaddr) {$yymain .= qq~ <td class="windowbg" bgcolor="$color{'windowbg'}" colspan=$membspan align="center"><br><b>$membtxt{'34'}</b><br><br></td>~;}
if($memcount == 0 && $ipaddr) {$yymain .= qq~ <td class="windowbg" bgcolor="$color{'windowbg'}" colspan=$membspan align="center"><br><b>$membtxt{'35'}</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=mlipsearch;searchip=$ipaddr;start=0">1</a> ... ~; }
if ($startpage == $MembersPerPage) { $pageindex = qq~<a href="$cgi;action=mlipsearch;searchip=$ipaddr;start=0">1</a> ~;}
for( $counter = $startpage; $counter < $endpage; $counter += $MembersPerPage ) {
$pageindex .= $start == $counter ? qq~<b>$tmpa</b> ~ : qq~<a href="$cgi;action=mlipsearch;searchip=$ipaddr;start=$counter">$tmpa</a> ~;
$tmpa++;
}
$tmpx = $max - $MembersPerPage;
$outerpn = int($tmpx / $MembersPerPage) + 0;
$lastpn = int($memcount / $MembersPerPage) + 1;
$lastptn = ($lastpn - 1) * $MembersPerPage;
if ($endpage < $max - ($MembersPerPage) ) {$pageindexadd = qq~ ... ~;}
if ($endpage != $max) {$pageindexadd .= qq~ <a href="$cgi;action=mlipsearch;searchip=$ipaddr;start=$lastptn">$lastpn</a>~;}
$pageindex .= $pageindexadd;
$yymain .= qq~
<table border=0 width=100% cellspacing=1 cellpadding="2" bgcolor="$color{'bordercolor'}" class="bordercolor">
<tr>
<td class="catbg" bgcolor="$color{'catbg'}"><font size=2><b> $txt{'139'}:</b>
$pageindex
</td>
</tr>
</table>
~;
}
$yytitle = "$membtxt{'36'}";
&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] / 5);
if ($barchart < 1) {$Bar = "$Bar";}
elsif ($barchart > 100) {$Bar = qq~<img src="$imagesdir/bar.gif" width=100 height=15 alt="" border="0">~;}
else {
$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=" "; }
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 ($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="mailto:$member[2]">$member[2]</a></font></td>
~; }
$yymain .= qq~
<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2>$member[4]</font> </td>
<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center"><font size=2>$member[6]</font> </td>
<td class="windowbg" bgcolor="$color{'windowbg'}"><font size=2>$member[7]</font> </td>
<td class="windowbg" bgcolor="$color{'windowbg'}">$Bar</td>
</tr>
~;
}
}
$yymain .= qq~$TableFooter~;
$yytitle = "$txt{'313'} $TopAmmount $txt{'314'}";
&template;
exit;
}
sub SortGrpMemb {
if(!-e "$sourcedir/MemberGroups.pl") {
fopen(GRPFILE, "$vardir/membergroups.txt");
@membergroup = <GRPFILE>;
$grpcount = @membergroup;
fclose(GRPFILE);
foreach (@membergroup) { $_ =~ s~[\n\r]~~g; }
$grpcount = $grpcount + 2;
}
else {
$membergroup[0] = "$MemStatAdmin";
$membergroup[1] = "$MemStatGMod";
$membergroup[2] = "$MemStatNewbie";
$grpcount = "0";
while($MemStat[$grpcount]) {
$membergroup[$grpcount + 3] = $MemStat[$grpcount];
$grpcount++;
}
$grpcount = $grpcount + 5;
}
for($i=0;$i<$memcount;$i++) {
chomp(@membername);
$membername[$i] =~ s/ //gi;
$membername[$i] =~ s/\n//gi;
$membname = $membername[$i];
@member = ();
fopen(MEMBERFILE,"$memberdir/$membname.dat");
@member = <MEMBERFILE>;
fclose(MEMBERFILE);
foreach (@member) { $_ =~ s~[\n\r]~~g; }
$realmembname = lc $member[1];
$memberinf = $member[7];
if($memberinf eq "") {
if(!-e "$sourcedir/MemberGroups.pl") {
if($member[6] >= $GodPostNum) { $memberinf = "$membergroup[6]"; }
elsif($member[6] >= $SrPostNum) { $memberinf = "$membergroup[5]"; }
elsif($member[6] >= $FullPostNum) { $memberinf = "$membergroup[4]"; }
elsif($member[6] >= $JrPostNum) { $memberinf = "$membergroup[3]"; }
else { $memberinf = "$membergroup[2]"; }
}
else {
$memstatcount = "0";
if( $member[6] >= $MemPostNewbie) { $memberinf = "$MemStatNewbie"; }
while($MemStat[$memstatcount]) {
if( $member[6] >= $MemPostNum[$memstatcount] && $MemPostNum[$memstatcount] ne "x") {
$memberinf = "$MemStat[$memstatcount]";
}
$memstatcount++;
}
}
}
$amember = lc $memberinf;
for($grp=0;$grp<$grpcount;$grp++) {
$agroup = lc $membergroup[$grp];
if($agroup eq $amember) { $grpnr = $grpcount - $grp; }
}
if($member[7] eq "Administrator") { $grpnr = 0; }
if($member[7] eq "Global Moderator") { $grpnr = 1; }
$SortNumm = ($grpnr + 100);
$GrpMembers[$i] .= qq($SortNumm | $realmembname | $membname);
}
@grplist = sort{ $a cmp $b } (@GrpMembers);
for($i=0;$i<$memcount;$i++) {
chomp(@grplist);
($dummynum[$i], $dummyname[$i], $SortList[$i]) = split(/\|/, $grplist[$i]);
}
chomp(@SortList);
@grpmemberlist = @SortList;
}
sub SortMemb {
for($i=0;$i<$memcount;$i++) {
chomp(@membername);
$membname = $membername[$i];
fopen(MEMBERFILE,"$memberdir/$membname.dat");
@member = <MEMBERFILE>;
fclose(MEMBERFILE);
chomp(@member);
if($smb1) {
$date1 = $member[14];
if ($membname eq "admin") { $date1 = qq~01/01/01 $txt{'107'} 00:00:00~; }
&calcdaystime;
$templist[$i] .= qq($result | $membname);
}
if($smb2) {
$templist[$i] .= qq($member[6] | $membname);
}
if($smb4) {
$templist[$i] .= qq($member[1] | $membname);
}
if($smb5) {
fopen(NUMBERFILEREAD,"$memberdir/$membname.yam");
@number = <NUMBERFILEREAD>;
fclose(NUMBERFILEREAD);
chomp @number;
($ipnumb1, $ipnumb2, $ipnumb3) = split(/\|/, $number[1]);
if ($ipnumb1 == 0) { $ipnumb1 = 999.999.999.999; }
else {
@ippart = ();
($ippart[0], $ippart[1], $ippart[2], $ippart[3]) = split(/\./, $ipnumb1);
for($x=0;$x<4;$x++) {
if($ippart[$x] < 10) { $ippart[$x] = "00$ippart[$x]"; }
elsif($ippart[$x] < 100) { $ippart[$x] = "0$ippart[$x]"; }
}
$ipnumb1 = "$ippart[0]\.$ippart[1]\.$ippart[2]\.$ippart[3]";
}
$templist[$i] .= qq($ipnumb1 | $membname);
}
if($smb6) {
($ename, $edom) = split(/\@/, $member[2]);
$templist[$i] .= qq($edom $ename | $membname);
}
}
if($smb4 || $smb5 || $smb6) { @SortAList = sort{lc($a) cmp lc($b)} (@templist); }
else { @SortAList = sort{$b<=>$a} (@templist); }
for($i=0;$i<$memcount;$i++) {
chomp(@SortAList);
($indxname[$i], $SortList[$i]) = split(/\|/, $SortAList[$i]);
}
chomp(@SortList);
@sortmembername = @SortList;
}
1;
Pages: [1] 
Security_mod.mod (Read 2932 times)
