setvariables.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";

$|++;                                     # Unbuffer the output

#################--- Begin the program ---###################
$thisprog = "setvariables.cgi";

$query = new LBCGI;
&ipbanned; #封杀一些 ip

	@params = $query->param;
	foreach (@params) {
		$theparam = $query->param($_);
        	$theparam =~ s/"//g;
	        $theparam =~ s/'/\\\'/g;
           	if ($_ ne 'links'&&$_ ne 'forumlinks'){
			$theparam = &unHTML("$theparam");
			}else{
			$theparam=~s/\ //isg;
			}

		${$_} = $theparam;
        if ($_ ne 'action') {
            $theparam =~ s/[\a\f\n\e\0\r]//isg;
            $printme .= "\$" . "$_ = \'$theparam\'\;\n" if ($_ ne "");
            }
	}

$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;

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

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

    
    if ($action eq "process") {

        
        $endprint = "1\;\n";

        $filetomake = "$lbdir" . "data/boardinfo.cgi";

        &winlock($filetomake) if ($OS_USED eq "Nt");
        open(FILE,">$filetomake");
        flock(FILE,2) if ($OS_USED eq "Unix");
        print FILE "$printme";
        print FILE $endprint;
        close(FILE);
        &winunlock($filetomake) if ($OS_USED eq "Nt");
        
        
        if (-e $filetomake && -w $filetomake) {
                print qq~
                <tr><td bgcolor=#333333" colspan=2><font face=宋体 color=#FFFFFF>
                <b>欢迎来到论坛管理中心 / 变量结构</b>
                </td></tr>
                <tr>
                <td bgcolor=#EEEEEE valign=middle colspan=2>
                <font face=宋体 color=#333333><center><b>以下信息已经成功保存</b><br><br>
                </center>~;
                $printme =~ s/\n/\<br>/g;
                $printme =~ s/\"//g;
                $printme =~ s/\$//g;
                $printme =~ s/\\\@/\@/g;
                $printme =~ s/\\\'/\'/g;
                print $printme;
                print qq~
                </td></tr></table></td></tr></table>
                ~;
                }
                else {
                    print qq~
                    <tr><td bgcolor=#333333" colspan=2><font face=宋体 color=#FFFFFF>
                    <b>欢迎来到论坛管理中心 / 变量设置</b>
                    </td></tr>
                    <tr>
                    <td bgcolor=#EEEEEE valign=middle align=center colspan=2>
                    <font face=宋体 color=#333333><b>所有信息没有保存</b><br>文件或者目录不可写<br>请检测你的 data 目录和 boardinfo.cgi 文件的属性！
                    </td></tr></table></td></tr></table>
                    ~;
                    }
                
            }
            else {
                $inmembername =~ s/\_/ /g;
                
                print qq~
                <tr><td bgcolor=#333333" colspan=2><font face=宋体 color=#FFFFFF>
                <b>欢迎来到论坛管理中心 / 变量设置</b>
                </td></tr>
                <tr>
                <td bgcolor=#EEEEEE valign=middle align=center colspan=2>
                <font face=宋体 color=#990000><b>论坛变量设置</b>
                </td></tr>
                
                <form action="$thisprog" method="post">
                <input type=hidden name="action" value="process">
                ~;
                $tempoutput1 = "<select name=\"mainoff\">\n<option value=\"0\">论坛开放\n<option value=\"1\">论坛关闭\n</select>\n";
                $tempoutput1 =~ s/value=\"$mainoff\"/value=\"$mainoff\" selected/;
                print qq~
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333 ><b>论坛状态</b></font></td>
                <td bgcolor=#FFFFFF>
                $tempoutput1</td>
                </tr>
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333 ><b>维护说明</b> (支持 HTML)<BR><BR></font></td>
                <td bgcolor=#FFFFFF>
                <textarea name="line1" cols="40">$line1</textarea><BR><BR></td>
                </tr>
                ~;
                $tempoutput1 = "<select name=\"regonoff\">\n<option value=\"0\">允许用户注册\n<option value=\"1\">不允许用户注册\n</select>\n";
                $tempoutput1 =~ s/value=\"$regonoff\"/value=\"$regonoff\" selected/;
                print qq~
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333 ><b>是否允许用户注册</b></font></td>
                <td bgcolor=#FFFFFF>
                $tempoutput1<BR><BR></td>
                </tr>
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333 ><b>不允许注册说明</b> (支持 HTML)<BR><BR></font></td>
                <td bgcolor=#FFFFFF>
                <textarea name="noregwhynot" cols="40">$noregwhynot</textarea><BR><BR></td>
                </tr>
                ~;

                $tempoutput1 = "<select name=\"regpuonoff\">\n<option value=\"ontop\">首页弹出\n<option value=\"oneach\">每页弹出\n<option value=\"off\">不弹出\n</select>\n";
                $tempoutput1 =~ s/value=\"$regpuonoff\"/value=\"$regpuonoff\" selected/;
                if(!$popupmsg){$popupmsg=qq~请先注册以避免此视窗出现~;}
                print qq~
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333 ><b>是否弹出提醒注册视窗</b></font></td>
                <td bgcolor=#FFFFFF>
                $tempoutput1<BR><BR></td>
                </tr>
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333 ><b>提醒访客注册视窗内容</b> (支援 HTML,不需要注册画面的连结)<BR><BR></font></td>
                <td bgcolor=#FFFFFF>
                <textarea name="popupmsg" cols="40">$popupmsg</textarea><BR><BR></td>
                </tr>

                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333><b>论坛名称</b></font></td>
                <td bgcolor=#FFFFFF>
                <input type=text size=40 name="boardname" value="$boardname"></td>
                </tr>
                
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333><b>论坛描述</b></font></td>
                <td bgcolor=#FFFFFF>
                <input type=text size=40 name="boarddescription" value="$boarddescription"></td>
                </tr>
                
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333><b>论坛 LOGO</b></font></td>
                <td bgcolor=#FFFFFF>
                <input type=text size=40 name="boardlogos" value="$boardlogos"></td>
                </tr>
                
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333><b>论坛 URL 地址</b><br>结尾不要加 "/"</font></td>
                <td bgcolor=#FFFFFF>
                <input type=text size=40 name="boardurl" value="$boardurl"></td>
                </tr>
                
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333><b>主页名称</b></font></td>
                <td bgcolor=#FFFFFF>
                <input type=text size=40 name="homename" value="$homename"></td>
                </tr>

                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333><b>版权信息</b></font></td>
                <td bgcolor=#FFFFFF>
                <input type=text size=40 name="copyrightinfo" value="$copyrightinfo"></td>
                </tr>
                
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333><b>论坛状态栏显示</b></font></td>
                <td bgcolor=#FFFFFF>
                <input type=text size=40 name="statusbar" value="$statusbar"></td>
                </tr>

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

                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333><b>图片目录 URL</b><br>在结尾不要加 "/images"</font></td>
                <td bgcolor=#FFFFFF>
                <input type=text size=40 name="imagesurl" value="$imagesurl"></td>
                </tr>
                
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333><b>图片绝对路径</b><br>结尾加 "/"</font></td>
                <td bgcolor=#FFFFFF>
                <input type=text size=40 name="imagesdir" value="$imagesdir"></td>
                </tr>
                
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333><b>程序绝对路径</b><br>结尾加 "/"</font></td>
                <td bgcolor=#FFFFFF>
                <input type=text size=40 name="lbdir" value="$lbdir"></td>
                </tr>
                ~;
                $tempoutput = "<select name=\"emoticons\">\n<option value=\"off\">不使用\n<option value=\"on\">使用\n</select>\n";
                $tempoutput =~ s/value=\"$emoticons\"/value=\"$emoticons\" selected/;
                print qq~
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333><b>是否使用表情字符转换？</font></td>
                <td bgcolor=#FFFFFF>
                $tempoutput</td>
                </tr>
                ~;

                $tempoutput = "<select name=\"avatars\">\n<option value=\"off\">不使用\n<option value=\"on\">使用\n</select>\n";
                $tempoutput =~ s/value=\"$avatars\"/value=\"$avatars\" selected/;
                print qq~
                <tr>
                <td bgcolor=#FFFFFF width=40%>
                <font face=宋体 color=#333333><b>是否使用个性图片</b><br>使用个性化图片，每个用户将拥有有自己特色的头像。</font></td>
                <td bgcolor=#FFFFFF>
                $tempoutput</td>
                </tr>

                <tr>
                <td bgcolor=#EEEEEE valign=middle align=center colspan=2>
                <font face=宋体 color=#990000><b>短消息功能</b>
                </font></td>
                </tr>
                ~;
                $tempoutput = "<select name=\"allowusemsg\">\n<option value=\"on\">使用\n<option value=\"off\">不使用\n</select>";
                $tempoutput =~ s/value=\"$allowusemsg\"/value=\"$allowusemsg\" selected/;
                print qq~
                <tr>
                <td bgcolor=#FFFFFF width=40%>