ikonboard.cgi

绿叶网络小学校园网-完全适合小学的网站

            $forummoderator =~ s/\, /\,/g;
            my @mods = split(/\,/,$forummoderator);
            my $tm = @mods; my $mc = 1;
            foreach (@mods) {
                my $cmodn = $_; $cmodn =~ y/ /_/;
                if ($mc != $tm) {
                    $modout .= qq~<a href="$boardurl/$profileprog?action=show&member=$cmodn">$_</a><BR>~;
                    }
                    else { $modout .= qq~<a href="$profileprog?action=show&member=$cmodn">$_</a>~; }
                $mc++;
                }
#            $modout = qq!&nbsp;$modout!;
            }
    $modout="暂时空缺" if ($modout eq "");
    
    if ($categoryplace ne $lastcategoryplace) {
        $output .= qq~<tr><td bgcolor=$catback colspan=7><font face="$font" color=$catfontcolor><b>* $category</b></font></td></tr>~;
}

    $forumnameadd = $forumname;
    my $fm = $forumname; $forumname = qq~<a href="$forumsprog?forum=$forumid">$forumname</a>~;
        $forumlastvisit = $lastvisitinfo{$forumid};

        $folderpicture = qq(&nbsp;);
    
        if (($lastposttime > $forumlastvisit) and ($inmembername ne '客人')) {
            $folderpicture = qq~<img src="$imagesurl/images/foldernew.gif" border="0" width=22 height=15 align=center alt="您最后一次光临至今有新贴子">~;
            $posts = qq~<font face="$font" color=$fonthighlight><b>$posts</b></font><font face="$font" color=$forumfontcolor>~;
            $threads = qq~<font face="$font" color=$fonthighlight><b>$threads</b></font><font face="$font" color=$forumfontcolor>~;
            }
            else {
                $folderpicture = qq~<img src="$imagesurl/images/folder.gif" border="0" alt="您最后一次光临至今没有新贴子" width=22 height=15>~;
                $posts = qq~<font face="$font" color=$forumfontcolor>$posts~;
                }
        
        if ($inmembername eq '客人') { $folderpicture = qq(&nbsp;); $loginmessage = "您必须登陆才能查看！"; }

        $forumlastvisit = $forumlastvisit + ($timedifferencevalue*3600) + ($timezone*3600);
        $lastdate = &longdate("$forumlastvisit");
        $lasttime = &shorttime("$forumlastvisit");
    
    
        if ($lastposttime) {
            $lastposttime = $lastposttime + ($timedifferencevalue*3600) + ($timezone*3600);
            $longdate = &longdate("$lastposttime");
            $shorttime = &shorttime("$lastposttime");
            $forumlastpost = qq~<BR><font face="$font" color="$lastpostfontcolor">&nbsp;$longdate $shorttime</font><BR>~;
            $lastposterby  = qq~<font face="$font" color=$posternamecolor>&nbsp;作者</font>： <a href="$profileprog?action=show&member=$lastposterfilename">$lastposter</a>&nbsp;&nbsp;<img src="$imagesurl/images/lastpost.gif" width=11 height=10>~;
            }
        else { $forumlastpost = qq~<font face="$font" color="$lastpostfontcolor">&nbsp;没有贴子</font>~;
               $lastposterby  = "";
        }
        
    $lastposterfilename = $lastposter;
    $lastposterfilename =~ y/ /_/;
    $lastposter =~ y/_/ /;

         $filetoopen = "$ikondir" . "forum$forumid/list.cgi";
	 if (-e $filetoopen) {
             open(FILE,"$filetoopen");
             flock(FILE,2) if ($OS_USED eq "Unix");
             @lastpost = <FILE>;
             close(FILE);
             $lastpost = @lastpost[0];
             chomp $lastpost;
	     ($threadnumber, $topictitle, $noneed, $noneed, $noneed, $noneed, $noneed, $noneed, $lastposter, $noneed, $noneed)=split(/\|/,$lastpost);
         }
         else {@lastpost ={}; undef $topictitle;}
        $lastpost = "";

        if ($badwords) {
            @pairs = split(/\&/,$badwords);
            foreach (@pairs) {
                ($bad, $good) = split(/=/,$_);
                chop $good;
                $topictitle =~ s/$bad/$good/isg;
                }
            }
        
	if (($privateforum ne "yes")&&($topictitle)) {
            if (length($topictitle)>18) {
            	$topictitletemp = substr($topictitle,0,14)." ...";
            }
            else {
            	$topictitletemp = $topictitle;
            }
            $lastpost = qq~<font face="$font" color=$posternamecolor>&nbsp;主题</font>： <a href="$threadprog?forum=$forumid&topic=$threadnumber"><ACRONYM TITLE="$topictitle">$topictitletemp</ACRONYM></a><BR>~;
        }

#------- HTML

