forumstyles.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=50000;
$LBCGI::DISABLE_UPLOADS = 1;
$LBCGI::HEADERS_ONCE = 1;
require "lbadmin.lib.pl";
require "data/boardinfo.cgi";
require "data/styles.cgi";
require "lb.lib.pl";
require "rebuildlist.pl";

$|++;

$thisprog = "forumstyles.cgi";

$query = new LBCGI;

$inmembername = $query->cookie("adminname");
$inpassword   = $query->cookie("adminpass");
$inmembername =~ s/[\a\f\n\e\0\r\t\`\~\!\@\#\$\%\^\&\*\(\)\+\=\\\{\}\;\'\:\"\,\.\/\<\>\?]//isg;
$inpassword =~ s/[\a\f\n\e\0\r\t\|\@\;\#\{\}\$]//isg;

@params = $query->param;
foreach $param(@params) {
    $theparam = $query->param($param);
    $theparam = &unHTML("$theparam");
    $theparam =~ s/ \&nbsp;/  /g if ($param eq "adfoot");
    $PARAM{$param} = $theparam;
}

$action      =  $PARAM{'action'};
$inforum     =  $PARAM{'forum'};
$incategory  =  $PARAM{'category'};

&getadmincheck;
print header(-charset=>gb2312);

&admintitle;

&getmember("$inmembername");

if (($membercode eq "ad") && ($inpassword eq $password) && ($password ne "") && ($inmembername ne "") && (lc($inmembername) eq lc($membername))) { #s1

            my %Mode = (
            'style'               =>    \&styleform,
            'dostyle'             =>    \&dostyle,
            );


    if($Mode{$action}) {
        $Mode{$action}->();
    }
    else {

    if ($action eq "delstyle") {
        print qq~
                    <tr><td bgcolor=#333333" colspan=2><font color=#FFFFFF>
                    <b>欢迎来到论坛管理中心 / 分论坛风格删除</b>
                    </td></tr>
        <tr>
        <td bgcolor=#EEEEEE align=center colspan=2>
        <font color=#990000><b>警告！！</b>
        </td></tr>
        
        <tr>
        <td bgcolor=#FFFFFF align=center colspan=2>
        <font color=#333333>完全删除此分论坛的所有自定义风格，不可恢复<p>
        <p>
        >> <a href="$thisprog?action=delstyleok&forum=$inforum">开始删除</a> <<
        </td></tr>
        </table></td></tr></table>
        ~;
    }
    elsif ($action eq "delstyleok") {
        $filetomake = "$lbdir" . "data/style$inforum.cgi";
    	unlink $filetomake;
                    print qq~
                    <tr><td bgcolor=#333333" colspan=2><font color=#FFFFFF>
                    <b>欢迎来到论坛管理中心 / 分论坛风格删除</b>
                    </td></tr>
                    <tr>
                    <td bgcolor=#EEEEEE align=center colspan=2>
                    <font color=#333333><b>所有信息已经保存</b><br>此分论坛的风格已经完全删除。
                    </td></tr></table></td></tr></table>
                    ~;

    }
    	
   }
}
else {
    &adminlogin;
}

print qq~</td></tr></table></body></html>~;
exit;

##################################################################################
sub styleform {

        if ($incategory ne "main"){
         $filerequire = "$lbdir" . "data/style${inforum}.cgi";
        if (-e $filerequire) {
         	require $filerequire;
                }
        if ($incategory ne ""){
        $stylefile = "$lbdir" . "data/skin/$incategory.cgi";
                if (-e $stylefile) {
         	require $stylefile;
        }
        }
        }



        $dirtoopen = "$lbdir" . "data/skin";

        opendir (DIR, "$dirtoopen");
        @dirdata = readdir(DIR);
        closedir (DIR);
        my $myskin="";
        @thd = grep(/\.cgi$/,@dirdata);
        $topiccount = @thd;
        @thd=sort {$a<=>$b} @thd;
        for (my $i=0;$i<$topiccount;$i++){
       	$thd[$i]=~s /\.cgi//isg;
        $myskin.=qq~<option value="$thd[$i]">风格 [ $thd[$i] ]~;
        }
        $myskin =~ s/value=\"$incategory\"/value=\"$incategory\" selected/;
#       &getforum("$inforum");
&getoneforum("$inforum");

print qq~
        <tr><td bgcolor=#333333" colspan=3><font color=#FFFFFF>
        <b>欢迎来到论坛管理中心 / 编辑分论坛风格</b>
        </td></tr>
        <tr>
        <td bgcolor=#EEEEEE align=center colspan=3>
        <font color=#000000><b>编辑 $forumname 的分论坛风格,<Br>如果你不想更改，请留空选项，不填写！！！</b>
        </td></tr>
        <tr><td bgcolor=#FFFFFF align=center colspan=3><font color=#ffffff>LEOBOARD 5000 XP</font></td></tr>

        <tr>
        <td bgcolor=#EEEEEE align=center colspan=3>
                <font color=#990000><b>论坛风格选择</b>
                </font></td>
                </tr>

                <tr>
                <td bgcolor=#FFFFFF width=40% colspan=2>
                <font color=#333333><b>系统自带的风格</b><br>你选择后，需要正式确认提交才生效</font></td>
                <td bgcolor=#FFFFFF>
                <form action="$thisprog" method="post">
                <input type=hidden name="action" value="style">
                <input type=hidden name="forum" value="$inforum">
                <select name="category"><option value="main">默认风格
                $myskin
                </select>
                <input type=submit value="运 用">
                </form>
                </td></tr>

        <form action="$thisprog" method="post">
        <input type=hidden name="action" value="dostyle">
        <input type=hidden name="forum" value="$inforum">

                <tr>
                <td bgcolor=#EEEEEE align=center colspan=3>
                <font color=#990000><b>论坛状态设置</b>
                </font></td>
                </tr>
                ~;
                $tempoutput1 = "<select name=\"mainonoff\">\n<option value=\"0\">论坛开放\n<option value=\"1\">论坛关闭\n</select>\n";
                $tempoutput1 =~ s/value=\"$mainonoff\"/value=\"$mainonoff\" selected/;
                print qq~
                <tr>
                <td bgcolor=#FFFFFF width=40% colspan=2>
                <font face=宋体 color=#333333 ><b>论坛状态</b></font></td>
                <td bgcolor=#FFFFFF valign=middle align=left>
                $tempoutput1</td>
                </tr>
                
                <tr>
                <td bgcolor=#EEEEEE align=center colspan=3>
                <font color=#990000><b>论坛BODY标签</b>
                </font></td>
                </tr>

                <tr>
                <td bgcolor=#FFFFFF width=40% colspan=2>
                <font color=#333333>控制整个论坛风格的背景颜色或者背景图片等</font></td>
                <td bgcolor=#FFFFFF>
                <input type=text name="lbbody" size=40 value="$lbbody"><br>默认：bgcolor=#FFFFFF  alink=#333333 vlink=#333333 link=#333333 topmargin=0 leftmargin=0</td>
                </tr>

                <tr>
                <td bgcolor=#FFFFFF width=40% colspan=2>
                <font color=#333333><b>主页地址</b></font></td>
                <td bgcolor=#FFFFFF>
                <input type=text size=40 name="homeurl" value="$homeurl"></td>
                </tr>

<script>
function selcolor(obj,obj2){
var arr = showModalDialog("$imagesurl/editor/selcolor.html", "", "dialogWidth:18.5em; dialogHeight:17.5em; status:0");
obj.value=arr;
obj2.style.backgroundColor=arr;
}
</script>
<tr>
<td bgcolor=#FFFFFF>
<font color=#333333>菜单带字体颜色</font></td>
<td bgcolor=$menufontcolor  width=12 id=menufontcolor2>　</td>
<td bgcolor=#FFFFFF>
<input type=text name="menufontcolor" value="$menufontcolor" size=7 maxlength=7 onclick="javascript:selcolor(this,menufontcolor2)" style="cursor:hand">　默认：#333333</td>
</tr>

<tr>
<td bgcolor=#FFFFFF>
<font color=#333333>菜单带背景颜色</font></td>
<td bgcolor=$menubackground  width=12 id=menubackground2>　</td>
<td bgcolor=#FFFFFF>
<input type=text name="menubackground" value="$menubackground" size=7 maxlength=7 onclick="javascript:selcolor(this,menubackground2)" style="cursor:hand">　默认：#DDDDDD</td>
</tr>

<tr>
<td bgcolor=#FFFFFF>
<font color=#333333>菜单带背景图片</font><BR>请输入图片名称，此图必须在 myimages 目录下</td>
<td background=$imagesurl/myimages/$menubackpic  width=12>　</td>
<td bgcolor=#FFFFFF>
<input type=text name="menubackpic" value="$menubackpic"></td>
</tr>

<tr>
<td bgcolor=#FFFFFF width=40%>
<font color=#333333>菜单带边界颜色</font></td>
<td bgcolor=$titleborder  width=12 id=titleborder2>　</td>
<td bgcolor=#FFFFFF>
<input type=text name="titleborder" value="$titleborder" size=7 maxlength=7 onclick="javascript:selcolor(this,titleborder2)" style="cursor:hand">　默认：#333333</td>
</tr>

<tr>
<td bgcolor=#EEEEEE align=center colspan=3>
<font color=#990000><b>字体外观和颜色</b>
</font></td>
</tr>


<tr>
<td bgcolor=#FFFFFF colspan=2>
<font color=#333333>主字体外观</font></td>
<td bgcolor=#FFFFFF>
~;
$tempoutput = "<select name=\"font\">\n<option value=\"宋体\">宋体\n<option value=\"仿宋_gb2312\">仿宋\n<option value=\"楷体_gb2312\">楷体\n<option value=\"黑体\">黑体\n<option value=\"隶书\">隶书\n<option value=\"幼圆\">幼圆\n</select><p>\n";
$tempoutput =~ s/value=\"$font\"/value=\"$font\" selected/;
print qq~
$tempoutput</td>