ras.php

<?
$file = "maillist.txt"; // ôàéë, ñîäåðæàùèé àäðåñà

error_reporting(0); // çàïðåùàåì âûâîä ñîîáùåíèé î âîçìîæíûõ îøèáêàõ

function test_mail($char) // ôóíêöèÿ, ïðîâåðÿþùàÿ ðåàëüíîñòü àäðåñà
{
$flag = false;
if(eregi("^[_\.0-9a-z-]+@([0-9a-z][-0-9a-z\.]+)\.([a-z]{2,3}$)", $char)) $flag = true;
if ($flag) return true;
else return false;
}

$email = trim(strtolower($email)); // ïîëó÷àåì ââåäåíûé â
// ôîðìó àäðåñ ñ
// ñèìâîëàìè â íèæíåì ðåãèñòðå

function copy_mail($char) // ïðîâåðÿåì, åñòü ëè òàêîé àäðåñ â áàçå
{
$file = "maillist.txt";
$list = file($file);
for ($i = 0; $i < sizeof ($list); $i++)
if ($char == trim($list[$i])) $flag = true;

if ($flag) return true;
else return false;
}

echo "<center>";

if (is_file($file)) // äàëèå ïðîâåðÿåì àäðåñ âûøåîïèñàíûìè ôóíêöèÿìè
{
$maillist = file($file);
if (!$email == '') {
if (test_mail($email)) {
if (!copy_mail($email))
{
$maillist[] = "\n$email";
print "E-mail: $email add in baze</center>";
}
else print "E-mail: $email retry in baze</center>";
}
else print "E-mail: $email dont create</center>";
}
else print "</center>";
}
else print "no find file $file ! please <A HREF=\"mailto:$fromemail\">send</a> my error.</center>";
// âûâîäè íà åêðàí ôîðìó ñ ïðåäëîæåíèåì ïîäïèñêè è îòïèñêè
echo "<br><center>Please subscribe<form method=\"post\" action=\"ras.php\" enctype=\"multipart/form-data\">";
echo "enter mail:<input type=\"text\" name=\"email\" size=\"30\"><input type=\"submit\" name=\"submit\" value=\"try write\"></form></center>";

echo "<CENTER><br><br><form method=\"post\" action=\"ras.php\" enctype=\"multipart/form-data\">";
echo "unsubscribe <br>enter mail:";
echo "<input type=\"text\" name=\"delmail\" size=\"15\"><input type=\"submit\" name=\"submit\" value=\"unsubscribe\"></form></CENTER>";
// åñëè ïîëüçîâàòåëü ðåøèë îòïèñàòüñÿ - óäàëÿåì ââåäåíûé àäðåñ
$flag = false;
$fw = fopen($file, "w");
for ($i = 0; $i < sizeof ($maillist); $i++)
if (trim(strtolower($delmail)) == trim(strtolower($maillist[$i]))) {
if (!$delmail == '')
{
print "<center>$delmail deleted with baze</center>";
$flag = true;
}
}
else fputs($fw, $maillist[$i]); // ââåäåíîãî àäðåñà â áàçå íåò
fclose($fw);
if (!$delmail == '')
if (!$flag) print "<center>$delmail not find in baze</center>";
?>