memberlist.cgi

一个linux论坛

        $member =~s/_/\_/g;
        $member =~ tr/A-Z/a-z/;
            $usrfile = "${lbdir}$memdir/$member.cgi";
            $usrfile = "${lbdir}$memdir/old/$member.cgi" if (!(-e $usrfile));
	    if (-e "$usrfile") {
		open(FILE, "$usrfile" );
        $memberdaten = <FILE>;
        close(FILE);
        &Listing;
    }
    }
    $output .= qq~</table>~;
}
sub datum {
    $query = new LBCGI;
    $inpage = $query -> param ("page");
    if ($inpage eq "") {$inpage = 1;}
    $a = 4;
    $Listenname = "以注册时间排序";
    &Tabellenanfang;
    @memberarray = @sortiert1;
    &splitting;
    foreach $member (@sortiert1[$startmember ... $endmember]) {
        $member =~s/ /_/g;
        $member =~s/_/\_/g;
        $member =~ tr/A-Z/a-z/;
            $usrfile = "${lbdir}$memdir/$member.cgi";
            $usrfile = "${lbdir}$memdir/old/$member.cgi" if (!(-e $usrfile));
	    if (-e "$usrfile") {
		open(FILE, "$usrfile" );
            $memberdaten = <FILE>;
            close(FILE);
            &Listing;
	}
    }
    $output .= qq~</table>~;
}
sub redatum {
    $Listenname = "最新 $topanzahl 名注册用户";
    &Tabellenanfang;
    @memberarray = @sortiert2;
    @sortiert2 = splice(@sortiert2,0,$topanzahl);
    foreach $member (@sortiert2) {
            $member =~s/ /_/g;
            $member =~s/_/\_/g;
            $member =~ tr/A-Z/a-z/;
            $usrfile = "${lbdir}$memdir/$member.cgi";
            $usrfile = "${lbdir}$memdir/old/$member.cgi" if (!(-e $usrfile));
	    if (-e "$usrfile") {
		open(FILE, "$usrfile" );
            $memberdaten = <FILE>;
            close(FILE);
            &Listing;
	}
    }
    $output .= qq~</table>~;
}
sub Tabellenanfang {
    $totalpostandthreads = $totalposts + $totalthreads;
    $output .= qq~<center>
      <table width=$tablewidth bgcolor=$backgroundcolor cellspacing=0 border=0 bordercolor=$tablebordercolor>
    	<tr><td>
      	<table cellpadding=6 cellspacing=1 border=0 width=100%>
    	<tr bgcolor=$forumcolorone><td colspan=3 valign=top>&nbsp;>> <B>$Listenname</B> <<<BR><BR>
	&nbsp;总注册用户数： $totlemembertemp 人 　发贴总数： $totalpostandthreads 篇</font></td>
	<td colspan=7 align=right><form method=get action=memberlist.cgi>
        <select name=a>
            <option value=2>发贴总数前 $topanzahl 名</option>
            <option value=5>最新 $topanzahl 名注册用户</option>
            <option value=3>以用户名排序</option>
            <option value=1>以发贴总数排序</option>
            <option value=4>以注册时间排序</option>
            <option value=6>监狱中的犯人</option>
        </select>
	<input type=submit value="排 序"></form><form method=get action=memberlist.cgi>
	用户： <input type=text name="searchmember">		<input type=submit value="查 找">
	</td></form></tr>
~;
    @L=("*","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","All");
    $output.=qq~<tr bgcolor=$forumcolorone><td colspan="10"><table cellpadding=1 cellspacing=1 border=0 width=100%><tr bgcolor=$forumcolorone>~;
    for($i=0;$i<28;$i++){
    	if(($L eq lc($L[$i]))||(($L eq "")&&($L[$i] eq "All"))){
    $output.=qq~<td width="3%" align="center" bgcolor="$forumcolorone">[$L[$i]]</td>~;
    	}elsif($L[$i] eq "All"){
    $output.=qq~<td width="3%" align="center" bgcolor="$forumcolortwo"><a href="memberlist.cgi?a=$a" target="_self">$L[$i]</a></td>~;
    	}else{
    $output.=qq~<td width="3%" align="center" bgcolor="$forumcolortwo"><a href="memberlist.cgi?a=$a&L=$L[$i]" target="_self">$L[$i]</a></td>~;
    	}
    }
    $output.=qq~</tr></table></td></tr>
	<tr bgcolor=$titlecolor><td align=center><b>用户名</b></td><td align=center><b>Email</b></td><td align=center><b>ICQ</b></td><td align=center><b>OICQ</b></td><td align=center><b>主页</b></td><td align=center><b>短消息</td><td align=center><b>最后发贴</td><td align=center><b>注册时间</b></td><td align=center><b>等级状态</b></td><td align=center><b>发贴总数</b></td></font></tr>
    ~;
}

