Размер файла: 12.22Kb
<?
/////////////////////////////////////////////////////////////////////////////////////
//
// Made by : Sklep
// E-mail : [email protected]
// Site : http://mcwap.xost.ru
//
/////////////////////////////////////////////////////////////////////////////////////
##------------------------------ заголовок -----------------------------------##
header("Content-type:text/vnd.wap.wml;charset=utf-8");
print "<?xml version=\"1.0\"?>";
print "<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">";
print "<wml>";
print "<card id=\"index\" title=\"Регистрация\">";
print "<p>";
##-----------------------------------------------------------------------------##
#####################################################
$index = "http:// $site /"; /// ссылка на главную!
//print "$login <br/>"; /////// логин
//print "$mail<br/>"; ///////// маил
//print "$icq <br/>"; /////// icq
//print "$sex<br/>"; ////// пол
//print "$name<br/>"; /////// имя
//print "$age<br/>"; ///////// возраст
//print "$rost<br/>"; /////// рост
//print "$hair<br/>"; /////// цвет волос
//print "$eye<br/>"; /////// цвет глаз
//print "$city<br/>"; /////// город
//print "$sot<br/>"; /////// тел
//print "$pov<br/>"; /////// цель знакомства
//print "$info<br/>"; /// инфо о себе
////////////////////////////////////////////////////////////////////////////////
////////////////// Обработка форм регистрации ///////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////// вырежем все теги нах :) /////////////////////////////////////////////
$login = strip_tags($login);
$mail = strip_tags($mail);
$icq = strip_tags($icq);
$sex = strip_tags($sex);
$name = strip_tags($name);
$age = strip_tags($age);
$rost = strip_tags($rost);
$hair = strip_tags($hair);
$eye = strip_tags($eye);
$city = strip_tags($city);
$sot = strip_tags($sot);
$pov = strip_tags($pov);
$info = strip_tags($info);
////////////////// удалим пробелы из мыла //////////////////////////////////////
$mail = trim($mail);
################################################################################
if ($sex !== "m" && $sex !== "zh"){print "<small><big><b><u>АХ ТЫ ЕБ..НЫЙ ХАКЕР! ТВОЙ IP и USERAGENT УЖЕ В СИСТЕМЕ!!!</u></b></big><br/><small></p></card></wml>"; exit;}
if (!$login){print "<small><b>ОШИБКА</b><br/>Заполните все обязательные поля!<br/><a href=\"new.php?site=$site\">Назад</a><br/><br/> <a href=\"index.php?site=$site\">ЗнакомствА</a><br/> <a href=\"$index\">(c) $site 2006</a> <br/><br/> <a href=\"http://mcwap.xost.ru\">][akepy</a></small></p></card></wml>"; exit;}
if (!$age) {print "<small><b>ОШИБКА</b><br/>Заполните все обязательные поля!<br/><a href=\"new.php?site=$site\">Назад</a><br/> <br/><a href=\"index.php?site=$site\">ЗнакомствА</a><br/> <a href=\"$index\">(c) $site 2006</a><br/><br/> <a href=\"http://mcwap.xost.ru\">][akepy</a></small></p></card></wml>"; exit;}
if (!$name) {print "<small><b>ОШИБКА</b><br/>Заполните все обязательные поля!<br/><a href=\"new.php?site=$site\">Назад</a><br/> <br/><a href=\"index.php?site=$site\">ЗнакомствА</a><br/> <a href=\"$index\">(c) $site 2006</a><br/><br/><a href=\"http://mcwap.xost.ru\">][akepy</a></small> </p></card></wml>"; exit;}
if (!$city) {print "<small><b>ОШИБКА</b><br/>Заполните все обязательные поля!<br/><a href=\"new.php?site=$site\">Назад</a><br/> <br/><a href=\"index.php?site=$site\">ЗнакомствА</a><br/> <a href=\"$index\">(c) $site 2006</a><br/><br/> <a href=\"http://mcwap.xost.ru\">][akepy</a></small></p></card></wml>"; exit;}
if (!$sot) {print "<small><b>ОШИБКА</b><br/>Заполните все обязательные поля!<br/><a href=\"new.php?site=$site\">Назад</a><br/><br/> <a href=\"index.php?site=$site\">ЗнакомствА</a><br/> <a href=\"$index\">(c) $site 2006</a><br/><br/><a href=\"http://mcwap.xost.ru\">][akepy</a></small> </p></card></wml>"; exit;}
if (!$pov) {print "<small><b>ОШИБКА</b><br/>Заполните все обязательные поля!<br/><a href=\"new.php?site=$site\">Назад</a><br/><br/> <a href=\"index.php?site=$site\">ЗнакомствА</a><br/> <a href=\"$index\">(c) $site 2006</a><br/><br/> <a href=\"http://mcwap.xost.ru\">][akepy</a></small></p></card></wml>"; exit;}
if (!$info) {print "<small><b>ОШИБКА</b><br/>Заполните все обязательные поля!<br/><a href=\"new.php?site=$site\">Назад</a><br/><br/> <a href=\"index.php?site=$site\">ЗнакомствА</a><br/> <a href=\"$index\">(c) $site 2006</a><br/><br/> <a href=\"http://mcwap.xost.ru\">][akepy</a></small></p></card></wml>"; exit;}
///////// если мы дошли до сюда , значит user заполнил все правильно //////////
$date = date("d-m-Y"); // дата регестрации
//////////////// проверяем есть такой логин или не /////////////////////////////
$login = strtolower($login);
$find_login = join('', file("login_base.txt"));
$proverka = ereg("$login", "$find_login"); // ищем там логин который только что ввел юзер
if ($proverka == true){
### если такой логин есть выдваем мессагу об ошибке и даем по тормозам :)
print "<small><b>Этот логин занят!</b><br/>";
print "<b>Выберете другой!</b><br/>";
print "<a href=\"new.php?site=$site\">Назад</a><br/>";
print "<a href=\"$index\">(c) $site 2006</a><br/><br/>";
print "<a href=\"http://mcwap.xost.ru\">][akepy</a><br/></small>";
print "</p></card></wml>";
exit; // тормозим скрипт
}else{
//////// если такой логин не найден сохраняем всю инфу в файлики //////////////
###########сохраняем логин в базу login_base.txt
$add_login = "$login";
$login_file = fopen("login_base.txt","a+"); /////// открываем login_base.txt на запись
fputs($login_file,"$add_login \r\n"); //// записываем данные в строку
fclose($login_file);
####################################################
//////// счетчик регистраций, он же раздатчик id //////////////////////////////
$counter_array = file("vsego.txt");
$id = $counter_array[0]+1;
$fp = @fopen("vsego.txt","wb");
@fputs($fp,$id);
@fclose($fp);
$userinfo = "$login:::$name:::$age:::$id:::"; //формат записи в $sex.txt
$fileinfo = fopen("$sex.txt","a+"); /////// открываем $sex.txt на запись
fputs($fileinfo,"$userinfo \r\n"); //// записываем данные в строку
fclose($fileinfo);
/////////////// перезаписываем файлы последних анкет //////////////////////////
$posl_ank = "$name:::$age:::$id:::"; //формат записи в $sex.txt
$posl_info = fopen("posl/$sex.txt","w+"); /////// открываем $sex.txt на запись
fputs($posl_info,"$posl_ank \r\n"); //// записываем данные в строку
fclose($posl_info);
////////// создаем текстовый файл в папке base имя = id ////////////////////
////////// в нем будут файлы с анкетами ///////////////////////////////////
$infofile = fopen("base/$id.txt","a+");/// если чо поменять a+ на w !!!!!!!
chmod ("base/$id.txt", 0777); ////// устанавливаем права на созданный файл
/////////////////если не пашет поменять 0777 на 777 !!!!!!!!!
$zap = "$login:::$mail:::$icq:::$name:::$age:::$rost:::$hair:::$eye:::$city:::$sot:::$pov:::$info:::$date:::"; //формат записи в $sex.txt
$fileinfo = fopen("base/$id.txt","a+"); /////// открываем base/$login.txt на запись
fputs($fileinfo,"$zap \r\n"); //// записываем данные в строку
fclose($fileinfo); //// закрываем файл
}
////////////////////////////////////////////////////////////////////////////////
////// выводим сообщение об успешной реге //////////////////////////////////////
print "<b>Ваша анкета успешно создана!</b><br/>";
print "Ваши данные:<br/>";
print "<small><b>Login</b>: $login <br/>"; /////// логин
print "<b>Email</b>: $mail<br/>"; ///////// маил
print "<b>ICQ</b>: $icq<br/>"; ///////// маил
if ($sex == "m"){
print "<b>Пол</b>: M<br/>"; ////// пол
}else{
print "<b>Пол</b>: Ж<br/>";
}
print "<b>Имя</b>: $name<br/>"; /////// имя
print "<b>Возраст</b>: $age<br/>"; ///////// возраст
print "<b>Рост</b>: $rost<br/>"; /////// рост
print "<b>Знак задиака:</b>: $hair<br/>"; /////// цвет волос
print "<b>Цвет глаз</b>: $eye<br/>"; /////// цвет глаз
print "<b>Город</b>: $city<br/>"; /////// город
print "<b>Номер мобилы</b>: $sot<br/>"; /////// тел
print "<b>Цель знакомства</b>: $pov<br/>"; /////// цель знакомства
print "<b>О себе</b>: $info<br/>"; /// инфо о себе
print "<b>Дата регистрации</b>: $date <br/><br/>-----"; // дата регистрации
print "<br/><a href=\"index.php?site=$site\">ЗнакомствА</a>";
print "<br/><a href=\"$index\">(с) $site 2006</a><br/><br/>";
print "<a href=\"http://mcwap.xost.ru\">][akepy</a></small>";
print "</p></card></wml>";
?>