X-Git-Url: https://vcs.fsf.org/?p=squirrelmail.git;a=blobdiff_plain;f=src%2Fcompose.php;h=a1f835f89193c54eaff5f5b41a4e37112c105627;hp=aa3f5f7e3575c8a822b0b6152a60d897fff01ad0;hb=44560457acda5cecc204f7b1f9bf90f88b69d274;hpb=e0858036ddb30d2abad7c775ec48e3442bbc6769 diff --git a/src/compose.php b/src/compose.php index aa3f5f7e..a1f835f8 100644 --- a/src/compose.php +++ b/src/compose.php @@ -22,44 +22,122 @@ require_once('../functions/imap.php'); require_once('../functions/date.php'); require_once('../functions/mime.php'); require_once('../functions/smtp.php'); -require_once('../functions/display_messages.php'); require_once('../functions/plugin.php'); - +require_once('../functions/display_messages.php'); /* --------------------- Specific Functions ------------------------------ */ +function replyAllString($header) { + global $include_self_reply_all, $username, $data_dir; + $excl_arr = array(); + /** + * 1) Remove the addresses we'll be sending the message 'to' + */ + $url_replytoall_avoid_addrs = ''; + if (isset($header->replyto)) { + $excl_ar = $header->getAddr_a('replyto'); + } + /** + * 2) Remove our identities from the CC list (they still can be in the + * TO list) only if $include_self_reply_all is turned off + */ + if (!$include_self_reply_all) { + $email_address = trim(getPref($data_dir, $username, 'email_address')); + $excl_ar[$email_address] = ''; + + $idents = getPref($data_dir, $username, 'identities'); + if ($idents != '' && $idents > 1) { + for ($i = 1; $i < $idents; $i ++) { + $cur_email_address = getPref($data_dir, $username, + 'email_address' . $i); + $cur_email_address = strtolower($cur_email_address); + $excl_ar[$cur_email_address] = ''; + } + } + } + + /** + * 3) get the addresses. + */ + $url_replytoall_ar = $header->getAddr_a(array('to','cc'), $excl_ar); + + /** + * 4) generate the string. + */ + $url_replytoallcc = ''; + foreach( $url_replytoall_ar as $email => $personal) { + if ($personal) { + $url_replytoallcc .= ", \"$personal\" <$email>"; + } else { + $url_replytoallcc .= ', '. $email; + } + } + $url_replytoallcc = substr($url_replytoallcc,2); + return $url_replytoallcc; +} - -/** - * Does the opposite of sqWordWrap() - */ -function sqUnWordWrap(&$body) { - $lines = explode("\n", $body); - $body = ''; - $PreviousSpaces = ''; - for ($i = 0; $i < count($lines); $i ++) { - ereg("^([\t >]*)([^\t >].*)?$", $lines[$i], $regs); - $CurrentSpaces = $regs[1]; - if (isset($regs[2])) { - $CurrentRest = $regs[2]; - } - - if ($i == 0) { - $PreviousSpaces = $CurrentSpaces; - $body = $lines[$i]; - } else if (($PreviousSpaces == $CurrentSpaces) /* Do the beginnings match */ - && (strlen($lines[$i - 1]) > 65) /* Over 65 characters long */ - && strlen($CurrentRest)) { /* and there's a line to continue with */ - $body .= ' ' . $CurrentRest; - } else { - $body .= "\n" . $lines[$i]; - $PreviousSpaces = $CurrentSpaces; +function getforwardHeader($orig_header) { + $bodyTop = '-------- ' . _("Original Message") . " --------\n" . + _("Subject") . ': ' . $orig_header->subject . "\n" . + _("From") . ': ' . $orig_header->from->getAddress() . "\n" . + _("Date") . ': ' . + getLongDateString( $orig_header->date ). "\n" . + _("To") . ': ' . $orig_header->to[0]->getAddress() . "\n"; + if (count($orig_header->to) > 1) { + for ($x=1; $x < count($orig_header->to); $x++) { + $bodyTop .= ' ' . $orig_header->to[$x]->getAddress() . "\n"; + } + } + if ($orig_header->cc != array() && $orig_header->cc !='') { + $bodyTop .= _("Cc") . ': ' . $orig_header->cc[0]->getAddress() . "\n"; + if (count($orig_header->cc) > 1) { + for ($x = 1; $x < count($orig_header->cc); $x++) { + $bodyTop .= ' ' . $orig_header->cc[$x]->getAddress() . "\n"; } - } - $body .= "\n"; + } + } + $bodyTop .= "\n"; + return $bodyTop; } - /* ----------------------------------------------------------------------- */ +/* + * If the session is expired during a post this restores the compose session + * vars. + */ +//$session_expired = false; +if (session_is_registered('session_expired_post')) { + global $session_expired_post, $session_expired; + /* + * extra check for username so we don't display previous post data from + * another user during this session. + */ + if ($session_expired_post['username'] != $username) { + session_unregister('session_expired_post'); + session_unregister('session_expired'); + } else { + foreach ($session_expired_post as $postvar => $val) { + if (isset($val)) { + $$postvar = $val; + } else { + $$postvar = ''; + } + } + if (isset($send)) { + unset($send); + } + $session_expired = true; + } + session_unregister('session_expired_post'); + session_unregister('session_expired'); + if ($compose_new_win == '1') { + compose_Header($color, $mailbox); + } else { + displayPageHeader($color, $mailbox); + } + showInputForm($session, false); + exit(); +} + if (!isset($attachments)) { $attachments = array(); session_register('attachments'); @@ -70,10 +148,10 @@ if (!isset($composesession)) { session_register('composesession'); } -if (!isset($session)) { +if (!isset($session) || (isset($newmessage) && $newmessage)) { $session = "$composesession" +1; $composesession = $session; -} +} if (!isset($mailbox) || $mailbox == '' || ($mailbox == 'None')) { $mailbox = 'INBOX'; @@ -108,7 +186,7 @@ if (isset($draft)) { } else { Header("Location: right_main.php?mailbox=$draft_folder&sort=$sort". - "&startMessage=1¬e=$draft_message"); + "&startMessage=1¬e=".urlencode($draft_message)); exit(); } } @@ -179,7 +257,7 @@ if (isset($send)) { exit(); } if ($compose_new_win == '1') { - Header("Location: compose.php?mail_sent=yes&session=$composesession"); + Header("Location: compose.php?mail_sent=yes"); } else { Header("Location: right_main.php?mailbox=$urlMailbox&sort=$sort". @@ -200,7 +278,6 @@ if (isset($send)) { plain_error_message(_("Could not move/copy file. File not attached"), $color); } - checkInput(true); showInputForm($session); /* sqimap_logout($imapConnection); */ @@ -303,220 +380,266 @@ elseif (isset($sigappend)) { /* * This handles the case if we attache message */ - $imapConnection = sqimap_login($username, $key, $imapServerAddress, - $imapPort, 0); - if ($compose_new_win == '1') { - compose_Header($color, $mailbox); - } - else { - displayPageHeader($color, $mailbox); - } + if ($compose_new_win == '1') { + compose_Header($color, $mailbox); + } else { + displayPageHeader($color, $mailbox); + } $newmail = true; - newMail(); - showInputForm($session); - sqimap_logout($imapConnection); + if (!isset($passed_ent_id)) $passed_ent_id = ''; + if (!isset($passed_id)) $passed_id = ''; + if (!isset($mailbox)) $mailbox = ''; + if (!isset($action)) $action = ''; + $values = newMail($mailbox,$passed_id,$passed_ent_id, $action, $session); + /* in case the origin is not read_body.php */ + if (isset($send_to)) { + $values['send_to'] = $send_to; + } + if (isset($send_to_cc)) { + $values['send_to_cc'] = $send_cc; + } + if (isset($send_to_bcc)) { + $values['send_to_bcc'] = $send_bcc; + } + + showInputForm($session, $values); } else { /* * This handles the default case as well as the error case * (they had the same code) --> if (isset($smtpErrors)) */ - $imapConnection = sqimap_login($username, $key, $imapServerAddress, - $imapPort, 0); - if ($compose_new_win == '1') { - compose_Header($color, $mailbox); - } - else { - displayPageHeader($color, $mailbox); - } + + if ($compose_new_win == '1') { + compose_Header($color, $mailbox); + } else { + displayPageHeader($color, $mailbox); + } $newmail = true; - ClearAttachments($session); + if (!isset($passed_ent_id)) $passed_ent_id = ''; + if (!isset($passed_id)) $passed_id = ''; + if (!isset($mailbox)) $mailbox = ''; + if (!isset($action)) $action = ''; + + $values = newMail($mailbox,$passed_id,$passed_ent_id, $action, $session); - if (isset($forward_id) && $forward_id && isset($ent_num) && $ent_num) { - getAttachments(0, $session); + /* in case the origin is not read_body.php */ + if (isset($send_to)) { + $values['send_to'] = $send_to; } - - if (isset($draft_id) && $draft_id && isset($ent_num) && $ent_num) { - getAttachments(0, $session); + if (isset($send_to_cc)) { + $values['send_to_cc'] = $send_to_cc; } - - newMail($session); - showInputForm($session); - sqimap_logout($imapConnection); + if (isset($send_to_bcc)) { + $values['send_to_bcc'] = $send_to_bcc; + } + showInputForm($session, $values); } exit(); - /**************** Only function definitions go below *************/ /* This function is used when not sending or adding attachments */ -function newMail () { - global $forward_id, $imapConnection, $msg, $ent_num, $body_ary, $body, - $reply_id, $send_to, $send_to_cc, $mailbox, $send_to_bcc, $editor_size, - $draft_id, $use_signature, $composesession, $forward_cc; - - $send_to = decodeHeader($send_to, false); - $send_to_cc = decodeHeader($send_to_cc, false); - $send_to_bcc = decodeHeader($send_to_bcc, false); - $send_to = str_replace('<', '<', str_replace('>', '>', str_replace('&', '&', str_replace('"', '"', $send_to)))); - $send_to_cc = str_replace('<', '<', str_replace('>', '>', str_replace('&', '&', str_replace('"', '"', $send_to_cc)))); - $send_to_bcc = str_replace('<', '<', str_replace('>', '>', str_replace('&', '&', str_replace('"', '"', $send_to_bcc)))); +function newMail ($mailbox='', $passed_id='', $passed_ent_id='', $action='', $session='') { + global $editor_size, $default_use_priority, + $use_signature, $composesession, $data_dir, $username, + $username, $key, $imapServerAddress, $imapPort; - if ($forward_id) { - $id = $forward_id; - } elseif ($reply_id) { - $id = $reply_id; - } + $send_to = $send_to_cc = $send_to_bcc = $subject = $body = $identity = ''; + $mailprio = 3; - if ($draft_id){ - $id = $draft_id; - $use_signature = FALSE; - } - - if (isset($id)) { + if ($passed_id) { + $imapConnection = sqimap_login($username, $key, $imapServerAddress, + $imapPort, 0); + sqimap_mailbox_select($imapConnection, $mailbox); - $message = sqimap_get_message($imapConnection, $id, $mailbox); - $orig_header = $message->header; - if ($ent_num) { - $message = getEntity($message, $ent_num); - } - if ($message->header->type0 == 'text' || - $message->header->type1 == 'message') { - if ($ent_num) { - $body = decodeBody( - mime_fetch_body($imapConnection, $id, $ent_num), - $message->header->encoding); - } else { - $body = decodeBody( - mime_fetch_body($imapConnection, $id, 1), - $message->header->encoding); - } + $message = sqimap_get_message($imapConnection, $passed_id, $mailbox); + $body = ''; + if ($passed_ent_id) { + /* redefine the messsage in case of message/rfc822 */ + $message = $message->getEntity($passed_ent_id); + /* message is an entity which contains the envelope and type0=message + * and type1=rfc822. The actual entities are childs from + * $message->entities[0]. That's where the encoding and is located + */ + + $entities = $message->entities[0]->findDisplayEntity + (array(), $alt_order = array('text/plain')); + if (!count($entities)) { + $entities = $message->entities[0]->findDisplayEntity + (array(), $alt_order = array('text/plain','html/plain')); + } + $orig_header = $message->header; /* here is the envelope located */ + /* redefine the message for picking up the attachments */ + $message = $message->entities[0]; + + } else { + $entities = $message->findDisplayEntity (array(), $alt_order = array('text/plain')); + if (!count($entities)) { + $entities = $message->findDisplayEntity (array(), $alt_order = array('text/plain','html/plain')); + } + $orig_header = $message->header; + } + $encoding = $message->header->encoding; + $type0 = $message->type0; + $type1 = $message->type1; + + foreach ($entities as $ent) { + $bodypart = decodeBody( + mime_fetch_body($imapConnection, $passed_id, $ent), + $encoding); + if ($type1 == 'html') { + $bodypart = strip_tags($bodypart); + } + $body .= $bodypart; + } + if ($default_use_priority) { + $mailprio = substr($orig_header->priority,0,1); + } else { + $mailprio = ''; + } + ClearAttachments($session); + + $identity = ''; + $idents = getPref($data_dir, $username, 'identities'); + $from_o = $message->header->from; + if (is_object($from_o)) { + $orig_from = $from_o->getAddress(); } else { - $body = ''; + $orig_from = ''; + } + if (!empty($idents) && $idents > 1) { + for ($i = 1; $i < $idents; $i++) { + $enc_from_name = '"'. + getPref($data_dir, + $username, + 'full_name' . $i) . + '" <' . getPref($data_dir, $username, + 'email_address' . $i) . '>'; + if ($enc_from_name == $orig_from) { + $identity = $i; + break; + } + } } - - if ($message->header->type1 == 'html') { - $body = strip_tags($body); - } - - sqUnWordWrap($body); - $body_ary = explode("\n", $body); - $i = count($body_ary) - 1; - while ($i >= 0 && ereg("^[>\\s]*$", $body_ary[$i])) { - unset($body_ary[$i]); - $i --; - } - $body = ''; - for ($i=0; isset($body_ary[$i]); $i++) { - if ($reply_id) { - if (ereg('^[ >]+', $body_ary[$i])) { - $body_ary[$i] = '>' . $body_ary[$i]; + + switch ($action) { + case ('draft'): + $use_signature = FALSE; + $send_to = $orig_header->getAddr_s('to'); + $send_to_cc = $orig_header->getAddr_s('cc'); + $send_to_bcc = $orig_header->getAddr_s('bcc'); + $subject = $orig_header->subject; + + $body_ary = explode("\n", $body); + $cnt = count($body_ary) ; + $body = ''; + for ($i=0; $i < $cnt; $i++) { + if (!ereg("^[>\\s]*$", $body_ary[$i])) { + sqWordWrap($body_ary[$i], $editor_size ); + $body .= $body_ary[$i] . "\n"; + } + unset($body_ary[$i]); + } + sqUnWordWrap($body); + getAttachments($message, $session, $passed_id, $entities, $imapConnection); + break; + case ('edit_as_new'): + $send_to = $orig_header->getAddr_s('to'); + $send_to_cc = $orig_header->getAddr_s('cc'); + $send_to_bcc = $orig_header->getAddr_s('bcc'); + $subject = $orig_header->subject; + $mailprio = $orig_header->priority; + $orig_from = ''; + getAttachments($message, $session, $passed_id, $entities, $imapConnection); + sqUnWordWrap($body); + break; + case ('forward'): + $send_to = ''; + $subject = $orig_header->subject; + if ((substr(strtolower($subject), 0, 4) != 'fwd:') && + (substr(strtolower($subject), 0, 5) != '[fwd:') && + (substr(strtolower($subject), 0, 6) != '[ fwd:')) { + $subject = '[Fwd: ' . $subject . ']'; + } + $body = getforwardHeader($orig_header) . $body; + sqUnWordWrap($body); + getAttachments($message, $session, $passed_id, $entities, $imapConnection); + break; + case ('reply' || 'reply_all'): + $send_to = $orig_header->reply_to; + if ($send_to) { + $send_to = $send_to->getAddress(); + } else { + $send_to = $orig_header->from->getAddress(); + } + $subject = $orig_header->subject; + $subject = str_replace('"', "'", $subject); + $subject = trim($subject); + if (substr(strtolower($subject), 0, 3) != 're:') { + $subject = 'Re: ' . $subject; + } + if ($action == 'reply_all') { + $send_to_cc = replyAllString($orig_header); + } + /* this corrects some wrapping/quoting problems on replies */ + $rewrap_body = explode("\n", $body); + $body = getReplyCitation($orig_header->from->personal); + $cnt = count($rewrap_body); + for ($i=0;$i<$cnt;$i++) { + sqWordWrap($rewrap_body[$i], ($editor_size - 2)); + if (preg_match("/^(>+)/", $rewrap_body[$i], $matches)) { + $gt = $matches[1]; + $body .= '>' . str_replace("\n", "\n$gt ", $rewrap_body[$i]) ."\n"; } else { - $body_ary[$i] = '> ' . $body_ary[$i]; - } - } - if (!$draft_id) { - sqWordWrap($body_ary[$i], $editor_size - 1); - } - $body .= $body_ary[$i] . "\n"; - unset($body_ary[$i]); - } - if ($forward_id) { - $bodyTop = '-------- ' . _("Original Message") . " --------\n" . - _("Subject") . ': ' . $orig_header->subject . "\n" . - _("From") . ': ' . $orig_header->from . "\n" . - _("Date") . ': ' . - getLongDateString( $orig_header->date ). "\n" . - _("To") . ': ' . $orig_header->to[0] . "\n"; - if (count($orig_header->to) > 1) { - for ($x=1; $x < count($orig_header->to); $x++) { - $bodyTop .= ' ' . $orig_header->to[$x] . "\n"; - } - } - if (isset($forward_cc) && $forward_cc) { - $bodyTop .= _("Cc") . ': ' . $orig_header->cc[0] . "\n"; - if (count($orig_header->cc) > 1) { - for ($x = 1; $x < count($orig_header->cc); $x++) { - $bodyTop .= ' ' . $orig_header->cc[$x] . "\n"; - } - } - } - $bodyTop .= "\n"; - $body = $bodyTop . $body; - } - elseif ($reply_id) { - $orig_from = decodeHeader($orig_header->from, false); - $body = getReplyCitation($orig_from) . $body; - } - - return; - } - - if (!$send_to) { - $send_to = sqimap_find_email($send_to); - } - - /* This formats a CC string if they hit "reply all" */ - if ($send_to_cc != '') { - $send_to_cc = ereg_replace('"[^"]*"', '', $send_to_cc); - $send_to_cc = str_replace(';', ',', $send_to_cc); - $sendcc = explode(',', $send_to_cc); - $send_to_cc = ''; - - for ($i = 0; $i < count($sendcc); $i++) { - $sendcc[$i] = trim($sendcc[$i]); - if ($sendcc[$i] == '') { - continue; - } - - $sendcc[$i] = sqimap_find_email($sendcc[$i]); - $whofrom = sqimap_find_displayable_name($msg['HEADER']['FROM']); - $whoreplyto = sqimap_find_email($msg['HEADER']['REPLYTO']); - - if ((strtolower(trim($sendcc[$i])) != strtolower(trim($whofrom))) && - (strtolower(trim($sendcc[$i])) != strtolower(trim($whoreplyto))) && - (trim($sendcc[$i]) != '')) { - $send_to_cc .= trim($sendcc[$i]) . ', '; - } - } - $send_to_cc = trim($send_to_cc); - if (substr($send_to_cc, -1) == ',') { - $send_to_cc = substr($send_to_cc, 0, strlen($send_to_cc) - 1); + $body .= '> ' . $rewrap_body[$i] . "\n"; + } + unset($rewrap_body[$i]); + } + break; + default: + break; } + sqimap_logout($imapConnection); } + $ret = array( + 'send_to' => $send_to, + 'send_to_cc' => $send_to_cc, + 'send_to_bcc' => $send_to_bcc, + 'subject' => $subject, + 'mailprio' => $mailprio, + 'body' => $body, + 'identity' => $identity + ); + + return ($ret); } /* function newMail() */ -function getAttachments($message, $session) { - global $mailbox, $attachments, $attachment_dir, $imapConnection, - $ent_num, $forward_id, $draft_id, $username; - - if (isset($draft_id)) { - $id = $draft_id; - } else { - $id = $forward_id; - } - - if (!$message) { - sqimap_mailbox_select($imapConnection, $mailbox); - $message = sqimap_get_message($imapConnection, $id, $mailbox); - } - +function getAttachments($message, $session, $passed_id, $entities, $imapConnection) { + global $attachments, $attachment_dir, $username; + $hashed_attachment_dir = getHashedDir($username, $attachment_dir); - if (count($message->entities) == 0) { - if ($message->header->entity_id != $ent_num) { - $filename = decodeHeader($message->header->filename); - - if ($filename == "") { - $filename = "untitled-".$message->header->entity_id; + if (!count($message->entities) || + ($message->type0 == 'message' && $message->type1 == 'rfc822')) { + if ( !in_array($message->entity_id, $entities) && $message->entity_id) { + if ($message->type0 == 'message' && $message->type1 == 'rfc822') { + $filename = decodeHeader($message->header->subject.'.eml'); + if ($filename == "") { + $filename = "untitled-".$message->entity_id.'.eml'; + } + } else { + $filename = decodeHeader($message->header->filename); + if ($filename == "") { + $filename = "untitled-".$message->entity_id; + } } - $localfilename = GenerateRandomString(32, '', 7); $full_localfilename = "$hashed_attachment_dir/$localfilename"; while (file_exists($full_localfilename)) { @@ -527,15 +650,15 @@ function getAttachments($message, $session) { $newAttachment = array(); $newAttachment['localfilename'] = $localfilename; $newAttachment['remotefilename'] = $filename; - $newAttachment['type'] = strtolower($message->header->type0 . - '/' . $message->header->type1); + $newAttachment['type'] = strtolower($message->type0 . + '/' . $message->type1); $newAttachment['id'] = strtolower($message->header->id); $newAttachment['session'] = $session; /* Write Attachment to file */ $fp = fopen ("$hashed_attachment_dir/$localfilename", 'w'); fputs($fp, decodeBody(mime_fetch_body($imapConnection, - $id, $message->header->entity_id), + $passed_id, $message->entity_id), $message->header->encoding)); fclose ($fp); @@ -543,26 +666,34 @@ function getAttachments($message, $session) { } } else { for ($i = 0; $i < count($message->entities); $i++) { - getAttachments($message->entities[$i], $session); + getAttachments($message->entities[$i], $session, $passed_id, $entities, $imapConnection); } } return; } -function showInputForm ($session) { - global $send_to, $send_to_cc, $reply_subj, $forward_subj, $body, +function showInputForm ($session, $values=false) { + global $send_to, $send_to_cc, $body, $passed_body, $color, $use_signature, $signature, $prefix_sig, $editor_size, $attachments, $subject, $newmail, - $use_javascript_addr_book, $send_to_bcc, $reply_id, $mailbox, + $use_javascript_addr_book, $send_to_bcc, $passed_id, $mailbox, $from_htmladdr_search, $location_of_buttons, $attachment_dir, $username, $data_dir, $identity, $draft_id, $delete_draft, $mailprio, $default_use_mdn, $mdn_user_support, $compose_new_win, - $saved_draft, $mail_sent, $sig_first; + $saved_draft, $mail_sent, $sig_first, $edit_as_new, $action, + $username; $subject = decodeHeader($subject, false); - $reply_subj = decodeHeader($reply_subj, false); - $forward_subj = decodeHeader($forward_subj, false); - + if ($values) { + $send_to = $values['send_to']; + $send_to_cc = $values['send_to_cc']; + $send_to_bcc = $values['send_to_bcc']; + $subject = $values['subject']; + $mailprio = $values['mailprio']; + $body = $values['body']; + $identity = $values['identity']; + } + if ($use_javascript_addr_book) { echo "\n". '