sub Listing {
    @memberdaten = split(/\t/,$memberdaten);
    $name        = $memberdaten[0];
    $status      = $memberdaten[2];
    $anzahl      = $memberdaten[4];
    ($anzahl1, $anzahl2) = split(/\|/,$anzahl);
    $anzahl = $anzahl1 + $anzahl2;
    $email       = $memberdaten[5];
    $home        = $memberdaten[8];
    $oicqnumber     = $memberdaten[9];
    $icq         = $memberdaten[10];
    $date        = $memberdaten[13] + ($memberdaten[16] * 3600) + ($timezone * 3600);
    $rang        = $memberdaten[3];
    $emailstatus = $memberdaten[6];
    next if ($name eq "");
    ($postdate, $posturl, $posttopic) = split(/\%%%/, $memberdaten[14]);
    if (($postdate ne "没有发表过")&&($postdate ne "")) {
        $postdate = $postdate + ($userdetail[16] * 3600) + ($timezone * 3600);
        $lastpostdate = &longdate ("$postdate");
        $lastposttime = &longdate ("$postdate");

	if (($dofilter eq "no")||($dofilter eq "all")) {
	    $posttopic = &postwordfilter("$posttopic");
	}

        $posttopic =~ s/^＊＃！＆＊//;
	$lastpostdetails = qq~<a href=$posturl><img border=0 src=$imagesurl/images/openfold.gif alt=$posttopic></a>~;
    }
    else{$lastpostdetails = "没有";}
    $date = &longdate($date + ($memberdaten[16]*3600) + ($timezone*3600));
    $postundmember {"$name"} = $anzahl;
    if (($icq) && ($icq =~ /[0-9]/)){
	$icqgraphic = qq~<a href="javascript:openScript('misc.cgi?action=icq&UIN=$icq',450,300)"><img src=$imagesurl/images/icq.gif border=0 width=16 height=16></a>~;
    }
    else{$icqgraphic = "没有";}

    if (($home eq "http://") || ($home eq "")) { $home = "没有"; }
    else{
	$home = "<a href=$home target=_blank><img border=0 src=$imagesurl/images/homepage.gif></a>"
    }

    if ($oicqnumber) {$oicqgraphic = qq~<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=$oicqnumber target=_blank><img src=$imagesurl/images/oicq.gif alt="查看 OICQ:$oicqnumber 的资料" border=0 width=16 height=16></a>~; }
    else{$oicqgraphic = "没有";}
    if ($email eq "" || $emailstatus eq "no" || $emailstatus eq "msn"){
	$email = "没有" if ($email eq "");
	$email = "保密" if ($emailstatus eq "no");
	$email = "<a href=mailto:$email><img border=0 src=$imagesurl/images/msn.gif></a>" if ($emailstatus eq "msn");
    }
    else {$email = "<a href=mailto:$email><img border=0 src=$imagesurl/images/email.gif></a>" }
        if ($anzahl >= $mpostmarkmax)   { $mtitle = $mtitlemax; $membergraphic = $mgraphicmax; }
        elsif ($anzahl >= $mpostmark19) { $mtitle = $mtitle19;  $membergraphic = $mgraphic19; }
        elsif ($anzahl >= $mpostmark18) { $mtitle = $mtitle18;  $membergraphic = $mgraphic18; }
        elsif ($anzahl >= $mpostmark17) { $mtitle = $mtitle17;  $membergraphic = $mgraphic17; }
        elsif ($anzahl >= $mpostmark16) { $mtitle = $mtitle16;  $membergraphic = $mgraphic16; }
        elsif ($anzahl >= $mpostmark15) { $mtitle = $mtitle15;  $membergraphic = $mgraphic15; }
        elsif ($anzahl >= $mpostmark14) { $mtitle = $mtitle14;  $membergraphic = $mgraphic14; }
        elsif ($anzahl >= $mpostmark13) { $mtitle = $mtitle13;  $membergraphic = $mgraphic13; }
        elsif ($anzahl >= $mpostmark12) { $mtitle = $mtitle12;  $membergraphic = $mgraphic12; }
        elsif ($anzahl >= $mpostmark11) { $mtitle = $mtitle11;  $membergraphic = $mgraphic11; }
        elsif ($anzahl >= $mpostmark10) { $mtitle = $mtitle10;  $membergraphic = $mgraphic10; }
        elsif ($anzahl >= $mpostmark9)  { $mtitle = $mtitle9;   $membergraphic = $mgraphic9; }
        elsif ($anzahl >= $mpostmark8)  { $mtitle = $mtitle8;   $membergraphic = $mgraphic8; }
        elsif ($anzahl >= $mpostmark7)  { $mtitle = $mtitle7;   $membergraphic = $mgraphic7; }
        elsif ($anzahl >= $mpostmark6)  { $mtitle = $mtitle6;   $membergraphic = $mgraphic6; }
        elsif ($anzahl >= $mpostmark5)  { $mtitle = $mtitle5;   $membergraphic = $mgraphic5; }
        elsif ($anzahl >= $mpostmark4)  { $mtitle = $mtitle4;   $membergraphic = $mgraphic4; }
        elsif ($anzahl >= $mpostmark3)  { $mtitle = $mtitle3;   $membergraphic = $mgraphic3; }
        elsif ($anzahl >= $mpostmark2)  { $mtitle = $mtitle2;   $membergraphic = $mgraphic2; }
        elsif ($anzahl >= $mpostmark1)  { $mtitle = $mtitle1;   $membergraphic = $mgraphic1; }
        else { $mtitle = $mtitle0; $membergraphic = ""; }
        if($rang eq "ad") {
        	$mtitle = $adtitle if ($adtitle ne "");
        	$membergraphic = "$admingraphic" if ($admingraphic ne "");
        }
        elsif ($rang eq "mo") {
        	$mtitle = $motitle if ($motitle ne "");
        	$membergraphic = "$modgraphic" if ($modgraphic ne "");
        }
        elsif ($rang eq "cmo") {
        	$mtitle = $cmotitle if ($cmotitle ne "");
        	$membergraphic = "$cmodgraphic" if ($cmodgraphic ne "");
        }
        elsif ($rang eq "smo") {
        	$mtitle = $smotitle if ($smotitle ne "");
        	$membergraphic = "$smodgraphic" if ($smodgraphic ne "");
        }
        elsif ($rang eq "banned") {
        	$mtitle = "已被禁止发言";
        	$membergraphic = "";
        }
        elsif ($rang eq "masked") {
        	$mtitle = "发言已被屏蔽";
        	$membergraphic = "";
        }

        if ($membergraphic) { $membergraphic = "<img src=$imagesurl/images/$membergraphic border=0>"; }
	$memberfilename = $name;
	$memberfilename =~ y/ /_/;
	$memberfilename =~ tr/A-Z/a-z/;
	$message = "<a href=javascript:openScript('messanger.cgi?action=new&touser=$memberfilename',600,400)><img src=$imagesurl/images/message.gif border=0></a>";
	$output .= qq~<tr bgcolor=$forumcolortwo><td>&nbsp;<a href=profile.cgi?action=show&member=~ . ($uri_escape eq "no" ? $memberfilename : uri_escape($memberfilename)) . qq~>$name</a></td><td align=center>$email</td><td align=center>$icqgraphic</td><td align=center>$oicqgraphic</td><td align=center>$home</td><td align=center>$message</td><td align=center>$lastpostdetails</td><td align=center>$date</td><td align=center>$mtitle<br>$membergraphic</td><td align=center>$anzahl</td></tr>~;

}
sub splitting {
    $totalpages = @memberarray / $memberproseite;
    ($pagenumbers, $decimal) = split (/\./, $totalpages);
    if ($decimal > 0) {$pagenumbers++;}

    $pagedigit = 0;
    $mypage=$inpage-1;
    $pagelinks =qq~本排名共有 $pagenumbers 页 ~;
    if ($inpage>1){$pagelinks .= qq~[<a href=memberlist.cgi?a=$a&page=$mypage$pagel>上一页</a>] ~;}
    for ($page=$inpage;$page<$inpage+12;$page++){
    if ($page<=$pagenumbers){
    if ($inpage ne $page) {$pagelinks .= qq~[<a href=memberlist.cgi?a=$a&page=$page$pagel>第$page页</a>] ~; }
	else{$pagelinks .= qq~[<B>第$page页</B>] ~;}
    }
    }
    $nextpage=$inpage+12;
    if ($pagenumbers>$inpage+12){$pagelinks .= qq~[<a href=memberlist.cgi?a=$a&page=$nextpage$pagel>下一页</a>] ~;}
    if ($totalpages <= 1) {$pagelinks = qq~~;}

    $startmember = ($inpage - 1) * $memberproseite;
    $endmember = $startmember + $memberproseite - 1;
    if ($endmember > (@memberarray-1)) {$endtopic = @memberarray - 1;}

}
$output .= qq~</td></tr></table><p>
<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr>
<td><table cellpadding=6 cellspacing=1 border=0 width=100%>
<tr bgcolor=$menubackground>
<td align=center><font face=宋体 color=$fontcolormisc>$pagelinks</font></td>
</tr>
</table></td>
</tr>
</table></center>~;
print header(-charset=>gb2312);
&output(
  -Title   => "$boardname - 用户列表",
  -ToPrint => $output,
  -Version => $versionnumber
);

END {
  if ($cpudisp eq "1") {
    $spent_time = sprintf ("%.2f", ((times)[0] + (times)[1] - $start_time)*1000);
    print "<center><font color=#c0c0c0>当前页面执行消耗时间： $spent_time 毫秒";
  }
}