File size: 1.42Kb
<?
////////////////////////////////////////////////////////////////////////////
//// Автор скрипта: Трофимов Дмитрий aka dimidrol //
//// E-mail: [email protected] //
//// Home pages: http://www.trofimov.com.ru //
////////////////////////////////////////////////////////////////////////////
$ss = file("mailbase.txt");
$id = sizeof($ss);
$id++;
$text = "$mail::$id";
$text = htmlspecialchars($text);
$text = stripslashes($text);
$fp=fopen("mailbase.txt","a");
fputs($fp,"$text \r\n");
fclose($fp);
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>
<card id=\"tes\" title=\"SubOK\">
<p>
Спасибо, Ваш $mail был удачно занесен в базу рассылки !!!
<br/><a href=\"../../index.php\">На главную страницу сайта</a></p>
</card>
</wml>
";
?>