<?
function checkemail2($email) {
        //returns 1 if valid email, 0 if not
    if(ereg("^.+@.+\\..+$", $email)) { return 1; } else { return 0; }
}

function smail2($smtp_to_addr, $smtp_to_name, $smtp_from_addr, $smtp_from_name, $smtp_subject, $m_body_plain, $m_body_html) {
$smtp_port=25;
$smtp_timeout=20;
$smtp_host="localhost";
$smtp_helo=getenv("HTTP_HOST");
$smtp_reply=$smtp_from_addr;

$m_body_plain=str_replace("\n", "\r\n", $m_body_plain);
$m_body_html =str_replace("\n", "\r\n", $m_body_html);

$fp = fsockopen ($smtp_host, $smtp_port, $errno, $errstr, $smtp_timeout);
if ($fp) {
   $s=fgets($fp, 256);
   if (!strstr($s, "220")) {  syslog(LOG_ERR, "SMTP error: $s"); return(1); }
   fputs ($fp, "helo ".$smtp_helo."\r\n");
   $s=fgets($fp, 256);
   if (!strstr($s, "250")) { syslog(LOG_ERR, "SMTP error: $s"); return(1); }
   fputs ($fp, "mail from:".$smtp_from_addr."\r\n");
   $s=fgets($fp, 256);
   if (!strstr($s, "250")) { syslog(LOG_ERR, "SMTP error: $s"); return(1); }
   fputs ($fp, "rcpt to:".$smtp_to_addr."\r\n");
   $s=fgets($fp, 256);
   if (!strstr($s, "250")) { syslog(LOG_ERR, "SMTP error: $s"); return(1); }
   fputs ($fp, "data\r\n");
   $s=fgets($fp, 256);
   if (!strstr($s, "354")) { syslog(LOG_ERR, "SMTP error: $s"); return(1); }
   fputs ($fp, "To: ".$smtp_to_name." <".$smtp_to_addr.">\r\n".
               "From: ".$smtp_from_name." <".$smtp_from_addr.">\r\n".
               "Reply-To: ".$smtp_reply."\r\n".
               "MIME-Version: 1.0\r\n".
               "Content-Type: multipart/alternative;\r\n".
               "\tboundary=\"----=_UH_ijn_098765\"\r\n".
               "Subject: $smtp_subject\r\n\r\n".
               "This is a multi-part message in MIME format.\r\n\r\n".
               "------=_UH_ijn_098765\r\n".
               "Content-Type: text/plain\r\n\r\n".
               $m_body_plain."\r\n".
               "------=_UH_ijn_098765\r\n".
               "Content-Type: text/html\r\n\r\n".
               $m_body_html."\r\n\r\n".
               "------=_UH_ijn_098765--\r\n\r\n".
               ".\r\n");
   $s=fgets($fp, 256);
   if (!strstr($s, "250")) {
      syslog(LOG_ERR, "SMTP error: $s"); return(1);
      }
   else {
      fputs ($fp, "quit\r\n");
      }
   fclose ($fp);
   }
else {
   syslog(LOG_ERR, "$errstr ($errno)");
   }
return(0);
}

function base_me($qu){
	mysql_query($qu);
   
	
	}

?>