regipbans.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="regipbans.php";
require("adminglobal.php");
if($useraccess!="1" || $admgroupdata[29]!="1") {
adminlogin();
}
if ($action!="process") {
	if (file_exists("datafile/regipbans.php")) {
		$bannedips=readfromfile("datafile/regipbans.php");
		$bannedips=str_replace("\n","\r\n",$bannedips);
	} else $bannedips="";
print <<<EOT
		<tr><td bgcolor=#0041BD colspan=2><font color=#D6DFF7>
		<b>$arr_ad_lng[320] $arr_ad_lng[220]</b>
		</td></tr>
		<tr>
		<td bgcolor=#F9FAFE valign=middle align=center colspan=2>
		<b>$arr_ad_lng[220]</b>
		</td></tr>
		<form action="$thisprog" method="post">
		<input type=hidden name="action" value="process">
		<tr>
		<td bgcolor=#D6DFF7 valign=middle colspan=2>
		<font color=#000000>
		<b>$arr_ad_lng[497]</b><br><br>
$tab_top
		$arr_ad_lng[498]<br>
$tab_bottom	<br><br>
		<b>$arr_ad_lng[499]</b><BR><br>
$tab_top	         $arr_ad_lng[500]
$tab_bottom
<br></td>
		</tr>
		<tr>
		<td bgcolor=#D6DFF7 valign=middle colspan=2><b>$arr_ad_lng[501]</b><br><br><center>
		<textarea cols=60 rows=6 name="wordarray">$bannedips</textarea></center><BR>
		</td>
		</tr>
		<tr>
		<td bgcolor=#F9FAFE valign=middle align=center colspan=2>
		<input type=submit value="$arr_ad_lng[66]"></td></form></tr></table></td></tr></table>
</td></tr></table></body></html>
EOT;
exit;
} elseif ($action=="process") {
	$wordarray=str_replace("\n","",$wordarray);
	$wordarray=str_replace("\r","\n",$wordarray);
	writetofile("datafile/regipbans.php",$wordarray);
	$wordarray=str_replace("\n","<br>",$wordarray);
  	print <<<EOT
		<tr><td bgcolor=#0041BD colspan=2><font color=#D6DFF7>
		<b>$arr_ad_lng[320] $arr_ad_lng[220]</b>
		</td></tr>
		<tr>
		<td bgcolor=#D6DFF7 valign=middle colspan=2>
		<center><b>$arr_ad_lng[179]</b></center><br><br>
		<b>$arr_ad_lng[502]</b><br><br>
		$tab_top
		<b>$wordarray</b><br>
		$tab_bottom
		<br><br><center><a href="regipbans.php">$arr_ad_lng[503]</a></center>
		</td></tr></table></body></html>
EOT;
	exit;
}