setforums.cgi

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

        
        $filetoopen = "$ikondir" . "data/allforums.cgi";
         open(FILE,"$filetoopen") or &systemerror("不能找到文件 $filetoopen");
         flock(FILE,2) if ($OS_USED eq "Unix");
         @forums = <FILE>;
         close(FILE);

         
         foreach $forum (@forums) {
         chomp $forum;
            ($forumid,$category,$notneeded,$notneeded) = split(/\|/,$forum);
                if ($forumid eq "$inforum") {
                    ($forumid, $category, $categoryplace, $forumname, $forumdescription, $forummoderator ,$htmlstate ,$idmbcodestate ,$privateforum, $startnewthreads ,$lastposter ,$lastposttime, $threads, $posts, $forumgraphic) = split(/\|/,$forum);   
                    }
                }
         
# Present the form to be filled in


        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>编辑 '$category' 分类中的 '$forumname' 论坛</b>
        </td></tr>
                
        <form action="$thisprog" method="post">
        <input type=hidden name="action" value="doedit">
        <input type=hidden name="forum" value="$inforum">
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>论坛名称</b><br>请输入论坛名称</font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        <input type=text size=40 name="forumname" value="$forumname"></td>
        </tr>       
        
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>论坛描述</b><br>请输入论坛描述</font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        <input type=text size=40 name="forumdescription" value="$forumdescription"></td>
        </tr>   
        
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>论坛版主</b><br>请输入论坛版主，如果您希望有多个版主，请使用 "," (英文逗号，不是中文逗号)隔开。<BR><B>例如</B>：山鹰糊, 花无缺</font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        <input type=text size=40 name="forummoderator" value="$forummoderator"></td>
        </tr>
        ~;
        
        $tempoutput = qq~<select name="htmlstate"><option value="on">使用<option value="off">不使用</select>~;
        $tempoutput =~ s/value=\"$htmlstate\"/value=\"$htmlstate\" selected/g;
        
        print qq~
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>是否使用 HTML 标签？</b></font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        $tempoutput
        </td>
        </tr>
        ~;
        
        $tempoutput = qq~<select name="idmbcodestate"><option value="on">使用<option value="off">不使用</select>~;
        $tempoutput =~ s/value=\"$idmbcodestate\"/value=\"$idmbcodestate\" selected/g;
        
        print qq~
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>是否使用 ib2000 标签？</b></font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        $tempoutput
        </td>
        </tr>
        ~;
        
        $tempoutput = qq~<select name="privateforum"><option value="yes">是<option value="no">否</select>~;
        $tempoutput =~ s/value=\"$privateforum\"/value=\"$privateforum\" selected/g;
        if (!$privateforum) { 
            $tempoutput = qq~<select name="privateforum"><option value="yes">是<option value="no" selected>否</select>~;
            }
        print qq~
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>是否作为私有论坛？</b></font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        $tempoutput
        </td>
        </tr>
        ~;
        
        $tempoutput = qq~<select name="startnewthreads"><option value="yes">所有注册用户<option value="no">只有坛主或版主</select>~;
        $tempoutput =~ s/value=\"$startnewthreads\"/value=\"$startnewthreads\" selected/g;
        
        print qq~
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>谁可以在此论坛发贴子？</b></font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        $tempoutput
        </td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>论坛图片</b><br>请输入图片名称，此图片被用来放置在页面左边菜单下。<BR><b>不要包含 URL 地址或绝对路径！</b></font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        <input type=text size=40 name="forumgraphic" value="$forumgraphic"></td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=center colspan=2>
        <input type=submit value="提 交"></form></td></tr></table></td></tr></table>
        ~;
        
} # end route   

##################################################################################
######## Subroutes ( Processing the edit of a forum)    


