File size: 2.87Kb
<?
include "../config.php";
header("Content-type:text/vnd.wap.wml;charset=utf-8"); ////////
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>";
$parol="$password";
if($par!=$parol){print"Ведите пароль:<br/>
<input title=\"par\" name=\"par\" value=\"\"/><br/>
<anchor title=\"Ok\">Есть
<go href=\"admin.php\" method=\"post\">
<postfield name=\"par\" value=\"$(par)\"/>
</go>
</anchor>
";}
if($par==$parol){
if ($dob!="da"){
print"Введите название новой категории:
<br/>
<input title=\"kategor\" name=\"kategor\" value=\"\"/><br/>
<anchor title=\"Ok\">Есть
<go href=\"dobkat.php?par=$par&dob=da\" method=\"post\">
<postfield name=\"kategor\" value=\"$(kategor)\"/>
</go>
</anchor>
";}
if($dob=="da"){
if($kategor!=""){
$kategor=trim($kategor);
$kat = @implode("",@file("rekord/kat.dat"));
$i = 0;
while($i <= $kat)
{
$text = @implode("",@file("rekord/$i.txt"));
$text=trim($text);
if ($text==$kategor) {$kategor="reg";}
$i=$i+1;
}; ////////////////
if($kategor!="reg"){
$counterarray = file("rekord/kat.dat");
$id = $counterarray[0]+1;
$fp = @fopen("rekord/kat.dat","wb"); ///////////// 1
@fputs($fp,$id);
@fclose($fp);
$fp=fopen("rekord/$id.txt","w"); ///////////
fputs($fp,"$kategor \r\n");
fclose($fp);
chmod ("rekord/$id.txt", 0777);
$nol=0;
$fp=fopen("rekord/$id.dat","w"); ///////////
fputs($fp,"$nol \r\n");
fclose($fp);
chmod ("rekord/$id.dat", 0777);
print"Категория $kategor успешно добавленна";
}
////// :
else{print"Такая категория уже существует!";}
}else{print"Вы не ввели название категории";}
}
}print "<br/><a href=\"admin.php?par=$par\">Админ-панель</a><br/></p></card></wml>";
?>