setbadwords.php

bmb的论坛

<?
/*
 BMForum Plus! Bulletin Board Systems
 Version : Plus!
 
 This is a freeware, but don't change the copyright information.
 A SourceForge Project - GNU Licence project.
 Web Site: http://www.bmforum.com
 Copyright (C) Bluview Technology
*/

$thisprog="setbadwords.php";
require("adminglobal.php");
if($useraccess!="1" || $admgroupdata[24]!="1") {
adminlogin();
}
if ($action!="process") {
	   if (file_exists("datafile/badwords.php")) {

		include("datafile/badwords.php");
		while (false!==(list($key,$value)=each($badwords)))
			$echobadwords.="$key=$value\n";
		
		   } else $echobadwords="";
print <<<EOT
  <tr><td bgcolor=#0041BD colspan=2><font color=#D6DFF7>
  <b>$arr_ad_lng[320] $arr_ad_lng[216]</b>
  </td></tr>
  <tr>
  <td bgcolor=#F9FAFE valign=middle align=center colspan=2>
  <font color=#333333><b>$arr_ad_lng[216]</b>
  </td></tr>
               
  <form action="$thisprog" method="post">
  <input type=hidden name="action" value="process">
               
  <tr>
  <td bgcolor=#D6DFF7 valign=middle colspan=2>
<b>$arr_ad_lng[419]</b><br><br>
$tab_top
  <font color=#000000>
  $arr_ad_lng[515]
$tab_bottom
  <br><br>
  <b>$arr_ad_lng[516]</b><br><br>
$tab_top
$arr_ad_lng[517]
  </font>
$tab_bottom
<br>
  </td>
  </tr>
  <tr>
  <td bgcolor=#D6DFF7 valign=middle colspan=2>
<b>$arr_ad_lng[518]</b><br><br>
<center>
  <textarea cols=60 rows=6 wrap="virtual" name="wordarray">$echobadwords</textarea>
</center>
  </td>
  </tr>
                
  <tr>
  <td bgcolor=#F9FAFE valign=middle align=center colspan=2>
  <input type=submit name=submit value="$arr_ad_lng[66]"></td></tr></table></td></tr></table>
  </td></tr></table></body></html></form>
EOT;
exit;
}
elseif ($action=="process") {
	$badwords="<?\n";
	$wordarray=str_replace("\n","",$wordarray);
	$wordarray=explode("\r",$wordarray);
	$count=count($wordarray);
	for ($i=0; $i<$count; $i++) {
		list($key,$value)=explode("=",$wordarray[$i]);
		if (empty($key)) continue;
		$badwords.="\$badwords['$key']='$value';\n";
		$newbadwords[$key]=$value;
	}
	writetofile("datafile/badwords.php",$badwords);
  	print <<<EOT
  	<tr><td bgcolor=#0041BD colspan=2><font color=#D6DFF7>
		<b>$arr_ad_lng[320] $arr_ad_lng[216]</b>
		</td></tr>
		<tr>
		<td bgcolor=#D6DFF7 valign=middle colspan=2>
		<font color=#333333><center><b>$arr_ad_lng[179]</b></center><br><br>
		<b>$arr_ad_lng[519]</b><br><br>
		$tab_top
EOT;
		while (false!==(list($key,$value)=each($newbadwords))){
			print ("$arr_ad_lng[520] <b>$key</b> $arr_ad_lng[521] <b>$value</b> $arr_ad_lng[522]<br>");
		}
		print "
			$tab_bottom
			<br><br><br><center><b><a href=setbadwords.php>$arr_ad_lng[523]</a></b></center>
			</td></tr></table></body></html>
			";
	exit;
}