Your IP : 216.73.217.79
<?php
/***************************************************************************************
* XPertMailer Version 1.4.4 Stable - 3/10/2006 5:47 PM *
* *
* This file is part of the XPertMailer package (http://xpertmailer.sourceforge.net/) *
* *
* XPertMailer 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. *
* *
* XPertMailer 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 *
* XPertMailer; if not, write to the Free Software Foundation, Inc., 51 Franklin St, *
* Fifth Floor, Boston, MA 02110-1301 USA *
* *
* XPertMailer php functions class. Sends e-mail message in MIME type format. *
* Copyright (C) 2006 Tanase Laurentiu Iulian *
* *
***************************************************************************************/
if(!defined('PRINT_ERROR')) define('PRINT_ERROR', true);
if(isset($_CONSTS_NAME) && PRINT_ERROR) trigger_error("Variable '\$_CONSTS_NAME' it is already defined", 256);
if(isset($_NAME_CONSTS) && PRINT_ERROR) trigger_error("Variable '\$_NAME_CONSTS' it is already defined", 256);
if(isset($_VALUE_CONST) && PRINT_ERROR) trigger_error("Variable '\$_VALUE_CONST' it is already defined", 256);
$_CONSTS_NAME = array(
'SMTP_LOCAL' => 1,
'SMTP_CLIENT' => 2,
'SMTP_LOCAL_CLIENT' => 3,
'SMTP_CLIENT_LOCAL' => 4,
'SMTP_RELAY' => 5,
'SMTP_RELAY_CLIENT' => 6,
'SMTP_CLIENT_RELAY' => 7,
'AUTH_DETECT' => 1,
'AUTH_LOGIN' => 2,
'AUTH_PLAIN' => 3,
'MX_FALSE' => false,
'MX_TRUE' => true,
'ATTACH_HTML_IMG' => 1,
'ATTACH_FILE' => 2,
'P_LOW' => 1,
'P_NORMAL' => 2,
'P_HIGH' => 3,
'SSL_FALSE' => false,
'SSL_TRUE' => true,
'CRLF' => "\r\n",
'IS_WIN' => (strtoupper(substr(PHP_OS, 0, 3)) == 'WIN')
);
foreach($_CONSTS_NAME as $_NAME_CONSTS => $_VALUE_CONST){
if(defined($_NAME_CONSTS)){
if(PRINT_ERROR) trigger_error("The constant '".$_NAME_CONSTS."' it is already defined", 256);
}else define($_NAME_CONSTS, $_VALUE_CONST);
}
class XPertMailer
{
var $_setsmtp = 3;
var $_pnumber = 25;
var $_porelay = 25;
var $_timeout = 30;
var $_setarrh;
var $_attc1st;
var $_attc2nd;
var $_subject;
var $_fromadr;
var $_sslconn = false;
var $_fromail = false;
var $_fromnam = false;
var $_partmix;
var $_part1st;
var $_part2nd;
var $_wheaders;
var $_wmessage;
var $_wattachs;
var $_msgsplit;
var $_authuser;
var $_authpass;
var $_relayset;
var $_authsets = false;
var $_priority = false;
var $_charset = "ISO-8859-1";
var $response = "unknow";
function XPertMailer($smtp = 3, $relay = false){
if(is_int($smtp) && $smtp >= 1 && $smtp <= 7){
if($smtp >= 5){
if(!$relay){
if(PRINT_ERROR) trigger_error("The relay host name or ip address is not set on class XPertMailer->constructor", 512);
}else{
if(is_string($relay) && trim($relay) != ""){
$this->_setsmtp = $smtp;
$this->_relayset = $relay;
}elseif(PRINT_ERROR) trigger_error("Invalid relay host name or ip address on class XPertMailer->constructor", 512);
}
}else $this->_setsmtp = $smtp;
}elseif(PRINT_ERROR) trigger_error("Invalid SMTP connection preference value on class XPertMailer->constructor", 512);
$this->_setarrh = $this->_attc1st = $this->_attc2nd = $this->_msgsplit = array();
}
function timeout($tmout){
if(is_int($tmout)) $this->_timeout = $tmout;
elseif(PRINT_ERROR) trigger_error("Invalid parameter type on class XPertMailer->timeout()", 512);
}
function auth($user, $pass, $type = 1, $vssl = false, $prelay = 25){
if(is_string($user) && is_string($pass) && !empty($user) && !empty($pass)){
$this->_authuser = $user;
$this->_authpass = $pass;
if(is_int($type) && ($type == 1 || $type == 2 || $type == 3)) $this->_authsets = $type;
else{
$this->_authsets = 1;
if(PRINT_ERROR) trigger_error("Invalid 3'rd auth parameter type on class XPertMailer->auth()", 512);
}
if(is_bool($vssl)){
if($vssl){
if(extension_loaded('openssl')){
$this->_sslconn = true;
if(is_int($prelay)) $this->_porelay = $prelay;
elseif(PRINT_ERROR) trigger_error("Invalid TSL/SSL port number value on class XPertMailer->auth()", 512);
}elseif(PRINT_ERROR) trigger_error("Your PHP don't have SSL support on class XPertMailer->auth()", 512);
}
}elseif(PRINT_ERROR) trigger_error("Invalid SSL value on class XPertMailer->auth()", 512);
}elseif(PRINT_ERROR) trigger_error("Invalid parameter(s) on class XPertMailer->auth()", 512);
}
function headers($arrh){
if(is_array($arrh) && count($arrh) > 0){
$rebh = array();
foreach($arrh as $numh => $valh){
if(is_string($numh) && is_string($valh) && !empty($numh) && !empty($valh)){
if(isset($rebh[$numh]) && PRINT_ERROR) trigger_error("Duplicate array key on class XPertMailer->headers()", 1024);
$rebh[$numh] = $valh;
}elseif(PRINT_ERROR) trigger_error("Invalid array parameter type on class XPertMailer->headers()", 1024);
}
$this->_setarrh = $rebh;
}elseif(PRINT_ERROR) trigger_error("Invalid parameter type on class XPertMailer->headers()", 512);
}
function _attach_file($attc, $typeatt){
if(is_array($attc) && count($attc) > 0){
$reb1st = $reb2nd = array();
$lst1st = $this->_attc1st;
$lst2nd = $this->_attc2nd;
foreach($attc as $numa => $vala){
if(is_string($vala) && !empty($vala)){
if(is_file($vala)){
if(is_readable($vala)){
$nmfile = (is_string($numa) && !empty($numa)) ? $numa : basename($vala);
if(isset($reb1st[$nmfile]) || isset($reb2nd[$nmfile]) || isset($lst1st[$nmfile]) || isset($lst2nd[$nmfile])){
if(PRINT_ERROR) trigger_error("Duplicate array key on class XPertMailer->_attach_file()", 1024);
}
if(strstr($nmfile, '/')){
if(PRINT_ERROR) trigger_error("Do not include path value in the name of the file ".$nmfile." on class XPertMailer->_attach_file()", 1024);
$nmfile = basename($nmfile);
}
if(!strstr($nmfile, '.')){
if(PRINT_ERROR) trigger_error("File name: ".$nmfile." doesn't have an extension defined on class XPertMailer->_attach_file()", 1024);
}else{
$expext = explode(".", $nmfile);
if($expext[count($expext)-1] != ""){
if($typeatt == 1) $reb1st[$nmfile] = $vala;
elseif($typeatt == 2) $reb2nd[$nmfile] = $vala;
}else{
if(PRINT_ERROR) trigger_error("File name: ".$nmfile." doesn't have an extension defined on class XPertMailer->_attach_file()", 1024);
}
}
}elseif(PRINT_ERROR) trigger_error("Can't read file: ".$vala." on class XPertMailer->_attach_file()", 1024);
}elseif(PRINT_ERROR) trigger_error("File: ".$vala." doesn't exists on class XPertMailer->_attach_file()", 1024);
}elseif(PRINT_ERROR) trigger_error("Invalid array parameter type on class XPertMailer->_attach_file()", 1024);
}
$this->_attc1st = array_merge($lst1st, $reb1st);
$this->_attc2nd = array_merge($lst2nd, $reb2nd);
}elseif(PRINT_ERROR) trigger_error("Invalid first parameter type on class XPertMailer->_attach_file()", 512);
}
function attach($arratt, $attype = 2){
if($attype == 1 || $attype == 2) $this->_attach_file($arratt, $attype);
elseif(PRINT_ERROR) trigger_error("Invalid secound parameter type on class XPertMailer->attach()", 512);
}
function is_mail($addr, $vermx = false){
$ism = false;
if(is_string($addr)){
$exp = "^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,6})$";
if(eregi($exp, $addr)){
if($vermx){
$ret = explode("@", $addr);
$mxr = IS_WIN ? $this->_getmxrr_win($ret[1], $mxh) : getmxrr($ret[1], $mxh);
if(count($mxh) > 0){
foreach($mxh as $mxv){
if($mxv != gethostbyname($mxv)){
$ism = true;
break;
}
}
}
}else $ism = true;
}
}elseif(PRINT_ERROR) trigger_error("Invalid first parameter type on class XPertMailer->is_mail()", 512);
return $ism;
}
function _is_connection($connection){
$ret = false;
if($connection && is_resource($connection)){
$status = stream_get_meta_data($connection);
if(!$status['timed_out']) $ret = true;
}
return $ret;
}
function _sendtoip($ip, $toarr, $relay = false){
$set = true;
$pnm = $this->_pnumber;
$ssl = "";
if($relay){
$ssl = $this->_sslconn ? "tls://" : "";
$pnm = $this->_porelay;
}
if($connect = fsockopen($ssl.$ip, $pnm, $err_num, $err_msg, $this->_timeout)){
$loop = 0;
stream_set_timeout($connect, $this->_timeout);
while(!feof($connect)){
$loop++;
$rcv = fgets($connect, 1024);
if(substr($rcv, 0, 4) != "220-" || $loop === 99) break;
}
if(substr($rcv, 0, 3) != "220"){
$this->response = "Response 2 error: ".$rcv;
$set = false;
}
if($set){
$relayh = "";
if($relay && $this->_authsets){
if($this->_is_connection($connect)){
fputs($connect, "EHLO ".$this->_fromadr.CRLF);
$getinfo = "";
$loop = 0;
while(!feof($connect)){
$loop++;
$rcv = fgets($connect, 1024);
$getinfo .= $rcv;
if(substr($rcv, 0, 4) != "250-" || $loop === 99) break;
}
if(substr($rcv, 0, 3) != "250"){
$this->response = "Response 30 error: ".$rcv;
$set = false;
}
$authreq = false;
if($this->_authsets == 1){
if(strstr($getinfo, 'LOGIN')) $authreq = "login";
elseif(strstr($getinfo, 'PLAIN')) $authreq = "plain";
}elseif($this->_authsets == 2) $authreq = "login";
elseif($this->_authsets == 3) $authreq = "plain";
}else{
$this->response = "Response C0 error: Invalid resource connection";
$set = false;
}
if(!$authreq || $authreq == "login"){
if($set){
if($this->_is_connection($connect)){
fputs($connect, "AUTH LOGIN".CRLF);
$rcv = fgets($connect, 1024);
if(substr($rcv, 0, 3) != "334"){
$this->response = "Response 32 error: ".$rcv;
$set = false;
}
}else{
$this->response = "Response C1 error: Invalid resource connection";
$set = false;
}
}
if($set){
if($this->_is_connection($connect)){
fputs($connect, base64_encode($this->_authuser).CRLF);
$rcv = fgets($connect, 1024);
if(substr($rcv, 0, 3) != "334"){
$this->response = "Response 33 error: ".$rcv;
$set = false;
}
}else{
$this->response = "Response C2 error: Invalid resource connection";
$set = false;
}
}
if($set){
if($this->_is_connection($connect)){
fputs($connect, base64_encode($this->_authpass).CRLF);
$rcv = fgets($connect, 1024);
if(substr($rcv, 0, 3) != "235"){
$this->response = "Response 34 error: ".$rcv;
$set = false;
}
}else{
$this->response = "Response C3 error: Invalid resource connection";
$set = false;
}
}
}elseif($authreq == "plain"){
if($set){
if($this->_is_connection($connect)){
fputs($connect, "AUTH PLAIN ".base64_encode($this->_authuser.chr(0).$this->_authuser.chr(0).$this->_authpass).CRLF);
$rcv = fgets($connect, 1024);
if(substr($rcv, 0, 3) != "235"){
$this->response = "Response 35 error: ".$rcv;
$set = false;
}
}else{
$this->response = "Response C4 error: Invalid resource connection";
$set = false;
}
}
}
$relayh = "@".$this->_relayset.":";
}else{
if($this->_is_connection($connect)){
fputs($connect, "HELO ".$this->_fromadr.CRLF);
$loop = 0;
while(!feof($connect)){
$loop++;
$rcv = fgets($connect, 1024);
if(substr($rcv, 0, 4) != "250-" || $loop === 99) break;
}
if(substr($rcv, 0, 3) != "250"){
$this->response = "Response 31 error: ".$rcv;
$set = false;
}
}else{
$this->response = "Response C5 error: Invalid resource connection";
$set = false;
}
}
}
if($set){
if($this->_is_connection($connect)){
fputs($connect, "MAIL FROM:<".$this->_fromail.">".CRLF);
$rcv = fgets($connect, 1024);
if(substr($rcv, 0, 3) != "250"){
$this->response = "Response 4 error: ".$rcv;
$set = false;
}
}else{
$this->response = "Response C6 error: Invalid resource connection";
$set = false;
}
}
if($set){
foreach($toarr as $arrval){
if($set){
if($this->_is_connection($connect)){
fputs($connect, "RCPT TO:<".$relayh.$arrval.">".CRLF);
$rcv = fgets($connect, 1024);
if(substr($rcv, 0, 3) != "250"){
$this->response = "Response 5 error: ".$rcv;
$set = false;
}
}else{
$this->response = "Response C7 error: Invalid resource connection";
$set = false;
}
}else break;
}
}
if($set){
if($this->_is_connection($connect)){
fputs($connect, "DATA".CRLF);
$rcv = fgets($connect, 1024);
if(substr($rcv, 0, 3) != "354"){
$this->response = "Response 6 error: ".$rcv;
$set = false;
}
}else{
$this->response = "Response C8 error: Invalid resource connection";
$set = false;
}
}
if($set){
foreach($this->_msgsplit as $partmsg){
if($this->_is_connection($connect)) fputs($connect, $partmsg);
else{
$this->response = "Response C9 error: Invalid resource connection";
$set = false;
break;
}
}
if($set){
if($this->_is_connection($connect)){
fputs($connect, ".".CRLF);
$rcv = fgets($connect, 1024);
if(substr($rcv, 0, 3) != "250"){
$this->response = "Response 7 error: ".$rcv;
$set = false;
}
}else{
$this->response = "Response C10 error: Invalid resource connection";
$set = false;
}
}
if($set){
fputs($connect, "QUIT".CRLF);
if($rcvs = @fgets($connect, 1024)) $rcv = $rcvs;
}
}
if($set) $this->response = "Response 8 success: ".$rcv;
if($this->_is_connection($connect)) fclose($connect);
}else{
$this->response = "Response 1 error: ".$err_msg;
$set = false;
}
return $set;
}
function _is_ip($ipval){
$retip = false;
if(is_string($ipval) && !empty($ipval)){
$expips = explode(".", $ipval);
if(count($expips) == 4){
$each = true;
foreach($expips as $number){
$partno = intval($number);
if(!($number === strval($partno) && $partno >= 0 && $partno <= 255)){
$each = false;
break;
}
}
$retip = $each;
}
}
return $retip;
}
function _sendtohost($host, $detarr, $toaddh, $hccstr, $hbccstr, $dtmsg, $tpmime, $hrelay = false){
$headstr2 = $this->_header($toaddh, $hccstr, $hbccstr, $this->_subject, $tpmime, true);
$this->_msgsplit = $this->_splitmsg($headstr2.CRLF.CRLF.$dtmsg);
if(strtolower($host) == "localhost"){
$headstr1 = $this->_header($toaddh, $hccstr, $hbccstr, $this->_subject, $tpmime, false);
return mail($toaddh, $this->_subject, $dtmsg, $headstr1) ? true : $this->_sendtoip("127.0.0.1", $detarr);
}else{
if($this->_is_ip($host)) return $this->_sendtoip($host, $detarr, $hrelay);
else{
$retrn = false;
$resmx = IS_WIN ? $this->_getmxrr_win($host, $mxhost) : getmxrr($host, $mxhost);
$iparr = array();
if($resmx){
foreach($mxhost as $hostname){
$iphost = gethostbyname($hostname);
if($hostname != $iphost && $hostname != $host && $this->_is_ip($iphost)) $iparr[] = $iphost;
}
}else{
$iphost = gethostbyname($host);
if($this->_is_ip($iphost)) $iparr[] = $iphost;
}
if(count($iparr) > 0){
foreach($iparr as $ipaddr) if($retrn = $this->_sendtoip($ipaddr, $detarr, $hrelay)) break;
}else $this->response = "Hostname '".$host."' doesn't have an IP address !";
return $retrn;
}
}
}
function _encstring($len = 9){
$encwrd = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
$enclen = strlen($encwrd)-1;
$encids = "";
for($i=0;$i<$len;$i++) $encids .= $encwrd{rand(0, $enclen)};
return $encids;
}
function _header($tom, $hcc, $hbcc, $subjct, $content, $cntx){
$arr_headers = array();
$fromaddr = $toaddr = false;
if(count($this->_setarrh) > 0){
foreach($this->_setarrh as $hnam => $hval){
if(is_string($hnam) && is_string($hval) && trim($hnam) != "" && trim($hval) != ""){
$hnam = str_replace(array("\r\n", "\r", "\n", "\t"), " ", $hnam);
$hval = str_replace(array("\r\n", "\r", "\n", "\t"), " ", $hval);
$hnam = trim($hnam);
$hval = trim($hval);
if(strtolower($hnam) == "from"){
$expf = explode(" ", $hval);
$mfrm = str_replace(array('<', '>', '"'), '', $expf[count($expf)-1]);
if($this->is_mail($mfrm)){
$fromaddr = $mfrm;
$arr_headers['From'] = $hval;
}
}else{
if(!(strtolower($hnam) == "to" || strtolower($hnam) == "subject" || strtolower($hnam) == "cc" || strtolower($hnam) == "bcc")) $arr_headers[$hnam] = $hval;
}
}elseif(PRINT_ERROR) trigger_error("Invalid header format on class XPertMailer->_setheaders()", 512);
}
}
if(!($fromaddr && $this->_fromail)){
$fromaddr = ini_get('sendmail_from');
if(empty($fromaddr)){
if(isset($_SERVER['SERVER_ADMIN']) && $this->is_mail($_SERVER['SERVER_ADMIN'])) $fromaddr = $_SERVER['SERVER_ADMIN'];
elseif(isset($_SERVER['SERVER_NAME'])) $fromaddr = "postmaster@".$_SERVER['SERVER_NAME'];
elseif(isset($_SERVER['HTTP_HOST'])) $fromaddr = "postmaster@".$_SERVER['HTTP_HOST'];
elseif(isset($_SERVER['REMOTE_ADDR'])) $fromaddr = "postmaster@".$_SERVER['REMOTE_ADDR'];
elseif(isset($_SERVER['SERVER_ADDR'])) $fromaddr = "postmaster@".$_SERVER['SERVER_ADDR'];
else $fromaddr = "postmaster@localhost";
}
}
if(!$this->_fromail) $this->_fromail = $fromaddr;
else $fromaddr = $this->_fromail;
$expfrom = explode("@", $fromaddr);
$this->_fromadr = $expfrom[1];
if(!isset($arr_headers['From'])){
if(IS_WIN && !$cntx){
$inifrom = ini_get('sendmail_from');
if(empty($inifrom)) $arr_headers['From'] = '"'.$fromaddr.'"';
elseif(PRINT_ERROR) trigger_error("From e-mail address can not be set because it is already defined 'sendmail_from' value in php.ini on class XPertMailer->_setheaders()", 512);
}else $arr_headers['From'] = ($this->_fromnam ? '"'.$this->_fromnam.'" ' : '').'<'.$fromaddr.'>';
}
if($cntx) $arr_headers['To'] = $tom;
if($cntx) $arr_headers['Subject'] = $subjct;
if(!empty($hcc)) $arr_headers['Cc'] = $hcc;
if(!empty($hbcc) && !$cntx) $arr_headers['Bcc'] = $hbcc;
$arr_headers['Date'] = date("r");
$arr_headers['MIME-Version'] = '1.0';
if($content == "text/plain"){
$arr_headers['Content-Type'] = 'text/plain; charset="'.$this->_charset.'"';
$arr_headers['Content-Transfer-Encoding'] = '7bit';
}elseif($content == "multipart/alternative") $arr_headers['Content-Type'] = 'multipart/alternative; boundary="'.$this->_partmix.'"';
elseif($content == "multipart/related") $arr_headers['Content-Type'] = 'multipart/related; boundary="'.$this->_partmix.'"';
elseif($content == "multipart/mixed") $arr_headers['Content-Type'] = 'multipart/mixed; boundary="'.$this->_partmix.'"';
$arr_headers['Message-ID'] = "<XPertMailer14.".uniqid(time())."@".$expfrom[1].">";
if($this->_priority){
$arr_headers['X-Priority'] = $this->_priority[1];
$arr_headers['X-MSMail-Priority'] = $this->_priority[0];
}else{
if(!isset($arr_headers['X-Priority'])) $arr_headers['X-Priority'] = "3";
if(!isset($arr_headers['X-MSMail-Priority'])) $arr_headers['X-MSMail-Priority'] = "Normal";
}
$arr_headers['X-Mailer'] = base64_decode("WFBlcnRNYWlsZXIgMS40IDxodHRwOi8vd3d3LnhwZXJ0bWFpbGVyLmNvbS8+");
$arr_headers['X-MimeOLE'] = base64_decode("UHJvZHVjZWQgQnkgWFBlcnRNYWlsZXIgVjEuNA==");
$retheaders = "";
foreach($arr_headers as $hname => $hvalue) $retheaders .= $hname.": ".$hvalue.CRLF;
return substr($retheaders, 0, -1*strlen(CRLF));
}
function _to_quoted($input, $arrids = array(), $linemax = 76){
if(count($arrids) > 0){
$find1 = $repl1 = array();
foreach($arrids as $namefl => $codevl){
$find1[] = "=\"".$namefl;
$repl1[] = "=\"cid:".$codevl;
$find2[] = "=".$namefl;
$repl2[] = "=cid:".$codevl;
}
$input = str_replace($find1, $repl1, $input);
$input = str_replace($find2, $repl2, $input);
}
$lines = preg_split("/\r?\n/", $input);
$genre = "";
while(list(, $line) = each($lines)){
$linelen = strlen($line);
$newline = "";
for($i=0;$i<$linelen;$i++){
$char = substr($line, $i, 1);
$decd = ord($char);
if($decd == 32 && $i == ($linelen - 1)) $char = "=20";
elseif($decd == 61 || $decd < 32 || $decd > 126) $char = "=".strtoupper(sprintf('%02s', dechex($decd)));
if((strlen($newline) + strlen($char)) >= $linemax){
$genre .= $newline."=".CRLF;
$newline = "";
}
$newline .= $char;
}
$genre .= $newline.CRLF;
}
return substr($genre, 0, -1*strlen(CRLF));
}
function _splitmsg($longmsg, $approx = 900){
$longmsg = str_replace(array(".\r\n", ".\n", ".\r"), ". ".CRLF, $longmsg);
$msgarr = explode(CRLF, $longmsg);
$addmsg = "";
$arrmsg = array();
foreach($msgarr as $inline){
$addmsg .= $inline.CRLF;
if(strlen($addmsg) >= $approx){
$arrmsg[] = $addmsg;
$addmsg = "";
}
}
if(count($arrmsg) == 0) $arrmsg[] = $longmsg;
else $arrmsg[] = $addmsg;
return $arrmsg;
}
function send($to, $subj, $textmsg, $htmlmsg = false, $charset = false){
$retval = $iserrs = false;
$to = str_replace(array("\r\n", "\r", "\n", "\t"), " ", trim($to));
$toexpl = explode(", ", $to);
$alldm = $grpto = $verad = $arrvl = array();
foreach($toexpl as $valto){
$valto = trim($valto);
$expadd = explode(" ", $valto);
$addsto = str_replace(array("<", ">"), "", $expadd[count($expadd)-1]);
if($this->is_mail($addsto)){
if(!isset($verad[$addsto])){
$expat = explode("@", $addsto);
$verad[$addsto] = true;
$grpto[$expat[1]][] = $addsto;
$alldm[] = $addsto;
$arrvl[] = $valto;
}elseif(PRINT_ERROR) trigger_error("Duplicate to e-mail address '".$addsto."' on class XPertMailer->send()", 512);
}elseif(PRINT_ERROR) trigger_error("Invalid to e-mail address format '".$addsto."' on class XPertMailer->send()", 512);
}
if(!(count($alldm) > 0)){
$iserrs = true;
if(PRINT_ERROR) trigger_error("Can not find any valid to e-mail address on class XPertMailer->send()", 512);
}
if(!is_string($subj)){
$iserrs = true;
if(PRINT_ERROR) trigger_error("Invalid subject format on class XPertMailer->send()", 512);
}
if(!is_string($textmsg)){
$iserrs = true;
if(PRINT_ERROR) trigger_error("Invalid text/plain message format on class XPertMailer->send()", 512);
}
if(!$iserrs){ // 1
$arrcc = $arrbcc = array();
if(count($this->_setarrh) > 0){
foreach($this->_setarrh as $numhd => $valhd){
$numhd = trim($numhd);
$valhd = trim($valhd);
if(strtolower($numhd) == "cc"){
$expcc = explode(", ", $valhd);
foreach($expcc as $ccadd){
$ccadd = trim($ccadd);
$expcvl = explode(" ", $ccadd);
$addrcc = str_replace(array("<", ">"), "", $expcvl[count($expcvl)-1]);
if($this->is_mail($addrcc)){
if(!isset($vercc[$addrcc])){
$vercc[$addrcc] = true;
$arrcc[] = array($addrcc, $ccadd);
}elseif(PRINT_ERROR) trigger_error("Duplicate Cc e-mail address '".$addrcc."' on class XPertMailer->send()", 512);
}elseif(PRINT_ERROR) trigger_error("Invalid Cc e-mail address format '".$addrcc."' on class XPertMailer->send()", 512);
}
}elseif(strtolower($numhd) == "bcc"){
$expbcc = explode(", ", $valhd);
foreach($expbcc as $bccadd){
$bccadd = trim($bccadd);
$expbvl = explode(" ", $bccadd);
$addbcc = str_replace(array("<", ">"), "", $expbvl[count($expbvl)-1]);
if($this->is_mail($addbcc)){
if(!isset($verbcc[$addbcc])){
$verbcc[$addbcc] = true;
$arrbcc[] = array($addbcc, $bccadd);
}elseif(PRINT_ERROR) trigger_error("Duplicate Bcc e-mail address '".$addbcc."' on class XPertMailer->send()", 512);
}elseif(PRINT_ERROR) trigger_error("Invalid Bcc e-mail address format '".$addbcc."' on class XPertMailer->send()", 512);
}
}
}
}
$repcc = $repbcc = array();
if(count($arrcc) > 0){
$repcc = array();
foreach($arrcc as $arrccdat){
$samecc = false;
foreach($alldm as $tovaladd){
if($arrccdat[0] == $tovaladd){
$samecc = true;
if(PRINT_ERROR) trigger_error("The e-mail address '".$tovaladd."' appear in 'To' and 'Cc' on class XPertMailer->send()", 512);
break;
}
}
if(!$samecc) $repcc[] = $arrccdat;
}
}
if(count($arrbcc) > 0){
$repbcc = array();
foreach($arrbcc as $arrbccdat){
$samebcc = false;
foreach($alldm as $tovaladd){
if($arrbccdat[0] == $tovaladd){
$samebcc = true;
if(PRINT_ERROR) trigger_error("The e-mail address '".$tovaladd."' appear in 'To' and 'Bcc' on class XPertMailer->send()", 512);
break;
}
}
if(!$samebcc && count($repcc) > 0){
foreach($repcc as $toarrcc){
if($arrbccdat[0] == $toarrcc[0]){
$samebcc = true;
if(PRINT_ERROR) trigger_error("The e-mail address '".$toarrcc[0]."' appear in 'Cc' and 'Bcc' on class XPertMailer->send()", 512);
break;
}
}
}
if(!$samebcc) $repbcc[] = $arrbccdat;
}
}
$tostr = $ccstr = $bccstr = "";
foreach($arrvl as $line) $tostr .= $line.", ";
if(count($repcc) > 0){
foreach($repcc as $ccline){
$ccstr .= $ccline[1].", ";
$expcc = explode("@", $ccline[0]);
$grpto[$expcc[1]][] = $ccline[0];
$alldm[] = $ccline[0];
}
}
if(count($repbcc) > 0){
foreach($repbcc as $bccline){
$bccstr .= $bccline[1].", ";
$expbcc = explode("@", $bccline[0]);
$grpto[$expbcc[1]][] = $bccline[0];
$alldm[] = $bccline[0];
}
}
$tostr = substr($tostr, 0, -2);
if(!empty($ccstr)) $ccstr = substr($ccstr, 0, -2);
if(!empty($bccstr)) $bccstr = substr($bccstr, 0, -2);
$reptxt = $rephtm = "";
$arrtxt = explode(CRLF, $textmsg);
if(count($arrtxt) > 0){
foreach($arrtxt as $txtval) $reptxt .= str_replace(array("\r", "\n"), CRLF, $txtval).CRLF;
$reptxt = substr($reptxt, 0, -2);
}else $reptxt = str_replace(array("\r", "\n"), CRLF, $textmsg);
if($htmlmsg){
if(is_string($htmlmsg)){
$arrhtm = explode(CRLF, $htmlmsg);
if(count($arrhtm) > 0){
foreach($arrhtm as $htmval) $rephtm .= str_replace(array("\r", "\n"), CRLF, $htmval).CRLF;
$rephtm = substr($rephtm, 0, -2);
}else $rephtm = str_replace(array("\r", "\n"), CRLF, $htmlmsg);
}else{
$htmlmsg = false;
if(PRINT_ERROR) trigger_error("Invalid HTML message format on class XPertMailer->send()", 512);
}
}
$this->_subject = str_replace(array("\r\n", "\r", "\n", "\t"), " ", $subj);
if($charset){
if(is_string($charset) && !empty($charset)) $this->_charset = str_replace(array("\r\n", "\r", "\n", "\t"), " ", $charset);
else{
if(PRINT_ERROR) trigger_error("Invalid charset format on class XPertMailer->send()", 512);
$charset = $this->_charset;
}
}else $charset = $this->_charset;
$cnt1st = count($this->_attc1st);
$cnt2nd = count($this->_attc2nd);
$this->_partmix = "=_0XPertMailer14".$this->_encstring();
$this->_part1st = "=_1XPertMailer14".$this->_encstring();
$this->_part2nd = "=_2XPertMailer14".$this->_encstring();
$sendmsg = "";
if(!$htmlmsg){
if($cnt2nd > 0){
$typmime = "multipart/mixed";
$sendmsg = CRLF.
"--".$this->_partmix.CRLF.
"Content-Type: text/plain; charset=\"".$charset."\"".CRLF.
"Content-Transfer-Encoding: 7bit".CRLF.CRLF.$reptxt.CRLF;
foreach($this->_attc2nd as $attname => $attfile){
$content = file_get_contents($attfile);
$sendmsg .= "--".$this->_partmix.CRLF.
"Content-Type: ".$this->mimetype($attname).CRLF.
"Content-Transfer-Encoding: base64".CRLF.
"Content-Disposition: attachment; filename=\"".$attname."\"".CRLF.CRLF.
chunk_split(base64_encode($content));
}
$sendmsg .= "--".$this->_partmix."--".CRLF;
}else{
$typmime = "text/plain";
$sendmsg = CRLF.$reptxt.CRLF;
}
}else{
if($cnt1st > 0 && $cnt2nd > 0){
$idsarrs = array();
foreach($this->_attc1st as $attnamex => $attfilex) $idsarrs[$attnamex] = "CXPertMailer14".$this->_encstring();
$typmime = "multipart/mixed";
$sendmsg = CRLF.
"--".$this->_partmix.CRLF.
"Content-Type: multipart/related; boundary=\"".$this->_part1st."\"".CRLF.CRLF.
"--".$this->_part1st.CRLF.
"Content-Type: multipart/alternative; boundary=\"".$this->_part2nd."\"".CRLF.CRLF.
"--".$this->_part2nd.CRLF.
"Content-Type: text/plain; charset=\"".$charset."\"".CRLF.
"Content-Transfer-Encoding: 7bit".CRLF.CRLF.$reptxt.CRLF.
"--".$this->_part2nd.CRLF.
"Content-Type: text/html; charset=\"".$charset."\"".CRLF.
"Content-Transfer-Encoding: quoted-printable".CRLF.CRLF.$this->_to_quoted($rephtm, $idsarrs).CRLF.
"--".$this->_part2nd."--".CRLF;
foreach($this->_attc1st as $attname1 => $attfile1){
$content1 = file_get_contents($attfile1);
$sendmsg .= "--".$this->_part1st.CRLF.
"Content-Type: ".$this->mimetype($attname1).CRLF.
"Content-Transfer-Encoding: base64".CRLF.
"Content-Disposition: inline; filename=\"".$attname1."\"".CRLF.
"Content-ID: <".$idsarrs[$attname1].">".CRLF.CRLF.
chunk_split(base64_encode($content1));
}
$sendmsg .= "--".$this->_part1st."--".CRLF;
foreach($this->_attc2nd as $attname2 => $attfile2){
$content2 = file_get_contents($attfile2);
$sendmsg .= "--".$this->_partmix.CRLF.
"Content-Type: ".$this->mimetype($attname2).CRLF.
"Content-Transfer-Encoding: base64".CRLF.
"Content-Disposition: attachment; filename=\"".$attname2."\"".CRLF.CRLF.
chunk_split(base64_encode($content2));
}
$sendmsg .= "--".$this->_partmix."--".CRLF;
}elseif($cnt1st > 0){
$idsarrs = array();
foreach($this->_attc1st as $attnamex => $attfilex) $idsarrs[$attnamex] = "CXPertMailer14".$this->_encstring();
$typmime = "multipart/related";
$sendmsg = CRLF.
"--".$this->_partmix.CRLF.
"Content-Type: multipart/alternative; boundary=\"".$this->_part1st."\"".CRLF.CRLF.
"--".$this->_part1st.CRLF.
"Content-Type: text/plain; charset=\"".$charset."\"".CRLF.
"Content-Transfer-Encoding: 7bit".CRLF.CRLF.$reptxt.CRLF.
"--".$this->_part1st.CRLF.
"Content-Type: text/html; charset=\"".$charset."\"".CRLF.
"Content-Transfer-Encoding: quoted-printable".CRLF.CRLF.$this->_to_quoted($rephtm, $idsarrs).CRLF.
"--".$this->_part1st."--".CRLF;
foreach($this->_attc1st as $attname => $attfile){
$content = file_get_contents($attfile);
$sendmsg .= "--".$this->_partmix.CRLF.
"Content-Type: ".$this->mimetype($attname).CRLF.
"Content-Transfer-Encoding: base64".CRLF.
"Content-Disposition: inline; filename=\"".$attname."\"".CRLF.
"Content-ID: <".$idsarrs[$attname].">".CRLF.CRLF.
chunk_split(base64_encode($content));
}
$sendmsg .= "--".$this->_partmix."--".CRLF;
}elseif($cnt2nd > 0){
$typmime = "multipart/mixed";
$sendmsg = CRLF.
"--".$this->_partmix.CRLF.
"Content-Type: multipart/alternative; boundary=\"".$this->_part1st."\"".CRLF.CRLF.
"--".$this->_part1st.CRLF.
"Content-Type: text/plain; charset=\"".$charset."\"".CRLF.
"Content-Transfer-Encoding: 7bit".CRLF.CRLF.$reptxt.CRLF.
"--".$this->_part1st.CRLF.
"Content-Type: text/html; charset=\"".$charset."\"".CRLF.
"Content-Transfer-Encoding: quoted-printable".CRLF.CRLF.$this->_to_quoted($rephtm).CRLF.
"--".$this->_part1st."--".CRLF;
foreach($this->_attc2nd as $attname => $attfile){
$content = file_get_contents($attfile);
$sendmsg .= "--".$this->_partmix.CRLF.
"Content-Type: ".$this->mimetype($attname).CRLF.
"Content-Transfer-Encoding: base64".CRLF.
"Content-Disposition: attachment; filename=\"".$attname."\"".CRLF.CRLF.
chunk_split(base64_encode($content));
}
$sendmsg .= "--".$this->_partmix."--".CRLF;
}else{
$typmime = "multipart/alternative";
$sendmsg = CRLF.
"--".$this->_partmix.CRLF.
"Content-Type: text/plain; charset=\"".$charset."\"".CRLF.
"Content-Transfer-Encoding: 7bit".CRLF.CRLF.$reptxt.CRLF.
"--".$this->_partmix.CRLF.
"Content-Type: text/html; charset=\"".$charset."\"".CRLF.
"Content-Transfer-Encoding: quoted-printable".CRLF.CRLF.$this->_to_quoted($rephtm).CRLF.
"--".$this->_partmix."--".CRLF;
}
}
$tempStr = $tostr;
$tostr = $bccstr;
$bccstr = $tempStr;
if(!empty($sendmsg)){
if($this->_setsmtp == 1) $retval = $this->_sendtohost("localhost", $alldm, $tostr, $ccstr, $bccstr, $sendmsg, $typmime);
elseif($this->_setsmtp == 5) $retval = $this->_sendtohost($this->_relayset, $alldm, $tostr, $ccstr, $bccstr, $sendmsg, $typmime, true);
elseif($this->_setsmtp == 2){
foreach($grpto as $namdom => $arrdom){
$retval = $this->_sendtohost($namdom, $arrdom, $tostr, $ccstr, $bccstr, $sendmsg, $typmime);
}
}elseif($this->_setsmtp == 3){
if(!$retval = $this->_sendtohost("localhost", $alldm, $tostr, $ccstr, $bccstr, $sendmsg, $typmime)){
foreach($grpto as $namdom => $arrdom){
$retval = $this->_sendtohost($namdom, $arrdom, $tostr, $ccstr, $bccstr, $sendmsg, $typmime);
}
}
}elseif($this->_setsmtp == 4){
foreach($grpto as $namdom => $arrdom){
$retval = $this->_sendtohost($namdom, $arrdom, $tostr, $ccstr, $bccstr, $sendmsg, $typmime);
}
if(!$retval) $retval = $this->_sendtohost("localhost", $alldm, $tostr, $ccstr, $bccstr, $sendmsg, $typmime);
}elseif($this->_setsmtp == 6){
if(!$retval = $this->_sendtohost($this->_relayset, $alldm, $tostr, $ccstr, $bccstr, $sendmsg, $typmime, true)){
foreach($grpto as $namdom => $arrdom){
$retval = $this->_sendtohost($namdom, $arrdom, $tostr, $ccstr, $bccstr, $sendmsg, $typmime);
}
}
}elseif($this->_setsmtp == 7){
foreach($grpto as $namdom => $arrdom){
$retval = $this->_sendtohost($namdom, $arrdom, $tostr, $ccstr, $bccstr, $sendmsg, $typmime);
}
if(!$retval) $retval = $this->_sendtohost($this->_relayset, $alldm, $tostr, $ccstr, $bccstr, $sendmsg, $typmime, true);
}
}elseif(PRINT_ERROR) trigger_error("Unknow message type on class XPertMailer->send()", 512);
} // 1
return $retval;
}
function priority($setpr){
if(!(is_int($setpr) && ($setpr == 1 || $setpr == 2 || $setpr == 3))){
if(PRINT_ERROR) trigger_error("Invalid priority value on class XPertMailer->priority()", 512);
}else{
if($setpr == 1) $this->_priority = array("Low", "5");
elseif($setpr == 2) $this->_priority = array("Normal", "3");
elseif($setpr == 3) $this->_priority = array("High", "1");
}
}
function port($pno){
if(is_int($pno)) $this->_pnumber = $pno;
elseif(PRINT_ERROR) trigger_error("Invalid port number value on class XPertMailer->port()", 512);
}
function from($fromusr, $fromnme = false){
if(is_string($fromusr) && $this->is_mail($fromusr)){
$this->_fromail = $fromusr;
if($fromnme){
if(is_string($fromnme) && !empty($fromnme)) $this->_fromnam = $fromnme;
elseif(PRINT_ERROR) trigger_error("Invalid from name format on class XPertMailer->from()", 512);
}
}elseif(PRINT_ERROR) trigger_error("Invalid from mail address format on class XPertMailer->from()", 512);
}
function response(){
return $this->response;
}
function _getmxrr_win($hostname, &$mxhosts){
$mxhosts = array();
if(is_string($hostname)){
$retstr = exec('nslookup -type=mx '.$hostname, $retarr);
if($retstr && count($retarr) > 0){
foreach($retarr as $line) if(preg_match("/.*mail exchanger = (.*)/", $line, $matches)) $mxhosts[] = $matches[1];
}
}elseif(PRINT_ERROR) trigger_error("Invalid parameter type on class XPertMailer->_getmxrr_win()", 512);
return (count($mxhosts) > 0);
}
function mimetype($filename){
$retm = "application/octet-stream";
$mime = array(
'z' => "application/x-compress",
'xls' => "application/x-excel",
'gtar' => "application/x-gtar",
'gz' => "application/x-gzip",
'cgi' => "application/x-httpd-cgi",
'php' => "application/x-httpd-php",
'js' => "application/x-javascript",
'swf' => "application/x-shockwave-flash",
'tar' => "application/x-tar",
'tgz' => "application/x-tar",
'tcl' => "application/x-tcl",
'src' => "application/x-wais-source",
'zip' => "application/zip",
'kar' => "audio/midi",
'mid' => "audio/midi",
'midi' => "audio/midi",
'mp2' => "audio/mpeg",
'mp3' => "audio/mpeg",
'mpga' => "audio/mpeg",
'ram' => "audio/x-pn-realaudio",
'rm' => "audio/x-pn-realaudio",
'rpm' => "audio/x-pn-realaudio-plugin",
'wav' => "audio/x-wav",
'bmp' => "image/bmp",
'fif' => "image/fif",
'gif' => "image/gif",
'ief' => "image/ief",
'jpe' => "image/jpeg",
'jpeg' => "image/jpeg",
'jpg' => "image/jpeg",
'png' => "image/png",
'tif' => "image/tiff",
'tiff' => "image/tiff",
'css' => "text/css",
'htm' => "text/html",
'html' => "text/html",
'txt' => "text/plain",
'rtx' => "text/richtext",
'vcf' => "text/x-vcard",
'xml' => "text/xml",
'xsl' => "text/xsl",
'mpe' => "video/mpeg",
'mpeg' => "video/mpeg",
'mpg' => "video/mpeg",
'mov' => "video/quicktime",
'qt' => "video/quicktime",
'rv' => "video/vnd.rn-realvideo",
'asf' => "video/x-ms-asf",
'asx' => "video/x-ms-asf",
'avi' => "video/x-msvideo",
'vrml' => "x-world/x-vrml",
'wrl' => "x-world/x-vrml"
);
$expext = explode(".", $filename);
if(count($expext) >= 2){
$extnam = strtolower($expext[count($expext)-1]);
if(isset($mime[$extnam])) $retm = $mime[$extnam];
}
return $retm;
}
}
?>