$forumbookmark = qq~<span style="CURSOR: hand" onClick="window.external.AddFavorite('$boardurl/$forumsprog?forum=$forumid', '$forumnameadd')"><IMG SRC="$imagesurl/images/fav_add.gif" BORDER="0" width=15 height=15 ALT="将$forumnameadd添加到收藏夹"></span>~;
    
    $output .= qq~
    <!-- Cgi-bot Forum $fm entry -->
    <tr>
        <td bgcolor=$forumcolorone align=center>
            $folderpicture
        </td>
        <td bgcolor=$forumcolortwo align="left" valign=top>
            <b><font face="$font" color=$posternamecolor>$forumname</font></b>
            <font face="$font" color="$forumfontcolor">
            <br>$forumdescription
            </font>
        </td>
        <td bgcolor=$forumcolorone valign=middle align=center>
            <font face="$font" color=$forumfontcolor>
            $modout
            </font>
        </td>
        <td bgcolor=$forumcolortwo align="center" valign=middle>
            <font face="$font" color=$forumfontcolor>
            $threads
            </font>
        </td>
        <td bgcolor=$forumcolortwo align="center" valign=middle>
            <font face="$font" color=$forumfontcolor>
            $posts
            </font>
        </td>
        <td bgcolor=$forumcolorone align=left valign=middle>
            <font color=$lastpostfontcolor face="$face">
            $lastpost$lastposterby$forumlastpost
            </font>
        </td>
	<td bgcolor=$forumcolortwo align=center valign=middle>
            $forumbookmark
        </td>
    </tr>
    <!-- Cgi-bot End of Forum $fm entry -->
    ~;

#------- END OF HTML
    
    $lastcategoryplace = $categoryplace;
    undef $forumlastvisit; undef $forummoderator; undef $modout;
    }


    &whosonline("$inmembername|论坛首页|both|查看论坛信息|");
    my $total_users = $guests + $members;
#    my $membersextra = qq~<BR>[<a href="$onlineprog">查看所有用户</a>]~ if ($members > 9);
#            $membersextra  显示所有用户

#------- HTML

    $osinfo=&osinfo();
    $browseinfo=&browseinfo();
    $fromwhere = &ipwhere("$ENV{'REMOTE_ADDR'}");
    $output .= qq~
    <tr>
	<td bgcolor=$titlecolor colspan=7 align=left>
		<font face="$font" color=$titlefontcolor>
        <b>-=> 您的个人状态</b></font>
    </td>
    </tr>
    <tr>
    <td bgcolor=$forumcolortwo align=center>
    	$inboximg
    </td>
    <td bgcolor=$forumcolortwo colspan=6 align=left>
    $inboxstatus<BR>
    您的 IP 是：<font color=$posternamecolor>$ENV{'REMOTE_ADDR'}</font>， 来自：<font color=$posternamecolor>$fromwhere</font> 。 
    操作系统：<font color=$posternamecolor>$osinfo</font>， 浏览器：<font color=$posternamecolor>$browseinfo</font>
    </td>
    </tr>

    <!-- Cgi-bot Active Users -->
    <tr>
        <td bgcolor=$titlecolor colspan=7>
            <font face="$font" color=$titlefontcolor>
	    <B>-=> 论坛在线统计</B>
            </font>
            <BR>
        </td>
    </tr>
    <tr>
        <td bgcolor=$forumcolorone align=center>
            <img src="$imagesurl/images/online.gif" border=0 width=22 height=21 alt="论坛在线人数">
        </td>
        <td bgcolor=$forumcolortwo colspan=6>
            <font face="$font" color=$titlefontcolor>
            目前论坛总共有 <a href="$onlineprog"><B>$total_users</B></a> 人在线。<font face="$font" color=$forumfontcolor>其中，注册用户 <B>$members</B> 人，访客 <B>$guests</B> 人。 论坛总共被访问 <b>$newcount</b> 次，总共被点击 <b>$count2</b> 次。<BR>
            </font>
            <font face="$font" color=$forumfontcolor>
            $memberoutput</font>
        </td>
    </tr>
    <!-- Cgi-bot End of Active Users -->
    </table>
    </td>
    </tr>
    </table>
    ~;

#------- END OF HTML

    if ($loginmessage) {

#------- HTML

        $output .= qq~
        <!-- Cgi-bot Script page footer -->
        <p>
        <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth align=center>
            <tr>
                <td>
                    <font face="$font" color=$fontcolormisc>
                    <p>所有时间均为 - $basetimes<p>$loginmessage
                    </font>
                </td>
            </tr>
        </table>
        <!-- Cgi-bot End of script page footer -->
        ~;
    
        }
        else {

        $output .= qq~
        <!-- Cgi-bot Script page footer -->
        <p>
        <table cellpadding=0 cellspacing=4 border=0 width=$tablewidth align=center>
            <tr>
                <td align=left colspan=2 valign=top>
                    <font face="$font" color=$fontcolormisc>
                    所有时间均为 - $basetimes<p>
                    </font>
                </td>
            </tr>
            <tr>
                <td width=5% align=center>
                    <img src="$imagesurl/images/foldernew.gif" border=0>
                </td>
                <td align=left>
                    <font face="$font" color=$fontcolormisc>
                    您最后一次光临至今有新贴子
                    </font>
                </td>
            </tr>
            <tr>
                <td width=5% align=center>
                    <img src="$imagesurl/images/folder.gif" border=0>
                </td>
                <td align=left>
                    <font face="$font" color=$fontcolormisc>
                    您最后一次光临至今没有新贴子
                    </font>
                </td>
            </tr>
        </table>
        <!-- Cgi-bot End of script page footer -->
        ~;

#------- END OF HTML

        }

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