src/compose.php

   1 <?php
   2
   3 /**
   4  * compose.php
   5  *
   6  * Copyright (c) 1999-2002 The SquirrelMail Project Team
   7  * Licensed under the GNU GPL. For full terms see the file COPYING.
   8  *
   9  * This code sends a mail.
  10  *
  11  * There are 4 modes of operation:
  12  *    - Start new mail
  13  *    - Add an attachment
  14  *    - Send mail
  15  *    - Save As Draft
  16  *
  17  * $Id$
  18  */
  19
  20 /* Path for SquirrelMail required files. */
  21 define('SM_PATH','../');
  22
  23 /* SquirrelMail required files. */
  24 require_once(SM_PATH . 'include/validate.php');
  25 require_once(SM_PATH . 'functions/imap.php');
  26 require_once(SM_PATH . 'functions/date.php');
  27 require_once(SM_PATH . 'functions/mime.php');
  28 require_once(SM_PATH . 'functions/plugin.php');
  29 require_once(SM_PATH . 'functions/display_messages.php');
  30 require_once(SM_PATH . 'class/deliver/Deliver.class.php');
  31
  32 /* --------------------- Get globals ------------------------------------- */
  33 $username = $_SESSION['username'];
  34 $onetimepad = $_SESSION['onetimepad'];
  35 $base_uri = $_SESSION['base_uri'];
  36 $delimiter = $_SESSION['delimiter'];
  37
  38 if (isset($_POST['return'])) {
  39     $html_addr_search_done = 'Use Addresses';
  40 }
  41 if ( isset($_SESSION['composesession']) ) {
  42     $composesession = $_SESSION['composesession'];
  43 }
  44 sqextractGlobalVar('action');
  45 sqextractGlobalVar('session');
  46 sqextractGlobalVar('mailbox');
  47 sqextractGlobalVar('identity');
  48 sqextractGlobalVar('send_to');
  49 sqextractGlobalVar('send_to_cc');
  50 sqextractGlobalVar('send_to_bcc');
  51 sqextractGlobalVar('subject');
  52 sqextractGlobalVar('body');
  53 sqextractGlobalVar('mailprio');
  54 sqextractGlobalVar('request_mdn');
  55 sqextractGlobalVar('request_dr');
  56 sqextractGlobalVar('html_addr_search');
  57 sqextractGlobalVar('mail_sent');
  58 sqextractGlobalVar('passed_id');
  59 sqextractGlobalVar('passed_ent_id');
  60 sqextractGlobalVar('send');
  61
  62 if ( isset($_POST['sigappend']) ) {
  63     $sigappend = $_POST['sigappend'];
  64 }
  65 /* From addressbook search */
  66 if ( isset($_POST['from_htmladdr_search']) ) {
  67     $from_htmladdr_search = $_POST['from_htmladdr_search'];
  68 }
  69 if ( isset($_POST['addr_search_done']) ) {
  70     $html_addr_search_done = $_POST['addr_search_done'];
  71 }
  72 if ( isset($_POST['send_to_search']) ) {
  73     $send_to_search = &$_POST['send_to_search'];
  74 }
  75
  76 /* Attachments */
  77 sqextractGlobalVar('attach');
  78 if ( isset($_POST['do_delete']) ) {
  79     $do_delete = $_POST['do_delete'];
  80 }
  81 if ( isset($_POST['delete']) ) {
  82     $delete = &$_POST['delete'];
  83 }
  84 if ( isset($_SESSION['compose_messages']) ) {
  85     $compose_messages = &$_SESSION['compose_messages'];
  86 }
  87
  88
  89 /* Forward message as attachment */
  90 if ( isset($_GET['attachedmessages']) ) {
  91     $attachedmessages = $_GET['attachedmessages'];
  92 }
  93
  94 /* Drafts */
  95 sqextractGlobalVar('draft');
  96 sqextractGlobalVar('draft_id');
  97 sqextractGlobalVar('ent_num');
  98 sqextractGlobalVar('saved_draft');
  99 sqextractGlobalVar('delete_draft');
 100
 101 $key = $_COOKIE['key'];
 102
 103 /* --------------------- Specific Functions ------------------------------ */
 104
 105 function replyAllString($header) {
 106    global $include_self_reply_all, $username, $data_dir;
 107    $excl_ar = array();
 108    /**
 109     * 1) Remove the addresses we'll be sending the message 'to'
 110     */
 111    $url_replytoall_avoid_addrs = '';
 112    if (isset($header->replyto)) {
 113       $excl_ar = $header->getAddr_a('replyto');
 114    }
 115    /**
 116     * 2) Remove our identities from the CC list (they still can be in the
 117     * TO list) only if $include_self_reply_all is turned off
 118     */
 119    if (!$include_self_reply_all) {
 120        $email_address = trim(getPref($data_dir, $username, 'email_address'));
 121        $excl_ar[$email_address] = '';
 122        $idents = getPref($data_dir, $username, 'identities');
 123        if ($idents != '' && $idents > 1) {
 124           $first_id = false;
 125           for ($i = 1; $i < $idents; $i ++) {
 126              $cur_email_address = getPref($data_dir, $username,
 127                                          'email_address' . $i);
 128              $cur_email_address = strtolower($cur_email_address);
 129              $excl_ar[$cur_email_address] = '';
 130          }
 131        }
 132    }
 133
 134    /**
 135     * 3) get the addresses.
 136     */
 137    $url_replytoall_ar = $header->getAddr_a(array('to','cc'), $excl_ar);
 138
 139    /**
 140     * 4) generate the string.
 141     */
 142    $url_replytoallcc = '';
 143    foreach( $url_replytoall_ar as $email => $personal) {
 144       if ($personal) {
 145          $url_replytoallcc .= ", \"$personal\" <$email>";
 146       } else {
 147          $url_replytoallcc .= ', '. $email;
 148       }
 149    }
 150    $url_replytoallcc = substr($url_replytoallcc,2);
 151    return $url_replytoallcc;
 152 }
 153
 154 function getforwardHeader($orig_header) {
 155     global $editor_size;
 156
 157    $display = array( _("Subject") => strlen(_("Subject")),
 158                      _("From")    => strlen(_("From")),
 159                      _("Date")    => strlen(_("Date")),
 160                      _("To")      => strlen(_("To")),
 161                      _("Cc")      => strlen(_("Cc")) );
 162    $maxsize = max($display);
 163    $indent = str_pad('',$maxsize+2);
 164    foreach($display as $key => $val) {
 165       $display[$key] = $key .': '. str_pad('', $maxsize - $val);
 166    }
 167    $bodyTop =  str_pad(' '._("Original Message").' ',$editor_size -2,'-',STR_PAD_BOTH) .
 168                "\n". $display[_("Subject")] .
 169                decodeHeader($orig_header->subject) . "\n" .
 170                $display[_("From")] .
 171                decodeHeader($orig_header->getAddr_s('from',"\n$indent")) . "\n" .
 172                $display[_("Date")] .
 173                getLongDateString( $orig_header->date ). "\n" .
 174                $display[_("To")] .
 175                decodeHeader($orig_header->getAddr_s('to',"\n$indent")) ."\n";
 176   if ($orig_header->cc != array() && $orig_header->cc !='') {
 177      $bodyTop .= $display[_("Cc")] . decodeHeader($orig_header->getAddr_s('cc',"\n$indent")) . "\n";
 178   }
 179   $bodyTop .= str_pad('', $editor_size -2 , '-') .
 180               "\n";
 181   return $bodyTop;
 182 }
 183 /* ----------------------------------------------------------------------- */
 184
 185 /*
 186  * If the session is expired during a post this restores the compose session
 187  * vars.
 188  */
 189 if (sqsession_is_registered('session_expired_post')) {
 190     $session_expired_post = $_SESSION['session_expired_post'];
 191     /*
 192      * extra check for username so we don't display previous post data from
 193      * another user during this session.
 194      */
 195     if ($session_expired_post['username'] != $username) {
 196         unset($session_expired_post);
 197         sqsession_unregister('session_expired_post');
 198         session_write_close();
 199     } else {
 200         foreach ($session_expired_post as $postvar => $val) {
 201             if (isset($val)) {
 202                 $$postvar = $val;
 203             } else {
 204                 $$postvar = '';
 205             }
 206         }
 207         $compose_messages = unserialize(urldecode($restoremessages));
 208         sqsession_register($compose_messages,'compose_messages');
 209         sqsession_register($composesession,'composesession');
 210         if (isset($send)) {
 211             unset($send);
 212         }
 213         $session_expired = true;
 214     }
 215     unset($session_expired_post);
 216     sqsession_unregister('session_expired_post');
 217     session_write_close();
 218     if (!isset($mailbox)) {
 219         $mailbox = '';
 220     }
 221
 222     if ($compose_new_win == '1') {
 223         compose_Header($color, $mailbox);
 224     } else {
 225         displayPageHeader($color, $mailbox);
 226     }
 227     showInputForm($session, false);
 228     exit();
 229 }
 230 if (!isset($composesession)) {
 231     $composesession = 0;
 232     sqsession_register(0,'composesession');
 233 }
 234
 235 if (!isset($session) || (isset($newmessage) && $newmessage)) {
 236     sqsession_unregister('composesession');
 237     $session = "$composesession" +1;
 238     $composesession = $session;
 239     sqsession_register($composesession,'composesession');
 240 }
 241 if (!isset($compose_messages)) {
 242   $compose_messages = array();
 243 }
 244 if (!isset($compose_messages[$session]) || ($compose_messages[$session] == NULL)) {
 245 /* if (!array_key_exists($session, $compose_messages)) {  /* We can only do this in PHP >= 4.1 */
 246   $composeMessage = new Message();
 247   $rfc822_header = new Rfc822Header();
 248   $composeMessage->rfc822_header = $rfc822_header;
 249   $composeMessage->reply_rfc822_header = '';
 250   $compose_messages[$session] = $composeMessage;
 251   sqsession_register($compose_messages,'compose_messages');
 252 } else {
 253   $composeMessage=$compose_messages[$session];
 254 }
 255
 256 if (!isset($mailbox) || $mailbox == '' || ($mailbox == 'None')) {
 257     $mailbox = 'INBOX';
 258 }
 259
 260 if ($draft) {
 261     /*
 262      * Set $default_charset to correspond with the user's selection
 263      * of language interface.
 264      */
 265     set_my_charset();
 266     $composeMessage=$compose_messages[$session];
 267     if (! deliverMessage($composeMessage, true)) {
 268         showInputForm($session);
 269         exit();
 270     } else {
 271         unset($compose_messages[$session]);
 272         $draft_message = _("Draft Email Saved");
 273         /* If this is a resumed draft, then delete the original */
 274         if(isset($delete_draft)) {
 275             Header("Location: delete_message.php?mailbox=" . urlencode($draft_folder) .
 276                    "&message=$delete_draft&sort=$sort&startMessage=1&saved_draft=yes");
 277             exit();
 278         }
 279         else {
 280             if ($compose_new_win == '1') {
 281                 Header("Location: compose.php?saved_draft=yes&session=$composesession");
 282                 exit();
 283             }
 284             else {
 285                 Header("Location: right_main.php?mailbox=$draft_folder&sort=$sort".
 286                        "&startMessage=1&note=".urlencode($draft_message));
 287                 exit();
 288             }
 289         }
 290     }
 291 }
 292
 293 if ($send) {
 294     if (isset($_FILES['attachfile']) &&
 295         $_FILES['attachfile']['tmp_name'] &&
 296         $_FILES['attachfile']['tmp_name'] != 'none') {
 297         $AttachFailure = saveAttachedFiles($session);
 298     }
 299     if (checkInput(false) && !isset($AttachFailure)) {
 300         $urlMailbox = urlencode (trim($mailbox));
 301         if (! isset($passed_id)) {
 302             $passed_id = 0;
 303         }
 304         /*
 305          * Set $default_charset to correspond with the user's selection
 306          * of language interface.
 307          */
 308         set_my_charset();
 309         /*
 310          * This is to change all newlines to \n
 311          * We'll change them to \r\n later (in the sendMessage function)
 312          */
 313         $body = str_replace("\r\n", "\n", $body);
 314         $body = str_replace("\r", "\n", $body);
 315
 316         /*
 317          * Rewrap $body so that no line is bigger than $editor_size
 318          * This should only really kick in the sqWordWrap function
 319          * if the browser doesn't support "VIRTUAL" as the wrap type.
 320          */
 321         $body = explode("\n", $body);
 322         $newBody = '';
 323         foreach ($body as $line) {
 324             if( $line <> '-- ' ) {
 325                $line = rtrim($line);
 326             }
 327             if (strlen($line) <= $editor_size + 1) {
 328                 $newBody .= $line . "\n";
 329             } else {
 330                 sqWordWrap($line, $editor_size);
 331                 $newBody .= $line . "\n";
 332             }
 333         }
 334         $body = $newBody;
 335         do_hook('compose_send');
 336         $composeMessage=$compose_messages[$session];
 337
 338         $Result = deliverMessage($composeMessage);
 339         if (! $Result) {
 340             showInputForm($session);
 341             exit();
 342         }
 343        unset($compose_messages[$session]);
 344         if ( isset($delete_draft)) {
 345             Header("Location: delete_message.php?mailbox=" . urlencode( $draft_folder ).
 346                    "&message=$delete_draft&sort=$sort&startMessage=1&mail_sent=yes");
 347             exit();
 348         }
 349         if ($compose_new_win == '1') {
 350
 351             Header("Location: compose.php?mail_sent=yes");
 352         }
 353         else {
 354             Header("Location: right_main.php?mailbox=$urlMailbox&sort=$sort".
 355                    "&startMessage=1");
 356         }
 357     } else {
 358         if ($compose_new_win == '1') {
 359             compose_Header($color, $mailbox);
 360         }
 361         else {
 362             displayPageHeader($color, $mailbox);
 363         }
 364         if (isset($AttachFailure)) {
 365              plain_error_message(_("Could not move/copy file. File not attached"),
 366                                  $color);
 367         }
 368         checkInput(true);
 369         showInputForm($session);
 370         /* sqimap_logout($imapConnection); */
 371     }
 372 } elseif (isset($html_addr_search_done)) {
 373         if ($compose_new_win == '1') {
 374             compose_Header($color, $mailbox);
 375         }
 376         else {
 377             displayPageHeader($color, $mailbox);
 378         }
 379
 380     if (isset($send_to_search) && is_array($send_to_search)) {
 381         foreach ($send_to_search as $k => $v) {
 382             if (substr($k, 0, 1) == 'T') {
 383                 if ($send_to) {
 384                     $send_to .= ', ';
 385                 }
 386                 $send_to .= $v;
 387             }
 388             elseif (substr($k, 0, 1) == 'C') {
 389                 if ($send_to_cc) {
 390                     $send_to_cc .= ', ';
 391                 }
 392                 $send_to_cc .= $v;
 393             }
 394             elseif (substr($k, 0, 1) == 'B') {
 395                 if ($send_to_bcc) {
 396                     $send_to_bcc .= ', ';
 397                 }
 398                 $send_to_bcc .= $v;
 399             }
 400         }
 401     }
 402     showInputForm($session);
 403 } elseif (isset($html_addr_search)) {
 404     if (isset($_FILES['attachfile']) &&
 405         $_FILES['attachfile']['tmp_name'] &&
 406         $_FILES['attachfile']['tmp_name'] != 'none') {
 407         if(saveAttachedFiles($session)) {
 408             plain_error_message(_("Could not move/copy file. File not attached"), $color);
 409         }
 410     }
 411     /*
 412      * I am using an include so as to elminiate an extra unnecessary
 413      * click.  If you can think of a better way, please implement it.
 414      */
 415     include_once('./addrbook_search_html.php');
 416 } elseif (isset($attach)) {
 417     if (saveAttachedFiles($session)) {
 418         plain_error_message(_("Could not move/copy file. File not attached"), $color);
 419     }
 420         if ($compose_new_win == '1') {
 421             compose_Header($color, $mailbox);
 422         }
 423         else {
 424             displayPageHeader($color, $mailbox);
 425         }
 426     showInputForm($session);
 427 }
 428 elseif (isset($sigappend)) {
 429     $idents = getPref($data_dir, $username, 'identities', 0);
 430     if ($idents > 1) {
 431        if ($identity == 'default') {
 432           $no = 'g';
 433        } else {
 434           $no = $identity;
 435        }
 436        $signature = getSig($data_dir, $username, $no);
 437     }
 438     $body .= "\n\n".($prefix_sig==true? "-- \n":'').$signature;
 439     if ($compose_new_win == '1') {
 440          compose_Header($color, $mailbox);
 441     } else {
 442         displayPageHeader($color, $mailbox);
 443     }
 444     showInputForm($session);
 445 } elseif (isset($do_delete)) {
 446         if ($compose_new_win == '1') {
 447             compose_Header($color, $mailbox);
 448         }
 449         else {
 450             displayPageHeader($color, $mailbox);
 451         }
 452
 453     if (isset($delete) && is_array($delete)) {
 454         $composeMessage = $compose_messages[$session];
 455         foreach($delete as $index) {
 456             $attached_file = $composeMessage->entities[$index]->att_local_name;
 457             unlink ($attached_file);
 458             unset ($composeMessage->entities[$index]);
 459         }
 460         $new_entities = array();
 461         foreach ($composeMessage->entities as $entity) {
 462             $new_entities[] = $entity;
 463         }
 464         $composeMessage->entities = $new_entities;
 465         $compose_messages[$session] = $composeMessage;
 466         sqsession_register($compose_messages, 'compose_messages');
 467     }
 468     showInputForm($session);
 469 } else {
 470     /*
 471      * This handles the default case as well as the error case
 472      * (they had the same code) --> if (isset($smtpErrors))
 473      */
 474
 475     if ($compose_new_win == '1') {
 476        compose_Header($color, $mailbox);
 477     } else {
 478        displayPageHeader($color, $mailbox);
 479     }
 480
 481     $newmail = true;
 482
 483     if (!isset($passed_ent_id)) {
 484         $passed_ent_id = '';
 485     }
 486     if (!isset($passed_id)) {
 487         $passed_id = '';
 488     }
 489     if (!isset($mailbox)) {
 490         $mailbox = '';
 491     }
 492     if (!isset($action)) {
 493         $action = '';
 494     }
 495
 496     $values = newMail($mailbox,$passed_id,$passed_ent_id, $action, $session);
 497
 498     /* in case the origin is not read_body.php */
 499     if (isset($send_to)) {
 500        $values['send_to'] = $send_to;
 501     }
 502     if (isset($send_to_cc)) {
 503        $values['send_to_cc'] = $send_to_cc;
 504     }
 505     if (isset($send_to_bcc)) {
 506        $values['send_to_bcc'] = $send_to_bcc;
 507     }
 508     showInputForm($session, $values);
 509 }
 510
 511 exit();
 512
 513 /**************** Only function definitions go below *************/
 514
 515
 516 /* This function is used when not sending or adding attachments */
 517 function newMail ($mailbox='', $passed_id='', $passed_ent_id='', $action='', $session='') {
 518     global $editor_size, $default_use_priority, $body,
 519            $use_signature, $composesession, $data_dir, $username,
 520            $username, $key, $imapServerAddress, $imapPort, $compose_messages,
 521            $composeMessage;
 522
 523     $send_to = $send_to_cc = $send_to_bcc = $subject = $identity = '';
 524     $mailprio = 3;
 525
 526     if ($passed_id) {
 527         $imapConnection = sqimap_login($username, $key, $imapServerAddress,
 528         $imapPort, 0);
 529
 530         sqimap_mailbox_select($imapConnection, $mailbox);
 531         $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
 532
 533         $body = '';
 534         if ($passed_ent_id) {
 535             /* redefine the messsage in case of message/rfc822 */
 536             $message = $message->getEntity($passed_ent_id);
 537             /* message is an entity which contains the envelope and type0=message
 538             * and type1=rfc822. The actual entities are childs from
 539             * $message->entities[0]. That's where the encoding and is located
 540             */
 541
 542             $entities = $message->entities[0]->findDisplayEntity
 543             (array(), $alt_order = array('text/plain'));
 544             if (!count($entities)) {
 545                 $entities = $message->entities[0]->findDisplayEntity
 546                 (array(), $alt_order = array('text/plain','html/plain'));
 547             }
 548             $orig_header = $message->rfc822_header; /* here is the envelope located */
 549             /* redefine the message for picking up the attachments */
 550             $message = $message->entities[0];
 551
 552         } else {
 553             $entities = $message->findDisplayEntity (array(), $alt_order = array('text/plain'));
 554             if (!count($entities)) {
 555                 $entities = $message->findDisplayEntity (array(), $alt_order = array('text/plain','html/plain'));
 556             }
 557             $orig_header = $message->rfc822_header;
 558         }
 559
 560         $encoding = $message->header->encoding;
 561         $type0 = $message->type0;
 562         $type1 = $message->type1;
 563         foreach ($entities as $ent) {
 564             $unencoded_bodypart = mime_fetch_body($imapConnection, $passed_id, $ent);
 565             $body_part_entity = $message->getEntity($ent);
 566             $bodypart = decodeBody($unencoded_bodypart,
 567             $body_part_entity->header->encoding);
 568             if ($type1 == 'html') {
 569                 $bodypart = strip_tags($bodypart);
 570             }
 571             $body .= $bodypart;
 572         }
 573         if ($default_use_priority) {
 574             $mailprio = substr($orig_header->priority,0,1);
 575             if (!$mailprio) {
 576                 $mailprio = 3;
 577             }
 578         } else {
 579             $mailprio = '';
 580         }
 581         //ClearAttachments($session);
 582
 583         $identity = '';
 584         $idents = getPref($data_dir, $username, 'identities');
 585         $from_o = $orig_header->from;
 586         if (is_object($from_o)) {
 587             $orig_from = $from_o->getAddress();
 588         } else {
 589             $orig_from = '';
 590         }
 591         $identities = array();
 592         if (!empty($idents) && $idents > 1) {
 593             $identities[]  = '"'. getPref($data_dir, $username, 'full_name')
 594               . '" <' .  getPref($data_dir, $username, 'email_address') . '>';
 595             for ($i = 1; $i < $idents; $i++) {
 596                 $enc_from_name = '"'.
 597                     getPref($data_dir, $username, 'full_name' . $i) .
 598                     '" <' .
 599                     getPref($data_dir, $username, 'email_address' . $i) . '>';
 600                 if ($enc_from_name == $orig_from && $i) {
 601                     $identity = $i;
 602                     break;
 603                 }
 604                 $identities[] = $enc_from_name;
 605             }
 606             $identity_match = $orig_header->findAddress($identities);
 607             if ($identity_match) {
 608                 $identity = $identity_match;
 609             }
 610         }
 611
 612         switch ($action) {
 613         case ('draft'):
 614             $use_signature = FALSE;
 615             $send_to = decodeHeader($orig_header->getAddr_s('to'));
 616             $send_to_cc = decodeHeader($orig_header->getAddr_s('cc'));
 617             $send_to_bcc = decodeHeader($orig_header->getAddr_s('bcc'));
 618             $subject = decodeHeader($orig_header->subject);
 619
 620             $body_ary = explode("\n", $body);
 621             $cnt = count($body_ary) ;
 622             $body = '';
 623             for ($i=0; $i < $cnt; $i++) {
 624                 if (!ereg("^[>\\s]*$", $body_ary[$i])  || !$body_ary[$i]) {
 625                     sqWordWrap($body_ary[$i], $editor_size );
 626                     $body .= $body_ary[$i] . "\n";
 627                 }
 628                 unset($body_ary[$i]);
 629             }
 630             sqUnWordWrap($body);
 631             $composeMessage = getAttachments($message, $composeMessage, $passed_id, $entities, $imapConnection);
 632             break;
 633         case ('edit_as_new'):
 634             $send_to = decodeHeader($orig_header->getAddr_s('to'));
 635             $send_to_cc = decodeHeader($orig_header->getAddr_s('cc'));
 636             $send_to_bcc = decodeHeader($orig_header->getAddr_s('bcc'));
 637             $subject = decodeHeader($orig_header->subject);
 638             $mailprio = $orig_header->priority;
 639             $orig_from = '';
 640             $composeMessage = getAttachments($message, $composeMessage, $passed_id, $entities, $imapConnection);
 641             sqUnWordWrap($body);
 642             break;
 643         case ('forward'):
 644             $send_to = '';
 645             $subject = decodeHeader($orig_header->subject);
 646             if ((substr(strtolower($subject), 0, 4) != 'fwd:') &&
 647                 (substr(strtolower($subject), 0, 5) != '[fwd:') &&
 648                 (substr(strtolower($subject), 0, 6) != '[ fwd:')) {
 649                 $subject = '[Fwd: ' . $subject . ']';
 650             }
 651             $body = getforwardHeader($orig_header) . $body;
 652             sqUnWordWrap($body);
 653             $composeMessage = getAttachments($message, $composeMessage, $passed_id, $entities, $imapConnection);
 654             $body = "\n" . $body;
 655             break;
 656         case ('forward_as_attachment'):
 657             $composeMessage = getMessage_RFC822_Attachment($message, $composeMessage, $passed_id, $passed_ent_id, $imapConnection);
 658             $body = '';
 659             break;
 660         case ('reply_all'):
 661             $send_to_cc = replyAllString($orig_header);
 662         case ('reply'):
 663             $send_to = $orig_header->reply_to;
 664             if (is_array($send_to) && count($send_to)) {
 665                 $send_to = decodeHeader($orig_header->getAddr_s('reply_to'));
 666             } else if (is_object($send_to)) { /* unnessecarry, just for falesafe purpose */
 667                 $send_to = decodeHeader($orig_header->getAddr_s('reply_to'));
 668             } else {
 669                 $send_to = decodeHeader($orig_header->getAddr_s('from'));
 670             }
 671             $subject =  decodeHeader($orig_header->subject);
 672             $subject = str_replace('"', "'", $subject);
 673             $subject = trim($subject);
 674             if (substr(strtolower($subject), 0, 3) != 're:') {
 675                 $subject = 'Re: ' . $subject;
 676             }
 677             /* this corrects some wrapping/quoting problems on replies */
 678             $rewrap_body = explode("\n", $body);
 679                 $from =  (is_array($orig_header->from)) ?
 680                         $orig_header->from[0] : $orig_header->from;
 681             $body = getReplyCitation($from->getAddress(false));
 682             sqUnWordWrap($body);
 683             $cnt = count($rewrap_body);
 684             for ($i=0;$i<$cnt;$i++) {
 685               sqWordWrap($rewrap_body[$i], ($editor_size));
 686                 if (preg_match("/^(>+)/", $rewrap_body[$i], $matches)) {
 687                     $gt = $matches[1];
 688                     $body .= '>' . str_replace("\n", "\n>$gt ", rtrim($rewrap_body[$i])) ."\n";
 689                 } else {
 690                     $body .= '> ' . str_replace("\n", "\n> ", rtrim($rewrap_body[$i])) . "\n";
 691                 }
 692                 unset($rewrap_body[$i]);
 693             }
 694             $composeMessage->reply_rfc822_header = $orig_header;
 695             break;
 696             default:
 697             break;
 698         }
 699         $compose_messages[$session] = $composeMessage;
 700         sqsession_register($compose_messages, 'compose_messages');
 701         session_write_close();
 702         sqimap_logout($imapConnection);
 703     }
 704     $ret = array( 'send_to' => $send_to,
 705                   'send_to_cc' => $send_to_cc,
 706                   'send_to_bcc' => $send_to_bcc,
 707                   'subject' => $subject,
 708                   'mailprio' => $mailprio,
 709                   'body' => $body,
 710                   'identity' => $identity );
 711
 712     return ($ret);
 713 } /* function newMail() */
 714
 715 function getAttachments($message, &$composeMessage, $passed_id, $entities, $imapConnection) {
 716     global $attachment_dir, $username, $data_dir, $squirrelmail_language;
 717     $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
 718     if (!count($message->entities) ||
 719        ($message->type0 == 'message' && $message->type1 == 'rfc822')) {
 720         if ( !in_array($message->entity_id, $entities) && $message->entity_id) {
 721            switch ($message->type0) {
 722            case 'message':
 723              if ($message->type1 == 'rfc822') {
 724                 $filename = decodeHeader($message->rfc822_header->subject.'.eml');
 725                 if ($filename == "") {
 726                     $filename = "untitled-".$message->entity_id.'.eml';
 727                 }
 728              } else {
 729                $filename = decodeHeader($message->getFilename());
 730              }
 731              break;
 732            default:
 733              $filename = decodeHeader($message->getFilename());
 734              break;
 735            }
 736            if (isset($languages[$squirrelmail_language]['XTRA_CODE']) &&
 737                function_exists($languages[$squirrelmail_language]['XTRA_CODE'])) {
 738                 $filename =  $languages[$squirrelmail_language]['XTRA_CODE']('encode', $filename);
 739            }
 740
 741            $localfilename = GenerateRandomString(32, '', 7);
 742            $full_localfilename = "$hashed_attachment_dir/$localfilename";
 743            while (file_exists($full_localfilename)) {
 744                $localfilename = GenerateRandomString(32, '', 7);
 745                $full_localfilename = "$hashed_attachment_dir/$localfilename";
 746            }
 747            $message->att_local_name = $full_localfilename;
 748            if (!$message->mime_header) { /* temporary hack */
 749               $message->mime_header = $message->header;
 750            }
 751
 752            $composeMessage->addEntity($message);
 753
 754            /* Write Attachment to file */
 755            $fp = fopen ("$hashed_attachment_dir/$localfilename", 'wb');
 756            fputs($fp, decodeBody(mime_fetch_body($imapConnection,
 757               $passed_id, $message->entity_id),
 758               $message->header->encoding));
 759            fclose ($fp);
 760         }
 761     } else {
 762         for ($i=0, $entCount=count($message->entities); $i<$entCount;$i++) {
 763             $composeMessage=getAttachments($message->entities[$i], $composeMessage, $passed_id, $entities, $imapConnection);
 764         }
 765     }
 766 //    setPref($data_dir, $username, 'attachments', serialize($attachments));
 767     return $composeMessage;
 768 }
 769
 770 function getMessage_RFC822_Attachment($message, $composeMessage, $passed_id,
 771                                       $passed_ent_id='', $imapConnection) {
 772     global $attachments, $attachment_dir, $username, $data_dir, $uid_support;
 773     $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
 774     if (!$passed_ent_id) {
 775         $body_a = sqimap_run_command($imapConnection,
 776                                     'FETCH '.$passed_id.' RFC822',
 777                                     TRUE, $response, $readmessage,
 778                                     $uid_support);
 779     } else {
 780         $body_a = sqimap_run_command($imapConnection,
 781                                      'FETCH '.$passed_id.' BODY['.$passed_ent_id.']',
 782                                      TRUE, $response, $readmessage, $uid_support);
 783         $message = $message->parent;
 784     }
 785     if ($response = 'OK') {
 786         $subject = encodeHeader($message->rfc822_header->subject);
 787         array_shift($body_a);
 788         $body = implode('', $body_a) . "\r\n";
 789
 790         $localfilename = GenerateRandomString(32, 'FILE', 7);
 791         $full_localfilename = "$hashed_attachment_dir/$localfilename";
 792
 793         $fp = fopen( $full_localfilename, 'w');
 794         fwrite ($fp, $body);
 795         fclose($fp);
 796         $composeMessage->initAttachment('message/rfc822',$subject.'.eml',
 797                          $full_localfilename);
 798     }
 799     return $composeMessage;
 800 }
 801
 802 function showInputForm ($session, $values=false) {
 803     global $send_to, $send_to_cc, $body,
 804            $passed_body, $color, $use_signature, $signature, $prefix_sig,
 805            $editor_size, $attachments, $subject, $newmail,
 806            $use_javascript_addr_book, $send_to_bcc, $passed_id, $mailbox,
 807            $from_htmladdr_search, $location_of_buttons, $attachment_dir,
 808            $username, $data_dir, $identity, $draft_id, $delete_draft,
 809            $mailprio, $default_use_mdn, $mdn_user_support, $compose_new_win,
 810            $saved_draft, $mail_sent, $sig_first, $edit_as_new, $action,
 811            $username, $compose_messages, $composesession;
 812
 813     $composeMessage = $compose_messages[$session];
 814
 815     $subject = decodeHeader($subject, false);
 816     if ($values) {
 817        $send_to = $values['send_to'];
 818        $send_to_cc = $values['send_to_cc'];
 819        $send_to_bcc = $values['send_to_bcc'];
 820        $subject = $values['subject'];
 821        $mailprio = $values['mailprio'];
 822        $body = $values['body'];
 823        $identity = $values['identity'];
 824     }
 825
 826     if ($use_javascript_addr_book) {
 827         echo "\n". '<SCRIPT LANGUAGE=JavaScript><!--' . "\n" .
 828              'function open_abook() { ' . "\n" .
 829              '  var nwin = window.open("addrbook_popup.php","abookpopup",' .
 830              '"width=670,height=300,resizable=yes,scrollbars=yes");' . "\n" .
 831              '  if((!nwin.opener) && (document.windows != null))' . "\n" .
 832              '    nwin.opener = document.windows;' . "\n" .
 833              "}\n" .
 834              '// --></SCRIPT>' . "\n\n";
 835     }
 836
 837     echo "\n" . '<FORM name=compose action="compose.php" METHOD=POST ' .
 838          'ENCTYPE="multipart/form-data"';
 839     do_hook("compose_form");
 840
 841     echo ">\n";
 842
 843     if ($action == 'draft') {
 844         echo '<input type="hidden" name="delete_draft" value="' . $passed_id . "\">\n";
 845     }
 846     if (isset($delete_draft)) {
 847         echo '<input type="hidden" name="delete_draft" value="' . $delete_draft. "\">\n";
 848     }
 849     if (isset($session)) {
 850         echo '<input type="hidden" name="session" value="' . $session . "\">\n";
 851     }
 852
 853     if (isset($passed_id)) {
 854         echo '<input type="hidden" name="passed_id" value="' . $passed_id . "\">\n";
 855     }
 856
 857     if ($saved_draft == 'yes') {
 858         echo '<BR><CENTER><B>'. _("Draft Saved").'</CENTER></B>';
 859     }
 860     if ($mail_sent == 'yes') {
 861         echo '<BR><CENTER><B>'. _("Your Message has been sent").'</CENTER></B>';
 862     }
 863     echo '<TABLE ALIGN=center CELLSPACING=0 BORDER=0>' . "\n";
 864     if ($compose_new_win == '1') {
 865         echo '<TABLE ALIGN=CENTER BGCOLOR="'.$color[0].'" WIDTH="100%" BORDER=0>'."\n" .
 866              '   <TR><TD></TD><TD ALIGN="RIGHT"><INPUT TYPE="BUTTON" NAME="Close" onClick="return self.close()" VALUE='._("Close").'></TD></TR>'."\n";
 867     }
 868     if ($location_of_buttons == 'top') {
 869         showComposeButtonRow();
 870     }
 871
 872     $idents = getPref($data_dir, $username, 'identities', 0);
 873     if ($idents > 1) {
 874         echo '   <TR>' . "\n" .
 875              '      <TD BGCOLOR="' . $color[4] . '" WIDTH="10%" ALIGN=RIGHT>' .
 876                     _("From:") . '</TD>' . "\n" .
 877              '      <TD BGCOLOR="' . $color[4] . '" WIDTH="90%">' . "\n" .
 878              '         <select name=identity>' . "\n" .
 879              '         <option value=default>' .
 880                        htmlspecialchars(getPref($data_dir, $username, 'full_name'));
 881         $em = getPref($data_dir, $username, 'email_address');
 882         if ($em != '') {
 883             echo htmlspecialchars(' <' . $em . '>') . "\n";
 884         }
 885         for ($i = 1; $i < $idents; $i ++) {
 886             echo '<option value="' . $i . '"';
 887             if (isset($identity) && $identity == $i) {
 888                 echo ' SELECTED';
 889             }
 890             echo '>' . htmlspecialchars(getPref($data_dir, $username,
 891                                                 'full_name' . $i));
 892             $em = getPref($data_dir, $username, 'email_address' . $i);
 893             if ($em != '') {
 894                 echo htmlspecialchars(' <' . $em . '>') . "\n";
 895             }
 896             echo '</option>';
 897         }
 898         echo '</select>' . "\n" .
 899              '      </TD>' . "\n" .
 900              '   </TR>' . "\n";
 901     }
 902     echo '   <TR>' . "\n" .
 903          '      <TD BGCOLOR="' . $color[4] . '" WIDTH="10%" ALIGN=RIGHT>' .
 904                 _("To:") . '</TD>' . "\n" .
 905          '      <TD BGCOLOR="' . $color[4] . '" WIDTH="90%">' . "\n" .
 906          '         <INPUT TYPE=text NAME="send_to" VALUE="' .
 907                    htmlspecialchars($send_to) . '" SIZE=60><BR>' . "\n" .
 908          '      </TD>' . "\n" .
 909          '   </TR>' . "\n" .
 910          '   <TR>' . "\n" .
 911          '      <TD BGCOLOR="' . $color[4] . '" ALIGN=RIGHT>' .
 912                 _("CC:") . '</TD>' . "\n" .
 913          '      <TD BGCOLOR="' . $color[4] . '" ALIGN=LEFT>' . "\n" .
 914          '         <INPUT TYPE=text NAME="send_to_cc" SIZE=60 VALUE="' .
 915                    htmlspecialchars($send_to_cc) . '"><BR>' . "\n" .
 916          '      </TD>' . "\n" .
 917          '   </TR>' . "\n" .
 918          '   <TR>' . "\n" .
 919          '      <TD BGCOLOR="' . $color[4] . '" ALIGN=RIGHT>' .
 920                 _("BCC:") . '</TD>' . "\n" .
 921          '      <TD BGCOLOR="' . $color[4] . '" ALIGN=LEFT>' . "\n" .
 922          '         <INPUT TYPE=text NAME="send_to_bcc" VALUE="' .
 923                 htmlspecialchars($send_to_bcc) . '" SIZE=60><BR>' . "\n" .
 924          '      </TD>' . "\n" .
 925          '   </TR>' . "\n" .
 926          '   <TR>' . "\n" .
 927          '      <TD BGCOLOR="' . $color[4] . '" ALIGN=RIGHT>' .
 928                 _("Subject:") . '</TD>' . "\n" .
 929          '      <TD BGCOLOR="' . $color[4] . '" ALIGN=LEFT>' . "\n";
 930     echo '         <INPUT TYPE=text NAME=subject SIZE=60 VALUE="' .
 931                    htmlspecialchars($subject) . '">' . "\n" .
 932          '      </TD>' . "\n" .
 933          '   </TR>' . "\n\n";
 934
 935     if ($location_of_buttons == 'between') {
 936         showComposeButtonRow();
 937     }
 938
 939     if ($compose_new_win == '1') {
 940         echo '   <TR>' . "\n" .
 941              '      <TD BGCOLOR="' . $color[0] . '" COLSPAN=2 ALIGN=CENTER>' . "\n" .
 942              '         <TEXTAREA NAME=body ROWS=20 COLS="' .
 943                        $editor_size . '" WRAP="VIRTUAL">';
 944     }
 945     else {
 946         echo '   <TR>' . "\n" .
 947             '      <TD BGCOLOR="' . $color[4] . '" COLSPAN=2>' . "\n" .
 948             '         &nbsp;&nbsp;<TEXTAREA NAME=body ROWS=20 COLS="' .
 949                       $editor_size . '" WRAP="VIRTUAL">';
 950     }
 951     if ($use_signature == true && $newmail == true && !isset($from_htmladdr_search)) {
 952         if ($sig_first == '1') {
 953             if ($charset == 'iso-2022-jp') {
 954                 echo "\n\n".($prefix_sig==true? "-- \n":'').mb_convert_encoding($signature, 'EUC-JP');
 955             } else {
 956             echo "\n\n".($prefix_sig==true? "-- \n":'').htmlspecialchars($signature);
 957             }
 958             echo "\n\n".htmlspecialchars($body);
 959         }
 960         else {
 961             echo "\n\n".htmlspecialchars($body);
 962             if ($charset == 'iso-2022-jp') {
 963                 echo "\n\n".($prefix_sig==true? "-- \n":'').mb_convert_encoding($signature, 'EUC-JP');
 964             }else{
 965             echo "\n\n".($prefix_sig==true? "-- \n":'').htmlspecialchars($signature);
 966         }
 967     }
 968     }
 969     else {
 970        echo htmlspecialchars($body);
 971     }
 972     echo '</TEXTAREA><BR>' . "\n" .
 973          '      </TD>' . "\n" .
 974          '   </TR>' . "\n";
 975
 976     if ($location_of_buttons == 'bottom') {
 977         showComposeButtonRow();
 978     } else {
 979         echo '   <TR>' . "\n" .
 980              '      <TD COLSPAN=2 ALIGN=RIGHT>' . "\n" .
 981              '         <INPUT TYPE=SUBMIT NAME=send VALUE="' . _("Send") . '">' . "\n" .
 982              '         &nbsp;&nbsp;&nbsp;&nbsp;<BR><BR>' . "\n" .
 983              '      </TD>' . "\n" .
 984              '   </TR>' . "\n";
 985     }
 986
 987     /* This code is for attachments */
 988     echo '   <TR>' . "\n" .
 989          '      <TD COLSPAN=2>' . "\n" .
 990          '         <table width="100%" cellpadding="1" cellspacing="0" align="center"'.
 991                    ' border="0" bgcolor="'.$color[9].'">' . "\n" .
 992          '            <TR>' . "\n" .
 993          '               <TD>' . "\n" .
 994          '                 <table width="100%" cellpadding="3" cellspacing="0" align="center"'.
 995                            ' border="0">' . "\n" .
 996          '                    <TR>' . "\n" .
 997          '                       <TD VALIGN=MIDDLE ALIGN=RIGHT>' .
 998                                  _("Attach:") . '</TD>' . "\n" .
 999          '                       <TD VALIGN=MIDDLE ALIGN=LEFT>' . "\n" .
1000          '                          <INPUT NAME="attachfile" SIZE=48 TYPE="file">' . "\n" .
1001          '                          &nbsp;&nbsp;<input type="submit" name="attach"' .
1002                                     ' value="' . _("Add") .'">' . "\n" .
1003          '                       </TD>' . "\n" .
1004          '                    </TR>' . "\n";
1005
1006
1007     $s_a = array();
1008     if ($composeMessage->entities) {
1009         foreach ($composeMessage->entities as $key => $attachment) {
1010            $attached_file = $attachment->att_local_name;
1011            if ($attachment->att_local_name || $attachment->body_part) {
1012                 $attached_filename = decodeHeader($attachment->mime_header->getParameter('name'));
1013                 $type = $attachment->mime_header->type0.'/'.
1014                         $attachment->mime_header->type1;
1015                 $s_a[] = '<input type="checkbox" name="delete[]" value="' .
1016                          $key . "\">\n" . $attached_filename . ' - ' . $type .
1017                          ' ('.show_readable_size( filesize( $attached_file ) )
1018                          . ')<br>'."\n";
1019            }
1020         }
1021     }
1022     if (count($s_a)) {
1023        foreach ($s_a as $s) {
1024           echo '<tr><td align=left colspan="2" bgcolor="' . $color[0] . '">'.$s.'</td></tr>';
1025        }
1026        echo '<tr><td colspan="2"><input type="submit" name="do_delete" value="' .
1027             _("Delete selected attachments") . "\">\n" .
1028             '</td></tr>';
1029     }
1030     echo '                  </table>' . "\n" .
1031          '               </td>' . "\n" .
1032          '            </tr>' . "\n" .
1033          '         </TABLE>' . "\n" .
1034          '      </TD>' . "\n" .
1035          '   </TR>' . "\n";
1036
1037     /* End of attachment code */
1038     if ($compose_new_win == '1') {
1039         echo '</TABLE>'."\n";
1040     }
1041     echo '</TABLE>' . "\n" .
1042          '<input type="hidden" name="username" value="'. $username . "\">\n" .
1043          '<input type=hidden name=action value="' . $action . "\">\n" .
1044          '<INPUT TYPE=hidden NAME=mailbox VALUE="' . htmlspecialchars($mailbox) .
1045          "\">\n";
1046     /*
1047        store the complete ComposeMessages array in a hidden input value
1048        so we can restore them in case of a session timeout.
1049     */
1050     echo '<input type=hidden name=restoremessages value="' . urlencode(serialize($compose_messages)) . "\">\n";
1051     echo '<input type=hidden name=composesession value="' . $composesession . "\">\n";
1052     echo '<input type=hidden name=querystring value="' . $_SERVER['QUERY_STRING'] . "\">\n";
1053     echo '</FORM>';
1054     do_hook('compose_bottom');
1055     echo '</BODY></HTML>' . "\n";
1056 }
1057
1058
1059 function showComposeButtonRow() {
1060     global $use_javascript_addr_book, $save_as_draft,
1061            $default_use_priority, $mailprio, $default_use_mdn,
1062            $request_mdn, $request_dr,
1063            $data_dir, $username;
1064
1065     echo '   <TR>' . "\n" .
1066          '      <TD></TD>' . "\n" .
1067          '      <TD>' . "\n";
1068     if ($default_use_priority) {
1069         if(!isset($mailprio)) {
1070             $mailprio = "3";
1071     }
1072     echo '          ' . _("Priority") .': <select name="mailprio">'.
1073          '<option value="1"'.($mailprio=='1'?' selected':'').'>'. _("High") .'</option>'.
1074          '<option value="3"'.($mailprio=='3'?' selected':'').'>'. _("Normal") .'</option>'.
1075          '<option value="5"'.($mailprio=='5'?' selected':'').'>'. _("Low").'</option>'.
1076          '</select>' . "\n";
1077     }
1078     $mdn_user_support=getPref($data_dir, $username, 'mdn_user_support',$default_use_mdn);
1079     if ($default_use_mdn) {
1080         if ($mdn_user_support) {
1081             echo '          ' . _("Receipt") .': '.
1082             '<input type="checkbox" name="request_mdn" value=1'.
1083         ($request_mdn=='1'?' checked':'') .'>'. _("On Read").
1084             ' <input type="checkbox" name="request_dr" value=1'.
1085         ($request_dr=='1'?' checked':'') .'>'. _("On Delivery");
1086         }
1087     }
1088
1089     echo '      </TD>' . "\n" .
1090          '   </TR>' . "\n" .
1091          '   <TR>'  . "\n" .
1092          '      <TD></TD>' . "\n" .
1093          '      <TD>' . "\n" .
1094          '         <INPUT TYPE=SUBMIT NAME="sigappend" VALUE="' . _("Signature") . '">' . "\n";
1095     if ($use_javascript_addr_book) {
1096         echo "         <SCRIPT LANGUAGE=JavaScript><!--\n document.write(\"".
1097              "            <input type=button value=\\\""._("Addresses").
1098                                  "\\\" onclick='javascript:open_abook();'>\");".
1099              "            // --></SCRIPT><NOSCRIPT>\n".
1100              "            <input type=submit name=\"html_addr_search\" value=\"".
1101                               _("Addresses")."\">".
1102              "         </NOSCRIPT>\n";
1103     } else {
1104         echo '         <input type=submit name="html_addr_search" value="'.
1105                                  _("Addresses").'">' . "\n";
1106     }
1107
1108     if ($save_as_draft) {
1109         echo '         <input type="submit" name ="draft" value="' . _("Save Draft") . "\">\n";
1110     }
1111
1112     echo '         <INPUT TYPE=submit NAME=send VALUE="'. _("Send") . '">' . "\n";
1113     do_hook('compose_button_row');
1114
1115     echo '      </TD>' . "\n" .
1116          '   </TR>' . "\n\n";
1117 }
1118
1119 function checkInput ($show) {
1120     /*
1121      * I implemented the $show variable because the error messages
1122      * were getting sent before the page header.  So, I check once
1123      * using $show=false, and then when i'm ready to display the error
1124      * message, show=true
1125      */
1126     global $body, $send_to, $send_to_bcc, $subject, $color;
1127
1128     if ($send_to == '' && $send_to_bcc == '') {
1129         if ($show) {
1130             plain_error_message(_("You have not filled in the \"To:\" field."), $color);
1131         }
1132         return false;
1133     }
1134     return true;
1135 } /* function checkInput() */
1136
1137
1138 /* True if FAILURE */
1139 function saveAttachedFiles($session) {
1140     global $_FILES, $attachment_dir, $attachments, $username,
1141            $data_dir, $compose_messages;
1142
1143     /* get out of here if no file was attached at all */
1144     if (! is_uploaded_file($_FILES['attachfile']['tmp_name']) ) {
1145         return true;
1146     }
1147
1148     $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
1149     $localfilename = GenerateRandomString(32, '', 7);
1150     $full_localfilename = "$hashed_attachment_dir/$localfilename";
1151     while (file_exists($full_localfilename)) {
1152         $localfilename = GenerateRandomString(32, '', 7);
1153         $full_localfilename = "$hashed_attachment_dir/$localfilename";
1154     }
1155
1156     if (!@rename($_FILES['attachfile']['tmp_name'], $full_localfilename)) {
1157         if (function_exists("move_uploaded_file")) {
1158             if (!@move_uploaded_file($_FILES['attachfile']['tmp_name'],$full_localfilename)) {
1159                 return true;
1160             }
1161         } else {
1162             if (!@copy($_FILES['attachfile']['tmp_name'], $full_localfilename)) {
1163                 return true;
1164             }
1165         }
1166     }
1167     $message = $compose_messages[$session];
1168     $type = strtolower($_FILES['attachfile']['type']);
1169     $name = $_FILES['attachfile']['name'];
1170     $message->initAttachment($type, $name, $full_localfilename);
1171     $compose_messages[$session] = $message;
1172 }
1173
1174 function ClearAttachments($composeMessage) {
1175     if ($composeMessage->att_local_name) {
1176         $attached_file = $composeMessage->att_local_name;
1177         if (file_exists($attached_file)) {
1178             unlink($attached_file);
1179         }
1180     }
1181     for ($i=0, $entCount=count($composeMessage->entities);$i< $entCount; ++$i) {
1182         ClearAttachments($composeMessage->entities[$i]);
1183     }
1184 }
1185
1186
1187
1188 function getReplyCitation($orig_from) {
1189     global $reply_citation_style, $reply_citation_start, $reply_citation_end;
1190
1191     /* First, return an empty string when no citation style selected. */
1192     if (($reply_citation_style == '') || ($reply_citation_style == 'none')) {
1193         return '';
1194     }
1195
1196     /* Make sure our final value isn't an empty string. */
1197     if ($orig_from == '') {
1198         return '';
1199     }
1200
1201     /* Otherwise, try to select the desired citation style. */
1202     switch ($reply_citation_style) {
1203     case 'author_said':
1204         $start = '';
1205         $end   = ' ' . _("said") . ':';
1206         break;
1207     case 'quote_who':
1208         $start = '<' . _("quote") . ' ' . _("who") . '="';
1209         $end   = '">';
1210         break;
1211     case 'user-defined':
1212         $start = $reply_citation_start .
1213          ($reply_citation_start == '' ? '' : ' ');
1214         $end   = $reply_citation_end;
1215         break;
1216     default:
1217         return '';
1218     }
1219
1220     /* Build and return the citation string. */
1221     return ($start . $orig_from . $end . "\n");
1222 }
1223
1224 /* temporary function to make use of the deliver class.
1225    In the future the responsable backend should be automaticly loaded
1226    and conf.pl should show a list of available backends.
1227    The message also should be constructed by the message class.
1228 */
1229
1230 function deliverMessage($composeMessage, $draft=false) {
1231     global $send_to, $send_to_cc, $send_to_bcc, $mailprio, $subject, $body,
1232            $username, $popuser, $usernamedata, $identity, $data_dir,
1233            $request_mdn, $request_dr, $default_charset, $color, $useSendmail,
1234            $domain, $action;
1235     global $imapServerAddress, $imapPort, $sent_folder, $key;
1236
1237     $rfc822_header = $composeMessage->rfc822_header;
1238     $rfc822_header->to = $rfc822_header->parseAddress($send_to,true, array(), '', $domain);
1239     $rfc822_header->cc = $rfc822_header->parseAddress($send_to_cc,true,array(), '',$domain);
1240     $rfc822_header->bcc = $rfc822_header->parseAddress($send_to_bcc,true, array(), '',$domain);
1241     $rfc822_header->priority = $mailprio;
1242     $rfc822_header->subject = $subject;
1243     $special_encoding='';
1244     if (strtolower($default_charset) == 'iso-2022-jp') {
1245         if (mb_detect_encoding($body) == 'ASCII') {
1246             $special_encoding = '8bit';
1247         } else {
1248             $body = mb_convert_encoding($body, 'JIS');
1249             $special_encoding = '7bit';
1250         }
1251     }
1252     $composeMessage->setBody($body);
1253
1254     if (ereg("^([^@%/]+)[@%/](.+)$", $username, $usernamedata)) {
1255        $popuser = $usernamedata[1];
1256        $domain  = $usernamedata[2];
1257        unset($usernamedata);
1258     } else {
1259        $popuser = $username;
1260     }
1261     $reply_to = '';
1262     if (isset($identity) && $identity != 'default') {
1263         $from_mail = getPref($data_dir, $username,'email_address' . $identity);
1264         $full_name = getPref($data_dir, $username,'full_name' . $identity);
1265         $reply_to = getPref($data_dir, $username,'reply_to' . $identity);
1266     } else {
1267         $from_mail = getPref($data_dir, $username, 'email_address');
1268         $full_name = getPref($data_dir, $username, 'full_name');
1269         $reply_to = getPref($data_dir, $username,'reply_to');
1270     }
1271     if (!$from_mail) {
1272        $from_mail = "$popuser@$domain";
1273        $full_name = '';
1274     }
1275     $rfc822_header->from = $rfc822_header->parseAddress($from_mail,true);
1276     if ($full_name) {
1277         $from = $rfc822_header->from[0];
1278         if (!$from->host) $from->host = $domain;
1279         $from_addr = '"'.$full_name .'" <'.$from->mailbox.'@'.$from->host.'>';
1280         $rfc822_header->from = $rfc822_header->parseAddress($from_addr,true);
1281     }
1282     if ($reply_to) {
1283        $rfc822_header->reply_to = $rfc822_header->parseAddress($reply_to,true);
1284     }
1285     /* Receipt: On Read */
1286     if (isset($request_mdn) && $request_mdn) {
1287        $rfc822_header->dnt = $rfc822_header->parseAddress($from_mail,true);
1288     }
1289     /* Receipt: On Delivery */
1290     if (isset($request_dr) && $request_dr) {
1291        $rfc822_header->more_headers['Return-Receipt-To'] = $from_mail;
1292     }
1293     /* multipart messages */
1294     if (count($composeMessage->entities)) {
1295         $message_body = new Message();
1296         $message_body->body_part = $composeMessage->body_part;
1297         $composeMessage->body_part = '';
1298         $mime_header = new MessageHeader;
1299         $mime_header->type0 = 'text';
1300         $mime_header->type1 = 'plain';
1301         if ($special_encoding) {
1302             $mime_header->encoding = $special_encoding;
1303         } else {
1304             $mime_header->encoding = 'us-ascii';
1305         }
1306         if ($default_charset) {
1307             $mime_header->parameters['charset'] = $default_charset;
1308         }
1309         $message_body->mime_header = $mime_header;
1310         array_unshift($composeMessage->entities, $message_body);
1311         $content_type = new ContentType('multipart/mixed');
1312     } else {
1313         $content_type = new ContentType('text/plain');
1314     }
1315     if ($default_charset) {
1316         $content_type->properties['charset']=$default_charset;
1317     }
1318
1319     $rfc822_header->content_type = $content_type;
1320     $composeMessage->rfc822_header = $rfc822_header;
1321
1322     if (!$useSendmail && !$draft) {
1323         require_once(SM_PATH . 'class/deliver/Deliver_SMTP.class.php');
1324         $deliver = new Deliver_SMTP();
1325         global $smtpServerAddress, $smtpPort, $pop_before_smtp, $smtp_auth_mech;
1326
1327         if ($smtp_auth_mech == 'none') {
1328                 $user = '';
1329                 $pass = '';
1330         } else {
1331                 global $key, $onetimepad;
1332                 $user = $username;
1333                 $pass = OneTimePadDecrypt($key, $onetimepad);
1334         }
1335
1336         $authPop = (isset($pop_before_smtp) && $pop_before_smtp) ? true : false;
1337         $stream = $deliver->initStream($composeMessage,$domain,0,
1338                           $smtpServerAddress, $smtpPort, $user, $pass, $authPop);
1339     } elseif (!$draft) {
1340        require_once(SM_PATH . 'class/deliver/Deliver_SendMail.class.php');
1341        global $sendmail_path;
1342        $deliver = new Deliver_SendMail();
1343        $stream = $deliver->initStream($composeMessage,$sendmail_path);
1344     } elseif ($draft) {
1345        global $draft_folder;
1346        require_once(SM_PATH . 'class/deliver/Deliver_IMAP.class.php');
1347        $imap_stream = sqimap_login($username, $key, $imapServerAddress,
1348                       $imapPort, 0);
1349        if (sqimap_mailbox_exists ($imap_stream, $draft_folder)) {
1350            require_once(SM_PATH . 'class/deliver/Deliver_IMAP.class.php');
1351            $imap_deliver = new Deliver_IMAP();
1352            $length = $imap_deliver->mail($composeMessage);
1353            sqimap_append ($imap_stream, $draft_folder, $length);
1354            $imap_deliver->mail($composeMessage, $imap_stream);
1355            sqimap_append_done ($imap_stream, $draft_folder);
1356            sqimap_logout($imap_stream);
1357            unset ($imap_deliver);
1358            return $length;
1359         } else {
1360            $msg  = '<br>Error: '._("Draft folder")." $draft_folder" . ' does not exist.';
1361            plain_error_message($msg, $color);
1362            return false;
1363         }
1364     }
1365     $succes = false;
1366     if ($stream) {
1367         $length = $deliver->mail($composeMessage, $stream);
1368         $succes = $deliver->finalizeStream($stream);
1369     }
1370     if (!$succes) {
1371         $msg  = $deliver->dlv_msg . '<br>Server replied: '.$deliver->dlv_ret_nr;
1372         plain_error_message($msg, $color);
1373     } else {
1374         unset ($deliver);
1375         $imap_stream = sqimap_login($username, $key, $imapServerAddress,
1376         $imapPort, 0);
1377         if (sqimap_mailbox_exists ($imap_stream, $sent_folder)) {
1378             sqimap_append ($imap_stream, $sent_folder, $length);
1379             require_once(SM_PATH . 'class/deliver/Deliver_IMAP.class.php');
1380             $imap_deliver = new Deliver_IMAP();
1381             $imap_deliver->mail($composeMessage, $imap_stream);
1382             sqimap_append_done ($imap_stream, $sent_folder);
1383             unset ($imap_deliver);
1384         }
1385         global $passed_id, $mailbox, $action;
1386         ClearAttachments($composeMessage);
1387         if ($action == 'reply' || $action == 'reply_all') {
1388             sqimap_mailbox_select ($imap_stream, $mailbox);
1389             sqimap_messages_flag ($imap_stream, $passed_id, $passed_id, 'Answered', true);
1390         }
1391         sqimap_logout($imap_stream);
1392     }
1393     return $succes;
1394 }
1395
1396 ?>