team.cgi

一个linux论坛

            $membergraphic = "<img src=\"$imagesurl/images/$modgraphic\" border=\"0\" width=100 height=16>" if ($modgraphic ne "");
            $mtitle = $motitle if ($motitle ne "");
            if (($userdetail[2] eq "")||($userdetail[2] eq "Member")||($userdetail[2] eq "member")) {
                $membertitle = qq~<font face="$font" color=$fontcolor>论坛版主</font>~; }
            else {
                $membertitle = qq~<font face="$font" color=$fontcolor>$userdetail[2]</font>~; } }
	elsif ($userdetail[3] eq "cmo") {
		$posterfontcolor = "$cmonamecolor";
            $membername = qq~$userdetail[0] <img src="$imagesurl/images/teamcmo.gif" border=0 alt=此人为分类区版主 width=16 height=16>~;
            $membergraphic = "<img src=\"$imagesurl/images/$cmodgraphic\" border=\"0\" width=100 height=16>" if ($cmodgraphic ne "");
            $mtitle = $cmotitle if ($cmotitle ne "");
            if (($userdetail[2] eq "")||($userdetail[2] eq "Member")||($userdetail[2] eq "member")) {
                $membertitle = qq~<font face="$font" color=$fontcolor>分类区版主</font>~; }
            else {
                $membertitle = qq~<font face="$font" color=$fontcolor>$userdetail[2]</font>~; } }
	elsif ($userdetail[3] eq "smo") {
		$posterfontcolor = "$smonamecolor";
            $membername = qq~$userdetail[0] <img src="$imagesurl/images/teamsmo.gif" border=0 alt=此人为总版主 width=16 height=16>~;
            $membergraphic = "<img src=\"$imagesurl/images/$smodgraphic\" border=\"0\" width=100 height=16>" if ($smodgraphic ne "");
            $mtitle = $smotitle if ($smotitle ne "");
            if (($userdetail[2] eq "")||($userdetail[2] eq "Member")||($userdetail[2] eq "member")) {
                $membertitle = qq~<font face="$font" color=$fontcolor>总版主</font>~; }
            else {
                $membertitle = qq~<font face="$font" color=$fontcolor>$userdetail[2]</font>~; } }
	## Setze letzte Beitrags-Details
	($postdate, $posturl, $posttopic) = split(/\%%%/, $userdetail[14]);
	if ($postdate ne "没有发表过") {
	    $postdate = $postdate + ($userdetail[16] * 3600) + ($timezone * 3600);
            $lastpostdate = &longdate ("$postdate");
            $lastposttime = &shorttime ("$postdate");


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

	    $posttopic =~ s/^＊＃！＆＊//;

	    $lastpostdetails = qq~<a href="$posturl">$posttopic</a> ($lastpostdate $lastposttime)~; }
	else { $lastpostdetails = qq~从未发言过~; }
	if ($posturl eq "" && $posttopic eq "" && $postdate ne "没有发表过") {$lastpostdetails = qq~是发在保密论坛的哟，不给看~; }

    my $membernametemp = "\_$userdetail[0]\_";
    if ($onlineuserlist =~ /$membernametemp/i) { $onlineinfo = "该用户目前在线";$onlinepic="online1.gif"; } else { $onlineinfo = "该用户目前不在线";$onlinepic="offline1.gif"; }
    if (($inmembercode eq "ad")&&($onlineuserlisthidden =~ /$membernametemp/i)) { $onlineinfo = "该用户目前处于隐身状态";$onlinepic="onlinehidden.gif"; }
    $online = qq~<IMG SRC=$imagesurl/images/$onlinepic width=15 alt=$onlineinfo>~;

        ## Mehr Details
	if ($userdetail[6] eq "no") {$email = "保密"; }
	if ($userdetail[6] eq "msn") {$email = qq~<img src=$imagesurl/images/msn.gif border=0 width=16 height=16 align=absmiddle> <a href="mailto:$userdetail[5]">$userdetail[5]</a>~; }
        else {$email = qq~<a href="mailto:$userdetail[5]">$userdetail[5]</a>~; }

        if ($userdetail[8] eq "" || $userdetail[8] eq "http://") {
            $homepage = "没有"; }
        else {
            $homepage = qq~<a href="$userdetail[8]" target="_blank">$userdetail[8]</a>~; }
        if ($userdetail[9] eq "") {
            $oicqnumber = "没有"; }
        else {
            $oicqnumber = $userdetail[9]; }
        if ($userdetail[10] eq "") {
            $icqnumber = "没有"; }
        else {
            $icqnumber = $userdetail[10]; }
        if ($userdetail[39] eq "") {
            $jhmp = "无门无派"; }
        else {
            $jhmp = $userdetail[39]; }

        ## Erstelle Liste der moderierten Foren des Mitglieds
        $filetoopen = "$lbdir" . "data/allforums.cgi";
	open(FILE, "$filetoopen");
	@forumsdata = <FILE>;
	close(FILE);
	undef @moderatedforums;
	$userdetail[0] =~ tr/A-Z/a-z/;
        foreach $forum (@forumsdata) {
            @forumdetail = split (/\t/, $forum);
            chomp @forumdetail;
if($forumdetail[1]=~/childforum-[0-9]+/){
$tempforumno=$forumdetail[1];
$tempforumno=~s/childforum-//;
	if($subforumname[$tempforumno] eq ""){
    $filetoopen = "${lbdir}forum$tempforumno/foruminfo.cgi";
    open(FILE, "$filetoopen");
    $forums = <FILE>;
    close(FILE);
    ($subforumno[$tempforumno], $subforumcat[$tempforumno], undef, $subforumname[$tempforumno], undef) = split(/\t/,$forums);
$subforumname=qq( > <a href="forums.cgi?forum=$subforumno[$tempforumno]">$subforumname[$tempforumno]</a>);
$forumdetail[1]=$subforumcat[$tempforumno];
	}else{
$subforumname=qq( > <a href="forums.cgi?forum=$subforumno[$tempforumno]">$subforumname[$tempforumno]</a>);
$forumdetail[1]=$subforumcat[$tempforumno];
	}
}else{
undef $subforumname;
}
	    $forumdetail[5] =~ s/\, /\,/gi;
	    $forumdetail[5] =~ s/ \,/\,/gi;
	    $forumdetail[5] =~ tr/A-Z/a-z/;
	    @forummodnames = split(/\,/, $forumdetail[5]);
	    foreach $name (@forummodnames) {
    	        chomp $name;
                if (lc($name) eq lc($userdetail[0])) {
                    push (@moderatedforums, "<a href=\"forums.cgi?forum=$forumdetail[0]\">$forumdetail[3]</a> ($forumdetail[1]$subforumname)<br>"); 
                }
            }
        }
        if (!@moderatedforums) {
           @moderatedforums = "$userdetail[0] 没有主持任何版块"; }
        @moderatedforums = sort alphabetically (@moderatedforums);

        ## Schreibe HTML in eine Variable
        $teamguts .= qq~
        <!--Begin Profile for $userdetail[0]-->
        <tr bgcolor=$color>
        <td valign=top>
	<table style="filter:glow(color=$titlecolor,strength=2)">$online　<font face="$posternamefont" color="$posterfontcolor"><b>$membername</b></font>
	</table>
        头衔：$membertitle
        <br>$useravatar
        <br>$membergraphic
        <br>级别：<a href="lookinfo.cgi?action=style" target="_blank">$mtitle</a><br>门派: $jhmp</td>
        <td valign=top><table cellspacing=0 cellpadding=0 border=0 width=100%>
        <tr>
        <td width=25% valign=top><font face="$font" color=$fontcolor>注册日期：</font></td>
        <td width=75% valign=top><font face="$font" color=$fontcolor>$userdetail[13]</font></td>
        </tr>
        <tr>
        <td width=25% valign=top><font face="$font" color=$fontcolor>最后发言：</font></td>
        <td width=75% valign=top><font face="$font" color=$fontcolor>$lastpostdetails</font></td>
        </tr>
        <tr>
        <td width=25% valign=top><font face="$font" color=$fontcolor>失踪天数：</font></td>
        <td width=75% valign=top><font face="$font" color=$fontcolor>$novisitdate 天</font></td>
        </tr>
        <tr><td colspan=2><font face="$font">&nbsp;</font></td></tr>
        <tr>
        <td width=25% valign=top><font face="$font" color=$fontcolor>电子邮件：</font></td>
        <td width=75% valign=top><font face="$font" color=$fontcolor>$email</font></td>
        </tr>
        <tr>
        <td width=25% valign=top><font face="$font" color=$fontcolor>主页：</font></td>
        <td width=75% valign=top><font face="$font" color=$fontcolor>$homepage</font></td>
        </tr>
        <tr><td colspan=2><font face="$font">&nbsp;</font></td></tr>
        <tr>
        <td width=25% valign=top><font face="$font" color=$fontcolor>OICQ 号码：</font></td>
        <td width=75% valign=top><font face="$font" color=$fontcolor>$oicqnumber</font></td>
        </tr>
        <tr>
        <td width=25% valign=top><font face="$font" color=$fontcolor>ICQ 号码：</font></td>
        <td width=75% valign=top><font face="$font" color=$fontcolor>$icqnumber</font></td>
        </tr>
        <tr><td colspan=2><font face="$font">&nbsp;</font></td></tr>
        <tr>
        <td width=25% valign=top><font face="$font" color=$fontcolor>主持板块：</font></td>
        <td width=75% valign=top><font face="$font" color=$fontcolor>@moderatedforums</font></td>
        </tr>
        </table></td>
        </tr>~;

        @moderatedforums = "";
        $lastcolor = $color;
        undef $membertitle;
        undef $icqnumber;
        undef $oicqnumber;
        undef $homepage;
        undef $email;
        undef $lastpostdetails;
        undef $membername;
        undef $jhmp;
        undef $useravatar;
        undef $membergraphic;
        }


