setforums.cgi

一个linux论坛

                            }
                    }
                close(FILEBAK);
				close (FILE);
	            &winunlock($filetoopen) if ($OS_USED eq "Nt");


                 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><p>
                如果您设定了某人为版主，你或许会想从管理中心编辑他的资料，使他成为版主。<BR>
                其实这个是没必要的。这个仅仅影响发贴后名字边上的 '斑竹' 图标，非版主不显示 <br>
				'斑竹' 图标，并且不在管理团队中显示！但是两种斑竹权力是一样的。</font>
                </td></tr></table></td></tr></table>
                ~;

            } # end routine

##################################################################################
######## Subroutes ( Add category/forum Form )


sub catform {

# Present the form to be filled in
        print qq~
        <form action="$thisprog" method="post" enctype="multipart/form-data" name=FORM>
        <input type=hidden name="action" value="doaddcategory">
        <input type=hidden name="category" value="$incategory">
        <tr><td bgcolor=#333333" colspan=2><font color=#FFFFFF>
        <b>欢迎来到论坛管理中心 / 增加分类(同时增加一个论坛)</b>
        </td></tr>
        <tr>
        
        <tr>
        <td bgcolor=#EEEEEE align=center colspan=2>
        <font color=#990000><b>增加分类(同时增加一个论坛)</b>
        </td></tr>


        <tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>分类名称</b><br>请输入新分类名称</font></td>
        <td bgcolor=#FFFFFF>
        <input type=text size=40 name="categoryname" value="$categoryname"></td>
        </tr>
        <tr> 
        <td bgcolor=#FFFFFF width=40%> 
        <font color=#333333><b>区版主</b><br>请输入管理此分类的区版主，如果您希望有多个区版主，请使用 "," (英文逗号，不是中文逗号)隔开。<BR><B>例如</B>：山鹰糊, 花无缺</font></td> 
        <td bgcolor=#FFFFFF> 
        <input type=text size=40 name="catemods" value="$catemods"></td> 
        </tr>

        <tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>论坛名称</b><br>请输入新论坛的名称<BR>(请控制在 20 个汉字内)</font></td>
        <td bgcolor=#FFFFFF>
        <input type=text size=40 name="forumname" value="$forumname" maxlength=40></td>
        </tr>       
        
        <tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>论坛描述</b><br>请输入新论坛的描述，支持 HTML 语法</font></td>
        <td bgcolor=#FFFFFF>
        <input type=text size=40 name="forumdescription" value="$forumdescription"></td>
        </tr>   
        
        <tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>论坛版主</b><br>请输入论坛版主，如果您希望有多个版主，请使用 "," (英文逗号，不是中文逗号)隔开。<BR><B>例如</B>：山鹰糊, 花无缺</font></td>
        <td bgcolor=#FFFFFF>
        <input type=text size=40 name="forummoderator" value="$forummoderator"></td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>是否使用 HTML 标签？</b></font></td>
        <td bgcolor=#FFFFFF>
        <select name="htmlstate">
        <option value="on">使用<option value="off" selected>不使用</select>
        </td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>是否使用 LB5000 标签？</b></font></td>
        <td bgcolor=#FFFFFF>
        <select name="idmbcodestate">
        <option value="on" selected>使用<option value="off">不使用</select>
        </td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>是否作为私有论坛？</b></font></td>
        <td bgcolor=#FFFFFF>
        <select name="privateforum">
        <option value="yes">是<option value="no" selected>否</select> 对坛主和总斑竹无效
        </td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>私有论坛密码</b>(只对私有论坛有效)</font></td>
        <td bgcolor=#FFFFFF>
       <input type=text size=12 name="forumpass" value="$forumpass" maxlength=20> 对坛主和总斑竹无效</td>
        </td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>是否隐藏论坛？</b></font></td>
        <td bgcolor=#FFFFFF>
        <select name="hiddenforum">
        <option value="yes">是<option value="no" selected>否</select>
        </td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>是否显示导航栏？</b></font></td>
        <td bgcolor=#FFFFFF>
        <select name="indexforum">
        <option value="yes" selected>是<option value="no" >否</select>
        </td>
        </tr>

        <tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>论坛性质</b><br>1. 正规论坛-只允许注册会员发言<br>2. 开放论坛-允许所有人发言<br>3. 评论论坛-坛主和版主允许发言，其他注册用户只能回复<br>4. 精华区-只允许版主和坛主发言和操作<br>5. 认证论坛-除坛主和版主外，其他注册用户发言需要认证</font></td>
        <td bgcolor=#FFFFFF>
        <select name="startnewthreads">
        <option value="yes" selected>正规论坛<option value="all">开放论坛<option value="follow">评论论坛<option value="no">精华区<option value="cert">认证论坛</select>
        </td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>论坛图片（支持FLASH）</b><br>请输入图片名称，此图片被用来放置在论坛页面左边菜单下。<BR><b>请不要包含 URL 地址或绝对路径！</b></font></td>
        <td bgcolor=#FFFFFF>
        <input type=text size=20 name="forumgraphic" value="logo.gif">
~;

opendir (DIR, "${imagesdir}myimages");
@thd = readdir(DIR);
closedir (DIR);
        my $myimages="";
        $topiccount = @thd;
        @thd=sort @thd;
        for (my $i=0;$i<$topiccount;$i++){
            next if (($thd[$i] eq ".")||($thd[$i] eq ".."));
            $myimages.=qq~<option value="$thd[$i]">$thd[$i]~;
        }
        $myimages =~ s/value=\"$action\"/value=\"$action\" selected/;        
print qq~
<script>
function select(){
document.FORM.forumgraphic.value=FORM.image.value;
document.bbsimg.src = "$imagesurl/myimages/"+FORM.image.value;}
function select2(){
document.FORM.teamlogo.value=FORM.image2.value;
document.bbsimg.src = "$imagesurl/myimages/"+FORM.image2.value;}
function select3(){
document.bbsimg.src = FORM.addme.value;}
</script>
<select name="image" onChange=select()><option value="blank.gif">选择图片$myimages</select></td>
        </tr>

        <tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>论坛FLASH动画高度、宽度</b><br>请正确输入FLASH动画的高度及宽度。<BR></font></td>
        <td bgcolor=#FFFFFF>
        宽度：<input type=text size=3 name="fgwidth">　　高度：<input type=text size=3 name="fgheight"></td>
        </tr>
               
	<tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>队伍图片</b>(如果没有，请保持原样)<br>请输入图片名称，此图片被用来放置在首页面下。<BR><b>不要包含 URL 地址或绝对路径！</b></font></td>
        <td bgcolor=#FFFFFF>
        <input type=text size=20 name="teamlogo" value=""> <select name="image2" onChange=select2()><option value="blank.gif">选择图片$myimages</select></td>
        </tr> 
         
	<tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>上传论坛/队伍图片</b><br>请输入图片名称，此图片被用作论坛图片/队伍图片。</font></td>
        <td bgcolor=#FFFFFF>
        <input type="file" size=20 name="addme" onchange="select3()"><br>支持类型：gif、jpg、bmp、png、swf</td>
        </tr> 

        <tr>
        <td bgcolor=#FFFFFF width=40%>
        <font color=#333333><b>队伍网址</b>(如果没有，请保持原样)<br>用来做上面论坛图片的地址链接</td>
        <td bgcolor=#FFFFFF>
        <input type=text size=40 name="teamurl" value="http://"></td>
        </tr> 
        <td bgcolor=#FFFFFF colspan=2>
<font color=#333333><b>图像预览</b></font><br><IMG border=0 name=bbsimg src="$imagesurl/myimages/blank.gif" align="absmiddle" onload="javascript:if(this.width>screen.width-333)this.width=screen.width-333"></td>
        </tr>
        <tr>
        <td bgcolor=#FFFFFF align=center colspan=2>
        <input type=submit value="提 交"></form></td></tr></table></td></tr></table>
        ~;
        
} # end route   


