'curl',
'server' => 'smtps://smtp.gmail.com:465 --ssl',
'options' => ' -k --anyauth',
'from' => 'user@example.com',
'userpass' => '',
'bcc' => '',
'wordwrap'=>998,
));
function MailSMTP($to, $subject='', $message='', $headers='') {
global $WorkDir, $SMTPMail, $Now, $FmtV;
static $x;
if(is_array($to) && isset($to['server'])) {
$x = $to;
return;
}
elseif(is_callable('SMTPMailOpt')) $x = SMTPMailOpt();
SDVA($x, $SMTPMail);
extract($x);
$to = preg_replace('/\\s+/', ' ', $to);
$to = preg_replace('/["!$]+/', '', $to);
$rcpt = "$to,$bcc";
if(preg_match('/^Cc: *(\\S.*)$/mi', $headers, $m)) $rcpt .= ",$m[1]";
if(preg_match('/^Bcc: *(\\S.*)$/mi', $headers, $m)) {
$rcpt .= ",$m[1]";
$headers = preg_replace("/^Bcc: .*$/mi", '', $headers);
$headers = str_replace("\r\n\r\n", "\r\n", $headers);
}
$mailto = array();
$tos = preg_split('/[,\\s]+/', $rcpt);
foreach($tos as $e) if($e) $mailto[$e] = " --mail-rcpt " . escapeshellarg($e);
$mailto = implode(' ', $mailto);
$subject = preg_replace('/\\s+/', ' ', $subject);
if(preg_match('/<(\\S+@\\S+)>/', $from, $m)) $mailfrom = $m[1];
else $mailfrom = $from;
$message = wordwrap($message, $SMTPMail['wordwrap'], "\r\n");
$headers = trim($headers);
if($headers) $headers .= "\r\n";
$date = date('r');
$mid = mt_rand(100000, 999999) . ".$Now.$mailfrom";
if(!preg_match('/^From:/m', $headers)) $headers .= "From: $from\r\n";
$headers .= "To: $to\r\n";
$headers .= "Subject: $subject\r\n";
$headers .= "Date: $date\r\n";
$headers .= "Message-ID: <$mid>\r\n";
$envelope = trim($headers) . "\r\n\r\n" . ltrim($message, "\r\n");
$envelope = str_replace("\r", "", $envelope);
$envelope = str_replace("\n", "\r\n", $envelope);
$temp = tempnam($WorkDir,"mail");
if ($fp = fopen($temp,"w")) {
fputs($fp,$envelope);
fclose($fp);
}
else {
// Abort("Cannot create temp file.");
return false;
}
if($userpass) $userpass = '-u '. escapeshellarg($userpass);
$command = "$curl $server -vv $userpass --mail-from \"$mailfrom\" $mailto -T $temp 2>&1 ";
ob_start();
passthru($command);
$FmtV['$CurlOutput'] = $ret = ob_get_clean();
@unlink($temp);
if(preg_match('/We are completely uploaded and fine/i', $ret)) return true;
return false;
}
# This helper function combines a multuipart message with plain text,
# wiki markup (converted to html), html, embedded pictures and attached files.
# It returns the combined message and an additional multipart/mixed header.
function MultipartMailSMTP($a, $pn=null) {
global $UploadExts;
$message = '';
global $pagename, $LinkFunctions, $LinkPattern, $IMap;
if(is_null($pn)) $pn = $pagename;
$LinkFunctions['cid:'] = 'LinkIMap';
$IMap['cid:']="cid:$1";
$LinkPattern .= "|cid:";
$boundary = "MULTIPART-MIXED-BOUNDARY";
foreach($a as $k=>$v) {
$j = 'text'; $content = $v; $fname = $cte = $cid = $ct = '';
if(preg_match('/^(cid|file|markup|html|content):(.*)$/s', $v, $m)) {
$j = $m[1]; $content = $m[2];
}
if($j=='content') { # array key is filename
$fname = $k;
}
elseif($j=='cid'||$j=='file') {
$fname = preg_replace('!^.*/!s', '', $m[2]);
$content = file_get_contents($m[2]);
}
elseif($j=='markup') {
$content = MarkupToHTML($pn, $content);
}
if($j=='text') {
$ct = 'text/plain; charset=utf-8';
}
elseif($j=='markup'||$j=='html') {
$ct = 'text/html; charset=utf-8';
$content = "
$content ";
}
else {
$ext = strtolower(preg_replace('!^.*\\.!', '', $fname));
if(isset($UploadExts[$ext])) $ct = $UploadExts[$ext];
else $ct = 'application/octet-stream';
}
if($fname) $ct .= "; name=\"$fname\"";
$message .= "--$boundary\n";
$message .= "Content-Type: $ct\n";
if($j=='cid') {
$message .= "Content-ID: <$fname>\n";
$message .= "X-Attachment-Id: $fname\n";
}
if($j=='cid'||$j=='markup'||$j=='text'||$j=='html') { #
$cd = 'inline';
}
else $cd = "attachment";
if($fname) $cd .= "; filename=\"$fname\"";
$message .= "Content-Disposition: $cd\n";
if($j!='text') {
$content = chunk_split(base64_encode($content));
$message .= "Content-Transfer-Encoding: base64\n";
}
$message .= "\n$content\n";
}
$header = "Content-Type: multipart/mixed; boundary=\"$boundary\"";
return [$message, $header];
}