Просмотр файла wapsub/sub.php

<?
////////////////////////////////////////////////////////////////////////////
////         Автор скрипта: Трофимов Дмитрий 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=\"http://trofimov.com.ru/wap/\">TROsub 0.1</a></p>
</card>
</wml>
";




?>