Размер файла: 7.46Kb
<?
// ////// // // // //
// // // // ///// /////
///// \\ // // // // // // // // // // // //
// // \\ // // // // // // // // // ////// // //
// // \\ // // // // // // // // // // // //
///// \// ////// // // // // // ///// // //
// /////
//
/////////////////////////// [email protected] ///////////////////////////////
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
//////////////////////////////////////////////////////////////////////////
$gl="../"; /////////// ссылка на главную
$zag="Wapilkin Katalog"; /////////// Загаловок
//////////////////////////////////////////////////////////////////////////
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\">";
///////////// выводим вмл заголовок
if ($kateg=="next"){
if($url=="") {$url="http://";}
print"<p>
Адрес URL <br/>
<input title=\"urls\" name=\"url\" value=\"$url\"/><br/>
Название<br/>
<input title=\"nazv\" name=\"naz\" value=\"$naz\" maxlength=\"20\"/><br/>
Описание сайта(max 100)<br/>
<input title=\"opis\" name=\"opis\" value=\"$opis\" maxlength=\"100\"/><br/>
Категория сайта<br/>
<select name=\"kateg\" title=\"kateg\">";
if($kat=="") {$kat = @implode("",@file("rekord/kat.dat"));} ////////// открываем счетчик количества дерикторий, и считываем из него их количества (если номер деректории не передан)
$n=0;
while($n <= 15)
{
$text = @implode("",@file("rekord/$kat.txt")); /////////// выводим ссылки на деректории (15 ссылок на странице)
$text=trim($text);
if ($text != "") { print "<option value=\"$kat\">$text</option>"; $n=$n+1; };
$kat=$kat-1;
if ($kat<=0) {$n=16;};
};
if ($kat>0) {print"<option value=\"next\">Далее</option>";}
print"
</select>
<br/><br/>
<anchor title=\"Ok\">Ok
<go href=\"dob.php?dob=yes\" method=\"post\">
<postfield name=\"url\" value=\"$(url)\"/>
<postfield name=\"naz\" value=\"$(naz)\"/>
<postfield name=\"opis\" value=\"$(opis)\"/>
<postfield name=\"kateg\" value=\"$(kateg)\"/>
<postfield name=\"kat\" value=\"$(kat)\"/>
</go>
</anchor>";}
if($dob=="yes"){ if($kateg!="next"){ //////////////////// добавляем сайт в список каталга
print"<p>";
if($url!="") { /////////////проверяем заполнены ли все поля
if($naz!=""){
if($opis!=""){
if($kateg!=""){
$url=trim($url); //////////удаляем из адреса пробелы (откуда они там берутся!?)
$kateg=trim($kateg);
$vsego = @implode("",@file("rekord/vsego.dat")); ////////////// открываем и считываем значения общего счетчика
$i = 0;
while($i <= $vsego)
{
$text = @implode("",@file("rekord/$i.af"));
$text=trim($text);
if ($text==$url) {$url="reg";}
$i=$i+1;
}; //////////////// проверяем отсутствие ригестрации сайта
if($url!="reg"){
////////////если заполнены все поля, и такой сайт еще не зарегестрирован, то начинаем регистрацию:
$reg="<a href=\"$url\">$naz</a><br/><small>$opis</small><br/>========<br/>"; /////////формат записи
$counterarray = file("rekord/$kateg.dat");
$id = $counterarray[0]+1;
$fp = @fopen("rekord/$kateg.dat","wb"); /////////////увеличеваем на 1 счетчик регистараций в данной категории
@fputs($fp,$id);
@fclose($fp);
$fp=fopen("rekord/$id=$kateg.dion","w"); /////////// создаем файл с информацией о сайте
fputs($fp,"$reg \r\n");
fclose($fp);
chmod ("rekord/$id=$kateg.dion", 0777);
$fl=$id;
$counterarray = file("rekord/vsego.dat");
$id = $counterarray[0]+1;
$fp = @fopen("rekord/vsego.dat","wb"); /////////////увеличеваем на 1 общий счетчик регистараций
@fputs($fp,$id);
@fclose($fp);
$fp=fopen("rekord/$id.af","w"); /////////// заносим сайт в список зарегестрированных
fputs($fp,"$url \r\n");
fclose($fp);
chmod ("rekord/$id.af", 0777);
$fp=fopen("rekord/$fl=$kateg.daf","w"); ///////////
fputs($fp,"$id \r\n");
fclose($fp);
chmod ("rekord/$fl=$kateg.daf", 0777);
///////////////////////////Выводим сообщение об удачной регисрации (в случае таковой):
print"Сайт $url удачно зарегистрирован";
//////// выводим сообщение об ошибках:
}else {print"Сайт с таким адресом уже зарегестрирован!";}
}else {print"Вы не выбрали категорию!";}
}else {print"Вы не заполнили поле \"Описание сайта\"!";}
}else {print"Вы не заполнили поле \"Название сайта\"!";}
}else {print"Вы не заполнили поле с адресом!";}
}}
print"<br/>
----------
<br/>
<a href=\"index.php\">Каталог</a><br/>
<a href=\"$gl\">На главную</a><br/>
<br/>
<br/>
<br/>
</p>";
print "</card></wml>";
?>