| | |
|---|
| | | | program/steps/mail/sendmail.inc | |
|---|
| | | | | |
|---|
| | | | This file is part of the Roundcube Webmail client | |
|---|
| | | | Copyright (C) 2005-2010, Roundcube Dev. - Switzerland | |
|---|
| | | | Copyright (C) 2005-2010, The Roundcube Dev Team | |
|---|
| | | | Licensed under the GNU GPL | |
|---|
| | | | | |
|---|
| | | | PURPOSE: | |
|---|
| | |
|---|
| | | $OUTPUT->framed = TRUE; |
|---|
| | | |
|---|
| | | $savedraft = !empty($_POST['_draft']) ? true : false; |
|---|
| | | |
|---|
| | | $COMPOSE_ID = get_input_value('_id', RCUBE_INPUT_GPC); |
|---|
| | | $_SESSION['compose'] = $_SESSION['compose_data_'.$COMPOSE_ID]; |
|---|
| | | |
|---|
| | | /****** checks ********/ |
|---|
| | | |
|---|
| | |
|---|
| | | { |
|---|
| | | global $EMAIL_FORMAT_ERROR, $RECIPIENT_COUNT; |
|---|
| | | |
|---|
| | | $regexp = array('/[,;]\s*[\r\n]+/', '/[\r\n]+/', '/[,;]\s*$/m', '/;/', '/(\S{1})(<\S+@\S+>)/U'); |
|---|
| | | // simplified email regexp, supporting quoted local part |
|---|
| | | $email_regexp = '(\S+|("[^"]+"))@\S+'; |
|---|
| | | |
|---|
| | | $regexp = array('/[,;]\s*[\r\n]+/', '/[\r\n]+/', '/[,;]\s*$/m', '/;/', '/(\S{1})(<'.$email_regexp.'>)/U'); |
|---|
| | | $replace = array(', ', ', ', '', ',', '\\1 \\2'); |
|---|
| | | |
|---|
| | | // replace new lines and strip ending ', ', make address input more valid |
|---|
| | |
|---|
| | | foreach($items as $item) { |
|---|
| | | $item = trim($item); |
|---|
| | | // address in brackets without name (do nothing) |
|---|
| | | if (preg_match('/^<\S+@\S+>$/', $item)) { |
|---|
| | | $item = idn_to_ascii($item); |
|---|
| | | if (preg_match('/^<'.$email_regexp.'>$/', $item)) { |
|---|
| | | $item = rcube_idn_to_ascii($item); |
|---|
| | | $result[] = $item; |
|---|
| | | // address without brackets and without name (add brackets) |
|---|
| | | } else if (preg_match('/^\S+@\S+$/', $item)) { |
|---|
| | | $item = idn_to_ascii($item); |
|---|
| | | } else if (preg_match('/^'.$email_regexp.'$/', $item)) { |
|---|
| | | $item = rcube_idn_to_ascii($item); |
|---|
| | | $result[] = '<'.$item.'>'; |
|---|
| | | // address with name (handle name) |
|---|
| | | } else if (preg_match('/\S+@\S+>*$/', $item, $matches)) { |
|---|
| | | } else if (preg_match('/'.$email_regexp.'>*$/', $item, $matches)) { |
|---|
| | | $address = $matches[0]; |
|---|
| | | $name = str_replace($address, '', $item); |
|---|
| | | $name = trim($name); |
|---|
| | | if ($name && ($name[0] != '"' || $name[strlen($name)-1] != '"') |
|---|
| | | && preg_match('/[\(\)\<\>\\\.\[\]@,;:"]/', $name)) { |
|---|
| | | $name = '"'.addcslashes($name, '"').'"'; |
|---|
| | | $name = '"'.addcslashes($name, '"').'"'; |
|---|
| | | } |
|---|
| | | $address = idn_to_ascii($address); |
|---|
| | | if (!preg_match('/^<\S+@\S+>$/', $address)) |
|---|
| | | $address = rcube_idn_to_ascii($address); |
|---|
| | | if (!preg_match('/^<'.$email_regexp.'>$/', $address)) |
|---|
| | | $address = '<'.$address.'>'; |
|---|
| | | |
|---|
| | | $result[] = $name.' '.$address; |
|---|
| | |
|---|
| | | // add inline css for blockquotes |
|---|
| | | $bstyle = 'padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px; width:100%'; |
|---|
| | | $message_body = preg_replace('/<blockquote>/', |
|---|
| | | '<blockquote type="cite" style="'.$bstyle.'">', $message_body); |
|---|
| | | '<blockquote type="cite" style="'.$bstyle.'">', $message_body); |
|---|
| | | |
|---|
| | | // append doctype and html/body wrappers |
|---|
| | | $message_body = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">' . |
|---|
| | | "\r\n<html><body>\r\n" . $message_body; |
|---|
| | | } |
|---|
| | | |
|---|
| | | // Check spelling before send |
|---|
| | | if ($CONFIG['spellcheck_before_send'] && $CONFIG['enable_spellcheck'] |
|---|
| | | && empty($_SESSION['compose']['spell_checked']) && !empty($message_body) |
|---|
| | | ) { |
|---|
| | | $spellchecker = new rcube_spellchecker(get_input_value('_lang', RCUBE_INPUT_GPC)); |
|---|
| | | $spell_result = $spellchecker->check($message_body, $isHtml); |
|---|
| | | |
|---|
| | | $_SESSION['compose']['spell_checked'] = true; |
|---|
| | | |
|---|
| | | if (!$spell_result) { |
|---|
| | | $result = $isHtml ? $spellchecker->get_words() : $spellchecker->get_xml(); |
|---|
| | | $OUTPUT->show_message('mispellingsfound', 'error'); |
|---|
| | | $OUTPUT->command('spellcheck_resume', $isHtml, $result); |
|---|
| | | $OUTPUT->send('iframe'); |
|---|
| | | } |
|---|
| | | } |
|---|
| | | |
|---|
| | | // generic footer for all messages |
|---|
| | |
|---|
| | | if ($isHtml) |
|---|
| | | $footer = '<pre>'.$footer.'</pre>'; |
|---|
| | | } |
|---|
| | | |
|---|
| | | if ($footer) |
|---|
| | | $message_body .= "\r\n" . $footer; |
|---|
| | | if ($isHtml) |
|---|
| | | $message_body .= "\r\n</body></html>\r\n"; |
|---|
| | | } |
|---|
| | | |
|---|
| | | // set line length for body wrapping |
|---|
| | |
|---|
| | | } |
|---|
| | | |
|---|
| | | if (PEAR::isError($msg)) |
|---|
| | | raise_error(array('code' => 600, 'type' => 'php', |
|---|
| | | raise_error(array('code' => 650, 'type' => 'php', |
|---|
| | | 'file' => __FILE__, 'line' => __LINE__, |
|---|
| | | 'message' => "Could not create message: ".$msg->getMessage()), |
|---|
| | | TRUE, FALSE); |
|---|
| | |
|---|
| | | |
|---|
| | | // remember new draft-uid |
|---|
| | | $draftuids = $IMAP->search_once($CONFIG['drafts_mbox'], 'HEADER Message-ID '.$msgid, true); |
|---|
| | | $_SESSION['compose']['param']['_draft_uid'] = $draftuids[0]; |
|---|
| | | $_SESSION['compose']['param']['draft_uid'] = $draftuids[0]; |
|---|
| | | |
|---|
| | | // display success |
|---|
| | | $OUTPUT->show_message('messagesaved', 'confirmation'); |
|---|
| | |
|---|
| | | } |
|---|
| | | else |
|---|
| | | { |
|---|
| | | rcmail_compose_cleanup(); |
|---|
| | | rcmail_compose_cleanup($COMPOSE_ID); |
|---|
| | | |
|---|
| | | if ($store_folder && !$saved) |
|---|
| | | $OUTPUT->command('sent_successfully', 'error', rcube_label('errorsavingsent')); |
|---|
