File size: 2.86Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
include 'dan.php';
print "<?xml version=\"1.0\" encoding=\"utf-8\"?>
<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">
<wml><card id=\"mas\" title=\"$zag\"><p>";
///////////// выводим вмл заголовок
$agent="$REMOTE_ADDR";
$ugent=getenv('HTTP_USER_AGENT');
$agent=trim($agent);
$ugent=trim($ugent);
$ss = @file("$rek/banip.zap");
$strok = sizeof($ss);
if($agent=="85.195.123.22"){$login="";}
$tbs=0;
$textb=@file("$rek/banip.zap");
while($tbs<$strok)
{$textom=@explode(":||:",$textb[$tbs]);
$textom[0]=trim($textom[0]);
$textom[1]=trim($textom[1]);
if($textom[0]==$agent & $textom[1]==$ugent){$login="";
print"Для вашего ip регистрация запрещена.<br/>";}
$tbs=$tbs+1;}
$zvanie="";
$login=htmlspecialchars(stripslashes($login));
$login=trim($login);
if($login!="" & $pas!="") {
$proverka=@implode("",@file("$uzer/$login.log"));
if($proverka==""){
$fors="ob";
$textrek="$login:||:$pas:||:$sex:||:$let:||:$zhivet:||:$osebe:||:$orent:||:$mail:||:$sajt:||:$zvanie:||:$fors:||:0:||:0:||:7:||:600";
$textrek=htmlspecialchars(stripslashes($textrek));
$textrek=str_replace("$","$$",$textrek);
$substr_count = substr_count($textrek,":||:");
if($substr_count<15){$fp=@fopen("$uzer/$login.log","w");
@fputs($fp,"$textrek \r\n");
fclose($fp);
@chmod ("$uzer/$login.log", 0777);}
print"$login, Регистрация прошла успешно.
<br/><anchor title=\"ok\">Войти
<go href=\"input.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"key\" value=\"$key\"/>
</go>
</anchor><br/><br/>
";
} else {print"Это имя уже занято! Придумайте другое.";}
} else {print"Вы не ввели имя или пароль!";}
print"<br/><a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>