lmcode.cgi

一个linux论坛

#!/usr/bin/perl
#############################################################
#  LeoBoard ver.5000 / LB5000 / 雷傲超级论坛 ver.5000
#
#  版权所有: 雷傲工作室(原蓝宝石软件工作室)
#
#  制作人  : 山鹰糊 (Shining Hu)
#            花无缺 (Ifairy Han)
#           
#  主页地址: http://www.CGIer.com/      CGI 编程者之家
#	     http://www.LeoBoard.com/   雷傲论坛支持主页
#	     http://www.leoBBS.com/     本论坛直通车
#            
#############################################################
BEGIN {
    $LBPATH = '.';
    my $pgm = $0;
    $pgm =~s/\\/\//g;
    $pgm =~s/^.*\/([^\/]+)$/$1/g;
    unless (-e $LBPATH.'/'.$pgm) {
        foreach ($0, $ENV{'SCRIPT_FILENAME'}, $ENV{'PATH_TRANSLATED'}) {
            s!\\!/!g; s/^(.*)\/[^\/]+$/$1/g;
            if (-e $_ . '/' .$pgm) { $LBPATH = $_; last; }
        }
    }
    unshift (@INC, "$LBPATH");
}
use LBCGI;
$LBCGI::POST_MAX=2000;
$LBCGI::DISABLE_UPLOADS = 1;
$LBCGI::HEADERS_ONCE = 1;
require "data/styles.cgi";
require "data/boardinfo.cgi";
require "lb.lib.pl";
$|++;                                     # Unbuffer the output
$thisprog = "lmcode.cgi";
print header(-charset=>gb2312);
$output = qq~
  <table cellpadding="5" style="border-collapse: collapse" width="97%" cellspacing="0" bordercolor=$tablebordercolor border=1>
    <tr>
      <td width="100%" colspan="3" bgcolor=$titlecolor>
      <p align="center"><font color="#333333"><b>欢迎增加 <u>$boardname</u> 联盟代码</b></font></td>
    </tr>
    <tr>
      <td width="28%" bgcolor=$forumcolorone><b>论坛名称：</b></td>
      <td width="72%" colspan="2" bgcolor=$forumcolortwo>$boardname</td>
    </tr>
    <tr>
      <td width="28%" bgcolor=$forumcolorone><b>论坛地址：</b></td>
      <td width="72%" colspan="2" bgcolor=$forumcolortwo>
      <a href="$boardurl/leoboard.cgi" target=_blank>
      $boardurl/leoboard.cgi</a></td>
    </tr>
    <tr>
      <td width="28%" bgcolor=$forumcolorone><b>论坛图标：</b></td>
      <td width="72%" colspan="2" bgcolor=$forumcolortwo>
~;
if ($boardlogos ne "http://" && $boardlogos ne "") {$output .=qq~<a href="$boardlogos" target=_blank>$boardlogos</a>~;}
else {$output .=qq~没有~;}
      $output.= qq~
      </td>
    </tr>
    <tr>
      <td width="28%" bgcolor=$forumcolorone><b>论坛说明：</b></td>
      <td width="72%" colspan="2" bgcolor=$forumcolortwo>$boarddescription</td>
    </tr>
    <tr>
      <td width="28%" bgcolor=$forumcolorone><b>联盟演示：</b></td>
      <td width="100" bgcolor=$forumcolortwo>
      <p align="center">
~;
if ($boardlogos ne "http://" && $boardlogos ne "") {$output .=qq~<a href="$boardurl/leoboard.cgi" target=_blank><img src="$boardlogos" align="left" width="88" height="31" border="0"></a>~;}
else {$output .=qq~暂缺图标~;}
      $output.= qq~
      </td>
      <td width="*" bgcolor=$forumcolortwo>
      <a target="_blank" href="$boardurl/leoboard.cgi">
      <b>$boardname</b></a><br>
      $boarddescription</td>
    </tr>
    <tr>
      <td width="100%" colspan="3" bgcolor=$catback>
      <p align="center">
<input type=submit name="winclose" value="关 闭" onclick=window.close();></td>
    </tr>
  </table>
~;
    &output(
        -Title   => "$boardname - 查看联盟论坛代码　", 
        -ToPrint => $output, 
        -Version => "msg" 
    );
exit;