php.ComLanka.com PHP Tutorial ,PHP source code, PHP online example

Algorithms Arrays Passwords Uncategorized
Commerce Uncategorized
Databases Abstraction Layers Informix LDAP MS SQL MySQL ODBC PostgreSQL Uncategorized
Date & Time Calculators Conversion Translation Uncategorized
Discussion Chat Forums Guestbooks Polls Uncategorized
Email Validation Uncategorized
External Uncategorized
Files and Directories Uncategorized
Games Uncategorized
Graphics 3-D Graphs Resizing Thumbnails Uncategorized
HTML Forms Menus & Navigation Source Viewers Tables Templates Uncategorized
HTTP Authentication Cookies File Uploading Uncategorized
I18N Uncategorized
Math Uncategorized
Miscellaneous Uncategorized
Searching and Trees Uncategorized
Security Uncategorized
Text Uncategorized
Utilities Calendars Counters Link Checkers Weather Uncategorized
XML Uncategorized

php sample source codes
This is another sendmail script. Sends HTML and Text message. Add attached file as inline image or attachment. <?php /********************************************* * Publish On : Jan 10th, 2004 * * Scripter : Hermawan Haryanto * * Version : 1.0 * * License : GPL (General Public License) * **********************************************/ function sendmail ($from_name, $from_email, $to_name, $to_email, $subject, $text_message="", $html_message, $attachment="") { $from = "$from_name <$from_email>"; $to = "$to_name <$to_email>"; $main_boundary = "----=_NextPart_".md5(rand()); $text_boundary = "----=_NextPart_".md5(rand()); $html_boundary = "----=_NextPart_".md5(rand()); $headers = "From: $from\n"; $headers .= "Reply-To: $from\n"; $headers .= "X-Mailer: Hermawan Haryanto (http://hermawan.com)\n"; $headers .= "MIME-Version: 1.0\n"; $headers .= "Content-Type: multipart/mixed;\n\tboundary=\"$main_boundary\"\n"; $message .= "\n--$main_boundary\n"; $message .= "Content-Type: multipart/alternative;\n\tboundary=\"$text_boundary\"\n"; $message .= "\n--$text_boundary\n"; $message .= "Content-Type: text/plain; charset=\"ISO-8859-1\"\n"; $message .= "Content-Transfer-Encoding: 7bit\n\n"; $message .= ($text_message!="")?"$text_message":"Text portion of HTML Email"; $message .= "\n--$text_boundary\n"; $message .= "Content-Type: multipart/related;\n\tboundary=\"$html_boundary\"\n"; $message .= "\n--$html_boundary\n"; $message .= "Content-Type: text/html; charset=\"ISO-8859-1\"\n"; $message .= "Content-Transfer-Encoding: quoted-printable\n\n"; $message .= str_replace ("=", "=3D", $html_message)."\n"; if (isset ($attachment) && $attachment != "" && count ($attachment) >= 1) { for ($i=0; $i<count ($attachment); $i++) { $attfile = $attachment[$i]; $file_name = basename ($attfile); $fp = fopen ($attfile, "r"); $fcontent = ""; while (!feof ($fp)) { $fcontent .= fgets ($fp, 1024); } $fcontent = chunk_split (base64_encode($fcontent)); @fclose ($fp); $message .= "\n--$html_boundary\n"; $message .= "Content-Type: application/octetstream\n"; $message .= "Content-Transfer-Encoding: base64\n"; $message .= "Content-Disposition: inline; filename=\"$file_name\"\n"; $message .= "Content-ID: <$file_name>\n\n"; $message .= $fcontent; } } $message .= "\n--$html_boundary--\n"; $message .= "\n--$text_boundary--\n"; $message .= "\n--$main_boundary--\n"; @mail ($to, $subject, $message, $headers); } ?>
I find it necessary to obscure my email addresses. This code was inspired by a script at http://www.healyourchurchwebsite.com/ //This code should help conceal the email addresses you list on your site from spammers. It's especially useful for email addresses drawn from a database (like in a phonebook application) //obfuscate takes a string and replaces most characters with the hexidecimal ordinal equivalent. Note: return string is almost certainly much longer than the original email address function obfuscate($email) { $i=0; $obfuscated=""; while ($i<strlen($email)) { if (rand(0,2)) { $obfuscated.='%'.dechex(ord($email{$i})); } else { $obfuscated.=$email{$i}; } $i++; } return $obfuscated; } //obfuscate_numeric takes a string and replaces the characters with html entity eqivalents. You have to do this if you want to obfuscate the label and have it display normally, or if you just want to obfuscate the "mailto" tag. Note: return string is almost certainly much longer than the plaintext string function obfuscate_numeric($plaintext) { $i=0; $obfuscated=""; while ($i<strlen($plaintext)) { if (rand(0,2)) { $obfuscated.='&#'.ord($plaintext{$i}); } else { $obfuscated.=$plaintext{$i}; } $i++; } return $obfuscated; } //this function drives the two above and generates a mailto link. if label isn't set, it just re-obfuscates the email address and uses that as the label function generate_obfuscated_mailto ($email,$label) { if (isset($label)) { return sprintf("<a href='%s:%s'>%s</a>", obfuscate_numeric('mailto'), obfuscate($email), obfuscate_numeric($label)); } else { return sprintf("<a href='%s:%s'>%s</a>", obfuscate_numeric('mailto'), obfuscate($email), obfuscate_numeric($email)); } }
attachment in mail >= 1 <?php if (getenv("REQUEST_METHOD") == "POST") { set_time_limit(0); //s para teste mas auterem essa parte para pegar os dados via post $_POST $nome = "nome"; $email = "email"; $mensagem = "mensagem"; $assunto = "assunto"; $anexos = 0; $boundary = "XYZ-" . date("dmYis") . "-ZYX"; $mens = "--$boundary\n"; $mens .= "Content-Transfer-Encoding: 8bits\n"; $mens .= "Content-Type: text/html; charset=\"ISO-8859-1\"\n\n"; $mens .= "$mensagem\n"; $mens .= "--$boundary\n"; for($i = 0; $i < count($_FILES["file"]["name"]); $i++) { if(is_uploaded_file($_FILES["file"]["tmp_name"][$i])){ $fp = fopen($_FILES["file"]["tmp_name"][$i], "rb"); $anexo = chunk_split(base64_encode(fread($fp, $_FILES["file"]["size"][$i]))); fclose($fp); $mens .= "Content-Type: ".$_FILES["file"]["type"][$i]."\n name=\"".$_FILES["file"]["name"][$i]."\"\n"; $mens .= "Content-Disposition: attachment; filename=\"".$_FILES["file"]["name"][$i]."\"\n"; $mens .= "Content-transfer-encoding:base64\n\n"; $mens .= $anexo."\n"; if($i + 1 == count($_FILES["file"]["name"])) $mens.= "--$boundary--"; else $mens.= "--$boundary\n"; if($_FILES["file"]['error'][$i] == 0) { $anexos++; } } } $headers = "MIME-Version: 1.0\n"; $headers .= "Date: ".date("D, d M Y H:i:s O")."\n"; $headers .= "From: \"Remetente\" <email_do_remetente>\r\n"; $headers .= "Content-type: multipart/mixed; boundary=\"$boundary\"\r\n"; if(mail($email, $assunto, $mens, $headers)){ echo "O email foi enviado com sucesso, $anexos anexos"; } else { echo "Nao foi possivel enviar o email"; } } ?>
cryptemail() function will print e-mail address such a way that only browser will understand it, and display the correct text corresponding to each character. This function is very useful to stop SPAM. It will make it hard for normal Web Spider/Crawler or any custom made e-mail harvesting script which gets all e-mail addresses for a web-page,dump in the database & do SPAM. <? ################################################################################ # Author: Ankur Patel # # # # Date: Does it really matter? # # # # Contact: ankurpateL78@yahoo.com # # # # Note: cryptemail() function will print e-mail address such a way that # # only browser will understand it, and display the correct text # # corresponding to each character. This function is very useful # # to stop SPAM. It will make it hard for normal Web Spider/Crawler # # or any custom made e-mail harvesting script which gets all # # e-mail addresses for a web-page,dump in the database & do SPAM. # # To see the demo- just run this script, and you will understand it. # # # # License: Freeware # # # ################################################################################ $usermail = "ankur@patel.com"; $test = cryptemail($usermail); print "<a href='mailto:$test'>$test</a>"; function cryptemail($myemail) { $i=0; // initializing the counter to count each character do { $codechar = substr($myemail,$i,1); // Read each character of the string $code = ord($codechar); // Convert each character to its corresponding ASCII value/number if($code == "&#0") // If space/NULL is there, don't print anything ( After last character what will happen?) { print ""; } else { $cryptmail = $cryptmail."&#$code"; // Make a new string with cryptic ASCII codes } $i++; } while($codechar != ""); // End of do-while loop return $cryptmail; } // end of function ?>
E-Mail validation with an eregi expression. function is_email_valid($email) { if(eregi("^[a-z0-9\._-]+@+[a-z0-9\._-]+\.+[a-z]{2,3}$", $email)) return TRUE; else return FALSE; }
This simple email / feedback form can be used on any website with register_globals=of, so $_POST is used, also works on drupal.org installations and include files. Adds extra info: ip, address, scriptlocation and timestamp. <?php ///////////////////////////////////////////////////////////// // e-mail form by OpenThe.NET // // Visit http://openthe.net/contact for support & questions// ///////////////////////////////////////////////////////////// // configure to fit your needs $to = "support@opensthe.net"; $toname = "Support OpenThe.NET"; $subject = "e-mail from Website"; $confirm = "Your e-mail has been sent!"; // for Drupal users modify the form tag the same as the alias line in the page // do not modify below this line if (isset($_POST['sendnow'])) { $from = $_POST['from']; $fromname = $_POST['fromname']; $message = $_POST['message']; // extra info to add to message $address = gethostbyaddr($_SERVER['REMOTE_ADDR']); $ip = gethostbyname($_SERVER['REMOTE_ADDR']); $timestamp = time (); $filename = $_SERVER['PHP_SELF']; $location = $_SERVER['SERVER_NAME'].$filename; // adding $messagewithinfo = "$message\n\nExtra info:\nIP = $ip\nAddress = $address\nTime at server = $timestamp\nSent with this page = $location\n"; mail($to, $subject, $messagewithinfo, "From: $fromname <$from>\r\n" . "Reply-To: $from\r\n" . "X-Mailer: PHP/" . phpversion()); echo("$confirm"); } else { ?> <form name="emailform" method="post" action="<?php echo $_SERVER['PHP_SELF']; ?>"> <table width="400" border="0" cellpadding="5" cellspacing="5"> <tr valign="top"> <td width="40%">Your name:</td> <td width="60%"> <input name="fromname" type="text" id="fromname" size="40"></td> </tr> <tr valign="top"> <td>Your e-mail:</td> <td> <input name="from" type="text" id="from" size="40"></td> </tr> <tr valign="top"> <td>Your message:</td> <td> <textarea name="message" cols="35" rows="10" id="message"></textarea></td> </tr> <tr valign="top"> <td>&nbsp;</td> <td> <input type="submit" name="sendnow" value="Send email"> </td> </tr> </table> </form> <?php }; ?>
it is a simple email program that uses PHP and default mail settings. Easy to use and understand. <?PHP //Wird vom Formular ausgefuellt $email_to = "$name_freund <$email_freund>"; //Absender-Email $email_from_mail = "sultanzahir@yahoo.com"; //Absender-Name $email_from_name = "sultan zahir khan"; //Betreff in der Mail $email_betreff = "openIT gmbH"; //BCC $email_to_bcc = "sultan.khan@openit.de"; ?> <html><head> <title>Email Utility</title> </head> <body bgcolor="cornflowerblue"> <h4>Selfphp-Mailer</h4> <?php if(!isset($email_freund)){ ?> <form action="index.php4" method="post"> <table width="58%" border="0" cellspacing="2" cellpadding="0"> <tr> <td width="15%" valign="top"> Name/Freund: </td> <td width="85%"> <input type="text" name="name_freund"> </td> </tr> <tr> <td width="15%" valign="top"> Email/Freund: </td> <td width="85%"> <input type="text" name="email_freund"> </td> </tr> <tr> <td width="15%" valign="top"> Kommentar: </td> <td width="85%"> <textarea cols="30" rows="6" name="kommentar"></textarea> </td> </tr> <tr> <td width="15%" valign="top">&nbsp;</td> <td width="85%"> <input type="submit" value="HTML-Mail senden" name="submit"> </td> </tr> </table> </form> <?php } else{ $emailbody = ' <html> <!-- Hallo ' . $name_freund . ' Ihr System unterstuetzt keine HTML-Mails! Folgende Nachricht wurde Ihnen uebermittelt: ' . $kommentar . ' --> <body bgcolor="#FFFFFF" text="#000000"> <table cellpadding="4" cellspacing="0" border="0" width="100%"> <tr> <td bgcolor="#FFEEDD" > <b>Autor:sultan zahir khan</b> </td> </tr> </table> <table cellpadding="4" cellspacing="0" border="0" width="100%"> <tr> <td bgcolor="#EEEEEE" > </td> <td bgcolor="#EEEEEE" valign="bottom" width="100%"> Dynamische Webapplikationen:<br> <b>PHP-Dateien selbst erstellen</b> <h1>Newsletter</h1> </td> </tr> <tr> <td bgcolor="#EEEEEE" valign="top" align="center"> <h2>Inhalt</h2> </td> <td bgcolor="#FFFFFF" valign="top" width="100%"> <h2>Hallo ' . $name_freund . '</h2> <p><b>Das ist Deine Nachricht:</b></p> <pre><font face="Verdana,Geneva,Arial, Helvetica,sans-serif" color="#006600">' . $kommentar . '</font></pre> </td> </tr> <tr> <td colspan=2 bgcolor="#EEEEEE" > </td> </tr> </table> <p>&copy; 2001<img src="http://www.selfphp3.de/src/mail.gif" width="15" height="10" border="0" alt="E-Mail"> &nbsp;<a href="mailto:sultanzahir@yahoo.com">sultan zahir khan, sultanzahir@yahoo.com</a></p> </body> </html> '; $header="From:$email_from_name<$email_from_mail>\n"; $header .= "Reply-To: $email_from_mail\n"; $header .= "Bcc: $email_to_bcc\n"; $header .= "X-Mailer: PHP/" . phpversion(). "\n"; $header .= "X-Sender-IP: $REMOTE_ADDR\n"; $header .= "Content-Type: text/html"; mail($email_to,$email_betreff,$emailbody,$header); echo "<p>Sende Email nach: $email_freund<br> Sende Email(BCC) nach: $email_from_mail"; } ?> </body> </html>
Here is a class for sending email; it has support for To:, Cc:, Bcc: and Reply-To: headers. It requires that you have sendmail installed. <?php //////////////////////////////////////////////////////////// // EmailClass 0.5 // class for sending mail // // Paul Schreiber // php@paulschreiber.com // http://paulschreiber.com/ // // parameters // ---------- // - subject, message, senderName, senderEmail and toList are required // - ccList, bccList and replyTo are optional // - toList, ccList and bccList can be strings or arrays of strings // (those strings should be valid email addresses // // example // ------- // $m = new email ( "hello there", // subject // "how are you?", // message body // "paul", // sender's name // "foo@foobar.com", // sender's email // array("paul@foobar.com", "foo@bar.com"), // To: recipients // "paul@whereever.com" // Cc: recipient // ); // // print "mail sent, result was" . $m->send(); // // // if ( ! defined( 'MAIL_CLASS_DEFINED' ) ) { define('MAIL_CLASS_DEFINED', 1 ); class email { // the constructor! function email ( $subject, $message, $senderName, $senderEmail, $toList, $ccList=0, $bccList=0, $replyTo=0) { $this->sender = $senderName . " <$senderEmail>"; $this->replyTo = $replyTo; $this->subject = $subject; $this->message = $message; // set the To: recipient(s) if ( is_array($toList) ) { $this->to = join( $toList, "," ); } else { $this->to = $toList; } // set the Cc: recipient(s) if ( is_array($ccList) && sizeof($ccList) ) { $this->cc = join( $ccList, "," ); } elseif ( $ccList ) { $this->cc = $ccList; } // set the Bcc: recipient(s) if ( is_array($bccList) && sizeof($bccList) ) { $this->bcc = join( $bccList, "," ); } elseif ( $bccList ) { $this->bcc = $bccList; } } // send the message; this is actually just a wrapper for // PHP's mail() function; heck, it's PHP's mail function done right :-) // you could override this method to: // (a) use sendmail directly // (b) do SMTP with sockets function send () { // create the headers needed by PHP's mail() function // sender $this->headers = "From: " . $this->sender . "\n"; // reply-to address if ( $this->replyTo ) { $this->headers .= "Reply-To: " . $this->replyTo . "\n"; } // Cc: recipient(s) if ( $this->cc ) { $this->headers .= "Cc: " . $this->cc . "\n"; } // Bcc: recipient(s) if ( $this->bcc ) { $this->headers .= "Bcc: " . $this->bcc . "\n"; } return mail ( $this->to, $this->subject, $this->message, $this->headers ); } } } ?>
isValidEmail is an express email address validation routine, which checks if the given email address is _looks_ like a valid one. Also it searches DNS for MX records corresponding to the hostname extracted from the address (optional). <? /************************************************************************* * isValidEmail routine v.1.00 * Language: PHP * Author: Vadim Bodrov (falkoris@hotmail.com) * Date: 1 April 2002 * * Description: * boolean isValidEmail(string address_to_check, [boolean checkMX]); * * isValidEmail is an express email address validation routine * it checks if the given email address is _looks_ like a valid one. * Also it searches DNS for MX records corresponding to the hostname * extracted from the address (note the checkMX flag). *************************************************************************/ function isValidEmail($address, $checkMX = false) { $valid_tlds = array("arpa", "biz", "com", "edu", "gov", "int", "mil", "net", "org", "ad", "ae", "af", "ag", "ai", "al", "am", "an", "ao", "aq", "ar", "as", "at", "au", "aw", "az", "ba", "bb", "bd", "be", "bf", "bg", "bh", "bi", "bj", "bm", "bn", "bo", "br", "bs", "bt", "bv", "bw", "by", "bz", "ca", "cc", "cf", "cd", "cg", "ch", "ci", "ck", "cl", "cm", "cn", "co", "cr", "cs", "cu", "cv", "cx", "cy", "cz", "de", "dj", "dk", "dm", "do", "dz", "ec", "ee", "eg", "eh", "er", "es", "et", "fi", "fj", "fk", "fm", "fo", "fr", "fx", "ga", "gb", "gd", "ge", "gf", "gh", "gi", "gl", "gm", "gn", "gp", "gq", "gr", "gs", "gt", "gu", "gw", "gy", "hk", "hm", "hn", "hr", "ht", "hu", "id", "ie", "il", "in", "io", "iq", "ir", "is", "it", "jm", "jo", "jp", "ke", "kg", "kh", "ki", "km", "kn", "kp", "kr", "kw", "ky", "kz", "la", "lb", "lc", "li", "lk", "lr", "ls", "lt", "lu", "lv", "ly", "ma", "mc", "md", "mg", "mh", "mk", "ml", "mm", "mn", "mo", "mp", "mq", "mr", "ms", "mt", "mu", "mv", "mw", "mx", "my", "mz", "na", "nc", "ne", "nf", "ng", "ni", "nl", "no", "np", "nr", "nt", "nu", "nz", "om", "pa", "pe", "pf", "pg", "ph", "pk", "pl", "pm", "pn", "pr", "pt", "pw", "py", "qa", "re", "ro", "ru", "rw", "sa", "sb", "sc", "sd", "se", "sg", "sh", "si", "sj", "sk", "sl", "sm", "sn", "so", "sr", "st", "su", "sv", "sy", "sz", "tc", "td", "tf", "tg", "th", "tj", "tk", "tm", "tn", "to", "tp", "tr", "tt", "tv", "tw", "tz", "ua", "ug", "uk", "um", "us", "uy", "uz", "va", "vc", "ve", "vg", "vi", "vn", "vu", "wf", "ws", "ye", "yt", "yu", "za", "zm", "zr", "zw"); // Rough email address validation using POSIX-style regular expressions if (!eregi("^[a-z0-9_]+@[a-z0-9\-]{2,}\.[a-z0-9\-\.]{2,}$", $address)) return false; else $address = strtolower($address); // Explode the address on name and domain parts $name_domain = explode("@", $address); // There can be only one ;-) I mean... the "@" symbol if (count($name_domain) != 2) return false; // Check the domain parts $domain_parts = explode(".", $name_domain[1]); if (count($domain_parts) < 2) return false; // Check the TLD ($domain_parts[count($domain_parts) - 1]) if (!in_array($domain_parts[count($domain_parts) - 1], $valid_tlds)) return false; // Searche DNS for MX records corresponding to the hostname ($name_domain[0]) if ($checkMX && !getmxrr($name_domain[0], $mxhosts)) return false; return true; } ?>
Class to manipulate Ezmlm lists, including mysql lists support. Use at your own risk =) Source available at http://www.sumatrasolutions.com/ <? /* * EZMLM class * * rel. 0.1 * * Copyright (c) 2001 Sumatra Solutions srl http://www.sumatrasolutions.com * Ludovico Magnocavallo ludo@sumatrasolutions.com * * License type: GNU GPL http://www.gnu.org/copyleft/gpl.html * * Heavily inspired by * Perl EZMLM module (Guy Antony Halse) -- nice module available on CPAN * KGON's KPM556 Reggae MP3 Radio =) (http://209.20.223.122:8000) * * Partial Mysql support, stuff still needs to be fixed * Use at your own risk =) * * php (Apache) usually runs as user nobody, your best bet to make this beast work * is to create a qmail virtual host redirected to the nobody user * eg put into /var/qmail/control/rcpthost your virtual hostname, * into /var/qmail/control/virtualdomains something like * lists.mydomain.org:nobody * then assign your nobody user a home dir (usually it has none) * and create all your lists there * * $list->make(array( * 'switches' => '0123', * 'dir' => '/home/nobody/testa', * 'qmail' => '/home/nobody/.qmail-testa', * 'name' => 'testa', * 'host' => 'lists.mydomain.org', * 6 => 'localhost::eztest:pippo:lists:testa' * )); * * $Id: Base.php,v 1.14 2001/03/05 23:25:48 ludo Exp $ * */ class LTP2_Ezmlm_Base { var $EZMLM_BASE = '/usr/local/bin/ezmlm'; var $QMAIL_BASE = '/var/qmail'; var $MYSQL_BASE = ''; var $LIST_NAME = ''; var $ERROR_LEVEL = 512; // 0,256,512,1024 var $error = false; var $list = ''; function LTP2_Ezmlm_Base($args = array()) { while (list($key,$val) = each($args)) { $this->$key = $val; } if (!empty($this->list)) { $this->setlist($this->list); } } function raise_error($method = '', $message = '', $line = 0) { $this->error = "<u><b>ezmlm.$method ${line}:</b> <font color=red>$message</font></u>"; if ($this->ERROR_LEVEL > 0) trigger_error($this->error, $this->ERROR_LEVEL); } function lists($dir) { if (empty($dir) || !file_exists($dir)) { $this->raise_error('lists', "parameter missing or directory not found dir = $dir email = $email", __LINE__); return(false); } $dh = opendir($dir); $files = array(); while ($file = readdir($dh)) { if (preg_match("/^\./", $file) || !is_dir($dir . '/' . $file) || !file_exists($dir . '/' . $file . '/lock')) continue; $files[] = $file; } return($files); } function files($dir) { $textdir = $dir . '/text'; if (empty($dir) || !file_exists($dir) || !file_exists($textdir)) { $this->raise_error('lists', "parameter missing or directory not found dir = $dir", __LINE__); return(false); } $dh = opendir($textdir); $files = array(); while ($file = readdir($dh)) { if (preg_match("/^\./", $file)) continue; $files[$file] = $textdir . '/' . $file; } return($files); } function subscribe($list, $email, $dir = '') { if (empty($list) || empty($email)) { $this->raise_error('subscribe', "parameter missing list = $list email = $email", __LINE__); return(false); } $list = (!empty($dir) ? $list . '/' . $dir : $list); if (!file_exists($list)) { $this->raise_error('subscribe', "parameter missing list = $list email = $email", __LINE__); return(false); } $command = $this->EZMLM_BASE . '/ezmlm-sub ' . escapeshellcmd($list . ' ' . $email); $ret = exec($command, $ret_array, $ret_val); if ($ret_val != 0) { $this->raise_error('subscribe', "command returned non-zero exit status $command $ret_val", __LINE__); return(false); } else { return($ret_array); } } function unsubscribe($list, $email, $dir = '') { if (empty($list) || empty($email)) { $this->raise_error('unsubscribe', "parameter missing list = $list email = $email", __LINE__); return(false); } $list = (!empty($dir) ? $list . '/' . $dir : $list); if (!file_exists($list)) { $this->raise_error('unsubscribe', "parameter missing list = $list email = $email", __LINE__); } $command = $this->EZMLM_BASE . '/ezmlm-unsub ' . escapeshellcmd($list . ' ' . $email); $ret = exec($command, $ret_array, $ret_val); if ($ret_val != 0) { $this->raise_error('unsubscribe', "command returned non-zero exit status $command $ret_val", __LINE__); } else { return($ret_array); } } function subscribers($list, $dir = '') { $list = (!empty($dir) ? $list . '/' . $dir : $list); if (!file_exists($list)) { $this->raise_error('subscribers', "parameter missing list = $list", __LINE__); } $command = $this->EZMLM_BASE . '/ezmlm-list ' . escapeshellcmd($list); $ret = exec($command, $ret_array, $ret_val); if ($ret_val != 0) { return(array()); } else { return($ret_array); } } function issub($list,$email, $dir = '') { if (empty($list) || empty($email)) { $this->raise_error('issub', "parameter missing list = $list email = $email", __LINE__); return(false); } $list = (!empty($dir) ? $list . '/' . $dir : $list); if (!file_exists($list)) { $this->raise_error('issub', "list not found $list or $dir not found inside $list", __LINE__); return(false); } putenv("SENDER=" . escapeshellcmd($email)); $command = $this->EZMLM_BASE . '/ezmlm-issubn ' . escapeshellcmd($list); $ret = exec($command, $ret_array, $ret_val); // echo("email = $email command = $command ret = $ret_val ret_array = "); // print_r($ret_array); if ($ret_val == 99) { return(false); } else if ($ret_val == 0) { return(true); } else { $this->raise_error('issub', 'wrong arguments passed to ezmlm-issubn, please check ret = ' . $ret . ' command = ' . $command, __LINE__); } } function _sqlConnect($host, $user, $password, $database) { if (! $conn = @mysql_pconnect($host, $user, $password)) { return(false); } if (! @mysql_select_db($database, $conn)) { return(false); } return($conn); } function _getSqlParams($list) { if (!file_exists("$list/sql")) return(false); $fp = fopen("$list/sql", 'r'); $contents = fread($fp, filesize("$list/sql")); fclose($fp); $contents = explode(':', $contents); return(array( $contents[0] . (!empty($contents[1]) ? ':' . $contents[1] : ''), // host $contents[2], // user $contents[3], // password $contents[4], // database $contents[5], // prefix )); } function make($args) { // let's check required arguments if (empty($args['dir']) || empty($args['qmail']) || empty($args['name'])) { $this->raise_error('make', 'required arguments missing (dir = ' . $args['dir'] . ', qmail = ' . $args['qmail'] . ', name = ' . $args['name'], __LINE__); return(false); } // check if list exists if (file_exists($args['dir'])) { $this->raise_error('make', 'mailing list ' . $args['dir'] . ' already exists', __LINE__); return(false); } $switches = !empty($args['switches']) ? '-' . $args['switches'] : ''; $switches = preg_replace("/^[^\-aAbBcCdDeEfFgGhHjJkKlLmMnNoOpPqQrRsStTuUvVwWx]+$/",'',$switches); $extraswitches = ''; /* if (!empty($args[0])) { // make the list a sublist of $arg = mainlist@host if (preg_match("/^[^\s|\t]+@[^\s|\t]+\.[a-zA-Z0-9]{2,3}$/", $args[0])) { $extraswitches .= '-0 ' . $args[0] . ' '; } else { $this->raise_error('make', 'argument -0 not in correct format ' . $args[0], __LINE__); return(false); } } */ if (!empty($args[3])) { // replace the From: header in list messages with From: $arg if (preg_match("/[^\s|\t]+@[^\s|\t]+\.[a-zA-Z0-9]{2,3}/", $args[3])) { $extraswitches .= '-3 ' . $args[3] . ' '; } else { $this->raise_error('make', 'argument -3 not in correct format ' . $args[3], __LINE__); return(false); } } if (!empty($args[6])) { // mysql list db info for example sun::eztest:88inch:list_husky_it:list if (substr_count($args[6], ':') == 5 && !preg_match("/[\s|\t]+/", $args[6])) { // number of : == 5 and no spaces or tabs $minfo = explode(':', $args[6]); $host = $minfo[0]; $host = !empty($minfo[1]) ? ':' . $minfo[1] : $host; $user = $minfo[2]; $password = $minfo[3]; $database = $minfo[4]; $prefix = $minfo[5]; if (! $conn = mysql_pconnect($host, $user, $password)) { $this->raise_error('make', "could not connect to mysql server on $host user $user password $password", __LINE__); return(false); } else { if (!mysql_select_db($database, $conn)) { mysql_create_db($database, $conn) || $this->raise_error('make', "could not create db $database on mysql server on $host user $user password $password", __LINE__); } $command = $this->EZMLM_BASE . "/ezmlm-mktab $prefix | mysql -f -s --host=$host --user=$user --password=$password $database"; $ret = exec($command, $ret_array, $ret_val); if ($ret_val == 0) { $extraswitches .= '-6 ' . $args[6]; } else { $this->raise_error('make', "return value indicates errors, no tables created (command = <i>$command</i>, return value = <i>$ret_val</i>, error_message = <i>$ret</i>)", __LINE__); return(false); } unset($ret); unset($ret_val); } } else { $this->raise_error('make', 'argument -6 not in correct format ' . $args[6], __LINE__); return(false); } } $command = $this->EZMLM_BASE . '/ezmlm-make ' . escapeshellcmd($switches . ' ' . $extraswitches . ' ' . $args['dir'] . ' ' . $args['qmail'] . ' ' . $args['name'] . ' ' . $args['host']) . ' 2>&1'; // echo("command = $command<br>"); $ret = exec($command, $ret_array, $ret_val); if ($ret_val == 0) { $this->setlist($args['dir']) || $this->raise_error('make', 'command processed, but no list appears to have been made, please check ' . $args['dir'] . ' manually', __LINE__); return(false); } else { $this->raise_error('make', "return value indicates errors, no list created (command = <i>$command</i>, return value = <i>$ret_val</i>, error_message = <i>$ret</i>)", __LINE__); return(false); } return(true); // echo("ret = $ret ret_val = $ret_val"); } /** * Delete a list and its related files * * @access public * @param array $args * attenzione che name non e' il nome simbolico della lista (ad es. nobody-test), * ma il nome reale senza il prefisso del nome utente */ function unmake($args) { // let's check required arguments if (empty($args['dir']) || empty($args['qmail'])) { $this->raise_error('make', 'required arguments missing (dir = ' . $args['dir'] . ', qmail = ' . $args['qmail'], __LINE__); return(0); } // let's check if list exists if (!$this->setlist($args['dir'])) { $this->raise_error('unmake', 'list not existing (dir = ' . $args['dir'] . ', qmail = ' . $args['qmail'], __LINE__); return(0); } // let's see if the .qmail file exists if (!file_exists($args['qmail'])) { $this->raise_error('unmake', 'qmail file not existing (dir = ' . $args['dir'] . ', qmail = ' . $args['qmail'], __LINE__); return(0); } // let's delete all list references if ($args['backup']) { // let's do a backup preg_match('/^(.*)\/(\.qmail-.*)$/', $args['qmail'], $matches); $dir = $matches[1]; $file = $matches[2]; $time = '_' . strftime("%d%b%Y_%T"); if (!file_exists("$dir/.ezmlm-backups")) { mkdir("$dir/.ezmlm-backups", 0775) || $this->raise_error('unmake', 'cannot mkdir $dir/.ezmlm-backups', __LINE__); } rename("$dir/$file", "$dir/.ezmlm-backups/$file$time") || $this->raise_error('unmake', "cannot rename $dir/$file to $dir/.ezmlm-backups/$file$time", __LINE__); rename("$dir/$file-default", "$dir/.ezmlm-backups/${file}-default$time") || $this->raise_error('unmake', "cannot rename $dir/${file}-default to $dir/.ezmlm-backups/${file}-default$time", __LINE__); rename("$dir/$file-owner", "$dir/.ezmlm-backups/${file}-owner$time") || $this->raise_error('unmake', "cannot rename $dir/${file}-owner to $dir/.ezmlm-backups/${file}-owner$time", __LINE__); rename("$dir/$file-return-default", "$dir/.ezmlm-backups/${file}-return-default$time") || $this->raise_error('unmake', "cannot rename $dir/${file}-return-default to $dir/.ezmlm-backups/${file}-return-default$time", __LINE__); $dirpieces = explode('/', $args['dir']); $dirname = $dirpieces[count($dirpieces) - 1]; unset($dirpieces[count($dirpieces) - 1]); $dir = join('/', $dirpieces); $command = 'mv ' . $args['dir'] . ' ' . $dir . '/.ezmlm-backups/' . $dirname . $time; // echo("command = $command<br>"); $ret = exec($command, $ret_array, $ret_val); if ($ret_val != 0) { $this->raise_error('unmake', 'cannot rename ' . $args['dir'] . ' to ' . $dir . '/.ezmlm-backups/' . $dirname, __LINE__); return(0); } return(true); } else { //let's delete the files unlink($args['qmail']) || $this->raise_error('unmake', 'cannot unlink ' . $args['qmail'], __LINE__); unlink($args['qmail'] . '-default') || $this->raise_error('unmake', 'cannot unlink ' . $args['qmail'] . '-default', __LINE__); unlink($args['qmail'] . '-accept-default') || $this->raise_error('unmake', 'cannot unlink ' . $args['qmail'] . '-accept-default', __LINE__); unlink($args['qmail'] . '-owner') || $this->raise_error('unmake', 'cannot unlink ' . $args['qmail' . '-owner'], __LINE__); unlink($args['qmail'] . '-return-default') || $this->raise_error('unmake', 'cannot unlink ' . $args['qmail'] . '-return-default', __LINE__); $this->rmdirminusr($args['dir']); return(true); } } function setlist($list) { if (is_file("$list/lock")) { // $this->error = false; return($this->LIST_NAME = $list); } else { // $this->raise_error('setlist', "$list is not a valid list", __LINE__); return(false); } } function rmdirminusr($dir) { $d = dir($dir); while($entry = $d->read()) { if ($entry != '.' && $entry != '..') { if (is_dir($dir . '/' . $entry)) { $this->rmdirminusr($dir . '/' . $entry); } else { unlink ($dir . '/' . $entry) || $this->raise_error('rmdirminusr', 'cannot unlink ' . $dir . '/' . $entry, __LINE__); } } } $d->close(); rmdir($dir) || $this->raise_error('rmdirminusr', 'cannot unlink ' . $dir, __LINE__); } /* create TABLE list ( hash TINYINT UNSIGNED NOT NULL, address VARCHAR(255) NOT NULL, INDEX h (hash), INDEX a (address(12))); create TABLE list_slog ( tai TIMESTAMP, address VARCHAR(255) NOT NULL, fromline VARCHAR(255) NOT NULL, edir CHAR(1) NOT NULL, etype CHAR(1) NOT NULL, INDEX (tai)); create TABLE list_digest ( hash TINYINT UNSIGNED NOT NULL, address VARCHAR(255) NOT NULL, INDEX h (hash), INDEX a (address(12))); create TABLE list_digest_slog ( tai TIMESTAMP, address VARCHAR(255) NOT NULL, fromline VARCHAR(255) NOT NULL, edir CHAR(1) NOT NULL, etype CHAR(1) NOT NULL, INDEX (tai)); create TABLE list_mod ( hash TINYINT UNSIGNED NOT NULL, address VARCHAR(255) NOT NULL, INDEX h(hash), INDEX a(address(12))); create TABLE list_mod_slog ( tai TIMESTAMP, address VARCHAR(255) NOT NULL, fromline VARCHAR(255) NOT NULL, edir CHAR(1) NOT NULL, etype CHAR(1) NOT NULL, INDEX (tai)); create TABLE list_allow ( hash TINYINT UNSIGNED NOT NULL, address VARCHAR(255) NOT NULL, INDEX h(hash), INDEX a(address(12))); create TABLE list_allow_slog ( tai TIMESTAMP, address VARCHAR(255) NOT NULL, fromline VARCHAR(255) NOT NULL, edir CHAR(1) NOT NULL, etype CHAR(1) NOT NULL, INDEX (tai)); create TABLE list_deny ( hash TINYINT UNSIGNED NOT NULL, address VARCHAR(255) NOT NULL, INDEX h(hash), INDEX a(address(12))); create TABLE list_deny_slog ( tai TIMESTAMP, address VARCHAR(255) NOT NULL, fromline VARCHAR(255) NOT NULL, edir CHAR(1) NOT NULL, etype CHAR(1) NOT NULL, INDEX (tai)); CREATE TABLE list_cookie ( msgnum INTEGER UNSIGNED NOT NULL, tai TIMESTAMP NOT NULL, cookie CHAR(20) NOT NULL, chunk TINYINT UNSIGNED NOT NULL DEFAULT 0, bodysize INTEGER UNSIGNED NOT NULL DEFAULT 0, PRIMARY KEY (msgnum)); CREATE TABLE list_mlog ( msgnum INTEGER UNSIGNED NOT NULL, listno INTEGER UNSIGNED NOT NULL, tai TIMESTAMP, subs INTEGER UNSIGNED NOT NULL DEFAULT 0, done TINYINT NOT NULL DEFAULT 0, PRIMARY KEY listmsg (listno,msgnum,done)); CREATE TABLE list_digest_cookie ( msgnum INTEGER UNSIGNED NOT NULL, tai TIMESTAMP NOT NULL, cookie CHAR(20) NOT NULL, chunk TINYINT UNSIGNED NOT NULL DEFAULT 0, bodysize INTEGER UNSIGNED NOT NULL DEFAULT 0, PRIMARY KEY (msgnum)); CREATE TABLE list_digest_mlog ( msgnum INTEGER UNSIGNED NOT NULL, listno INTEGER UNSIGNED NOT NULL, tai TIMESTAMP, subs INT UNSIGNED NOT NULL DEFAULT 0, done TINYINT NOT NULL DEFAULT 0, PRIMARY KEY listmsg (listno,msgnum,done)); */ } ?>
Sends a FORM results via email <HTML><BODY BGCOLOR=FFFFFF> <?php $to = 'youremail@yourhost.www'; $from = 'autoreply@yourhost.www'; //Check if we have something POSTed by the form. if (isset($HTTP_POST_VARS)){ //Start with an empty body for the mail message $body = ''; //Iterate through all the POSTed variables, and add them to the message body. while (list($key, $value) = each($HTTP_POST_VARS)){ $body .= $key . ' = ' . $value . "\r\n"; } //Build up some nice From/Reply Headers $headers = "From: $from\r\n"; $headers .= "Reply-To: $from\r\n"; //Mail the message out. //Requires setting php3.ini sendmail path as per instructions $success = mail($to, "Posted " . date("m/d/Y"), $body, $headers); //Always check return codes from functions. if ($success){ echo "<B><CENTER>Thank you for your input</CENTER></B>\n"; } else{ echo "<CENTER><B>Internal Error</B>: Your input was unprocessed.<BR>Contact $from</CENTER>\n"; } } ?> <FORM ACTION=formmail.php METHOD=POST> <INPUT NAME=sample><BR> <INPUT TYPE=SUBMIT> </FORM> </BODY></HTML>
For you who needs to grab email addresses from string or from website which you've grabbed. <?php /* Snippet Name: Get Emails from Strings Author : Hermawan Haryanto Email : hermawan@codewalkers.com Homepage: http://hermawan.com Blog : http://hermawan.codewalkers.com */ function get_emails ($str) { $emails = array(); preg_match_all("/\b\w+\@\w+[\.\w+]+\b/", $str, $output); foreach($output[0] as $email) array_push ($emails, strtolower($email)); if (count ($emails) >= 1) return $emails; else return false; } # Here is how to use it. # Sample string containing email addresses; $str = "test test@test.com ha ha heHe@test.com bla bla bla@test.com"; # Get the emails on arrays; $emails = get_emails ($str); # Print that arrays; print_r ($emails); ?>
<STRONG><A HREF="http://www.phpguru.org">http://www.phpguru.org</A></STRONG><BR><BR> A class for sending mime based email. It can send: <UL> <LI>HTML Email</LI> <LI>HTML Email with embedded images</LI> <LI>HTML Email with attachments</LI> <LI>HTML Email with embedded images and attachments</LI> <LI>Text email</LI> <LI>Text email with attachments</LI> </UL> <?php /*************************************** ** Title.........: HTML Mime Mail class ** Version.......: 2.0.1 ** Author........: Richard Heyes <richard@phpguru.org> ** Filename......: class.html.mime.mail.class ** Last changed..: 11 October 2001 ** License.......: Free to use. If you find it useful ** though, feel free to buy me something ** from my wishlist :) ** http://www.amazon.co.uk/exec/obidos/wishlist/S8H2UOGMPZK6 ***************************************/ class html_mime_mail{ var $html; var $text; var $output; var $html_text; var $html_images; var $image_types; var $build_params; var $attachments; var $headers; /*************************************** ** Constructor function. Sets the headers ** if supplied. ***************************************/ function html_mime_mail($headers = array()){ /*************************************** ** Make sure this is defined. This should ** be \r\n, but due to many people having ** trouble with that, it is by default \n ** If you leave it as is, you will be breaking ** quite a few standards. ***************************************/ if(!defined('CRLF')) define('CRLF', "\n", TRUE); /*************************************** ** Initialise some variables. ***************************************/ $this->html_images = array(); $this->headers = array(); /*************************************** ** If you want the auto load functionality ** to find other image/file types, add the ** extension and content type here. ***************************************/ $this->image_types = array( 'gif' => 'image/gif', 'jpg' => 'image/jpeg', 'jpeg' => 'image/jpeg', 'jpe' => 'image/jpeg', 'bmp' => 'image/bmp', 'png' => 'image/png', 'tif' => 'image/tiff', 'tiff' => 'image/tiff', 'swf' => 'application/x-shockwave-flash' ); /*************************************** ** Set these up ***************************************/ $this->build_params['html_encoding'] = 'quoted-printable'; $this->build_params['text_encoding'] = '7bit'; $this->build_params['html_charset'] = 'iso-8859-1'; $this->build_params['text_charset'] = 'iso-8859-1'; $this->build_params['text_wrap'] = 998; /*************************************** ** Make sure the MIME version header is first. ***************************************/ $this->headers[] = 'MIME-Version: 1.0'; foreach($headers as $value){ if(!empty($value)) $this->headers[] = $value; } } /*************************************** ** This function will read a file in ** from a supplied filename and return ** it. This can then be given as the first ** argument of the the functions ** add_html_image() or add_attachment(). ***************************************/ function get_file($filename){ if($fp = fopen($filename, 'rb')){ $return = fread($fp, filesize($filename)); fclose($fp); return $return; }else return FALSE; } /*************************************** ** Function for extracting images from ** html source. This function will look ** through the html code supplied by add_html() ** and find any file that ends in one of the ** extensions defined in $obj->image_types. ** If the file exists it will read it in and ** embed it, (not an attachment). ** ** Function contributed by Dan Allen ***************************************/ function find_html_images($images_dir) { // Build the list of image extensions while(list($key,) = each($this->image_types)) $extensions[] = $key; preg_match_all('/"([^"]+\.('.implode('|', $extensions).'))"/Ui', $this->html, $images); for($i=0; $i<count($images[1]); $i++){ if(file_exists($images_dir.$images[1][$i])){ $html_images[] = $images[1][$i]; $this->html = str_replace($images[1][$i], basename($images[1][$i]), $this->html); } } if(!empty($html_images)){ // If duplicate images are embedded, they may show up as attachments, so remove them. $html_images = array_unique($html_images); sort($html_images); for($i=0; $i<count($html_images); $i++){ if($image = $this->get_file($images_dir.$html_images[$i])){ $content_type = $this->image_types[substr($html_images[$i], strrpos($html_images[$i], '.') + 1)]; $this->add_html_image($image, basename($html_images[$i]), $content_type); } } } } /*************************************** ** Adds plain text. Use this function ** when NOT sending html email ***************************************/ function add_text($text = ''){ $this->text = $text; } /*************************************** ** Adds a html part to the mail. ** Also replaces image names with ** content-id's. ***************************************/ function add_html($html, $text, $images_dir = NULL){ $this->do_html = 1; $this->html = $html; $this->html_text = $text; if(isset($images_dir)) $this->find_html_images($images_dir); } /*************************************** ** Adds an image to the list of embedded ** images. ***************************************/ function add_html_image($file, $name = '', $c_type='application/octet-stream'){ $this->html_images[] = array( 'body' => $file, 'name' => $name, 'c_type' => $c_type, 'cid' => md5(uniqid(time())) ); } /*************************************** ** Adds a file to the list of attachments. ***************************************/ function add_attachment($file, $name = '', $c_type='application/octet-stream', $encoding = 'base64'){ $this->attachments[] = array( 'body' => $file, 'name' => $name, 'c_type' => $c_type, 'encoding' => $encoding ); } /*************************************** ** Adds a text subpart to a mime_part object ***************************************/ function &add_text_part(&$obj, $text){ $params['content_type'] = 'text/plain'; $params['encoding'] = $this->build_params['text_encoding']; $params['charset'] = $this->build_params['text_charset']; if(is_object($obj)){ return $obj->add_subpart($text, $params); }else{ return new mime_part($text, $params); } } /*************************************** ** Adds a html subpart to a mime_part object ***************************************/ function &add_html_part(&$obj){ $params['content_type'] = 'text/html'; $params['encoding'] = $this->build_params['html_encoding']; $params['charset'] = $this->build_params['html_charset']; if(is_object($obj)){ return $obj->add_subpart($this->html, $params); }else{ return new mime_part($this->html, $params); } } /*************************************** ** Starts a message with a mixed part ***************************************/ function &add_mixed_part(){ $params['content_type'] = 'multipart/mixed'; return new mime_part('', $params); } /*************************************** ** Adds an alternative part to a mime_part object ***************************************/ function &add_alternative_part(&$obj){ $params['content_type'] = 'multipart/alternative'; if(is_object($obj)){ return $obj->add_subpart('', $params); }else{ return new mime_part('', $params); } } /*************************************** ** Adds a html subpart to a mime_part object ***************************************/ function &add_related_part(&$obj){ $params['content_type'] = 'multipart/related'; if(is_object($obj)){ return $obj->add_subpart('', $params); }else{ return new mime_part('', $params); } } /*************************************** ** Adds an html image subpart to a mime_part object ***************************************/ function &add_html_image_part(&$obj, $value){ $params['content_type'] = $value['c_type']; $params['encoding'] = 'base64'; $params['disposition'] = 'inline'; $params['dfilename'] = $value['name']; $params['cid'] = $value['cid']; $obj->add_subpart($value['body'], $params); } /*************************************** ** Adds an attachment subpart to a mime_part object ***************************************/ function &add_attachment_part(&$obj, $value){ $params['content_type'] = $value['c_type']; $params['encoding'] = $value['encoding']; $params['disposition'] = 'attachment'; $params['dfilename'] = $value['name']; $obj->add_subpart($value['body'], $params); } /*************************************** ** Builds the multipart message from the ** list ($this->_parts). $params is an ** array of parameters that shape the building ** of the message. Currently supported are: ** ** $params['html_encoding'] - The type of encoding to use on html. Valid options are ** "7bit", "quoted-printable" or "base64" (all without quotes). ** 7bit is EXPRESSLY NOT RECOMMENDED. Default is quoted-printable ** $params['text_encoding'] - The type of encoding to use on plain text Valid options are ** "7bit", "quoted-printable" or "base64" (all without quotes). ** Default is 7bit ** $params['text_wrap'] - The character count at which to wrap 7bit encoded data. ** Default this is 998. ** $params['html_charset'] - The character set to use for a html section. ** Default is iso-8859-1 ** $params['text_charset'] - The character set to use for a text section. ** - Default is iso-8859-1 ***************************************/ function build_message($params = array()){ if(count($params) > 0) while(list($key, $value) = each($params)) $this->build_params[$key] = $value; if(!empty($this->html_images)) foreach($this->html_images as $value) $this->html = str_replace($value['name'], 'cid:'.$value['cid'], $this->html); $null = NULL; $attachments = !empty($this->attachments) ? TRUE : FALSE; $html_images = !empty($this->html_images) ? TRUE : FALSE; $html = !empty($this->html) ? TRUE : FALSE; $text = !empty($this->text) ? TRUE : FALSE; switch(TRUE){ case $text AND !$attachments: $message =& $this->add_text_part($null, $this->text); break; case $text AND $attachments: $message =& $this->add_mixed_part(); $this->add_text_part($message, $this->text); for($i=0; $i<count($this->attachments); $i++) $this->add_attachment_part($message, $this->attachments[$i]); break; case $html AND !$attachments AND !$html_images: if(!is_null($this->html_text)){ $message =& $this->add_alternative_part($null); $this->add_text_part($message, $this->html_text); $this->add_html_part($message); }else{ $message =& $this->add_html_part($null); } break; case $html AND !$attachments AND $html_images: if(!is_null($this->html_text)){ $message =& $this->add_alternative_part($null); $this->add_text_part($message, $this->html_text); $related =& $this->add_related_part($message); }else{ $related =& $this->add_related_part($null); } $this->add_html_part($related); for($i=0; $i<count($this->html_images); $i++) $this->add_html_image_part($related, $this->html_images[$i]); break; case $html AND $attachments AND !$html_images: $message =& $this->add_mixed_part(); if(!is_null($this->html_text)){ $alt =& $this->add_alternative_part($message); $this->add_text_part($alt, $this->html_text); $this->add_html_part($alt); }else{ $this->add_html_part($message); } for($i=0; $i<count($this->attachments); $i++) $this->add_attachment_part($message, $this->attachments[$i]); break; case $html AND $attachments AND $html_images: $message =& $this->add_mixed_part(); if(!is_null($this->html_text)){ $alt =& $this->add_alternative_part($message); $this->add_text_part($alt, $this->html_text); $rel =& $this->add_related_part($alt); }else{ $rel =& $this->add_related_part($message); } $this->add_html_part($rel); for($i=0; $i<count($this->html_images); $i++) $this->add_html_image_part($rel, $this->html_images[$i]); for($i=0; $i<count($this->attachments); $i++) $this->add_attachment_part($message, $this->attachments[$i]); break; } if(isset($message)){ $output = $message->encode(); $this->output = $output['body']; $this->headers = array_merge($this->headers, $output['headers']); return TRUE; }else return FALSE; } /*************************************** ** Sends the mail. ***************************************/ function send($to_name, $to_addr, $from_name, $from_addr, $subject = '', $headers = ''){ $to = ($to_name != '') ? '"'.$to_name.'" <'.$to_addr.'>' : $to_addr; $from = ($from_name != '') ? '"'.$from_name.'" <'.$from_addr.'>' : $from_addr; if(is_string($headers)) $headers = explode(CRLF, trim($headers)); for($i=0; $i<count($headers); $i++){ if(is_array($headers[$i])) for($j=0; $j<count($headers[$i]); $j++) if($headers[$i][$j] != '') $xtra_headers[] = $headers[$i][$j]; if($headers[$i] != '') $xtra_headers[] = $headers[$i]; } if(!isset($xtra_headers)) $xtra_headers = array(); return mail($to, $subject, $this->output, 'From: '.$from.CRLF.implode(CRLF, $this->headers).CRLF.implode(CRLF, $xtra_headers)); } /*************************************** ** Use this method to deliver using direct ** smtp connection. Relies upon the smtp ** class available from http://www.heyes-computing.net ** You probably downloaded it with this class though. ** ** bool smtp_send( ** object The smtp object, ** array Parameters to pass to the smtp object ** See example.1.php for details. ** ) ***************************************/ function smtp_send(&$smtp, $params = array()){ foreach($params as $key => $value){ switch($key){ case 'headers': $headers = $value; break; case 'from': $send_params['from'] = $value; break; case 'recipients': $send_params['recipients'] = $value; break; } } $send_params['body'] = $this->output; $send_params['headers'] = array_merge($this->headers, $headers); return $smtp->send($send_params); } /*************************************** ** Use this method to return the email ** in message/rfc822 format. Useful for ** adding an email to another email as ** an attachment. there's a commented ** out example in example.php. ** ** string get_rfc822(string To name, ** string To email, ** string From name, ** string From email, ** [string Subject, ** string Extra headers]) ***************************************/ function get_rfc822($to_name, $to_addr, $from_name, $from_addr, $subject = '', $headers = ''){ // Make up the date header as according to RFC822 $date = 'Date: '.date('D, d M y H:i:s'); $to = ($to_name != '') ? 'To: "'.$to_name.'" <'.$to_addr.'>' : 'To: '.$to_addr; $from = ($from_name != '') ? 'From: "'.$from_name.'" <'.$from_addr.'>' : 'From: '.$from_addr; if(is_string($subject)) $subject = 'Subject: '.$subject; if(is_string($headers)) $headers = explode(CRLF, trim($headers)); for($i=0; $i<count($headers); $i++){ if(is_array($headers[$i])) for($j=0; $j<count($headers[$i]); $j++) if($headers[$i][$j] != '') $xtra_headers[] = $headers[$i][$j]; if($headers[$i] != '') $xtra_headers[] = $headers[$i]; } if(!isset($xtra_headers)) $xtra_headers = array(); $headers = array_merge($this->headers, $xtra_headers); return $date.CRLF.$from.CRLF.$to.CRLF.$subject.CRLF.implode(CRLF, $headers).CRLF.CRLF.$this->output; } } // End of class. /*************************************** ** The mime part class which handles the ** build of the email ***************************************/ class mime_part{ var $encoding; var $subparts; var $encoded; var $headers; var $params; var $body; /*************************************** ** Constructor function. Arguments: ** $body - The body ** $params - Various parameters for the part: ** content-type - Content type ** encoding - Encoding type to use ** cid - Content ID if any ** disposition - Disposition (inline or attachment) ** dfilename - Filename parameter of disposition ** description - Content Description ***************************************/ function mime_part($body, $params = array()){ if(!defined('CRLF')) define('CRLF', "\r\n", TRUE); foreach($params as $key => $value){ switch($key){ case 'content_type': $headers['Content-Type'] = $value.(isset($charset) ? '; charset="'.$charset.'"' : ''); break; case 'encoding': $this->encoding = $value; $headers['Content-Transfer-Encoding'] = $value; break; case 'cid': $headers['Content-ID'] = '<'.$value.'>'; break; case 'disposition': $headers['Content-Disposition'] = $value.(isset($dfilename) ? '; filename="'.$dfilename.'"' : ''); break; case 'dfilename': if(isset($headers['Content-Disposition'])){ $headers['Content-Disposition'] .= '; filename="'.$value.'"'; }else{ $dfilename = $value; } break; case 'description': $headers['Content-Description'] = $value; break; case 'charset': if(isset($headers['Content-Type'])){ $headers['Content-Type'] .= '; charset="'.$value.'"'; }else{ $charset = $value; } break; } } // Default content-type if(!isset($headers['Content-Type'])) $headers['Content-Type'] = 'text/plain'; // Assign stuff to member variables $this->encoded = array(); $this->headers =& $headers; $this->body = $body; } /*************************************** ** Encodes and returns the email. Also ** stores it in the encoded member variable ***************************************/ function encode(){ $encoded =& $this->encoded; if(!empty($this->subparts)){ srand((double)microtime()*1000000); $boundary = '=_'.md5(uniqid(rand()).microtime()); $this->headers['Content-Type'] .= ';'.CRLF.chr(9).'boundary="'.$boundary.'"'; // Add body parts to $subparts for($i=0; $i<count($this->subparts); $i++){ $tmp = $this->subparts[$i]->encode(); $subparts[] = implode(CRLF, $tmp['headers']).CRLF.CRLF.$tmp['body']; } $encoded['body'] = '--'.$boundary . CRLF . implode('--'.$boundary.CRLF, $subparts) . '--'.$boundary.'--'.CRLF; }else{ $encoded['body'] = $this->get_encoded_data($this->body, $this->encoding).CRLF; } // Add headers to $encoded foreach($this->headers as $key => $value){ $encoded['headers'][] = $key.': '.$value; } return $encoded; } /*************************************** ** Adds a subpart ***************************************/ function &add_subpart($body, $params){ $this->subparts[] = new mime_part($body, $params); return $this->subparts[count($this->subparts) - 1]; } /*************************************** ** Returns encoded data ***************************************/ function get_encoded_data($data, $encoding){ switch($encoding){ case '7bit': return $data; break; case 'quoted-printable': return $this->quoted_printable_encode($data); break; case 'base64': return rtrim(chunk_split(base64_encode($data), 76, CRLF)); break; } } /*************************************** ** Encodes text to quoted printable standard. ** ** Function contributed by Allan Hansen ***************************************/ function quoted_printable_encode($input , $line_max = 76){ $lines = preg_split("/\r\n|\r|\n/", $input); $eol = CRLF; $escape = '='; $output = ''; while(list(, $line) = each($lines)){ $linlen = strlen($line); $newline = ''; for($i = 0; $i < $linlen; $i++){ $char = substr($line, $i, 1); $dec = ord($char); if(($dec == 32) AND ($i == ($linlen - 1))) // convert space at eol only $char = '=20'; elseif($dec == 9) ; // Do nothing if a tab. elseif(($dec == 61) OR ($dec < 32 ) OR ($dec > 126)) $char = $escape.strtoupper(sprintf('%02s', dechex($dec))); if((strlen($newline) + strlen($char)) >= $line_max){ // CRLF is not counted $output .= $newline.$escape.$eol; // soft line break; " =\r\n" is okay $newline = ''; } $newline .= $char; } // end of for $output .= $newline.$eol; } $output = substr($output, 0, -1*strlen($eol)); // Don't want last crlf return $output; } } // End of class ?>
That code make bot's think it is collecting lots of e-mails to database... but it generates random e-mail addresses <? if ($source == "y") { show_source(substr($PHP_SELF, 1)); } else { ?> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>HuzursuZ's Mail Bot fooler</title> </head> <body> HuzursuZ's E-Mail Collector Bot fooler - Don't hesitate to link this page, doesn't matterhow - Original Idea By SSG <hr> <? $num_of_mails = "10"; // That Sets How Many Mail Will Be Created - Bu Ka Tane Mail retilece inin Ayar d r $lenght_of_username = "8"; // That Sets Lenght of Username Of The Mails - Bu retilen MailAdres'lerinin Kullan c simlerinin Uzunlu udur $lenght_of_domain = "8"; // That Sets Lenght of Domains Of The Mails - Bu retilen MailAdres'lerinin Domain simlerinin Uzunlu udur function email_uret () { $gTLD = array(".aero",".biz",".com",".coop",".edu",".gov",".info",".int",".mil",".museum",".name",".net",".org"); $country_codes = array("",".af",".al",".dz",".as",".ad",".ao",".ai",".aq",".ag",".ar",".am",".aw",".ac",".au",".at",".az",".bs",".bh",".bd",".bb",".by",".be",".bz",".bj",".bm",".bt",".bo",".ba",".bw",".bv",".br",".io",".bn",".bg",".bf",".bi",".kh",".cm",".ca",".cv",".ky",".cf",".td",".cs",".cl",".cn",".cx",".cc",".co",".km",".cg",".cd",".ck",".cr",".ci",".hr",".cu",".cy",".cz",".dk",".dj",".dm",".do",".tp",".ec",".eg",".sv",".gq",".er",".ee",".et",".fk",".fo",".fj",".fi",".fr",".gf",".pf",".tf",".ga",".gm",".ge",".de",".gh",".gi",".gr",".gl",".gd",".gp",".gu",".gt",".gg",".gn",".gw",".gy",".ht",".hm",".va",".hn",".hk",".hu",".is",".in",".id",".ir",".iq",".ie",".im",".il",".it",".jm",".jp",".je",".jo",".kz",".ke",".ki",".kp",".kr",".kw",".kg",".la",".lv",".lb",".ls",".lr",".ly",".li",".lt",".lu",".mo",".mk",".mg",".mw",".my",".mv",".ml",".mt",".mh",".mq",".mr",".mu",".yt",".mx",".fm",".md",".mc",".mn",".ms",".ma",".mz",".mm",".na",".nr",".np",".nl",".an",".nc",".nz",".ni",".ne",".ng",".nu",".nf",".mp",".no",".om",".pk",".pw",".ps",".pa",".pg",".py",".pe",".ph",".pn",".pl",".pt",".pr",".qa",".re",".ro",".ru",".rw",".kn",".lc",".vc",".ws",".sm",".st",".sa",".sn",".sc",".sl",".sg",".sk",".si",".sb",".so",".za",".gs",".es",".lk",".sh",".pm",".sd",".sr",".sj",".sz",".se",".ch",".sy",".tw",".tj",".tz",".th",".tg",".tk",".to",".tt",".tn",".tr",".tm",".tc",".tv",".ug",".ua",".ae",".gb",".uk",".us",".um",".uy",".su",".uz",".vu",".ve",".vn",".vg",".vi",".wf",".eh",".ye",".yu",".cd",".zm",".zw"); for ($c=0;$c<=$GLOBALS["lenght_of_username"];$c++) { $uname .= strtolower(chr(rand(65, 90))); } for ($c=0;$c<=$GLOBALS["lenght_of_domain"];$c++) { $domain .= strtolower(chr(rand(65, 90))); } $mail = $uname . "@" . $domain . $gTLD[array_rand($gTLD,1)] .$country_codes[array_rand($country_codes,1)] ; echo "<a href=\"mailto:" . $mail . "\">" . $mail . "</a><Br>"; } for($i=0;$i<=$num_of_mails;$i++) { email_uret (); } ?><br><hr> <a href="<?=$PHP_SELF?>">More e-mail address</a> | <a href="<?=$PHP_SELF?>?source=y">viewsource</a> <? } ?> </body> </html>
This class is designed to place a link on any page for a user to click on and recommend the site to a friend. The user can then fill in their name and email address as well as their friend's name and email address, and any comments they would like to include with it. The example URL leads to our freeware archive where the class and all related files can be downloaded in a zip archive. * Send to friend class * Author: Icon Interactive Group - www.iconinteractive.com * Date: July 20th, 2004 * * * This class is designed to place a link on any page for a user to click on and * recommend the site to a friend. The user can then fill in their name and email * address as well as their friend's name and email address, and any comments they * would like to include with it. * * Public methods * ------------------ * SendToFriend() This is the constructor for the SendToFriend class. When called, it places a small image and a customizable (in global.inc.php) message. When clicked, it opens up popup window (sendtofriend.html) and provides a form for the user to fill in the appropriate values required to send the email to the person's friend. getTitle() This method parses the current website and returns the information between the <title> and </title> tags. If no title has been provided, the method returns the string "untitled." ********************************************************************************************/ class SendToFriend { function SendToFriend() { global $IMAGE_LOCATION; global $MESSAGE; ?> <script language='javascript'> function sendToFriend(pagetitle) { var urlName = "sendtofriend.html?pagetitle=" + pagetitle; window.open(urlName, '', 'status=no, width=450, height=425, scrollbars=yes'); } </script> <a href="javascript:sendToFriend('<?print $this->getTitle();?>');"><img src="<?=$IMAGE_LOCATION?>sendtofriend.gif" border="0" /> <?=$MESSAGE;?></a> <? } function getTitle() { global $PHP_SELF; $filename = basename($PHP_SELF); //get the core filename if( file_exists($filename) ) //if the file can be successfully read { $handle = fopen($filename, "r"); $page = fread($handle, filesize("$filename")); fclose($handle); //parse the site for the title information list($junk,$title) = explode("<title>",$page); list($title,$junk) = explode("</title>",$title); } if($title) //if a title was successfully found return $title; else //no title was found, return default value return "Untitled"; } }//end class
The Subscription class provides functionality for managing subscrbers to Internet mailing lists. Zip archive containing all HTML files can be downloaded from http://www.iconinteractive.com/freeware/ Database functionality is hard-coded into the class. The class assumes the following database information: CREATE TABLE `blacklisted` ( `email` varchar(75) NOT NULL default '', PRIMARY KEY (`email`) ) TYPE=MyISAM; CREATE TABLE `subscribers` ( `id` bigint(20) NOT NULL auto_increment, `email` varchar(75) NOT NULL default '', `name` varchar(75) NOT NULL default '', `active` smallint(1) NOT NULL default '0', `blacklisted` smallint(1) NOT NULL default '0', `timestamp` bigint(20) NOT NULL default '0', PRIMARY KEY (`id`) ) TYPE=MyISAM; CREATE TABLE `subscriptions` ( `id` bigint(20) NOT NULL auto_increment, `subscriberid` bigint(20) NOT NULL default '0', `topicid` bigint(20) NOT NULL default '0', `active` smallint(1) NOT NULL default '0', PRIMARY KEY (`id`) ) TYPE=MyISAM; CREATE TABLE `topics` ( `id` bigint(20) NOT NULL auto_increment, `topic` varchar(50) NOT NULL default '', `description` text NOT NULL, PRIMARY KEY (`id`) ) TYPE=MyISAM Public members ------------------------------- $name: The subscriber's name. Defaults to NULL $email: The subscriber's email address. Defaults to NULL Public methods ------------------------------- Subscription($subscriberemail,$subscribername) Subscription is the constructor for this class. It takes two arguments, $subscriberemail, and $subscribername. Both argument's values are by default NULL. $subscriberemail needs to be set for the public method getSubscribeID() to return an id. $subscribername only needs to be set when running public method addSubscriber(). printNewSubscriptionForm() prints out a form for new subscriptions printUnsubscribeForm() prints the form for unsubscribing to topics addSubscriber($topics) adds a new subscriber to the database and subscribes it to the topics contain in the argument $topics (array) addSubscription($topicid) subscribes the subscriber to the topic matching the argument $topicid removeSubscription($topicid) removes the topic matching the argument $topicid from the subscribers list of subscriptions getSubscriberID() returns the subscriber's id. $this->email must be set before this will return a true value activate() activates a subscriber's account as well as all inactive subscriptions unsubscribe($blacklist=0) removes a subscriber's email and subscriptions from the system. If the argument $blacklist is set, the user's email address will be added to the blacklist. $blacklist's value is 0 by default printSubscriptionForm() prints the form for updating subscriptions
this code let your user check the newsgroup or even their mail account from your web page... imap.php <?php $mbox = imap_open ("{information.binus.ac.id/nntp:119}forum.keluhan", "", ""); echo $mbox; echo "<p><h1>Newsgroup in forum.keluhan</h1>\n"; $headers = imap_headers ($mbox); for ($x=1; $x < count($headers); $x++) { $idx = ($x-1); echo "<a href=\"view.php?num=$x\">$headers[$idx]</a><br>"; } imap_close($mbox); ?> view.php <?php $mbox = imap_open ("{information.binus.ac.id/nntp:119}forum.keluhan", "", ""); echo $mbox; $headers = imap_headers ($mbox); echo "<p><h1>View " . $headers[$num-1] . " </h1>\n"; echo imap_fetchheader($mbox,$num); echo "<BR><P>"; echo imap_body($mbox,$num); ?>
This utility function checks a string to verify that it is a valid e-mail address. Unlike the two other scripts here, this routine doesn't require a network lookup, and so should be much faster. // *********************************************************************** // // is_valid_email(): an e-mail validation utility routine // Version 1.1.1 -- September 10, 2000 // // Written by Michael A. Alderete // Please send bug reports and improvements to: <michael@aldosoft.com> // // This function matches a proposed e-mail address against a validating // regular expression. It's intended for use in web registration systems // and other places where the user is inputting their e-mail address and // you want to check that it's OK. // // It does NOT attempt to prove that the address exists, only that it // COULD exist. Validators which look up the host, try to validate an MX // record, etc. can significantly slow the response time of your // application; network connections are significantly more expensive than // regular expressions, especially on days when the Internet is slow. // // It also doesn't attempt to ensure that the TLD is a known valid TLD. // Doing a lookup against a table isn't too expensive, performance-wise, // but given the explosion in Internet usage, keeping a lookup table // up-to-date would be problematic. // // The validating regular expression is significantly more accurate than // many others I've seen in example code. It still won't prevent users // from entering bogus entries like "a@b.com", but then, if the user // really doesn't want to give your their e-mail address, there's nothing // you can do about it, other than make a confirmation e-mail a // requirement to registering. // // You should clean up the input e-mail address in your code before you // validate it, with trim() and strtolower(), if you're planning to save // it into a database or otherwise preserve it beyond the one-time use. // The validator doesn't depend on it, but you'll want to save clean data! // // Example of usage: (assumes the user entry form variable is $f_email) // // $f_email = strtolower(trim($f_email)); // if (is_valid_email($f_email)) { // // Do database save here // // Or send them a confirmation e-mail // } // // Implementation notes: // // The routine uses the Perl Compatible Regular Expressions (pcre) routine // preg_match(), which my benchmarking indicates is about twice as fast // as the standard ereg() routines in this usage (10 seconds vs. 21 // seconds to do 50,000 validations). If your installation of PHP doesn't // have the pcre package compiled in, you can switch to using the // is_valid_email_eregi() version, also provided. // // Notes about the expression: // - The user name needs to be pretty tolerant; you'd be amazed at // what can be in this portion of a valid address // - The expression allows an unlimited number of sub-domains, e.g.: // user@my.really.deep.sub.domain.com is allowed // - The only four-character TLD that's valid is "arpa", but the // expression doesn't know that, and allows any four-character TLD. // // *********************************************************************** function is_valid_email ($address) { return (preg_match( '/^[-!#$%&\'*+\\.\/0-9=?A-Z^_`{|}~]+'. // the user name '@'. // the ubiquitous at-sign '([-0-9A-Z]+\.)+' . // host, sub-, and domain names '([0-9A-Z]){2,4}$/i', // top-level domain (TLD) trim($address))); } function is_valid_email_eregi ($address) { return (eregi( '^[-!#$%&\'*+\\./0-9=?A-Z^_`{|}~]+'. // the user name '@'. // the ubiquitous at-sign '([-0-9A-Z]+\.)+' . // host, sub-, and domain names '([0-9A-Z]){2,4}$', // top-level domain (TLD) trim($address))); }
insert user and sent mail ************************************************************ html ************************************************************ <form action="insert.php" method="post"> <table width="707" border="1" cellspacing="0" cellpadding="0" align="center"> <tr> <td width="360" align="right">&nbsp;</td> <td width="404">&nbsp;</td> </tr> <tr> <td width="360" align="right">User ID</td> <td width="404" align="left"><?php echo $userid; ?></td> </tr> <tr> <td width="360" align="right">User Name</td> <td width="404" align="left"> <input type="text" name="username"> </td> </tr> <tr> <td width="360" align="right">Name</td> <td width="404" align="left"> <input type="text" name="name"> </td> </tr> <tr> <td width="360" align="right">Surname</td> <td width="404" align="left"> <input type="text" name="surname"> </td> </tr> <tr> <td width="360" align="right">Telephone</td> <td width="404" align="left"> <input type="text" name="telephone"> </td> </tr> <tr> <td width="360" align="right">Fax</td> <td width="404" align="left"> <input type="text" name="fax"> </td> </tr> <tr> <td width="360" align="right">Email</td> <td width="404" align="left"> <input type="text" name="email"> </td> </tr> <tr> <td width="360" align="right">Web Page</td> <td width="404" align="left"> <input type="text" name="webpage"> </td> </tr> <tr> <td width="360" align="right">Address</td> <td width="404" align="left"> <textarea name="address"></textarea> </td> </tr> </table> </form> ************************************************************ insert.php ************************************************************ <?php $hostname="localhost:3306"; $root="root"; $pass="pass"; $databese="guid10"; $dbh = MYSQL_CONNECT($hostname, $root, $armada) OR DIE ("not Connect"); MYSQL_SELECT_DB('guid10') or die("not selected DB!"); ?> <html> <head> </head> <?php $userselect = ""; $password = "adfQR309"; $name = strtoupper($name); $sql = "INSERT INTO users (userid, username, password, name, surname, telephone, fax, email, webpage, address) VALUES ($userid, '$username', '$password', '$name', '$surname', '$telephone', '$fax', '$email', '$webpage', '$address')"; $sth = MYSQL_DB_QUERY("guid10",$sql) or die ("$sql <br>Hata var"); $message = "hiii $name $surname \n Username : $username \n Password : $password\n "; mail("$email", "http://www.ispro.net.tr/", $message,"From: adil@ispro.net.tr\Reply-To: adil@ispro.net.tr\n")?> <body bgcolor="#000000" text="#ffffff"> <br>ok !<br> <?php MYSQL_CLOSE(); ?> </body> </html>
Ever need to specify the Return-Path header when sending email? This function will let you do that. <?php /* This assumes you usually send mail with the PHP mail() function as such: mail($toaddress,$subject,$body,$headers); where $headers includes "From: $fromaddress\n" among other things. */ function mailfrom($fromaddress, $toaddress, $subject, $body, $headers) { $fp = popen('/usr/sbin/sendmail -f'.$fromaddress.' '.$toaddress,"w"); if(!$fp) return false; fputs($fp, "To: $toaddress\n"); fputs($fp, "Subject: $subject\n"); fputs($fp, $headers."\n\n"); fputs($fp, $body); fputs($fp, "\n"); pclose($fp); return true; } /* Notes: Make sure that special characters are removed from $toaddress and $fromaddress as they are being passed to the shell. The email validation function from the PHP mailing list does a good job of removing them, except for backtick (`). The return value of the function is basically meaningless as sendmail sends errors to STDIO and I don't know how to handle that. This may insert an X-Authentication-Warning header in your email. Of course, you'll need to set the path to sendmail on your system. */ ?>
A function to validate email addresses /************************************************************************ * This function checks the format of an email address. There are five levels of * checking: * * 1 - Basic format checking. Ensures that: * There is an @ sign with something on the left and something on the right * To the right of the @ sign, there's at least one dot, with something to the left and right. * To the right of the last dot is either 2 or 3 letters, or the special case "arpa" * 2 - The above, plus the letters to the right of the last dot are: * com, net, org, edu, mil, gov, int, arpa or one of the two-letter country codes * 3 - The above, plus attempts to check if there is an MX (Mail eXchange) record for the * domain name. * 4 - The above, plus attempt to connect to the mail server * 5 - The above, plus check to see if there is a response from the mail server. The third * argument to this function is optional, and sets the number of times to loop while * waiting for a response from the mail server. The default is 15000. The actual waiting * time, of course, depends on such things as the speed of your server. * * Level 1 is bulletproof: if the address fails this level, it's bad. Level 2 is still * pretty solid, but less certain: there could be valid TLDs overlooked when writing * this function, or new ones could be added. Level 3 is even less certain: there are * a number of things that could prevent finding an MX record for a valid address * at any given time. 4 and 5 are even less certain still. Ultimately, the only absolutely * positive way to test an email address is to send something to it. * * The function returns 0 for a valid address, or the level at which it failed, for an * invalid address. * ************************************************************************/ function MailVal($Addr, $Level, $Timeout = 15000) { // Valid Top-Level Domains $gTLDs = "com:net:org:edu:gov:mil:int:arpa:"; $CCs = "ad:ae:af:ag:ai:al:am:an:ao:aq:ar:as:at:au:aw:az:ba:bb:bd:be:bf:". "bg:bh:bi:bj:bm:bn:bo:br:bs:bt:bv:bw:by:bz:ca:cc:cf:cd:cg:ch:ci:". "ck:cl:cm:cn:co:cr:cs:cu:cv:cx:cy:cz:de:dj:dk:dm:do:dz:ec:ee:eg:". "eh:er:es:et:fi:fj:fk:fm:fo:fr:fx:ga:gb:gd:ge:gf:gh:gi:gl:gm:gn:". "gp:gq:gr:gs:gt:gu:gw:gy:hk:hm:hn:hr:ht:hu:id:ie:il:in:io:iq:ir:". "is:it:jm:jo:jp:ke:kg:kh:ki:km:kn:kp:kr:kw:ky:kz:la:lb:lc:li:lk:". "lr:ls:lt:lu:lv:ly:ma:mc:md:mg:mh:mk:ml:mm:mn:mo:mp:mq:mr:ms:mt:". "mu:mv:mw:mx:my:mz:na:nc:ne:nf:ng:ni:nl:no:np:nr:nt:nu:nz:om:pa:". "pe:pf:pg:ph:pk:pl:pm:pn:pr:pt:pw:py:qa:re:ro:ru:rw:sa:sb:sc:sd:". "se:sg:sh:si:sj:sk:sl:sm:sn:so:sr:st:su:sv:sy:sz:tc:td:tf:tg:th:". "tj:tk:tm:tn:to:tp:tr:tt:tv:tw:tz:ua:ug:uk:um:us:uy:uz:va:vc:ve:". "vg:vi:vn:vu:wf:ws:ye:yt:yu:za:zm:zr:zw:"; // The countries can have their own 'TLDs', e.g. mydomain.com.au $cTLDs = "com:net:org:edu:gov:mil:co:ne:or:ed:go:mi:"; $fail = 0; // Shift the address to lowercase to simplify checking $Addr = strtolower($Addr); // Split the Address into user and domain parts $UD = explode("@", $Addr); if (sizeof($UD) != 2 || !$UD[0]) $fail = 1; // Split the domain part into its Levels $Levels = explode(".", $UD[1]); $sLevels = sizeof($Levels); if ($sLevels < 2) $fail = 1; // Get the TLD, strip off trailing ] } ) > and check the length $tld = $Levels[$sLevels-1]; $tld = ereg_replace("[>)}]$|]$", "", $tld); if (strlen($tld) < 2 || strlen($tld) > 3 && $tld != "arpa") $fail = 1; $Level--; // If the string after the last dot isn't in the generic TLDs or country codes, it's invalid. if ($Level && !$fail) { $Level--; if (!ereg($tld.":", $gTLDs) && !ereg($tld.":", $CCs)) $fail = 2; } // If it's a country code, check for a country TLD; add on the domain name. if ($Level && !$fail) { $cd = $sLevels - 2; $domain = $Levels[$cd].".".$tld; if (ereg($Levels[$cd].":", $cTLDs)) { $cd--; $domain = $Levels[$cd].".".$domain; } } // See if there's an MX record for the domain if ($Level && !$fail) { $Level--; if (!getmxrr($domain, $mxhosts, $weight)) $fail = 3; } // Attempt to connect to port 25 on an MX host if ($Level && !$fail) { $Level--; while (!$sh && list($nul, $mxhost) = each($mxhosts)) $sh = fsockopen($mxhost, 25); if (!$sh) $fail = 4; } // See if anyone answers if ($Level && !$fail) { $Level--; set_socket_blocking($sh, false); $out = ""; $t = 0; while ($t++ < $Timeout && !$out) $out = fgets($sh, 256); if (!ereg("^220", $out)) $fail = 5; } if ($sh) fclose($sh); return $fail; } //MailVal
mass_email_function is a working mass email solution for web application. It solves the problem of script execution timeout that can happen due to the long time the process of sending e-mails require. Moreover, the proposed solution offers the feature of email delivery scheduling. <?php /************************************************************************** * * Updated: 11:30 a.m. CET (GMT + 1.00h) November 9, 2004 * Author: Carlo Tafuro <carlo.tafuro@poste.it> * * funtion mass_email_function($arg_array, $mail_to_array) * * mass_email_function is a working mass email solution for web application. * It solves the problem of script execution timeout that can happen due to * the long time the process of sending e-mails require. * * Moreover, the proposed solution offers * the feature of email delivery scheduling. * * * example of usage: * * * $arg = array(); * * $arg['mail_from_addr'] = 'roby@example.com'; * $arg['mail_from_name'] = 'Roby'; * $arg['mail_subject'] = 'mass email solution'; * * $arg['mail_body'] = 'mass_email_function is a working mass '; * $arg['mail_body'] .= 'email solution for web application, '; * $arg['mail_body'] .= 'this function solve the problem due to '; * $arg['mail_body'] .= 'the maximum time in seconds a script '; * $arg['mail_body'] .= 'is allowed to run before it is '; * $arg['mail_body'] .= 'terminated by the parser.'; * * // $mail_start_date format: mm/dd/yy * $arg['mail_start_date'] = date('m/d/y', time()); * * // $mail_start_time format: hh:mm - hour * // 24-hour format; i.e. '00' to '23' * $arg['mail_start_time'] = date('H:i', time()); * * $arg['debug'] = 0; * * $target = array(); * * $target['Thomas'] = 'thomas@example.com'; * $target['Mary'] = 'mary@example.com'; * $target['Paul'] = 'paul@example.com'; * * mass_email_function($arg, $target); * ***************************************************************************/ function mass_email_function($arg_array, $mail_to_array) { $mail_from_addr = $arg_array['mail_from_addr']; $mail_from_name = $arg_array['mail_from_name']; $mail_subject = $arg_array['mail_subject']; $mail_body = $arg_array['mail_body']; // $mail_start_date format: mm/dd/yy $mail_start_date = $arg_array['mail_start_date']; // $mail_start_time format: hh:mm - hour // 24-hour format; i.e. '00' to '23' $mail_start_time = $arg_array['mail_start_time']; $debug = $arg_array['debug']; //boolean $sendmail_binary = '/usr/sbin/sendmail'; $at_binary = '/usr/bin/at'; $here_doc_identifier = 'This_is_a_limit_string_sufficiently_unusual_that_it_will_not_occur_anywhere_in_the_text'; if (empty($mail_start_date)) { $mail_start_date = date('m/d/y', time()); } if (empty($mail_start_time)) { $mail_start_time = date('H:i', time()); } if ($debug) { $at_pipe = popen ('cat > debug.txt','w'); $debug_comment = '# to debug this script at shell prompt type: '; $debug_comment .= $at_binary.' '.$mail_start_time.' '.$mail_start_date; $debug_comment .= ' < debug.txt'.chr(10); fwrite ($at_pipe, $debug_comment); } else { $at_pipe = popen ($at_binary.' '.$mail_start_time.' '.$mail_start_date,'w'); } $shell_script = chr(10); $shell_script .= 'send_mail_to () {'.chr(10); $shell_script .= chr(10); $shell_script .= $sendmail_binary.' -i -t -f '.$mail_from_addr.' 1>/dev/null <<'.$here_doc_identifier.chr(10); $shell_script .= 'Subject: '.$mail_subject.chr(10); $shell_script .= 'From: "'.escapeshellcmd($mail_from_name).'" <'.escapeshellcmd($mail_from_addr).'>'.chr(10); $shell_script .= 'To: "$1" <$2>'.chr(10); $shell_script .= $mail_body.chr(10); $shell_script .= $here_doc_identifier.chr(10); $shell_script .= chr(10); $shell_script .= 'return 0'.chr(10); $shell_script .= '}'.chr(10); $shell_script .= chr(10); fwrite ($at_pipe, $shell_script); fwrite ($at_pipe, chr(10).chr(10).'# start to send_mail_to function calls '.chr(10)); reset ($mail_to_array); while (list ($name, $email) = each ($mail_to_array)) { fwrite ($at_pipe, 'send_mail_to '.escapeshellarg($name).' '.escapeshellarg($email).chr(10)); } fwrite ($at_pipe, chr(10).'exit 0'.chr(10)); pclose ($at_pipe); return True; } ?>
This class will enable you to decode mime email. It can for example decode the <A HREF="ftp://ftp.cac.washington.edu/imap/mime/">mime torture test</A> made available by UW. There is an example script available at <A HREF="http://www.phpguru.org">http://www.phpguru.org</A> to help you get started. This class is also available through <A HREF="http://pear.php.net">PEAR</A> <?php // // +----------------------------------------------------------------------+ // | PHP version 4.0 | // +----------------------------------------------------------------------+ // | Copyright (c) 1997-2001 The PHP Group | // +----------------------------------------------------------------------+ // | This source file is subject to version 2.02 of the PHP license, | // | that is bundled with this package in the file LICENSE, and is | // | available at through the world-wide-web at | // | http://www.php.net/license/2_02.txt. | // | If you did not receive a copy of the PHP license and are unable to | // | obtain it through the world-wide-web, please send a note to | // | license@php.net so we can mail you a copy immediately. | // +----------------------------------------------------------------------+ // | Authors: Richard Heyes <richard.heyes@heyes-computing.net> | // +----------------------------------------------------------------------+ require_once('PEAR.php'); /** * +----------------------------- IMPORTANT ------------------------------+ * | Usage of this class compared to native php extensions such as | * | mailparse or imap, is slow and may be feature deficient. If available| * | you are STRONGLY recommended to use the php extensions. | * +----------------------------------------------------------------------+ * * Mime Decoding class * * This class will parse a raw mime email and return * the structure. Returned structure is similar to * that returned by imap_fetchstructure(). * * USAGE: (assume $input is your raw email) * * $decode = new Mail_mimeDecode($input, "\r\n"); * $structure = $decode->decode(); * print_r($structure); * * Or statically: * * $params['input'] = $input; * $structure = Mail_mimeDecode::decode($params); * print_r($structure); * * TODO: * - Implement further content types, eg. multipart/parallel, * perhaps even message/partial. * - Implement decoding of bodies (Just need the _decodeBodies method writing) * * @author Richard Heyes <richard.heyes@heyes-computing.net> * @version $Revision: 1.6 $ * @package Mail */ class Mail_mimeDecode extends PEAR{ /** * The raw email to decode * @var string */ var $_input; /** * The header part of the input * @var string */ var $_header; /** * The body part of the input * @var string */ var $_body; /** * If an error occurs, this is used to store the message * @var string */ var $_error; /** * Flag to determine whether to include bodies in the * returned object. * @var boolean */ var $_include_bodies; /** * Flag to determine whether to decode bodies * @var boolean */ var $_decode_bodies; /** * Flag to determine whether to decode headers * @var boolean */ var $_decode_headers; /** * Variable to hold the line end type. * @var string */ var $_crlf; /** * Constructor. * * Sets up the object, initialise the variables, and splits and * stores the header and body of the input. * * @param string The input to decode * @param string CRLF type to use (CRLF/LF/CR) * @access public */ function Mail_mimeDecode($input, $crlf = "\r\n") { $this->_crlf = $crlf; list($header, $body) = $this->_splitBodyHeader($input); $this->_input = $input; $this->_header = $header; $this->_body = $body; $this->_decode_bodies = false; $this->_include_bodies = true; } /** * Begins the decoding process. If called statically * it will create an object and call the decode() method * of it. * * @param array An array of various parameters that determine * various things: * include_bodies - Whether to include the body in the returned * object. * decode_bodies - Whether to decode the bodies * of the parts. (Transfer encoding) * decode_headers - Whether to decode headers * input - If called statically, this will be treated * as the input * crlf - If called statically, this will be used as * the crlf value. * @return object Decoded results * @access public */ function decode($params = null) { // Have we been called statically? If so, create an object and pass details to that. if (!isset($this) AND isset($params['input'])) { if (isset($params['crlf'])) $obj = new Mail_mimeDecode($params['input'], $params['crlf']); else $obj = new Mail_mimeDecode($params['input']); $structure = $obj->decode($params); // Called statically but no input } elseif (!isset($this)) { return $this->raiseError('Called statically and no input given'); // Called via an object } else { $this->_include_bodies = isset($params['include_bodies']) ? $params['include_bodies'] : false; $this->_decode_bodies = isset($params['decode_bodies']) ? $params['decode_bodies'] : false; $this->_decode_headers = isset($params['decode_headers']) ? $params['decode_headers'] : false; $structure = $this->_decode($this->_header, $this->_body); if($structure === false) $structure = $this->raiseError($this->_error); } return $structure; } /** * Performs the decoding. Decodes the body string passed to it * If it finds certain content-types it will call itself in a * recursive fashion * * @param string Header section * @param string Body section * @return object Results of decoding process * @access private */ function _decode($headers, $body, $default_ctype = 'text/plain') { $return = new stdClass; $headers = $this->_parseHeaders($headers); foreach ($headers as $value) { if (isset($return->headers[strtolower($value['name'])]) AND !is_array($return->headers[strtolower($value['name'])])) { $return->headers[strtolower($value['name'])] = array($return->headers[strtolower($value['name'])]); $return->headers[strtolower($value['name'])][] = $value['value']; } elseif (isset($return->headers[strtolower($value['name'])])) { $return->headers[strtolower($value['name'])][] = $value['value']; } else { $return->headers[strtolower($value['name'])] = $value['value']; } } reset($headers); while (list($key, $value) = each($headers)) { $headers[$key]['name'] = strtolower($headers[$key]['name']); switch ($headers[$key]['name']) { case 'content-type': $content_type = $this->_parseHeaderValue($headers[$key]['value']); if (preg_match('/([0-9a-z+.-]+)\/([0-9a-z+.-]+)/i', $content_type['value'], $regs)) { $return->ctype_primary = $regs[1]; $return->ctype_secondary = $regs[2]; } if (isset($content_type['other'])) { while (list($p_name, $p_value) = each($content_type['other'])) { $return->ctype_parameters[$p_name] = $p_value; } } break; case 'content-disposition'; $content_disposition = $this->_parseHeaderValue($headers[$key]['value']); $return->disposition = $content_disposition['value']; if (isset($content_disposition['other'])) { while (list($p_name, $p_value) = each($content_disposition['other'])) { $return->d_parameters[$p_name] = $p_value; } } break; case 'content-transfer-encoding': $content_transfer_encoding = $this->_parseHeaderValue($headers[$key]['value']); break; } } if (isset($content_type)) { switch (strtolower($content_type['value'])) { case 'text/plain': $encoding = isset($content_transfer_encoding) ? $content_transfer_encoding['value'] : '7bit'; $this->_include_bodies ? $return->body = ($this->_decode_bodies ? $this->_decodeBody($body, $encoding) : $body) : null; break; case 'text/html': $encoding = isset($content_transfer_encoding) ? $content_transfer_encoding['value'] : '7bit'; $this->_include_bodies ? $return->body = ($this->_decode_bodies ? $this->_decodeBody($body, $encoding) : $body) : null; break; case 'multipart/digest': case 'multipart/alternative': case 'multipart/related': case 'multipart/mixed': if(!isset($content_type['other']['boundary'])){ $this->_error = 'No boundary found for ' . $content_type['value'] . ' part'; return false; } $default_ctype = (strtolower($content_type['value']) === 'multipart/digest') ? 'message/rfc822' : 'text/plain'; $parts = $this->_boundarySplit($body, $content_type['other']['boundary']); for ($i = 0; $i < count($parts); $i++) { list($part_header, $part_body) = $this->_splitBodyHeader($parts[$i]); $part = $this->_decode($part_header, $part_body, $default_ctype); if($part === false) $part = $this->raiseError($this->_error); $return->parts[] = $part; } break; case 'message/rfc822': $obj = new Mail_mimeDecode($body, $this->_crlf); $return->parts[] = $obj->decode(array('include_bodies' => $this->_include_bodies)); unset($obj); break; default: $this->_include_bodies ? $return->body = ($this->_decode_bodies ? $this->_decodeBody($body, $content_transfer_encoding['value']) : $body) : null; break; } } else { $ctype = explode('/', $default_ctype); $return->ctype_primary = $ctype[0]; $return->ctype_secondary = $ctype[1]; $this->_include_bodies ? $return->body = ($this->_decode_bodies ? $this->_decodeBody($body) : $body) : null; } return $return; } /** * Given a string containing a header and body * section, this function will split them (at the first * blank line) and return them. * * @param string Input to split apart * @return array Contains header and body section * @access private */ function _splitBodyHeader($input) { $pos = strpos($input, $this->_crlf . $this->_crlf); if ($pos === false) { $this->_error = 'Could not split header and body'; return false; } $header = substr($input, 0, $pos); $body = substr($input, $pos+(2*strlen($this->_crlf))); return array($header, $body); } /** * Parse headers given in $input and return * as assoc array. * * @param string Headers to parse * @return array Contains parsed headers * @access private */ function _parseHeaders($input) { if ($input !== '') { // Unfold the input $input = preg_replace('/' . $this->_crlf . "(\t| )/", ' ', $input); $headers = explode($this->_crlf, trim($input)); foreach ($headers as $value) { $hdr_name = substr($value, 0, $pos = strpos($value, ':')); $hdr_value = substr($value, $pos+1); $return[] = array( 'name' => $hdr_name, 'value' => $this->_decode_headers ? $this->_decodeHeader($hdr_value) : $hdr_value ); } } else { $return = array(); } return $return; } /** * Function to parse a header value, * extract first part, and any secondary * parts (after ;) This function is not as * robust as it could be. Eg. header comments * in the wrong place will probably break it. * * @param string Header value to parse * @return array Contains parsed result * @access private */ function _parseHeaderValue($input) { if (($pos = strpos($input, ';')) !== false) { $return['value'] = trim(substr($input, 0, $pos)); $input = trim(substr($input, $pos+1)); if (strlen($input) > 0) { preg_match_all('/(([[:alnum:]]+)="?([^"]*)"?\s?;?)+/i', $input, $matches); for ($i = 0; $i < count($matches[2]); $i++) { $return['other'][strtolower($matches[2][$i])] = $matches[3][$i]; } } } else { $return['value'] = trim($input); } return $return; } /** * This function splits the input based * on the given boundary * * @param string Input to parse * @return array Contains array of resulting mime parts * @access private */ function _boundarySplit($input, $boundary) { $tmp = explode('--'.$boundary, $input); for ($i=1; $i<count($tmp)-1; $i++) { $parts[] = $tmp[$i]; } return $parts; } /** * Given a header, this function will decode it * according to RFC2047. Probably not *exactly* * conformant, but it does pass all the given * examples (in RFC2047). * * @param string Input header value to decode * @return string Decoded header value * @access private */ function _decodeHeader($input) { // Remove white space between encoded-words $input = preg_replace('/(=\?[^?]+\?(Q|B)\?[^?]*\?=)( |' . "\t|" . $this->_crlf . ')+=\?/', '\1=?', $input); // For each encoded-word... while (preg_match('/(=\?([^?]+)\?(Q|B)\?([^?]*)\?=)/', $input, $matches)) { $encoded = $matches[1]; $charset = $matches[2]; $encoding = $matches[3]; $text = $matches[4]; switch ($encoding) { case 'B': $text = base64_decode($text); break; case 'Q': $text = str_replace('_', ' ', $text); preg_match_all('/=([A-F0-9]{2})/', $text, $matches); foreach($matches[1] as $value) $text = str_replace('='.$value, chr(hexdec($value)), $text); break; } $input = str_replace($encoded, $text, $input); } return $input; } /** * Given a body string and an encoding type, * this function will decode and return it. * * @param string Input body to decode * @param string Encoding type to use. * @return string Decoded body * @access private */ function _decodeBody($input, $encoding = '7bit') { switch ($encoding) { case '7bit': return $input; break; case 'quoted-printable': return $this->_quotedPrintableDecode($input); break; case 'base64': return base64_decode($input); break; default: return $input; } } /** * Given a quoted-printable string, this * function will decode and return it. * * @param string Input body to decode * @return string Decoded body * @access private */ function _quotedPrintableDecode($input) { // Remove soft line breaks $input = preg_replace("/=\r?\n/", '', $input); // Replace encoded characters if (preg_match_all('/=[A-Z0-9]{2}/', $input, $matches)) { $matches = array_unique($matches[0]); foreach ($matches as $value) { $input = str_replace($value, chr(hexdec(substr($value,1))), $input); } } return $input; } } // End of class ?>
If you have the system resources, this's the only verification snippet you'll need. This performs an MX lookup on the domain of the email address to verify that it *can* receive mail. (Note: This code did not work on the Windows ISAPI version of PHP, and may not work under Windows at all). #This is just an example, you'll have to figure #out how to implement it into your own code :) $email = "tim@phpgalaxy.com" $domain = substr(strstr($email, '@'), 1); $x = getmxrr($domain, $mxs); #$mxs[0] will return the first (or only) MX record #of the domain. If $mxs[0] has a value, the email #address is good, if $mxs[0] comes up empty, the #domain has no MX record(s) and cannot receive mail.
Other email Checker using explode :) i see much of them using regex <code><pre> <? /* usually checking email using regex, this is different i use explode() to make it possible, just showing you another way to do it greeting to desy secandri, my friends on satunet.com, cdl2000.com, and ppls on infolinux magazine copyrighted? hell no! made on 19 may 2001 after watching antitrust the movie :) this just the basic, you can inprove it for your needed, other... throw it use other better way :), i just showing you another trick http://phpklik.dhs.org */ $user=explode("@",$email); echo"email=$email\n"; echo"username=$user[0]\n"; $domain=explode(".",$user[1]); if (!$domain[1]) { die("domain not valid"); } else { $cnt=count($domain); $c=$cnt-1; echo"domain="; for ($h = 0; $h < $cnt; $h++) { echo"$domain[$h]"; if ($h < $c) {echo".";} else{} } } ?> domain name syntax valid, but didnt check for live domain or just fake domain
A replacement Form Mail for the ever popular (PERL) version from Matt's Script Archive. Includes a few extra features (more to come). Works on both *nix and Windows. (PHP3 & 4) For more info (READMES, etc) visit http://www.boaddrink.com/projects/phpformmail <?PHP ############################################################################# # PHPFormMail v0.03b # # PHPFormMail - Something we've allways had... # # Copyright (c) 1999 Andrew Riley (boad@boaddrink.com) # # # # This program is free software; you can redistribute it and/or # # modify it under the terms of the GNU General Public License # # as published by the Free Software Foundation; either version 2 # # of the License, or (at your option) any later version. # # # # This program is distributed in the hope that it will be useful, # # but WITHOUT ANY WARRANTY; without even the implied warranty of # # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # # GNU General Public License for more details. # # # # You should have received a copy of the GNU General Public License # # along with this program; if not, write to the Free Software # # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, # # USA. # # # ############################################################################# # # # If you run into any problems, pleas read the readme_formmail.txt. # # If that does not help, check out http://www.boaddrink.com. # # # # For more info, please visit http://www.boaddrink.com or read the readme # # file included. # ############################################################################# # $referers allows forms to be located only on servers which are defined # # in this field. # $referers = array("boaddrink.com","www.boaddrink.com"); ############################################################################# $errors = array(); $invis_array = array("recipient","subject","required","redirect", "print_blank_fields","env_report", "missing_fields_redirect","title","bgcolor", "text_color","link_color","alink_color", "vlink_color","background","subject","title", "link","css","return_link_title", "return_link_url"); function in_array($needle,$haystack){ //remove for PHP4.0... it"s not in 3 $found = false; while (list($key,$val) = each ($haystack)){ if ($needle == $val){ $found = true; } } return $found; } function fill_data(&$from,$to,$tag=""){ $temp = $from; if(!$from){ $temp = $to; } if($tag){ $temp = " ".$tag."=\"".$temp."\""; } $from = $temp; } function check_referer($referers){ if (count($referers)){ global $errors; $found = false; $temp = explode("/",getenv("HTTP_REFERER")); $referer = $temp[2]; for ($