##################################################################################
######## Subroutes ( Create New cat/forum )


sub doaddcategory {
#		&errorout("保密论坛，密码不能空！！") if (($new_privateforum eq "yes")&&($new_forumpass eq ""));
		&errorout("对不起，论坛名字过长，请控制在 20 个汉字内！") if (length($new_forumname) >40);
		&errorout("论坛名字不能空！！") if ($new_forumname eq "");
		&errorout("论坛描述不能空！！") if ($new_forumdescription eq "");
		&errorout("论坛类别不能空！！") if ($new_categoryname eq "");
		$new_privateforum = "yes" if ($new_forumpass ne "");
	
	$addme=$query->param('addme');
	if ($addme ne ""){
	    my $up_filename =$query->uploadInfo($addme);
	    my ($up_name,$up_ext) = split(/\./,$up_filename);
	    $up_ext = lc($up_ext);
	   &errorout("上传出错！不支持您所上传的图片类型，请重新选择！") if (($up_ext ne "gif") && ($up_ext ne "jpg") && ($up_ext ne "bmp")&&($up_ext ne "swf")&&($up_ext ne "png"));
	   my $buffer;
 	    open (FILE,">$imagesdir/myimages/$up_name.$up_ext");
		binmode (FILE);
		while ($buffer=$query->readUploadFile($addme,4096)) {
		        $buffer=~s/\.cookie/\&\#46\;cookie/isg;
			$buffer =~ s/on(mouse|exit|error|click|key)/\&\#111\;n$1/isg;
			$buffer=~s/script/scri\&\#112\;t/isg;
        		$buffer =~ s/style/\&\#115\;tyle/isg;
		print FILE $buffer;
	    }
	    close (FILE);
        if ($up_ext eq "gif"||$up_ext eq "jpg"||$up_ext eq "bmp"||$up_ext eq "jpeg"||$up_ext eq "png"||$up_ext eq "ppm"||$up_ext eq "svg"||$up_ext eq "xbm"||$up_ext eq "xpm") {
    	    my $info = image_info("${imagesdir}myimages/$up_name.$up_ext");
	    if ($info->{error} eq "Unrecognized file format"){
                unlink ("${imagesdir}myimages/$up_name.$up_ext");
                &errorout("上传出错&上传文件不是图片文件，请上传标准的图片文件！");
            }
            undef $info;
       }
	}

                $filetoopen = "$lbdir" . "data/allforums.cgi";
	        &winlock($filetoopen) if ($OS_USED eq "Nt");
                open(FILE, "$filetoopen");
	        flock(FILE, 1) if ($OS_USED eq "Unix");
                @forums = <FILE>;
                close(FILE);
	        &winunlock($filetoopen) if ($OS_USED eq "Nt");

                # Create a new number for the new forum folder, and files.

                foreach (@forums) {
                    ($forumid, $binit) = split(/\t/,$_);
                    if ($forumid > $high) { $high = $forumid; }
                    }

                $high++;

                $newforumid = $high;


                # Lets create the directory.

                $dirtomake = "$lbdir" . "forum$newforumid";
                mkdir ("$dirtomake", 0777);

                $dirtomake1 = "$imagesdir" . "usr/$newforumid";
                mkdir ("$dirtomake1", 0777);

                $filetomake = "$dirtomake1/index.html";
                open(FILE,">$filetomake");
                print FILE "-";
                close(FILE);

                # Lets add a file to stop snoops, an