File size: 1.55Kb
<?
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.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">
<wml><head><meta http-equiv=\"Cache-Control\" content=\"no-cache\" forua=\"true\"/></head>
<card id=\"Main\" title=\"Добавление сайта\">
<p align=\"center\">
<small>";
if (empty ($site) or empty ($about)){print "Вы не ввели одно из обязательных полей!!! Вернитесь назад";}
else{
$nom = @implode("",@file("nom.txt"));
$nom = trim($nom);
$beg=$nom-4;
$prov=0;
while ($beg<=$nom){
$all=@file("$beg.txt");
$all=explode("=--=",$all[0]);
$asite=trim($all[0]);
if ($asite!=$site){$prov=$prov+1;};
$beg=$beg+1;
};
if ($prov!=5){print "Ваш сайт уже добавлен на главную страницу и пока ещё не изчез ;) ";}
else {
$site = htmlspecialchars(stripslashes($site));
$about = htmlspecialchars(stripslashes($about));
$write="$site=--=$about";
$nom = $nom;
$user=fopen ("$nom.txt", "w");
fputs ($user, $write);
fclose ($user);
$nomadd=fopen ("nom.txt", "w");
fputs ($nomadd, $nom);
fclose ($nomadd);
print "Ваш сайт успешно добавлен :)";
};
};
print "
<br/>
<br/>
<a href=\"index.php\">на главную</a>
<br/>
</small>
</p>
</card>
</wml>";
?>