Размер файла: 3.23Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE);
header("Content-type:text/vnd.wap.wml;charset=utf-8");
if ($adres!=""){
if ($pas!=""){
if ($mail!=""){
$text = "$adres";
$counter_array = file("counterreg.dat");
$id = $counter_array[0]+1;
$fp = @fopen("counterreg.dat","wb");
@fputs($fp,$id);
@fclose($fp);
$fp=fopen("konfig/$id.dionisij","w");
fputs($fp,"$text \r\n");
fclose($fp);
chmod ("konfig/$id.dionisij", 0777);
$text = "$pas";
$fp=fopen("parol/$id.dionisij","w");
fputs($fp,"$text \r\n");
fclose($fp);
chmod ("parol/$id.dionisij", 0777);
$text = "$mail";
$fp=fopen("meil/$id.dionisij","w");
fputs($fp,"$text \r\n");
fclose($fp);
chmod ("meil/$id.dionisij", 0777);
$text = "";
$fp=fopen("af/$id.txt","w");
fputs($fp,"$text \r\n");
fclose($fp);
chmod ("af/$id.txt", 0777);
$text = "0";
$fp=fopen("cont/$id.dat","w");
fputs($fp,"$text \r\n");
fclose($fp);
chmod ("cont/$id.dat", 0777);
print "<?xml version=\"1.0\"?>
<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">
<wml>
<card id=\"gos\" title=\"Mobilka.Us GB\">
<p>
Гостевая удачно создана! Внимательно запомните (а лучше запишите):<br/> номер вашей гостевой: $id <br/>Ваш пароль: $pas
<br/>
<a href=\"$adres\">Перейти на ваш сайт</a><br/>
<a href=\"http://mobilka.us\">Главная</a><br/>
</p>
</card>
</wml>"; ///////////////// последняя ссылка - на главную
}} }
else {
print "<?xml version=\"1.0\"?>
<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">
<wml>
<card id=\"gos\" title=\"Mobilka.Us GB\">
<p>
Вы заполнили не все поля!
<br/>
<a href=\"rega.php\">Вернутся назад</a><br/>
<a href=\"http://mobilka.us\">На главную</a><br/>
</p>
</card>
</wml>"; };
?>