source: subversion/trunk/roundcubemail/program/steps/mail/func.inc @ 1066

Last change on this file since 1066 was 1066, checked in by thomasb, 5 years ago

Always use subject col when dragging messages
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 45.9 KB
Line 
1<?php
2
3/*
4 +-----------------------------------------------------------------------+
5 | program/steps/mail/func.inc                                           |
6 |                                                                       |
7 | This file is part of the RoundCube Webmail client                     |
8 | Copyright (C) 2005-2007, RoundCube Dev. - Switzerland                 |
9 | Licensed under the GNU GPL                                            |
10 |                                                                       |
11 | PURPOSE:                                                              |
12 |   Provide webmail functionality and GUI objects                       |
13 |                                                                       |
14 +-----------------------------------------------------------------------+
15 | Author: Thomas Bruederli <roundcube@gmail.com>                        |
16 +-----------------------------------------------------------------------+
17
18 $Id$
19
20*/
21
22require_once('lib/html2text.inc');
23require_once('lib/enriched.inc');
24require_once('include/rcube_smtp.inc');
25
26
27$EMAIL_ADDRESS_PATTERN = '/([a-z0-9][a-z0-9\-\.\+\_]*@[a-z0-9]([a-z0-9\-][.]?)*[a-z0-9]\\.[a-z]{2,5})/i';
28
29if (empty($_SESSION['mbox']))
30  $_SESSION['mbox'] = $IMAP->get_mailbox_name();
31
32// set imap properties and session vars
33if ($mbox = get_input_value('_mbox', RCUBE_INPUT_GPC))
34  $IMAP->set_mailbox(($_SESSION['mbox'] = $mbox));
35
36if (!empty($_GET['_page']))
37  $IMAP->set_page(($_SESSION['page'] = intval($_GET['_page'])));
38
39// set mailbox to INBOX if not set
40if (empty($_SESSION['mbox']))
41  $_SESSION['mbox'] = $IMAP->get_mailbox_name();
42
43// set default sort col/order to session
44if (!isset($_SESSION['sort_col']))
45  $_SESSION['sort_col'] = $CONFIG['message_sort_col'];
46if (!isset($_SESSION['sort_order']))
47  $_SESSION['sort_order'] = $CONFIG['message_sort_order'];
48
49// set message set for search result
50if (!empty($_REQUEST['_search']) && isset($_SESSION['search'][$_REQUEST['_search']]))
51  {
52  $IMAP->set_search_set($_SESSION['search'][$_REQUEST['_search']]);
53  $OUTPUT->set_env('search_request', $_REQUEST['_search']);
54  $OUTPUT->set_env('search_text', $_SESSION['last_text_search']);
55  }
56
57
58// define url for getting message parts
59if (strlen($_GET['_uid']))
60  $GET_URL = rcmail_url('get', array('_mbox'=>$IMAP->get_mailbox_name(), '_uid'=>get_input_value('_uid', RCUBE_INPUT_GET)));
61
62
63// set current mailbox in client environment
64$OUTPUT->set_env('mailbox', $IMAP->get_mailbox_name());
65$OUTPUT->set_env('quota', $IMAP->get_capability('quota'));
66
67if ($CONFIG['trash_mbox'])
68  $OUTPUT->set_env('trash_mailbox', $CONFIG['trash_mbox']);
69if ($CONFIG['drafts_mbox'])
70  $OUTPUT->set_env('drafts_mailbox', $CONFIG['drafts_mbox']);
71if ($CONFIG['junk_mbox'])
72  $OUTPUT->set_env('junk_mailbox', $CONFIG['junk_mbox']);
73
74if (!$OUTPUT->ajax_call)
75  rcube_add_label('checkingmail', 'deletemessage', 'movemessagetotrash');
76
77// set page title
78if (empty($_action) || $_action == 'list')
79  $OUTPUT->set_pagetitle(rcube_charset_convert($IMAP->get_mailbox_name(), 'UTF-7'));
80
81
82
83// return the message list as HTML table
84function rcmail_message_list($attrib)
85  {
86  global $IMAP, $CONFIG, $COMM_PATH, $OUTPUT;
87
88  $skin_path = $CONFIG['skin_path'];
89  $image_tag = '<img src="%s%s" alt="%s" border="0" />';
90
91  // check to see if we have some settings for sorting
92  $sort_col   = $_SESSION['sort_col'];
93  $sort_order = $_SESSION['sort_order'];
94 
95  // add some labels to client
96  rcube_add_label('from', 'to');
97
98  // get message headers
99  $a_headers = $IMAP->list_headers('', '', $sort_col, $sort_order);
100
101  // add id to message list table if not specified
102  if (!strlen($attrib['id']))
103    $attrib['id'] = 'rcubemessagelist';
104
105  // allow the following attributes to be added to the <table> tag
106  $attrib_str = create_attrib_string($attrib, array('style', 'class', 'id', 'cellpadding', 'cellspacing', 'border', 'summary'));
107
108  $out = '<table' . $attrib_str . ">\n";
109
110
111  // define list of cols to be displayed
112  $a_show_cols = is_array($CONFIG['list_cols']) ? $CONFIG['list_cols'] : array('subject');
113  $a_sort_cols = array('subject', 'date', 'from', 'to', 'size');
114
115  $mbox = $IMAP->get_mailbox_name();
116 
117  // show 'to' instead of from in sent messages
118  if (($mbox==$CONFIG['sent_mbox'] || $mbox==$CONFIG['drafts_mbox']) && ($f = array_search('from', $a_show_cols))
119      && !array_search('to', $a_show_cols))
120    $a_show_cols[$f] = 'to';
121 
122  // add col definition
123  $out .= '<colgroup>';
124  $out .= '<col class="icon" />';
125
126  foreach ($a_show_cols as $col)
127    $out .= sprintf('<col class="%s" />', $col);
128
129  $out .= '<col class="icon" />';
130  $out .= "</colgroup>\n";
131
132  // add table title
133  $out .= "<thead><tr>\n<td class=\"icon\">&nbsp;</td>\n";
134
135  $javascript = '';
136  foreach ($a_show_cols as $col)
137    {
138    // get column name
139    $col_name = Q(rcube_label($col));
140
141    // make sort links
142    $sort = '';
143    if ($IMAP->get_capability('sort') && in_array($col, $a_sort_cols))
144      {
145      // have buttons configured
146      if (!empty($attrib['sortdescbutton']) || !empty($attrib['sortascbutton']))
147        {
148        $sort = '&nbsp;&nbsp;';
149
150        // asc link
151        if (!empty($attrib['sortascbutton']))
152          {
153          $sort .= $OUTPUT->button(array(
154            'command' => 'sort',
155            'prop' => $col.'_ASC',
156            'image' => $attrib['sortascbutton'],
157            'align' => 'absmiddle',
158            'title' => 'sortasc'));
159          }       
160       
161        // desc link
162        if (!empty($attrib['sortdescbutton']))
163          {
164          $sort .= $OUTPUT->button(array(
165            'command' => 'sort',
166            'prop' => $col.'_DESC',
167            'image' => $attrib['sortdescbutton'],
168            'align' => 'absmiddle',
169            'title' => 'sortdesc'));
170          }
171        }
172      // just add a link tag to the header
173      else
174        {
175        $col_name = sprintf(
176          '<a href="./#sort" onclick="return %s.command(\'sort\',\'%s\',this)" title="%s">%s</a>',
177          JS_OBJECT_NAME,
178          $col,
179          rcube_label('sortby'),
180          $col_name);
181        }
182      }
183     
184    $sort_class = $col==$sort_col ? " sorted$sort_order" : '';
185
186    // put it all together
187    $out .= '<td class="'.$col.$sort_class.'" id="rcmHead'.$col.'">' . "$col_name$sort</td>\n";   
188    }
189
190  $out .= '<td class="icon">'.($attrib['attachmenticon'] ? sprintf($image_tag, $skin_path, $attrib['attachmenticon'], '') : '')."</td>\n";
191  $out .= "</tr></thead>\n<tbody>\n";
192
193  // no messages in this mailbox
194  if (!sizeof($a_headers))
195    $OUTPUT->show_message('nomessagesfound', 'notice');
196
197
198  $a_js_message_arr = array();
199
200  // create row for each message
201  foreach ($a_headers as $i => $header)  //while (list($i, $header) = each($a_headers))
202    {
203    $message_icon = $attach_icon = '';
204    $js_row_arr = array();
205    $zebra_class = $i%2 ? 'even' : 'odd';
206
207    // set messag attributes to javascript array
208    if ($header->deleted)
209      $js_row_arr['deleted'] = true;
210    if (!$header->seen)
211      $js_row_arr['unread'] = true;
212    if ($header->answered)
213      $js_row_arr['replied'] = true;
214    // set message icon 
215    if ($attrib['deletedicon'] && $header->deleted)
216      $message_icon = $attrib['deletedicon'];
217    else if ($attrib['unreadicon'] && !$header->seen)
218      $message_icon = $attrib['unreadicon'];
219    else if ($attrib['repliedicon'] && $header->answered)
220      $message_icon = $attrib['repliedicon'];
221    else if ($attrib['messageicon'])
222      $message_icon = $attrib['messageicon'];
223   
224    // set attachment icon
225    if ($attrib['attachmenticon'] && preg_match("/multipart\/[mr]/i", $header->ctype))
226      $attach_icon = $attrib['attachmenticon'];
227       
228    $out .= sprintf('<tr id="rcmrow%d" class="message%s%s %s">'."\n",
229                    $header->uid,
230                    $header->seen ? '' : ' unread',
231                    $header->deleted ? ' deleted' : '',
232                    $zebra_class);   
233   
234    $out .= sprintf("<td class=\"icon\">%s</td>\n", $message_icon ? sprintf($image_tag, $skin_path, $message_icon, '') : '');
235   
236    // format each col
237    foreach ($a_show_cols as $col)
238      {
239      if ($col=='from' || $col=='to')
240        $cont = Q(rcmail_address_string($header->$col, 3, $attrib['addicon']), 'show');
241      else if ($col=='subject')
242        {
243        $action = $mbox==$CONFIG['drafts_mbox'] ? 'compose' : 'show';
244        $uid_param = $mbox==$CONFIG['drafts_mbox'] ? '_draf_uid' : '_uid';
245        $cont = Q(rcube_imap::decode_mime_string($header->$col, $header->charset));
246        if (empty($cont)) $cont = Q(rcube_label('nosubject'));
247        $cont = sprintf('<a href="%s" onclick="return rcube_event.cancel(event)">%s</a>', Q(rcmail_url($action, array($uid_param=>$header->uid, '_mbox'=>$mbox))), $cont);
248        }
249      else if ($col=='size')
250        $cont = show_bytes($header->$col);
251      else if ($col=='date')
252        $cont = format_date($header->date);
253      else
254        $cont = Q($header->$col);
255       
256      $out .= '<td class="'.$col.'">' . $cont . "</td>\n";
257      }
258
259    $out .= sprintf("<td class=\"icon\">%s</td>\n", $attach_icon ? sprintf($image_tag, $skin_path, $attach_icon, '') : '');
260    $out .= "</tr>\n";
261   
262    if (sizeof($js_row_arr))
263      $a_js_message_arr[$header->uid] = $js_row_arr;
264    }
265 
266  // complete message table
267  $out .= "</tbody></table>\n";
268 
269 
270  $message_count = $IMAP->messagecount();
271 
272  // set client env
273  $OUTPUT->add_gui_object('mailcontframe', 'mailcontframe');
274  $OUTPUT->add_gui_object('messagelist', $attrib['id']);
275  $OUTPUT->set_env('messagecount', $message_count);
276  $OUTPUT->set_env('current_page', $IMAP->list_page);
277  $OUTPUT->set_env('pagecount', ceil($message_count/$IMAP->page_size));
278  $OUTPUT->set_env('sort_col', $sort_col);
279  $OUTPUT->set_env('sort_order', $sort_order);
280 
281  if ($attrib['messageicon'])
282    $OUTPUT->set_env('messageicon', $skin_path . $attrib['messageicon']);
283  if ($attrib['deletedicon'])
284    $OUTPUT->set_env('deletedicon', $skin_path . $attrib['deletedicon']);
285  if ($attrib['unreadicon'])
286    $OUTPUT->set_env('unreadicon', $skin_path . $attrib['unreadicon']);
287  if ($attrib['repliedicon'])
288    $OUTPUT->set_env('repliedicon', $skin_path . $attrib['repliedicon']);
289  if ($attrib['attachmenticon'])
290    $OUTPUT->set_env('attachmenticon', $skin_path . $attrib['attachmenticon']);
291 
292  $OUTPUT->set_env('messages', $a_js_message_arr);
293  $OUTPUT->set_env('coltypes', $a_show_cols);
294 
295  $OUTPUT->include_script('list.js');
296 
297  return $out;
298  }
299
300
301// return javascript commands to add rows to the message list
302function rcmail_js_message_list($a_headers, $insert_top=FALSE)
303  {
304  global $CONFIG, $IMAP, $OUTPUT;
305
306  $a_show_cols = is_array($CONFIG['list_cols']) ? $CONFIG['list_cols'] : array('subject');
307  $mbox = $IMAP->get_mailbox_name();
308
309  // show 'to' instead of from in sent messages
310  if (($mbox == $CONFIG['sent_mbox'] || $mbox == $CONFIG['drafts_mbox'])
311      && (($f = array_search('from', $a_show_cols)) !== false) && array_search('to', $a_show_cols) === false)
312    $a_show_cols[$f] = 'to';
313
314  $OUTPUT->command('set_message_coltypes', $a_show_cols);
315
316  // loop through message headers
317  foreach ($a_headers as $n => $header)
318    {
319    $a_msg_cols = array();
320    $a_msg_flags = array();
321   
322    if (empty($header))
323      continue;
324
325    // format each col; similar as in rcmail_message_list()
326    foreach ($a_show_cols as $col)
327      {
328      if ($col=='from' || $col=='to')
329        $cont = Q(rcmail_address_string($header->$col, 3), 'show');
330      else if ($col=='subject')
331        {
332        $action = $mbox==$CONFIG['drafts_mbox'] ? 'compose' : 'show';
333        $uid_param = $mbox==$CONFIG['drafts_mbox'] ? '_draf_uid' : '_uid';
334        $cont = Q(rcube_imap::decode_mime_string($header->$col, $header->charset));
335        if (!$cont) $cont = Q(rcube_label('nosubject'));
336        $cont = sprintf('<a href="%s" onclick="return rcube_event.cancel(event)">%s</a>', Q(rcmail_url($action, array($uid_param=>$header->uid, '_mbox'=>$mbox))), $cont);
337        }
338      else if ($col=='size')
339        $cont = show_bytes($header->$col);
340      else if ($col=='date')
341        $cont = format_date($header->date);
342      else
343        $cont = Q($header->$col);
344         
345      $a_msg_cols[$col] = $cont;
346      }
347
348    $a_msg_flags['deleted'] = $header->deleted ? 1 : 0;
349    $a_msg_flags['unread'] = $header->seen ? 0 : 1;
350    $a_msg_flags['replied'] = $header->answered ? 1 : 0;
351    $OUTPUT->command('add_message_row',
352      $header->uid,
353      $a_msg_cols,
354      $a_msg_flags,
355      preg_match("/multipart\/m/i", $header->ctype),
356      $insert_top);
357    }
358  }
359
360
361// return an HTML iframe for loading mail content
362function rcmail_messagecontent_frame($attrib)
363  {
364  global $OUTPUT;
365 
366  if (empty($attrib['id']))
367    $attrib['id'] = 'rcmailcontentwindow';
368
369  // allow the following attributes to be added to the <iframe> tag
370  $attrib_str = create_attrib_string($attrib, array('id', 'class', 'style', 'src', 'width', 'height', 'frameborder'));
371  $framename = $attrib['id'];
372
373  $out = sprintf('<iframe name="%s"%s></iframe>'."\n",
374         $framename,
375         $attrib_str);
376
377  $OUTPUT->set_env('contentframe', $framename);
378  $OUTPUT->set_env('blankpage', $attrib['src'] ? $OUTPUT->abs_url($attrib['src']) : 'program/blank.gif');
379
380  return $out;
381  }
382
383
384function rcmail_messagecount_display($attrib)
385  {
386  global $IMAP, $OUTPUT;
387 
388  if (!$attrib['id'])
389    $attrib['id'] = 'rcmcountdisplay';
390
391  $OUTPUT->add_gui_object('countdisplay', $attrib['id']);
392
393  // allow the following attributes to be added to the <span> tag
394  $attrib_str = create_attrib_string($attrib, array('style', 'class', 'id'));
395
396 
397  $out = '<span' . $attrib_str . '>';
398  $out .= rcmail_get_messagecount_text();
399  $out .= '</span>';
400  return $out;
401  }
402
403
404function rcmail_quota_display($attrib)
405  {
406  global $OUTPUT, $COMM_PATH;
407
408  if (!$attrib['id'])
409    $attrib['id'] = 'rcmquotadisplay';
410
411  $OUTPUT->add_gui_object('quotadisplay', $attrib['id']);
412
413  // allow the following attributes to be added to the <span> tag
414  $attrib_str = create_attrib_string($attrib, array('style', 'class', 'id'));
415
416  $out = '<span' . $attrib_str . '>';
417  $out .= rcmail_quota_content($attrib['display']);
418  $out .= '</span>';
419  return $out;
420  }
421
422
423function rcmail_quota_content($display)
424  {
425  global $IMAP, $COMM_PATH;
426
427  if (!$IMAP->get_capability('QUOTA'))
428    $quota_text = rcube_label('unknown');
429  else if ($quota = $IMAP->get_quota())
430    {
431    $quota_text = sprintf("%s / %s (%.0f%%)",
432                          show_bytes($quota["used"] * 1024),
433                          show_bytes($quota["total"] * 1024),
434                          $quota["percent"]);
435
436    // show quota as image (by Brett Patterson)
437    if ($display == 'image' && function_exists('imagegif'))
438      {
439      $attrib = array('width' => 100, 'height' => 14);
440      $quota_text = sprintf('<img src="./bin/quotaimg.php?u=%s&amp;q=%d&amp;w=%d&amp;h=%d" width="%d" height="%d" alt="%s" title="%s / %s" />',
441                            $quota['used'], $quota['total'],
442                            $attrib['width'], $attrib['height'],
443                            $attrib['width'], $attrib['height'],
444                            $quota_text,
445                            show_bytes($quota["used"] * 1024),
446                            show_bytes($quota["total"] * 1024));
447      }
448    }
449  else
450    $quota_text = rcube_label('unlimited');
451
452  return $quota_text;
453  }
454
455
456function rcmail_get_messagecount_text($count=NULL, $page=NULL)
457  {
458  global $IMAP, $MESSAGE;
459 
460  if (isset($MESSAGE['index']))
461    {
462    return rcube_label(array('name' => 'messagenrof',
463                             'vars' => array('nr'  => $MESSAGE['index']+1,
464                                             'count' => $count!==NULL ? $count : $IMAP->messagecount())));
465    }
466
467  if ($page===NULL)
468    $page = $IMAP->list_page;
469   
470  $start_msg = ($page-1) * $IMAP->page_size + 1;
471  $max = $count!==NULL ? $count : $IMAP->messagecount();
472
473  if ($max==0)
474    $out = rcube_label('mailboxempty');
475  else
476    $out = rcube_label(array('name' => 'messagesfromto',
477                              'vars' => array('from'  => $start_msg,
478                                              'to'    => min($max, $start_msg + $IMAP->page_size - 1),
479                                              'count' => $max)));
480
481  return Q($out);
482  }
483
484
485function rcmail_print_body($part, $safe=FALSE, $plain=FALSE)
486  {
487  global $IMAP, $REMOTE_OBJECTS;
488 
489  $body = is_array($part->replaces) ? strtr($part->body, $part->replaces) : $part->body;
490
491  // convert html to text/plain
492  if ($part->ctype_secondary=='html' && $plain)
493    {
494    $txt = new html2text($body, false, true);
495    $body = $txt->get_text();
496    $part->ctype_secondary = 'plain';
497    }
498   
499  // text/html
500  if ($part->ctype_secondary=='html')
501    {
502    // remove charset specification in HTML message
503    $body = preg_replace('/charset=[a-z0-9\-]+/i', '', $body);
504
505    if (!$safe)  // remove remote images and scripts
506      {
507      $remote_patterns = array('/<img\s+(.*)src=(["\']?)([hftps]{3,5}:\/{2}[^"\'\s]+)(\2|\s|>)/Ui',
508                               '/(src|background)=(["\']?)([hftps]{3,5}:\/{2}[^"\'\s]+)(\2|\s|>)/Ui',
509                               '/(<base.*href=["\']?)([hftps]{3,5}:\/{2}[^"\'\s]+)([^<]*>)/i',
510                               '/(<link.*href=["\']?)([hftps]{3,5}:\/{2}[^"\'\s]+)([^<]*>)/i',
511                               '/url\s*\(["\']?([hftps]{3,5}:\/{2}[^"\'\s]+)["\']?\)/i',
512                               '/url\s*\(["\']?([\.\/]+[^"\'\s]+)["\']?\)/i',
513                               '/<script.+<\/script>/Umis');
514
515      $remote_replaces = array('<img \\1src=\\2./program/blocked.gif\\4',
516                               '',
517                               '',
518                               '',
519                               'none',
520                               'none',
521                               '');
522     
523      // set flag if message containes remote obejcts that where blocked
524      foreach ($remote_patterns as $pattern)
525        {
526        if (preg_match($pattern, $body))
527          {
528          $REMOTE_OBJECTS = TRUE;
529          break;
530          }
531        }
532
533      $body = preg_replace($remote_patterns, $remote_replaces, $body);
534      }
535
536    return Q($body, 'show', FALSE);
537    }
538
539  // text/enriched
540  if ($part->ctype_secondary=='enriched')
541    {
542    return Q(enriched_to_html($body), 'show');
543    }
544  else
545    {
546    // make links and email-addresses clickable
547    $convert_patterns = $convert_replaces = $replace_strings = array();
548   
549    $url_chars = 'a-z0-9_\-\+\*\$\/&%=@#:;';
550    $url_chars_within = '\?\.~,!';
551
552    $convert_patterns[] = "/([\w]+):\/\/([a-z0-9\-\.]+[a-z]{2,4}([$url_chars$url_chars_within]*[$url_chars])?)/ie";
553    $convert_replaces[] = "rcmail_str_replacement('<a href=\"\\1://\\2\" target=\"_blank\">\\1://\\2</a>', \$replace_strings)";
554
555    $convert_patterns[] = "/([^\/:]|\s)(www\.)([a-z0-9\-]{2,}[a-z]{2,4}([$url_chars$url_chars_within]*[$url_chars])?)/ie";
556    $convert_replaces[] = "rcmail_str_replacement('\\1<a href=\"http://\\2\\3\" target=\"_blank\">\\2\\3</a>', \$replace_strings)";
557   
558    $convert_patterns[] = '/([a-z0-9][a-z0-9\-\.\+\_]*@[a-z0-9]([a-z0-9\-][.]?)*[a-z0-9]\\.[a-z]{2,5})/ie';
559    $convert_replaces[] = "rcmail_str_replacement('<a href=\"mailto:\\1\" onclick=\"return ".JS_OBJECT_NAME.".command(\'compose\',\'\\1\',this)\">\\1</a>', \$replace_strings)";
560   
561    if ($part->ctype_parameters['format'] != 'flowed')
562      $body = wordwrap(trim($body), 80);
563
564    $body = preg_replace($convert_patterns, $convert_replaces, $body);
565
566    // split body into single lines
567    $a_lines = preg_split('/\r?\n/', $body);
568    $quote_level = 0;
569
570    // colorize quoted parts
571    for($n=0; $n<sizeof($a_lines); $n++)
572      {
573      $line = $a_lines[$n];
574      $quotation = '';
575      $q = 0;
576     
577      if (preg_match('/^(>+\s*)/', $line, $regs))
578        {
579        $q = strlen(preg_replace('/\s/', '', $regs[1]));
580        $line = substr($line, strlen($regs[1]));
581
582        if ($q > $quote_level)
583          $quotation = str_repeat('<blockquote>', $q - $quote_level);
584        else if ($q < $quote_level)
585          $quotation = str_repeat("</blockquote>", $quote_level - $q);
586        }
587      else if ($quote_level > 0)
588        $quotation = str_repeat("</blockquote>", $quote_level);
589
590      $quote_level = $q;
591      $a_lines[$n] = $quotation . Q($line, 'replace', FALSE);
592      }
593
594    // insert the links for urls and mailtos
595    $body = preg_replace("/##string_replacement\{([0-9]+)\}##/e", "\$replace_strings[\\1]", join("\n", $a_lines));
596   
597    return "<div class=\"pre\">".$body."\n</div>";
598    }
599  }
600
601
602
603// add a string to the replacement array and return a replacement string
604function rcmail_str_replacement($str, &$rep)
605  {
606  static $count = 0;
607  $rep[$count] = stripslashes($str);
608  return "##string_replacement{".($count++)."}##";
609  }
610
611
612function rcmail_parse_message(&$structure, $arg=array(), $recursive=FALSE)
613  {
614  global $IMAP;
615  static $sa_inline_objects = array();
616
617  // arguments are: (bool)$prefer_html, (string)$get_url
618  extract($arg);
619
620  $a_attachments = array();
621  $a_return_parts = array();
622  $out = '';
623
624  $message_ctype_primary = strtolower($structure->ctype_primary);
625  $message_ctype_secondary = strtolower($structure->ctype_secondary);
626
627  // show message headers
628  if ($recursive && is_array($structure->headers) && isset($structure->headers['subject']))
629    {
630    $c = new stdClass;
631    $c->type = 'headers';
632    $c->headers = &$structure->headers;
633    $a_return_parts[] = $c;
634    }
635
636  // print body if message doesn't have multiple parts
637  if ($message_ctype_primary=='text')
638    {
639    $structure->type = 'content';
640    $a_return_parts[] = &$structure;
641    }
642   
643  // message contains alternative parts
644  else if ($message_ctype_primary=='multipart' && $message_ctype_secondary=='alternative' && is_array($structure->parts))
645    {
646    // get html/plaintext parts
647    $plain_part = $html_part = $print_part = $related_part = NULL;
648   
649    foreach ($structure->parts as $p => $sub_part)
650      {
651      $rel_parts = $attachmnts = null;
652      $sub_ctype_primary = strtolower($sub_part->ctype_primary);
653      $sub_ctype_secondary = strtolower($sub_part->ctype_secondary);
654
655      // check if sub part is
656      if ($sub_ctype_primary=='text' && $sub_ctype_secondary=='plain')
657        $plain_part = $p;
658      else if ($sub_ctype_primary=='text' && $sub_ctype_secondary=='html')
659        $html_part = $p;
660      else if ($sub_ctype_primary=='text' && $sub_ctype_secondary=='enriched')
661        $enriched_part = $p;
662      else if ($sub_ctype_primary=='multipart' && ($sub_ctype_secondary=='related' || $sub_ctype_secondary=='mixed'))
663        $related_part = $p;
664      }
665     
666    // parse related part (alternative part could be in here)
667    if ($related_part!==NULL)
668    {
669      list($rel_parts, $attachmnts) = rcmail_parse_message($structure->parts[$related_part], $arg, TRUE);
670      $a_attachments = array_merge($a_attachments, $attachmnts);
671    }
672   
673    // merge related parts if any
674    if ($rel_parts && $prefer_html && !$html_part)
675      $a_return_parts = array_merge($a_return_parts, $rel_parts);
676
677    // choose html/plain part to print
678    else if ($html_part!==NULL && $prefer_html)
679      $print_part = &$structure->parts[$html_part];
680    else if ($enriched_part!==NULL)
681      $print_part = &$structure->parts[$enriched_part];
682    else if ($plain_part!==NULL)
683      $print_part = &$structure->parts[$plain_part];
684
685    // show message body
686    if (is_object($print_part))
687      {
688      $print_part->type = 'content';
689      $a_return_parts[] = $print_part;
690      }
691    // show plaintext warning
692    else if ($html_part!==NULL && empty($a_return_parts))
693      {
694      $c = new stdClass;
695      $c->type = 'content';
696      $c->body = rcube_label('htmlmessage');
697      $c->ctype_primary = 'text';
698      $c->ctype_secondary = 'plain';
699     
700      $a_return_parts[] = $c;
701      }
702                               
703    // add html part as attachment
704    if ($html_part!==NULL && $structure->parts[$html_part]!==$print_part)
705      {
706      $html_part = &$structure->parts[$html_part];
707      $html_part->filename = rcube_label('htmlmessage');
708      $html_part->mimetype = 'text/html';
709     
710      $a_attachments[] = $html_part;
711      }
712    }
713
714  // message contains multiple parts
715  else if (is_array($structure->parts) && !empty($structure->parts))
716    {
717    for ($i=0; $i<count($structure->parts); $i++)
718      {
719      $mail_part = &$structure->parts[$i];
720      $primary_type = strtolower($mail_part->ctype_primary);
721      $secondary_type = strtolower($mail_part->ctype_secondary);
722
723      // multipart/alternative
724      if ($primary_type=='multipart')
725        {
726        list($parts, $attachmnts) = rcmail_parse_message($mail_part, $arg, TRUE);
727
728        $a_return_parts = array_merge($a_return_parts, $parts);
729        $a_attachments = array_merge($a_attachments, $attachmnts);
730        }
731
732      // part text/[plain|html] OR message/delivery-status
733      else if (($primary_type=='text' && ($secondary_type=='plain' || $secondary_type=='html') && $mail_part->disposition!='attachment') ||
734               ($primary_type=='message' && ($secondary_type=='delivery-status' || $secondary_type=='disposition-notification')))
735        {
736        $mail_part->type = 'content';
737        $a_return_parts[] = $mail_part;
738        }
739
740      // part message/*
741      else if ($primary_type=='message')
742        {
743        list($parts, $attachmnts) = rcmail_parse_message($mail_part, $arg, TRUE);
744         
745        $a_return_parts = array_merge($a_return_parts, $parts);
746        $a_attachments = array_merge($a_attachments, $attachmnts);
747        }
748       
749      // ignore "virtual" protocol parts
750      else if ($primary_type=='protocol')
751        continue;
752
753      // part is file/attachment
754      else if ($mail_part->disposition=='attachment' || $mail_part->disposition=='inline' || $mail_part->headers['content-id'] ||
755               (empty($mail_part->disposition) && $mail_part->filename))
756        {
757        // skip apple resource forks
758        if ($message_ctype_secondary=='appledouble' && $secondary_type=='applefile')
759          continue;
760
761        // part belongs to a related message
762        if ($message_ctype_secondary=='related' && $mail_part->headers['content-id'])
763          {
764          $mail_part->content_id = preg_replace(array('/^</', '/>$/'), '', $mail_part->headers['content-id']);
765          $sa_inline_objects[] = $mail_part;
766          }
767        // is regular attachment
768        else
769          {
770          if (!$mail_part->filename)
771            $mail_part->filename = 'Part '.$mail_part->mime_id;
772          $a_attachments[] = $mail_part;
773          }
774        }
775      }
776
777    // if this was a related part try to resolve references
778    if ($message_ctype_secondary=='related' && sizeof($sa_inline_objects))
779      {
780      $a_replaces = array();
781       
782      foreach ($sa_inline_objects as $inline_object)
783        $a_replaces['cid:'.$inline_object->content_id] = htmlspecialchars(sprintf($get_url, $inline_object->mime_id));
784     
785      // add replace array to each content part
786      // (will be applied later when part body is available)
787      for ($i=0; $i<count($a_return_parts); $i++)
788        {
789        if ($a_return_parts[$i]->type=='content')
790          $a_return_parts[$i]->replaces = $a_replaces;
791        }
792      }
793    }
794
795  // message is single part non-text
796  else if ($structure->filename)
797    $a_attachments[] = $structure;
798
799  return array($a_return_parts, $a_attachments);
800  }
801
802
803
804
805// return table with message headers
806function rcmail_message_headers($attrib, $headers=NULL)
807  {
808  global $IMAP, $OUTPUT, $MESSAGE;
809  static $sa_attrib;
810 
811  // keep header table attrib
812  if (is_array($attrib) && !$sa_attrib)
813    $sa_attrib = $attrib;
814  else if (!is_array($attrib) && is_array($sa_attrib))
815    $attrib = $sa_attrib;
816 
817 
818  if (!isset($MESSAGE))
819    return FALSE;
820
821  // get associative array of headers object
822  if (!$headers)
823    $headers = is_object($MESSAGE['headers']) ? get_object_vars($MESSAGE['headers']) : $MESSAGE['headers'];
824 
825  $header_count = 0;
826 
827  // allow the following attributes to be added to the <table> tag
828  $attrib_str = create_attrib_string($attrib, array('style', 'class', 'id', 'cellpadding', 'cellspacing', 'border', 'summary'));
829  $out = '<table' . $attrib_str . ">\n";
830
831  // show these headers
832  $standard_headers = array('subject', 'from', 'organization', 'to', 'cc', 'bcc', 'reply-to', 'date');
833 
834  foreach ($standard_headers as $hkey)
835    {
836    if (!$headers[$hkey])
837      continue;
838
839    if ($hkey=='date' && !empty($headers[$hkey]))
840      $header_value = format_date(strtotime($headers[$hkey]));
841    else if (in_array($hkey, array('from', 'to', 'cc', 'bcc', 'reply-to')))
842      $header_value = Q(rcmail_address_string($headers[$hkey], NULL, $attrib['addicon']), 'show');
843    else
844      $header_value = Q(rcube_imap::decode_mime_string($headers[$hkey], $headers['charset']));
845
846    $out .= "\n<tr>\n";
847    $out .= '<td class="header-title">'.Q(rcube_label($hkey)).":&nbsp;</td>\n";
848    $out .= '<td class="'.$hkey.'" width="90%">'.$header_value."</td>\n</tr>";
849    $header_count++;
850    }
851
852  $out .= "\n</table>\n\n";
853
854  return $header_count ? $out : ''; 
855  }
856
857
858
859function rcmail_message_body($attrib)
860  {
861  global $CONFIG, $OUTPUT, $MESSAGE, $IMAP, $GET_URL, $REMOTE_OBJECTS;
862 
863  if (!is_array($MESSAGE['parts']) && !$MESSAGE['body'])
864    return '';
865   
866  if (!$attrib['id'])
867    $attrib['id'] = 'rcmailMsgBody';
868
869  $safe_mode = $MESSAGE['is_safe'] || intval($_GET['_safe']);
870  $attrib_str = create_attrib_string($attrib, array('style', 'class', 'id'));
871  $out = '<div '. $attrib_str . ">\n";
872 
873  $header_attrib = array();
874  foreach ($attrib as $attr => $value)
875    if (preg_match('/^headertable([a-z]+)$/i', $attr, $regs))
876      $header_attrib[$regs[1]] = $value;
877
878
879  // this is an ecrypted message
880  // -> create a plaintext body with the according message
881  if (!sizeof($MESSAGE['parts']) && $MESSAGE['headers']->ctype=='multipart/encrypted')
882    {
883    $p = new stdClass;
884    $p->type = 'content';
885    $p->ctype_primary = 'text';
886    $p->ctype_secondary = 'plain';
887    $p->body = rcube_label('encryptedmessage');
888    $MESSAGE['parts'][0] = $p;
889    }
890 
891  if ($MESSAGE['parts'])
892    {
893    foreach ($MESSAGE['parts'] as $i => $part)
894      {
895      if ($part->type=='headers')
896        $out .= rcmail_message_headers(sizeof($header_attrib) ? $header_attrib : NULL, $part->headers);
897      else if ($part->type=='content')
898        {
899        if (empty($part->ctype_parameters) || empty($part->ctype_parameters['charset']))
900          $part->ctype_parameters['charset'] = $MESSAGE['headers']->charset;
901
902        // fetch part if not available
903        if (!isset($part->body))
904          $part->body = $IMAP->get_message_part($MESSAGE['UID'], $part->mime_id, $part);
905
906        $body = rcmail_print_body($part, $safe_mode, !$CONFIG['prefer_html']);
907        $out .= '<div class="message-part">';
908       
909        if ($part->ctype_secondary != 'plain')
910          $out .= rcmail_sanitize_html($body, $attrib['id']);
911        else
912          $out .= $body;
913
914        $out .= "</div>\n";
915        }
916      }
917    }
918  else
919    $out .= $MESSAGE['body'];
920
921
922  $ctype_primary = strtolower($MESSAGE['structure']->ctype_primary);
923  $ctype_secondary = strtolower($MESSAGE['structure']->ctype_secondary);
924 
925  // list images after mail body
926  if (get_boolean($attrib['showimages']) && $ctype_primary=='multipart' &&
927      !empty($MESSAGE['attachments']) && !strstr($message_body, '<html') && strlen($GET_URL))
928    {
929    foreach ($MESSAGE['attachments'] as $attach_prop)
930      {
931      if (strpos($attach_prop->mimetype, 'image/')===0)
932        $out .= sprintf("\n<hr />\n<p align=\"center\"><img src=\"%s&amp;_part=%s\" alt=\"%s\" title=\"%s\" /></p>\n",
933                        htmlspecialchars($GET_URL), $attach_prop->mime_id,
934                        $attach_prop->filename,
935                        $attach_prop->filename);
936      }
937    }
938 
939  // tell client that there are blocked remote objects
940  if ($REMOTE_OBJECTS && !$safe_mode)
941    $OUTPUT->set_env('blockedobjects', true);
942
943  $out .= "\n</div>";
944  return $out;
945  }
946
947
948
949// modify a HTML message that it can be displayed inside a HTML page
950function rcmail_sanitize_html($body, $container_id)
951  {
952  // remove any null-byte characters before parsing
953  $body = preg_replace('/\x00/', '', $body);
954 
955  $base_url = "";
956  $last_style_pos = 0;
957  $body_lc = strtolower($body);
958 
959  // check for <base href>
960  if (preg_match(($base_reg = '/(<base.*href=["\']?)([hftps]{3,5}:\/{2}[^"\'\s]+)([^<]*>)/i'), $body, $base_regs))
961    $base_url = $base_regs[2];
962 
963  // find STYLE tags
964  while (($pos = strpos($body_lc, '<style', $last_style_pos)) && ($pos2 = strpos($body_lc, '</style>', $pos)))
965    {
966    $pos = strpos($body_lc, '>', $pos)+1;
967
968    // replace all css definitions with #container [def]
969    $styles = rcmail_mod_css_styles(substr($body, $pos, $pos2-$pos), $container_id, $base_url);
970
971    $body = substr($body, 0, $pos) . $styles . substr($body, $pos2);
972    $body_lc = strtolower($body);
973    $last_style_pos = $pos2;
974    }
975
976
977  // remove SCRIPT tags
978  foreach (array('script', 'applet', 'object', 'embed', 'iframe') as $tag)
979    {
980    while (($pos = strpos($body_lc, '<'.$tag)) && (($pos2 = strpos($body_lc, '</'.$tag.'>', $pos)) || ($pos3 = strpos($body_lc, '>', $pos))))
981      {
982      $end = $pos2 ? $pos2 + strlen('</'.$tag.'>') : $pos3 + 1;
983      $body = substr($body, 0, $pos) . substr($body, $end, strlen($body)-$end);
984      $body_lc = strtolower($body);
985      }
986    }
987
988  // replace event handlers on any object
989  while ($body != $prev_body)
990    {
991    $prev_body = $body;
992    $body = preg_replace('/(<[^!][^>]*\s)on(?:load|unload|click|dblclick|mousedown|mouseup|mouseover|mousemove|mouseout|focus|blur|keypress|keydown|keyup|submit|reset|select|change)=([^>]+>)/im', '$1__removed=$2', $body);
993    $body = preg_replace('/(<[^!][^>]*\shref=["\']?)(javascript:)([^>]*?>)/im', '$1null:$3', $body);
994    }
995
996  // resolve <base href>
997  if ($base_url)
998    {
999    $body = preg_replace('/(src|background|href)=(["\']?)([\.\/]+[^"\'\s]+)(\2|\s|>)/Uie', "'\\1=\"'.make_absolute_url('\\3', '$base_url').'\"'", $body);
1000    $body = preg_replace('/(url\s*\()(["\']?)([\.\/]+[^"\'\)\s]+)(\2)\)/Uie', "'\\1\''.make_absolute_url('\\3', '$base_url').'\')'", $body);
1001    $body = preg_replace($base_reg, '', $body);
1002    }
1003   
1004  // modify HTML links to open a new window if clicked
1005  $body = preg_replace('/<(a|link)\s+([^>]+)>/Uie', "rcmail_alter_html_link('\\1','\\2', '$container_id');", $body);
1006
1007  // add comments arround html and other tags
1008  $out = preg_replace(array(
1009      '/(<!DOCTYPE.+)/i',
1010      '/(<\/?html[^>]*>)/i',
1011      '/(<\/?head[^>]*>)/i',
1012      '/(<title[^>]*>.*<\/title>)/Ui',
1013      '/(<\/?meta[^>]*>)/i'),
1014    '<!--\\1-->',
1015    $body);
1016
1017  $out = preg_replace(
1018    array(
1019      '/<body([^>]*)>/i',
1020      '/<\/body>/i',
1021    ),
1022    array(
1023      '<div class="rcmBody"\\1>',
1024      '</div>',
1025    ),
1026    $out);
1027
1028  // quote <? of php and xml files that are specified as text/html
1029  $out = preg_replace(array('/<\?/', '/\?>/'), array('&lt;?', '?&gt;'), $out);
1030
1031  return $out;
1032  }
1033
1034
1035// parse link attributes and set correct target
1036function rcmail_alter_html_link($tag, $attrs, $container_id)
1037  {
1038  $in = preg_replace('/=([^("|\'|\s)]+)(\s|$)/', '="\1"', $in);
1039  $attrib = parse_attrib_string($attrs);
1040 
1041  if ($tag == 'link' && preg_match('/^https?:\/\//i', $attrib['href']))
1042    $attrib['href'] = "./bin/modcss.php?u=" . urlencode($attrib['href']) . "&amp;c=" . urlencode($container_id);
1043
1044  else if (stristr((string)$attrib['href'], 'mailto:'))
1045    $attrib['onclick'] = sprintf(
1046      "return %s.command('compose','%s',this)",
1047      JS_OBJECT_NAME,
1048      JQ(substr($attrib['href'], 7)));
1049 
1050  else if (!empty($attrib['href']) && $attrib['href']{0}!='#')
1051    $attrib['target'] = '_blank';
1052
1053  return "<$tag" . create_attrib_string($attrib, array('href','name','target','onclick','id','class','style','title','rel','type','media')) . ' />';
1054  }
1055
1056
1057function rcmail_has_html_part($message_parts)
1058{
1059   if (!is_array($message_parts))
1060      return FALSE;
1061
1062   // check all message parts
1063   foreach ($message_parts as $pid => $part)
1064   {
1065      $mimetype = strtolower($part->ctype_primary.'/'.$part->ctype_secondary);
1066      if ($mimetype=='text/html')
1067      {
1068         return TRUE;
1069      }
1070   }
1071   
1072   return FALSE;
1073}
1074
1075// return first HTML part of a message
1076function rcmail_first_html_part($message_struct)
1077  {
1078  global $IMAP;
1079
1080  if (!is_array($message_struct['parts']))
1081    return FALSE;
1082   
1083  $html_part = NULL;
1084
1085  // check all message parts
1086  foreach ($message_struct['parts'] as $pid => $part)
1087    {
1088    $mimetype = strtolower($part->ctype_primary.'/'.$part->ctype_secondary);
1089    if ($mimetype=='text/html')
1090      {
1091      $html_part = $IMAP->get_message_part($message_struct['UID'], $pid, $part);
1092      }
1093    }
1094
1095  if ($html_part)
1096    {
1097    // remove special chars encoding
1098    //$trans = array_flip(get_html_translation_table(HTML_ENTITIES));
1099    //$html_part = strtr($html_part, $trans);
1100
1101    return $html_part;
1102    }
1103
1104  return FALSE;
1105}
1106
1107
1108// return first text part of a message
1109function rcmail_first_text_part($message_struct)
1110  {
1111  global $IMAP;
1112
1113  if (empty($message_struct['parts']))
1114    return $message_struct['UID'] ? $IMAP->get_body($message_struct['UID']) : false;
1115
1116  // check all message parts
1117  foreach ($message_struct['parts'] as $pid => $part)
1118    {
1119    $mimetype = strtolower($part->ctype_primary.'/'.$part->ctype_secondary);
1120
1121    if ($mimetype=='text/plain')
1122      return $IMAP->get_message_part($message_struct['UID'], $pid, $part);
1123
1124    else if ($mimetype=='text/html')
1125      {
1126      $html_part = $IMAP->get_message_part($message_struct['UID'], $pid, $part);
1127     
1128      // remove special chars encoding
1129      $trans = array_flip(get_html_translation_table(HTML_ENTITIES));
1130      $html_part = strtr($html_part, $trans);
1131
1132      // create instance of html2text class
1133      $txt = new html2text($html_part);
1134      return $txt->get_text();
1135      }
1136    }
1137
1138  return FALSE;
1139  }
1140
1141
1142// decode address string and re-format it as HTML links
1143function rcmail_address_string($input, $max=NULL, $addicon=NULL)
1144  {
1145  global $IMAP, $PRINT_MODE, $CONFIG, $OUTPUT, $EMAIL_ADDRESS_PATTERN;
1146 
1147  $a_parts = $IMAP->decode_address_list($input);
1148
1149  if (!sizeof($a_parts))
1150    return $input;
1151
1152  $c = count($a_parts);
1153  $j = 0;
1154  $out = '';
1155
1156  foreach ($a_parts as $part)
1157    {
1158    $j++;
1159    if ($PRINT_MODE)
1160      $out .= sprintf('%s &lt;%s&gt;', Q($part['name']), $part['mailto']);
1161    else if (preg_match($EMAIL_ADDRESS_PATTERN, $part['mailto']))
1162      {
1163      $out .= sprintf('<a href="mailto:%s" onclick="return %s.command(\'compose\',\'%s\',this)" class="rcmContactAddress" title="%s">%s</a>',
1164                      Q($part['mailto']),
1165                      JS_OBJECT_NAME,
1166                      JQ($part['mailto']),
1167                      Q($part['mailto']),
1168                      Q($part['name']));
1169                     
1170      if ($addicon)
1171        $out .= sprintf('&nbsp;<a href="#add" onclick="return %s.command(\'add-contact\',\'%s\',this)" title="%s"><img src="%s%s" alt="add" border="0" /></a>',
1172                        JS_OBJECT_NAME,
1173                        urlencode($part['string']),
1174                        rcube_label('addtoaddressbook'),
1175                        $CONFIG['skin_path'],
1176                        $addicon);
1177      }
1178    else
1179      {
1180      if ($part['name'])
1181        $out .= Q($part['name']);
1182      if ($part['mailto'])
1183        $out .= (strlen($out) ? ' ' : '') . sprintf('&lt;%s&gt;', Q($part['mailto']));
1184      }
1185     
1186    if ($c>$j)
1187      $out .= ','.($max ? '&nbsp;' : ' ');
1188       
1189    if ($max && $j==$max && $c>$j)
1190      {
1191      $out .= '...';
1192      break;
1193      }       
1194    }
1195   
1196  return $out;
1197  }
1198
1199
1200function rcmail_message_part_controls()
1201  {
1202  global $CONFIG, $IMAP, $MESSAGE;
1203 
1204  $part = asciiwords(get_input_value('_part', RCUBE_INPUT_GPC));
1205  if (!is_array($MESSAGE) || !is_array($MESSAGE['parts']) || !($_GET['_uid'] && $_GET['_part']) || !$MESSAGE['parts'][$part])
1206    return '';
1207   
1208  $part = $MESSAGE['parts'][$part];
1209  $attrib_str = create_attrib_string($attrib, array('id', 'class', 'style', 'cellspacing', 'cellpadding', 'border', 'summary'));
1210  $out = '<table '. $attrib_str . ">\n";
1211 
1212  if ($part->filename)
1213    {
1214    $out .= sprintf('<tr><td class="title">%s</td><td>%s</td><td>[<a href="./?%s">%s</a>]</tr>'."\n",
1215                    Q(rcube_label('filename')),
1216                    Q($part->filename),
1217                    str_replace('_frame=', '_download=', $_SERVER['QUERY_STRING']),
1218                    Q(rcube_label('download')));
1219    }
1220   
1221  if ($part->size)
1222    $out .= sprintf('<tr><td class="title">%s</td><td>%s</td></tr>'."\n",
1223                    Q(rcube_label('filesize')),
1224                    show_bytes($part->size));
1225 
1226  $out .= "\n</table>";
1227 
1228  return $out;
1229  }
1230
1231
1232
1233function rcmail_message_part_frame($attrib)
1234  {
1235  global $MESSAGE;
1236 
1237  $part = $MESSAGE['parts'][asciiwords(get_input_value('_part', RCUBE_INPUT_GPC))];
1238  $ctype_primary = strtolower($part->ctype_primary);
1239
1240  $attrib['src'] = Q('./?'.str_replace('_frame=', ($ctype_primary=='text' ? '_show=' : '_preload='), $_SERVER['QUERY_STRING']));
1241
1242  $attrib_str = create_attrib_string($attrib, array('id', 'class', 'style', 'src', 'width', 'height'));
1243  $out = '<iframe '. $attrib_str . "></iframe>";
1244   
1245  return $out;
1246  }
1247
1248
1249// clear message composing settings
1250function rcmail_compose_cleanup()
1251  {
1252  if (!isset($_SESSION['compose']))
1253    return;
1254
1255  // remove attachment files from temp dir
1256  if (is_array($_SESSION['compose']['attachments']))
1257    foreach ($_SESSION['compose']['attachments'] as $attachment)
1258      @unlink($attachment['path']);
1259 
1260  unset($_SESSION['compose']);
1261  }
1262 
1263
1264/**
1265 * Send the given message compose object using the configured method
1266 */
1267function rcmail_deliver_message(&$message, $from, $mailto)
1268{
1269  global $CONFIG;
1270
1271  $headers = $message->headers();
1272  $msg_body = $message->get();
1273 
1274  // send thru SMTP server using custom SMTP library
1275  if ($CONFIG['smtp_server'])
1276    {
1277    // generate list of recipients
1278    $a_recipients = array($mailto);
1279 
1280    if (strlen($headers['Cc']))
1281      $a_recipients[] = $headers['Cc'];
1282    if (strlen($headers['Bcc']))
1283      $a_recipients[] = $headers['Bcc'];
1284 
1285    // clean Bcc from header for recipients
1286    $send_headers = $headers;
1287    unset($send_headers['Bcc']);
1288
1289    // send message
1290    $smtp_response = array();
1291    $sent = smtp_mail($from, $a_recipients, ($foo = $message->txtHeaders($send_headers)), $msg_body, $smtp_response);
1292
1293    // log error
1294    if (!$sent)
1295      raise_error(array('code' => 800, 'type' => 'smtp', 'line' => __LINE__, 'file' => __FILE__,
1296                        'message' => "SMTP error: ".join("\n", $smtp_response)), TRUE, FALSE);
1297    }
1298 
1299  // send mail using PHP's mail() function
1300  else
1301    {
1302    // unset some headers because they will be added by the mail() function
1303    $headers_enc = $message->headers($headers);
1304    $headers_php = $message->_headers;
1305    unset($headers_php['To'], $headers_php['Subject']);
1306   
1307    // reset stored headers and overwrite
1308    $message->_headers = array();
1309    $header_str = $message->txtHeaders($headers_php);
1310 
1311    if (ini_get('safe_mode'))
1312      $sent = mail($headers_enc['To'], $headers_enc['Subject'], $msg_body, $header_str);
1313    else
1314      $sent = mail($headers_enc['To'], $headers_enc['Subject'], $msg_body, $header_str, "-f$from");
1315    }
1316 
1317 
1318  $message->_headers = array();
1319  $message->headers($headers);
1320 
1321  return $sent;
1322}
1323
1324
1325function rcmail_send_mdn($uid)
1326{
1327  global $CONFIG, $USER, $IMAP;
1328 
1329  $message = array('UID' => $uid);
1330  $message['headers'] = $IMAP->get_headers($message['UID']);
1331  $message['subject'] = rcube_imap::decode_mime_string($message['headers']->subject, $message['headers']->charset);
1332 
1333  if ($message['headers']->mdn_to && !$message['headers']->mdn_sent)
1334  {
1335    $identity = $USER->get_identity();
1336    $sender = format_email_recipient($identity['email'], $identity['name']);
1337    $recipient = array_shift($IMAP->decode_address_list($message['headers']->mdn_to));
1338    $mailto = $recipient['mailto'];
1339
1340    $compose = new rc_mail_mime(rcmail_header_delm());
1341    $compose->setParam(array(
1342      'text_encoding' => 'quoted-printable',
1343      'html_encoding' => 'quoted-printable',
1344      'head_encoding' => 'quoted-printable',
1345      'head_charset'  => RCMAIL_CHARSET,
1346      'html_charset'  => RCMAIL_CHARSET,
1347      'text_charset'  => RCMAIL_CHARSET,
1348    ));
1349   
1350    // compose headers array
1351    $headers = array(
1352      'Date' => date('r'),
1353      'From' => $sender,
1354      'To'   => $message['headers']->mdn_to,
1355      'Subject' => rcube_label('receiptread') . ': ' . $message['subject'],
1356      'Message-ID' => sprintf('<%s@%s>', md5(uniqid('rcmail'.rand(),true)), rcmail_mail_domain($_SESSION['imap_host'])),
1357      'X-Sender' => $identity['email'],
1358      'Content-Type' => 'multipart/report; report-type=disposition-notification',
1359    );
1360   
1361    if (!empty($CONFIG['useragent']))
1362      $headers['User-Agent'] = $CONFIG['useragent'];
1363
1364    $body = rcube_label("yourmessage") . "\r\n\r\n" .
1365      "\t" . rcube_label("to") . ': ' . rcube_imap::decode_mime_string($message['headers']->to, $message['headers']->charset) . "\r\n" .
1366      "\t" . rcube_label("subject") . ': ' . $message['subject'] . "\r\n" .
1367      "\t" . rcube_label("sent") . ': ' . format_date(strtotime($message['headers']->date), $CONFIG['date_long']) . "\r\n" .
1368      "\r\n" . rcube_label("receiptnote") . "\r\n";
1369   
1370    $ua = !empty($CONFIG['useragent']) ? $CONFIG['useragent'] : "RoundCube Webmail (Version ".RCMAIL_VERSION.")";
1371    $report = "Reporting-UA: $ua\r\n";
1372   
1373    if ($message['headers']->to)
1374        $report .= "Original-Recipient: {$message['headers']->to}\r\n";
1375   
1376    $report .= "Final-Recipient: rfc822; {$identity['email']}\r\n" .
1377               "Original-Message-ID: {$message['headers']->messageID}\r\n" .
1378               "Disposition: manual-action/MDN-sent-manually; displayed\r\n";
1379   
1380    $compose->headers($headers, true);
1381    $compose->setTXTBody($body);
1382    $compose->addAttachment($report, 'message/disposition-notification', 'MDNPart2.txt', false, '7bit', 'inline');
1383
1384    $sent = rcmail_deliver_message($compose, $identity['email'], $mailto);
1385
1386    if ($sent)
1387    {
1388      $IMAP->set_flag($message['UID'], 'MDNSENT');
1389      return true;
1390    }
1391  }
1392 
1393  return false;
1394}
1395
1396
1397// register UI objects
1398$OUTPUT->add_handlers(array(
1399  'mailboxlist' => 'rcmail_mailbox_list',
1400  'messages' => 'rcmail_message_list',
1401  'messagecountdisplay' => 'rcmail_messagecount_display',
1402  'quotadisplay' => 'rcmail_quota_display',
1403  'messageheaders' => 'rcmail_message_headers',
1404  'messagebody' => 'rcmail_message_body',
1405  'messagecontentframe' => 'rcmail_messagecontent_frame',
1406  'messagepartframe' => 'rcmail_message_part_frame',
1407  'messagepartcontrols' => 'rcmail_message_part_controls',
1408  'searchform' => 'rcmail_search_form'
1409));
1410
1411?>
Note: See TracBrowser for help on using the repository browser.