From ff9ae75cd9e710ddbb37b70ff60777dffe44c9be Mon Sep 17 00:00:00 2001 From: kink Date: Thu, 17 Oct 2002 09:21:30 +0000 Subject: [PATCH] Obsolete smtp.php git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@3891 7612ce4b-ef26-0410-bec9-ea0150e637f0 --- functions/smtp.php | 1051 ---------------------------------- src/addrbook_search_html.php | 5 - 2 files changed, 1056 deletions(-) delete mode 100644 functions/smtp.php diff --git a/functions/smtp.php b/functions/smtp.php deleted file mode 100644 index 830b14ec..00000000 --- a/functions/smtp.php +++ /dev/null @@ -1,1051 +0,0 @@ -lookup($array[$i]); - $ret = ""; - if (isset($result['email'])) { - if (isset($result['name'])) { - $ret = '"'.$result['name'].'" '; - } - $ret .= '<'.$result['email'].'>'; - $array[$i] = $ret; - } - else - { - if (strpos($array[$i], '@') === false) { - $array[$i] .= '@' . $domain; - } - $array[$i] = '<' . $array[$i] . '>'; - } - } - return $array; -} - -/* looks up aliases in the addressbook and expands them to - * the RFC 821 valid RCPT address. ie - * Adds @$domain if it wasn't in the address book and if it - * doesn't have an @ symbol in it - */ -function expandRcptAddrs ($array) { - global $domain; - - /* don't show errors -- kinda critical that we don't see - * them here since the redirect won't work if we do show them - */ - $abook = addressbook_init(false, true); - for ($i=0; $i < count($array); $i++) { - $result = $abook->lookup($array[$i]); - $ret = ""; - if (isset($result['email'])) { - $ret = '<'.$result['email'].'>'; - $array[$i] = $ret; - } - else { - if (strpos($array[$i], '@') === false) { - $array[$i] .= '@' . $domain; - } - $array[$i] = '<' . $array[$i] . '>'; - } - } - return $array; -} - - -/* Attach the files that are due to be attached - */ -function attachFiles ($fp, $session, $rn="\r\n", $checkdot = false) { - global $attachments, $attachment_dir, $username, $languages, $squirrelmail_language; - - $length = 0; - - $hashed_attachment_dir = getHashedDir($username, $attachment_dir); - if (isMultipart($session)) { - foreach ($attachments as $info) { - if ($info['session'] == $session) { - if (isset($info['type'])) { - $filetype = $info['type']; - } - else { - $filetype = 'application/octet-stream'; - } - - $header = '--' . mimeBoundary() . "$rn"; - if ( isset($info['remotefilename']) - && $info['remotefilename'] != '') { - $remotefilename = $info['remotefilename']; - if (isset($languages[$squirrelmail_language]['XTRA_CODE']) && - function_exists($languages[$squirrelmail_language]['XTRA_CODE'])) { - $remotefilename = - $languages[$squirrelmail_language]['XTRA_CODE']('encode', $remotefilename); - } - $header .= "Content-Type: $filetype; name=\"" . - encodeHeader($remotefilename) . "\"$rn"; - $header .= "Content-Disposition: attachment; filename=\"" - . encodeHeader($remotefilename) . "\"$rn"; - } else { - $header .= "Content-Type: $filetype$rn"; - } - - - /* Use 'rb' for NT systems -- read binary - * Unix doesn't care -- everything's binary! :-) - */ - - $filename = $hashed_attachment_dir . '/' - . $info['localfilename']; - $file = fopen ($filename, 'rb'); - if (substr($filetype, 0, 5) == 'text/' || - substr($filetype, 0, 8) == 'message/' ) { - $header .= $rn; - if ($fp) { - fputs ($fp, $header); - } - $length += strlen($header); - - if ($checkdot) { - $checkdot_begin=true; - } else { - $checkdot_begin=false; - } - - while ($tmp = fgets($file, 4096)) { - $tmp = str_replace("\r\n", "\n", $tmp); - $tmp = str_replace("\r", "\n", $tmp); - if ($rn == "\r\n"){ - $tmp = str_replace("\n", "\r\n", $tmp); - } - if ($tmp{0} == '.' && $checkdot_begin) { - $tmp = '.' . $tmp; - } - if ($checkdot) { - $tmp = str_replace("\n.","\n..",$tmp); - } - - $tmp_length = strlen($tmp); - if ($tmp_length && $tmp{$tmp_length-1} == "\n" && $checkdot) { - $checkdot_begin = true; - } else { - $checkdot_begin = false; - } - - - if ($fp) { - fputs($fp, $tmp); - } - $length += $tmp_length; - } - if (substr($tmp, $tmp_length - strlen($rn), strlen($rn)) != $rn) { - if ($fp) { - fputs($fp, $rn); - } - $length += strlen($rn); - } - - - } else { - $header .= "Content-Transfer-Encoding: base64" - . "$rn" . "$rn"; - if ($fp) fputs ($fp, $header); - $length += strlen($header); - while ($tmp = fread($file, 570)) { - $encoded = chunk_split(base64_encode($tmp)); - $length += strlen($encoded); - if ($fp) fputs ($fp, $encoded); - } - } - fclose ($file); - } - } - } - return $length; -} - -/* Delete files that are uploaded for attaching - */ -function deleteAttachments($session) { - global $username, $attachments, $attachment_dir, $data_dir; - $hashed_attachment_dir = getHashedDir($username, $attachment_dir); - - $rem_attachments = array(); - foreach ($attachments as $info) { - if ($info['session'] == $session) { - $attached_file = "$hashed_attachment_dir/$info[localfilename]"; - if (file_exists($attached_file)) { - unlink($attached_file); - } - } else { - $rem_attachments[] = $info; - } - } - $attachments = $rem_attachments; - setPref($data_dir, $username, 'attachments', serialize($attachments)); -} - -/* Return a nice MIME-boundary - */ -function mimeBoundary () { - static $mimeBoundaryString; - - if ( !isset( $mimeBoundaryString ) || - $mimeBoundaryString == '') { - $mimeBoundaryString = '----=_' . date( 'YmdHis' ) . '_' . - mt_rand( 10000, 99999 ); - } - - return $mimeBoundaryString; -} - -/* Time offset for correct timezone */ -function timezone () { - global $invert_time; - - $diff_second = date('Z'); - if ($invert_time) { - $diff_second = - $diff_second; - } - if ($diff_second > 0) { - $sign = '+'; - } - else { - $sign = '-'; - } - - $diff_second = abs($diff_second); - - $diff_hour = floor ($diff_second / 3600); - $diff_minute = floor (($diff_second-3600*$diff_hour) / 60); - - $zonename = '('.strftime('%Z').')'; - $result = sprintf ("%s%02d%02d %s", $sign, $diff_hour, $diff_minute, - $zonename); - return ($result); -} - -/* Print all the needed RFC822 headers */ -function write822Header ($fp, $t, $c, $b, $subject, $body, $more_headers, $session, $rn="\r\n") { - global $data_dir, $username, $popuser, $domain, $version, $useSendmail, - $default_charset, $identity, $_SERVER; - - /* Storing the header to make sure the header is the same - * everytime the header is printed. - */ - - /* get those globals */ - $REMOTE_ADDR = $_SERVER['REMOTE_ADDR']; - $SERVER_NAME = $_SERVER['SERVER_NAME']; - $REMOTE_PORT = $_SERVER['REMOTE_PORT']; - - if(isset($_SERVER['REMOTE_HOST'])) { - $REMOTE_HOST = $_SERVER['REMOTE_HOST']; - } - if(isset($_SERVER['HTTP_VIA'])) { - $HTTP_VIA = $_SERVER['HTTP_VIA']; - } - if(isset($_SERVER['HTTP_X_FORWARDED_FOR'])) { - $HTTP_X_FORWARDED_FOR = $_SERVER['HTTP_X_FORWARDED_FOR']; - } - - static $header, $headerlength, $headerrn; - - if ($header == '') { - $headerrn = $rn; - $to = expandAddrs(parseAddrs($t)); - $cc = expandAddrs(parseAddrs($c)); - $bcc = expandAddrs(parseAddrs($b)); - if (isset($identity) && $identity != 'default') { - $reply_to = getPref($data_dir, $username, 'reply_to' . $identity); - $from = getPref($data_dir, $username, 'full_name' . $identity); - $from_addr = getFrom(); - } else { - $reply_to = getPref($data_dir, $username, 'reply_to'); - $from = getPref($data_dir, $username, 'full_name'); - $from_addr = getFrom(); - } - - $to_list = getLineOfAddrs($to); - $cc_list = getLineOfAddrs($cc); - $bcc_list = getLineOfAddrs($bcc); - - /* Encoding 8-bit characters and making from line */ - $subject = encodeHeader($subject); - if ($from == '') { - $from = "<$from_addr>"; - } - else { - $from = '"' . encodeHeader($from) . "\" <$from_addr>"; - } - - /* This creates an RFC 822 date */ - $date = date("D, j M Y H:i:s ", mktime()) . timezone(); - - /* Create a message-id */ - $message_id = '<' . $REMOTE_PORT . '.' . $REMOTE_ADDR . '.'; - $message_id .= time() . '.squirrel@' . $SERVER_NAME .'>'; - - /* Make an RFC822 Received: line */ - if (isset($REMOTE_HOST)) { - $received_from = "$REMOTE_HOST ([$REMOTE_ADDR])"; - } - else { - $received_from = $REMOTE_ADDR; - } - - if (isset($HTTP_VIA) || isset ($HTTP_X_FORWARDED_FOR)) { - if ($HTTP_X_FORWARDED_FOR == '') { - $HTTP_X_FORWARDED_FOR = 'unknown'; - } - $received_from .= " (proxying for $HTTP_X_FORWARDED_FOR)"; - } - - $header = "Received: from $received_from" . $rn; - $header .= " (SquirrelMail authenticated user $username)" . $rn; - $header .= " by $SERVER_NAME with HTTP;" . $rn; - $header .= " $date" . $rn; - - /* Insert the rest of the header fields */ - $header .= "Message-ID: $message_id" . $rn; - $header .= "Date: $date" . $rn; - $header .= "Subject: $subject" . $rn; - $header .= "From: $from" . $rn; - $header .= "To: $to_list" . $rn; // Who it's TO - - if (isset($more_headers["Content-Type"])) { - $contentType = $more_headers["Content-Type"]; - unset($more_headers["Content-Type"]); - } - else { - if (isMultipart($session)) { - $contentType = "multipart/mixed;"; - } - else { - if ($default_charset != '') { - $contentType = 'text/plain; charset='.$default_charset; - } - else { - $contentType = 'text/plain;'; - } - } - } - - /* Insert headers from the $more_headers array */ - if(is_array($more_headers)) { - reset($more_headers); - while(list($h_name, $h_val) = each($more_headers)) { - if ($h_name == 'References') { - $h_val = str_replace(' ', "$rn ", $h_val); - } - $header .= sprintf("%s: %s%s", $h_name, $h_val, $rn); - } - } - - if ($cc_list) { - $header .= "Cc: $cc_list" . $rn; // Who the CCs are - } - - if ($reply_to != '') { - $header .= "Reply-To: $reply_to" . $rn; - } - - if ($useSendmail) { - if ($bcc_list) { - // BCCs is removed from header by sendmail - $header .= "Bcc: $bcc_list" . $rn; - } - } - - /* Identify SquirrelMail */ - $header .= "X-Mailer: SquirrelMail (version $version)" . $rn; - - /* Do the MIME-stuff */ - $header .= "MIME-Version: 1.0" . $rn; - - if (isMultipart($session)) { - $header .= 'Content-Type: '.$contentType.' boundary="'; - $header .= mimeBoundary(); - $header .= "\"$rn"; - } else { - if (strtolower($default_charset) == 'iso-2022-jp') { - if (mb_detect_encoding($body) == 'ASCII') { - $header .= 'Content-Type: text/plain; US-ASCII' . $rn; - $header .= "Content-Transfer-Encoding: 8bit" . $rn; - } else { - $header .= 'Content-Type: '.$contentType . $rn; - $header .= "Content-Transfer-Encoding: 7bit" . $rn; - } - } else { - $header .= 'Content-Type: ' . $contentType . $rn; - $header .= "Content-Transfer-Encoding: 8bit" . $rn; - } - } - $header .= $rn; // One blank line to separate header and body - - $headerlength = strlen($header); - } - - if ($headerrn != $rn) { - $header = str_replace($headerrn, $rn, $header); - $headerlength = strlen($header); - $headerrn = $rn; - } - - /* Write the header */ - if ($fp) fputs ($fp, $header); - - return $headerlength; -} - -/* Send the body - */ -function writeBody ($fp, $passedBody, $session, $rn="\r\n", $checkdot = false) { - global $default_charset; - - $attachmentlength = 0; - - if (isMultipart($session)) { - $body = '--'.mimeBoundary() . $rn; - - if ($default_charset != "") { - $body .= "Content-Type: text/plain; charset=$default_charset".$rn; - } - else { - $body .= "Content-Type: text/plain" . $rn; - } - - if (strtolower($default_charset) == 'iso-2022-jp') { - if (mb_detect_encoding($passedBody) == 'ASCII') { - $body .= "Content-Transfer-Encoding: 8bit" . $rn . $rn . - $passedBody . $rn . $rn; - } else { - $body .= "Content-Transfer-Encoding: 7bit\r\n\r\n" . - mb_convert_encoding($passedBody, 'JIS') . "\r\n\r\n"; - } - } else { - $body .= "Content-Transfer-Encoding: 8bit" . $rn . $rn . - $passedBody . $rn . $rn; - } - if ($fp) { - fputs ($fp, $body); - } - - $attachmentlength = attachFiles($fp, $session, $rn, $checkdot); - - if (!isset($postbody)) { - $postbody = ""; - } - $postbody .= $rn . "--" . mimeBoundary() . "--" . $rn . $rn; - if ($fp) fputs ($fp, $postbody); - } else { - if (strtolower($default_charset) == 'iso-2022-jp') { - $body = mb_convert_encoding($passedBody, 'JIS') . $rn; - } else { - $body = $passedBody . $rn; - } - if ($fp) { - fputs ($fp, $body); - } - $postbody = $rn; - if ($fp) { - fputs ($fp, $postbody); - } - } - - return (strlen($body) + strlen($postbody) + $attachmentlength); -} - - -/* Send mail using the sendmail command - */ -function sendSendmail($t, $c, $b, $subject, $body, $more_headers, $session) { - global $sendmail_path, $popuser, $username, $domain; - - /* Build envelope sender address. Make sure it doesn't contain - * spaces or other "weird" chars that would allow a user to - * exploit the shell/pipe it is used in. - */ - $envelopefrom = getFrom(); - $envelopefrom = ereg_replace("[[:blank:]]",'', $envelopefrom); - $envelopefrom = ereg_replace("[[:space:]]",'', $envelopefrom); - $envelopefrom = ereg_replace("[[:cntrl:]]",'', $envelopefrom); - - /** - * open pipe to sendmail or qmail-inject - * (qmail-inject doesn't accept -t param) - */ - if (strstr($sendmail_path, "qmail-inject")) { - $fp = popen (escapeshellcmd("$sendmail_path -f$envelopefrom"), "w"); - } else { - $fp = popen (escapeshellcmd("$sendmail_path -t -f$envelopefrom"), "w"); - } - - $headerlength = write822Header ($fp, $t, $c, $b, $subject, $body, - $more_headers, $session, "\n"); - $bodylength = writeBody($fp, $body, $session, "\n", true); - - pclose($fp); - - return ($headerlength + $bodylength); -} - -function smtpReadData($smtpConnection) { - $read = fgets($smtpConnection, 1024); - $counter = 0; - while ($read) { - echo $read . '
'; - $data[$counter] = $read; - $read = fgets($smtpConnection, 1024); - $counter++; - } -} - -function sendSMTP($t, $c, $b, $subject, $body, $more_headers, $session) { - global $username, $popuser, $domain, $version, $smtpServerAddress, - $smtpPort, $data_dir, $color, $use_authenticated_smtp, $identity, - $key, $onetimepad; - - $to = expandRcptAddrs(parseAddrs($t)); - $cc = expandRcptAddrs(parseAddrs($c)); - $bcc = expandRcptAddrs(parseAddrs($b)); - if (isset($identity) && $identity != 'default') { - $from_addr = getPref($data_dir, $username, - 'email_address' . $identity); - } - else { - $from_addr = getPref($data_dir, $username, 'email_address'); - } - - if (!$from_addr) { - $from_addr = "$popuser@$domain"; - } - - /* POP3 BEFORE SMTP CODE HERE */ - global $pop_before_smtp; - if (isset($pop_before_smtp) && $pop_before_smtp === true) { - if (!isset($pop_port)) { - $pop_port = 110; - } - if (!isset($pop_server)) { - $pop_server = $smtpServerAddress; /* usually the same host! */ - } - $popConnection = fsockopen($pop_server, $pop_port, $err_no, $err_str); - if (!$popConnection) { - error_log("Error connecting to POP Server ($pop_server:$pop_port)" - . " $err_no : $err_str"); - } else { - $tmp = fgets($popConnection, 1024); /* banner */ - if (!eregi("^\+OK", $tmp, $regs)) { - return(0); - } - fputs($popConnection, "USER $username\r\n"); - $tmp = fgets($popConnection, 1024); - if (!eregi("^\+OK", $tmp, $regs)) { - return(0); - } - fputs($popConnection, 'PASS ' . OneTimePadDecrypt($key, $onetimepad) . "\r\n"); - $tmp = fgets($popConnection, 1024); - if (!eregi("^\+OK", $tmp, $regs)) { - return(0); - } - fputs($popConnection, "QUIT\r\n"); /* log off */ - fclose($popConnection); - } - } - - $smtpConnection = fsockopen($smtpServerAddress, $smtpPort, - $errorNumber, $errorString); - if (!$smtpConnection) { - echo 'Error connecting to SMTP Server.
'; - echo "$errorNumber : $errorString
"; - exit; - } - $tmp = fgets($smtpConnection, 1024); - if (errorCheck($tmp, $smtpConnection)!=5) { - return(0); - } - - $to_list = getLineOfAddrs($to); - $cc_list = getLineOfAddrs($cc); - - /* Lets introduce ourselves */ - if (! isset ($use_authenticated_smtp) - || $use_authenticated_smtp == false) { - fputs($smtpConnection, "HELO $domain\r\n"); - $tmp = fgets($smtpConnection, 1024); - if (errorCheck($tmp, $smtpConnection)!=5) return(0); - } else { - fputs($smtpConnection, "EHLO $domain\r\n"); - $tmp = fgets($smtpConnection, 1024); - if (errorCheck($tmp, $smtpConnection)!=5) return(0); - - fputs($smtpConnection, "AUTH LOGIN\r\n"); - $tmp = fgets($smtpConnection, 1024); - if (errorCheck($tmp, $smtpConnection)!=5) { - return(0); - } - - fputs($smtpConnection, base64_encode ($username) . "\r\n"); - $tmp = fgets($smtpConnection, 1024); - if (errorCheck($tmp, $smtpConnection)!=5) { - return(0); - } - - fputs($smtpConnection, base64_encode - (OneTimePadDecrypt($key, $onetimepad)) . "\r\n"); - $tmp = fgets($smtpConnection, 1024); - if (errorCheck($tmp, $smtpConnection)!=5) { - return(0); - } - } - - /* Ok, who is sending the message? */ - fputs($smtpConnection, "MAIL FROM: <$from_addr>\r\n"); - $tmp = fgets($smtpConnection, 1024); - if (errorCheck($tmp, $smtpConnection)!=5) { - return(0); - } - - /* send who the recipients are */ - for ($i = 0; $i < count($to); $i++) { - fputs($smtpConnection, "RCPT TO: $to[$i]\r\n"); - $tmp = fgets($smtpConnection, 1024); - if (errorCheck($tmp, $smtpConnection)!=5) { - return(0); - } - } - for ($i = 0; $i < count($cc); $i++) { - fputs($smtpConnection, "RCPT TO: $cc[$i]\r\n"); - $tmp = fgets($smtpConnection, 1024); - if (errorCheck($tmp, $smtpConnection)!=5) { - return(0); - } - } - for ($i = 0; $i < count($bcc); $i++) { - fputs($smtpConnection, "RCPT TO: $bcc[$i]\r\n"); - $tmp = fgets($smtpConnection, 1024); - if (errorCheck($tmp, $smtpConnection)!=5) { - return(0); - } - } - - /* Lets start sending the actual message */ - fputs($smtpConnection, "DATA\r\n"); - $tmp = fgets($smtpConnection, 1024); - if (errorCheck($tmp, $smtpConnection)!=5) { - return(0); - } - - /* Send the message */ - $headerlength = write822Header ($smtpConnection, $t, $c, $b, - $subject, $body, $more_headers, $session); - $bodylength = writeBody($smtpConnection, $body, $session,"\r\n", true); - - fputs($smtpConnection, ".\r\n"); /* end the DATA part */ - $tmp = fgets($smtpConnection, 1024); - $num = errorCheck($tmp, $smtpConnection, true); - if ($num != 250) { - return(0); - } - - fputs($smtpConnection, "QUIT\r\n"); /* log off */ - - fclose($smtpConnection); - - return ($headerlength + $bodylength); -} - - -function errorCheck($line, $smtpConnection, $verbose = false) { - global $color, $compose_new_win; - - /* Read new lines on a multiline response */ - $lines = $line; - while(ereg("^[0-9]+-", $line)) { - $line = fgets($smtpConnection, 1024); - $lines .= $line; - } - - /* Status: 0 = fatal - * 5 = ok - */ - $err_num = substr($line, 0, strpos($line, " ")); - switch ($err_num) { - case 500: $message = 'Syntax error; command not recognized'; - $status = 0; - break; - case 501: $message = 'Syntax error in parameters or arguments'; - $status = 0; - break; - case 502: $message = 'Command not implemented'; - $status = 0; - break; - case 503: $message = 'Bad sequence of commands'; - $status = 0; - break; - case 504: $message = 'Command parameter not implemented'; - $status = 0; - break; - - case 211: $message = 'System status, or system help reply'; - $status = 5; - break; - case 214: $message = 'Help message'; - $status = 5; - break; - - case 220: $message = 'Service ready'; - $status = 5; - break; - case 221: $message = 'Service closing transmission channel'; - $status = 5; - break; - - case 421: $message = 'Service not available, closing chanel'; - $status = 0; - break; - - case 235: return(5); - break; - case 250: $message = 'Requested mail action okay, completed'; - $status = 5; - break; - case 251: $message = 'User not local; will forward'; - $status = 5; - break; - case 334: return(5); break; - case 450: $message = 'Requested mail action not taken: mailbox unavailable'; - $status = 0; - break; - case 550: $message = 'Requested action not taken: mailbox unavailable'; - $status = 0; - break; - case 451: $message = 'Requested action aborted: error in processing'; - $status = 0; - break; - case 551: $message = 'User not local; please try forwarding'; - $status = 0; - break; - case 452: $message = 'Requested action not taken: insufficient system storage'; - $status = 0; - break; - case 552: $message = 'Requested mail action aborted: exceeding storage allocation'; - $status = 0; - break; - case 553: $message = 'Requested action not taken: mailbox name not allowed'; - $status = 0; - break; - case 354: $message = 'Start mail input; end with .'; - $status = 5; - break; - case 554: $message = 'Transaction failed'; - $status = 0; - break; - default: $message = 'Unknown response: '. nl2br(htmlspecialchars($lines)); - $status = 0; - $error_num = '001'; - break; - } - - if ($status == 0) { - include_once(SM_PATH . 'functions/page_header.php'); - if ($compose_new_win == '1') { - compose_Header($color, 'None'); - } - else { - displayPageHeader($color, 'None'); - } - include_once(SM_PATH . 'functions/display_messages.php'); - $lines = nl2br(htmlspecialchars($lines)); - $msg = $message . "
\nServer replied: $lines"; - plain_error_message($msg, $color); - } - if (! $verbose) return $status; - return $err_num; -} - -/* create new reference header per rfc2822 */ - -function calculate_references($refs, $inreplyto, $old_reply_to) { - - $refer = ""; - for ($i=1;$i') { - $refer .= $ref . ' '; - } - } - $refer = trim($refer); - if (strlen($refer) > 2) { - $refer .= ' ' . $inreplyto; - } - else { - if (!empty($old_reply_to)) { - $refer .= $old_reply_to . ' ' . $inreplyto; - } - else { - $refer .= $inreplyto; - } - } - trim($refer); - return $refer; -} - -function sendMessage($t, $c, $b, $subject, $body, $reply_id, $MDN, - $prio = 3, $session) { - global $useSendmail, $msg_id, $is_reply, $mailbox, $onetimepad, - $data_dir, $username, $domain, $key, $version, $sent_folder, - $imapServerAddress, $imapPort, $default_use_priority, $more_headers, - $request_mdn, $request_dr, $uid_support; - - $more_headers = Array(); - - do_hook('smtp_send'); - - $imap_stream = sqimap_login($username, $key, $imapServerAddress, - $imapPort, 1); - - if (isset($reply_id) && $reply_id) { - sqimap_mailbox_select ($imap_stream, $mailbox); - sqimap_messages_flag ($imap_stream, $reply_id, $reply_id, 'Answered', true); - - /* Insert In-Reply-To and References headers if the - * message-id of the message we reply to is set (longer than "<>") - * The References header should really be the old Referenced header - * with the message ID appended, and now it is (jmunro) - */ - $sid = sqimap_session_id($uid_support); - $query = "$sid FETCH $reply_id (BODY.PEEK[HEADER.FIELDS (Message-Id In-Reply-To)])\r\n"; - fputs ($imap_stream, $query); - $read = sqimap_read_data($imap_stream, $sid, true, $response, $message); - $message_id = ''; - $in_reply_to = ''; - - foreach ($read as $r) { - if (preg_match("/^message-id:(.*)/iA", $r, $regs)) { - $message_id = trim($regs[1]); - } - if (preg_match("/^in-reply-to:(.*)/iA", $r, $regs)) { - $in_reply_to = trim($regs[1]); - } - } - - if(strlen($message_id) > 2) { - $refs = get_reference_header ($imap_stream, $reply_id); - $inreplyto = $message_id; - $old_reply_to = $in_reply_to; - $refer = calculate_references ($refs, $inreplyto, $old_reply_to); - $more_headers['In-Reply-To'] = $inreplyto; - $more_headers['References'] = $refer; - } - - } - if ($default_use_priority) { - $more_headers = array_merge($more_headers, createPriorityHeaders($prio)); - } - - $requestRecipt = 0; - if (isset($request_dr)) { - $requestRecipt += 1; - } - if (isset($request_mdn)) { - $requestRecipt += 2; - } - if ( $requestRecipt > 0) { - $more_headers = array_merge($more_headers, createReceiptHeaders($requestRecipt)); - } - if ($MDN) { - $more_headers["Content-Type"] = "multipart/report; ". - "report-type=disposition-notification;"; - } - $imap_body = $body; - if ($useSendmail) { - /* In order to remove the problem of users not able to create - * messages with "." on a blank line, RFC821 has made provision - * in section 4.5.2 (Transparency). - */ - if (($body && $body{0} == '.')) { - $body = '.' . $body; - } - $body = str_replace("\n.","\n..",$body); - $length = sendSendmail($t, $c, $b, $subject, $body, $more_headers, - $session); - } else { - /* In order to remove the problem of users not able to create - * messages with "." on a blank line, RFC821 has made provision - * in section 4.5.2 (Transparency). - */ - if (($body && $body{0} == '.')) { - $body = '.' . $body; - } - $body = str_replace("\n.","\n..",$body); - $length = sendSMTP($t, $c, $b, $subject, $body, $more_headers, - $session); - } - if (sqimap_mailbox_exists ($imap_stream, $sent_folder)) { - $body = $imap_body; - $body = ereg_replace("\n", "\r\n", $body); - $headerlength = write822Header (false, $t, $c, $b, $subject, $body, $more_headers, $session, "\r\n"); - $bodylength = writeBody(false, $body, $session, "\r\n"); - $length = $headerlength + $bodylength; - sqimap_append ($imap_stream, $sent_folder, $length); - write822Header ($imap_stream, $t, $c, $b, $subject, $body, $more_headers, - $session); - writeBody ($imap_stream, $body, $session); - sqimap_append_done ($imap_stream); - } - sqimap_logout($imap_stream); - /* Delete the files uploaded for attaching (if any). - * only if $length != 0 (if there was no error) - */ - if ($length) { - ClearAttachments($session); - } - return $length; -} - -function createPriorityHeaders($prio) { - $prio_headers = Array(); - $prio_headers['X-Priority'] = $prio; - - switch($prio) { - case 1: - $prio_headers['Importance'] = 'High'; - break; - - case 3: - $prio_headers['Importance'] = 'Normal'; - break; - - case 5: - $prio_headers['Importance'] = 'Low'; - break; - } - return $prio_headers; -} - -function createReceiptHeaders($receipt) { - - GLOBAL $data_dir, $username, $identity, $popuser, $domain; - - $receipt_headers = Array(); - if (isset($identity) && $identity != 'default') { - $from = getPref($data_dir, $username, 'full_name' . $identity); - $from_addr = getPref($data_dir, $username, 'email_address' . $identity); - } else { - $from = getPref($data_dir, $username, 'full_name'); - $from_addr = getPref($data_dir, $username, 'email_address'); - } - if ($from_addr == '') { - $from_addr = $popuser.'@'.$domain; - } - - if ($from == '') { - $from = "<$from_addr>"; - } - else { - $from = '"' . encodeHeader($from) . "\" <$from_addr>"; - } - - /* On Delivery */ - if ( $receipt == 1 - || $receipt == 3 ) { - $receipt_headers["Return-Receipt-To"] = $from; - } - /* On Read */ - if ($receipt == 2 - || $receipt == 3 ) { - /* Pegasus Mail */ - $receipt_headers["X-Confirm-Reading-To"] = $from; - /* RFC 2298 */ - $receipt_headers["Disposition-Notification-To"] = $from; - } - return $receipt_headers; -} - -/* Figure out what the 'From:' address is - */ - -function getFrom() { - global $username, $popuser, $domain, $data_dir, $identity; - if (isset($identity) && $identity != 'default') { - $from_addr = getPref($data_dir, $username, - 'email_address' . $identity); - } - else { - $from_addr = getPref($data_dir, $username, 'email_address'); - } - - if (!$from_addr) { - $from_addr = "$popuser@$domain"; - } - return $from_addr; -} - - -?> diff --git a/src/addrbook_search_html.php b/src/addrbook_search_html.php index f6c28fe7..2865b9a9 100644 --- a/src/addrbook_search_html.php +++ b/src/addrbook_search_html.php @@ -10,10 +10,6 @@ * * This file is included from compose.php * - * NOTE: A lot of this code is similar to the code in - * addrbook_search.html -- If you change one, change - * the other one too! - * * $Id$ */ @@ -23,7 +19,6 @@ define('SM_PATH','../'); /* SquirrelMail required files. */ require_once(SM_PATH . 'include/validate.php'); require_once(SM_PATH . 'functions/date.php'); -require_once(SM_PATH . 'functions/smtp.php'); require_once(SM_PATH . 'functions/display_messages.php'); require_once(SM_PATH . 'functions/addressbook.php'); require_once(SM_PATH . 'functions/plugin.php'); -- 2.25.1