File size: 0.98Kb
<?
////////////////////////////////////////////////////////////////////////////
//// Автор скрипта: Трофимов Дмитрий aka dimidrol //
//// E-mail: [email protected] //
//// Home pages: http://www.trofimov.com.ru //
////////////////////////////////////////////////////////////////////////////
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=\"Rassilka\">";
$xfile = @file("mailbase.txt");
for ($i=0;$i<count($xfile);$i++) {
$udata = explode("::",$xfile[$i]);
@mail("$udata[0]", "$theame", $mess, "From:$bote");
print"Bolhoe Spasibo Rassilka zaverhena, Pismo dostavlemo do podpiscikov...";
}
print "
<br/><a href=\"http://trofimov.com.ru/wap/\">WAPchat ver 0.1</a>
</card>
</wml>";
?>