Размер файла: 1.64Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
include 'dan.php';
include 'uzdan.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=\"Регистрация\"><p>";
///////////// выводим вмл заголовок
if($login!=""){
$textrek="$login:||:$mainpas:||:$msex:||:$mlet:||:$mzhivet:||:$mosebe:||:$morent:||:$mmail:||:$msajt:||:$zvanie:||:$forst:||:$ksoc:||:$privat:||:$mesnst:||:$maintame";
$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);}
$pas=$mainpas;
print"Выполнено
<br/><anchor title=\"ok\">К списку комнат
<go href=\"rum.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"key\" value=\"$key\"/>
</go>
</anchor>
";
}
print "
<br/><a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>