&title;
    if ($boardlogo =~ /\.swf$/i) {$forumgraphic = qq~<PARAM NAME=PLAY VALUE=TRUE><PARAM NAME=LOOP VALUE=TRUE><PARAM NAME=QUALITY VALUE=HIGH><embed src=$imagesurl/myimages/$boardlogo quality=high width=$boardlogow height=$boardlogoh pluginspage="http:\/\/www.macromedia.com\/shockwave\/download\/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application\/x-shockwave-flash"><\/embed>~}
        else {$forumgraphic = qq~<img src=$imagesurl/myimages/$boardlogo>~};

$output .= qq~
<p>
<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth align=center>
<tr>
<td width=30% rowspan=2>
$forumgraphic
</td>
<td valign=top align=left>
<font face="$font" color=$fontcolormisc>
&nbsp;&nbsp;<img src="$imagesurl/images/closedfold.gif" border=0>&nbsp;&nbsp;<a href="leoboard.cgi">$boardname</a>
<br>
&nbsp;&nbsp;<img src="$imagesurl/images/bar.gif" border=0><img src="$imagesurl/images/openfold.gif" border=0>&nbsp;&nbsp;管理团队
</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=$titlecolor>
<td width=25% align=center><font face="$font" color=$titlefontcolor><b>管 理 人 员</b></td>
<td width=75% align=center><font face="$font" color=$titlefontcolor><b>详 细 信 息</b></td>
</tr>

$teamguts

</table></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>
~;


print header(-charset=>gb2312);    
&output( -Title => "$boardname - 管理团队", -ToPrint => $output, -Version => $versionnumber );
exit;