Kasutajad Sisene     Liitu

Theme   hele tume must

Maililisti regamine

Lisab POSTitud e-mailid maililisti jaoks tekstifaili. Koodi alguses on aadressivorm,
kasutamiseks eemalda kommentaarid või kopeeri vorm sihtkohta.

<!--  MESSAGE FORM
<form method="post" action="">
   < div style="float:right;border:0px solid #bbb;background:inherit;width:190px;";> 
   < input type="text" size="20" name="mail" style="height:18px;color:#999;" 
    value="e-mail" onclick="this.value=''">
   < input type="submit" class="groov" value="OK" style="height:21px;"><br/> 
   < font color="#999">Liitu maililistiga</font></div>
</form> //--> 


<?php   // MAIL.PHP
$fail = "mail.txt";
$mail = htmlspecialchars($_POST["mail"], ENT_QUOTES);
   if ((strlen($mail) > 1) && (strpos($mail,"@") > 1))  {
   if (file_exists($fail)) { 
     $fh = fopen($fail, "r");
     $fcontent = fread($fh, filesize($fail));
     fclose ($fh);
   } else touch($fail);
   $sisu = $mail ."\n";
   $towrite = $sisu . $fcontent;
   $fh2 = fopen($fail, 'w') or die();
   fwrite ($fh2, $towrite);
   fclose ($fh2);
   echo $mail . " registreeritud";
}
else echo $mail . " ei ole sobiv aadress";
echo "<META HTTP-EQUIV='refresh' content='0;URL=../index.php?q=5'>";   // redirect
?>