sub doedit {
        
        # Grab the line to edit.

	&errorout("对不起，论坛名字过长，请控制在 20 个汉字内！") if (length($new_forumname) >40);
	&errorout("论坛描述不能空！！") if ($new_forumdescription eq "");

         $filetoopen = "$ikondir" . "data/allforums.cgi";
         open(FILE,"$filetoopen") or &systemerror("不能找到文件 $filetoopen ！");
         flock(FILE,2) if ($OS_USED eq "Unix");
         @forums = <FILE>;
         close(FILE);

         foreach $forum (@forums) {
         chomp $forum;
            ($forumid, $notneeded) = split(/\|/,$forum);
                if ($forumid eq "$inforum") {
                    ($forumid, $category, $categoryplace, $forumname, $forumdescription, $forummoderator ,$htmlstate ,$idmbcodestate ,$privateforum, $startnewthreads ,$lastposter ,$lastposttime, $threads, $posts, $forumgraphic) = split(/\|/,$forum);   
                    }
                }

                # Time to process the forms

                $editedline = "$inforum|$category|$categoryplace|$new_forumname|$new_forumdescription|$new_forummoderator|$new_htmlstate|$new_idmbcodestate|$new_privateforum|$new_startnewthreads|$lastposter|$lastposttime|$threads|$posts|$new_forumgraphic";
                chomp $editedline;

                # Lets re-open the file
                
                $filetoopen = "$ikondir" . "data/allforums.cgi";
                open(FILE,"$filetoopen") or &systemerror("不能找到文件 $filetoopen ！");
                flock(FILE,2) if ($OS_USED eq "Unix");
                @forums = <FILE>;
                close(FILE);
                
                # Lets remake the file...
                
                $filetoopen = "$ikondir" . "data/allforums.cgi";
                open(FILE,">$filetoopen") or &systemerror("不能找到文件 $filetoopen ！");
                flock(FILE,2) if ($OS_USED eq "Unix");
                foreach $forum (@forums) {
                chomp $forum;
                ($tempforumid,$notneeded) = split(/\|/,$forum);
                    if ($tempforumid eq "$inforum") {
                        print FILE "$editedline\n";
                        }
                        else {
                            print FILE "$forum\n";
                            }
                    }
                close (FILE);


                 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><p>
                如果您设定了某人为版主，你或许会想从管理中心编辑他的资料，使他成为版主。<BR>
                其实这个是没必要的。这个仅仅影响发贴后名字边上的 'team' 图标，非版主不显示 'team' 图标！</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">
        <input type=hidden name="action" value="doaddcategory">
        <input type=hidden name="category" value="$incategory">
        <tr><td bgcolor=#333333" colspan=2><font face=宋体 color=#FFFFFF>
        <b>欢迎来到论坛管理中心 / 增加分类(同时增加一个论坛)</b>
        </td></tr>
        <tr>
        
        <tr>
        <td bgcolor=#EEEEEE valign=middle align=center colspan=2>
        <font face=宋体 color=#990000><b>增加分类(同时增加一个论坛)</b>
        </td></tr>
                
                
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>分类名称</b><br>请输入新分类名称</font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        <input type=text size=40 name="categoryname" value="$categoryname"></td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>论坛名称</b><br>请输入论坛名称</font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        <input type=text size=40 name="forumname" value="$forumname"></td>
        </tr>       
        
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>论坛描述</b><br>请输入论坛描述</font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        <input type=text size=40 name="forumdescription" value="$forumdescription"></td>
        </tr>   
        
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>论坛版主</b><br>请输入论坛版主，如果您希望有多个版主，请使用 "," (英文逗号，不是中文逗号)隔开。<BR><B>例如</B>：山鹰糊, 花无缺</font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        <input type=text size=40 name="forummoderator" value="$forummoderator"></td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>是否使用 HTML 标签？</b></font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        <select name="htmlstate">
        <option value="on">使用<option value="off" selected>不使用</select>
        </td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>是否使用 ib2000 标签？</b></font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        <select name="idmbcodestate">
        <option value="on" selected>使用<option value="off">不使用</select>
        </td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>是否作为私有论坛？</b></font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        <select name="privateforum">
        <option value="yes">是<option value="no" selected>否</select>
        </td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>谁可以在此论坛发贴子？</b></font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        <select name="startnewthreads">
        <option value="yes" selected>所有注册用户<option value="no">只有坛主或版主</select>
        </td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF valign=middle align=left width=40%>
        <font face=宋体 color=#333333><b>论坛图片</b><br>请输入图片名称，此图片被用来放置在页面左边菜单下。<BR><b>不要包含 URL 地址或绝对路径！</font></td>
        <td bgcolor=#FFFFFF valign=middle align=left>
        <input type=text size=40 name="forumgraphic" value="logo.gif"></td>
        </tr>
        
        <tr>
        <td bgcolor=#FFFFFF valign=middle 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("对不起，论坛名字过长，请控制在 20 个汉字内！") if (length($new_forumname) >40);
		&errorout("论坛描述不能空！！") if ($new_forumdescription eq "");

                $filetoopen = "$ikondir" . "data/allforums.cgi";
                open(FILE, "$filetoopen");
                @forums = <FILE>;
                close(FILE);

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

                foreach (@forums) {
                    ($forumid, $binit) = split(/\|/,$_);