Fixed some string issues.
[squirrelmail.git] / src / read_body.php
index 97ae457423beecf57e04dd6167ccb0797b216962..04ef522087b3ab77b7c34ab11ab18814a397792b 100644 (file)
  * $Id$
  */
 
-require_once('../src/validate.php');
-require_once('../functions/imap.php');
-require_once('../functions/mime.php');
-require_once('../functions/date.php');
-require_once('../functions/url_parser.php');
-require_once('../functions/smtp.php');
-require_once('../functions/html.php');
+/* Path for SquirrelMail required files. */
+define('SM_PATH','../');
+
+/* SquirrelMail required files. */
+require_once(SM_PATH . 'include/validate.php');
+require_once(SM_PATH . 'functions/imap.php');
+require_once(SM_PATH . 'functions/mime.php');
+require_once(SM_PATH . 'functions/date.php');
+require_once(SM_PATH . 'functions/url_parser.php');
+require_once(SM_PATH . 'functions/html.php');
 
 /**
  * Given an IMAP message id number, this will look it up in the cached
@@ -155,69 +158,165 @@ function ServerMDNSupport( $read ) {
     return ( $ret );
 }
 
-function SendMDN ( $mailbox, $passed_id, $sender, $message) {
+function SendMDN ( $mailbox, $passed_id, $sender, $message, $imapConnection) {
     global $username, $attachment_dir, $SERVER_NAME,
-           $version, $attachments, $squirrelmail_language;
+           $version, $attachments, $squirrelmail_language, $default_charset,
+          $languages, $useSendmail, $domain, $sent_folder,
+          $popuser, $data_dir, $username;
 
     $header = $message->rfc822_header;
     $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
-    
-    $recipient_o = $header->dnt;
-    $recipient = $recipient_o->getAddress(true);
 
+    $rfc822_header = new Rfc822Header();
+    $content_type = new ContentType('multipart/report');
+    $content_type->properties['report-type']='disposition-notification';
+    
+    set_my_charset();
+    if ($default_charset) {
+       $content_type->properties['charset']=$default_charset;
+    }
+    $rfc822_header->content_type = $content_type;
+    $rfc822_header->to[] = $header->dnt;
+    $rfc822_header->subject = _("Read:") . ' ' . $header->subject;
+
+
+    $reply_to = '';
+    if (isset($identity) && $identity != 'default') {
+        $from_mail = getPref($data_dir, $username, 
+                     'email_address' . $identity);
+        $full_name = getPref($data_dir, $username, 
+                     'full_name' . $identity);
+        $from_addr = '"'.$full_name.'" <'.$from_mail.'>';
+        $reply_to = getPref($data_dir, $username, 
+                     'reply_to' . $identity);
+    } else {
+        $from_mail = getPref($data_dir, $username, 'email_address');
+        $full_name = getPref($data_dir, $username, 'full_name');
+        $from_addr = '"'.$full_name.'" <'.$from_mail.'>';
+        $reply_to = getPref($data_dir, $username,'reply_to');
+    }
+    if (!$from_addr) {
+       $from_addr = "$popuser@$domain";
+       $from_mail = $from_addr;
+    }
+    $rfc822_header->from = $rfc822_header->parseAddress($from_addr,true);
+    if ($reply_to) {
+       $rfc822_header->reply_to = $rfc822_header->parseAddress($reply_to,true);
+    }
+    
     // part 1 (RFC2298)
-
     $senton = getLongDateString( $header->date );
     $to_array = $header->to;
     $to = '';
     foreach ($to_array as $line) {
         $to .= ' '.$line->getAddress();
     }
-
-    $subject = $header->subject;
     $now = getLongDateString( time() );
-
     set_my_charset();
-
     $body = _("Your message") . "\r\n\r\n" .
             "\t" . _("To:") . ' ' . $to . "\r\n" .
-            "\t" . _("Subject:") . ' ' . $subject . "\r\n" .
+            "\t" . _("Subject:") . ' ' . $header->subject . "\r\n" .
             "\t" . _("Sent:") . ' ' . $senton . "\r\n" .
             "\r\n" .
             sprintf( _("Was displayed on %s"), $now );
 
-    if (function_exists($languages[$squrrelmail_language]['XTRA_CODE'])) {
+    $special_encoding = '';
+    if (isset($languages[$squirrelmail_language]['XTRA_CODE']) && 
+        function_exists($languages[$squirrelmail_language]['XTRA_CODE'])) {
         $body = $languages[$squirrelmail_language]['XTRA_CODE']('encode', $body);
+       if (strtolower($default_charset) == 'iso-2022-jp') {
+           if (mb_detect_encoding($body) == 'ASCII') {
+               $special_encoding = '8bit';
+           } else {
+               $body = mb_convert_encoding($body, 'JIS');
+               $special_encoding = '7bit';
+           }
+       }
     }
-    
+    $part1 = new Message();
+    $part1->setBody($body);
+    $mime_header = new MessageHeader;
+    $mime_header->type0 = 'text';
+    $mime_header->type1 = 'plain';
+    if ($special_encoding) {
+        $mime_header->encoding = $special_encoding;
+    } else {    
+        $mime_header->encoding = 'us-ascii';
+    }
+    if ($default_charset) {
+        $mime_header->parameters['charset'] = $default_charset;
+    }
+    $part1->mime_header = $mime_header;
+
     // part2  (RFC2298)
     $original_recipient = $to;
     $original_message_id = $header->message_id;
 
-    $part2 = "Reporting-UA : $SERVER_NAME ; SquirrelMail (version $version) \r\n";
+    $report = "Reporting-UA : $SERVER_NAME ; SquirrelMail (version $version) \r\n";
     if ($original_recipient != '') {
-        $part2 .= "Original-Recipient : $original_recipient\r\n";
+        $report .= "Original-Recipient : $original_recipient\r\n";
     }
     $final_recipient = $sender;
-    $part2 .= "Final-Recipient: rfc822; $final_recipient\r\n" .
+    $report .= "Final-Recipient: rfc822; $final_recipient\r\n" .
               "Original-Message-ID : $original_message_id\r\n" .
               "Disposition: manual-action/MDN-sent-manually; displayed\r\n";
 
-    $localfilename = GenerateRandomString(32, 'FILE', 7);
-    $full_localfilename = "$hashed_attachment_dir/$localfilename";
-
-    $fp = fopen( $full_localfilename, 'w');
-    fwrite ($fp, $part2);
-    fclose($fp);
-
-    $newAttachment = array();
-    $newAttachment['localfilename'] = $localfilename;
-    $newAttachment['type'] = "message/disposition-notification";
-    $newAttachment['session']=-1;
-    $attachments[] = $newAttachment;
-
-    return (SendMessage($recipient, '', '', _("Read:") . ' ' . $subject, 
-                        $body, 0, True, 3, -1) );
+    $part2 = new Message();
+    $part2->setBody($report);
+    $mime_header = new MessageHeader;
+    $mime_header->type0 = 'message';
+    $mime_header->type1 = 'disposition-notification';
+    $mime_header->encoding = 'us-ascii';
+    $part2->mime_header = $mime_header;
+
+    $composeMessage = new Message();
+    $composeMessage->rfc822_header = $rfc822_header;
+    $composeMessage->addEntity($part1);
+    $composeMessage->addEntity($part2);
+
+
+    if (!$useSendmail) {
+       require_once(SM_PATH . 'class/deliver/Deliver_SMTP.class.php');
+       $deliver = new Deliver_SMTP();
+       global $smtpServerAddress, $smtpPort, $use_authenticated_smtp, $pop_before_smtp;
+       if ($use_authenticated_smtp) {
+           global $key, $onetimepad;
+           $user = $username;
+           $pass = OneTimePadDecrypt($key, $onetimepad);
+       } else {
+           $user = '';
+           $pass = '';
+       }
+       $authPop = (isset($pop_before_smtp) && $pop_before_smtp) ? true : false;
+       $stream = $deliver->initStream($composeMessage,$domain,0,
+                         $smtpServerAddress, $smtpPort, $authPop);
+    } else {
+       require_once(SM_PATH . 'class/deliver/Deliver_SendMail.class.php');
+       global $sendmail_path;
+       $deliver = new Deliver_SendMail();
+       $stream = $deliver->initStream($composeMessage,$sendmail_path);
+    } 
+    $succes = false;
+    if ($stream) {
+       $length = $deliver->mail($composeMessage, $stream);
+       $succes = $deliver->finalizeStream($stream);
+    }
+    if (!$succes) {
+        $msg  = $deliver->dlv_msg . '<br>Server replied: '.$deliver->dlv_ret_nr;
+       require_once(SM_PATH . 'functions/display_messages.php');
+        plain_error_message($msg, $color);
+    } else {
+        unset ($deliver);
+       if (sqimap_mailbox_exists ($imapConnection, $sent_folder)) {
+           sqimap_append ($imapConnection, $sent_folder, $length);
+           require_once(SM_PATH . 'class/deliver/Deliver_IMAP.class.php');
+           $imap_deliver = new Deliver_IMAP();
+           $imap_deliver->mail($composeMessage, $imapConnection);
+           sqimap_append_done ($imapConnection);
+           unset ($imap_deliver);
+       }
+    }
+    return $succes;
 }
 
 
@@ -522,21 +621,20 @@ function formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color) {
    $urlMailbox = urlencode($mailbox);
    $url = $base_uri.'src/view_header.php?'.$QUERY_STRING;
 
-   $s  = "<TR>\n";
-   $s .= '<TD VALIGN="MIDDLE" ALIGN="RIGHT" WIDTH="20%"><B>' . _("Options") . ":&nbsp;&nbsp;</B></TD>\n";
-   $s .= '<TD VALIGN="MIDDLE" ALIGN="LEFT" WIDTH="80%"><SMALL>';
-   $s .= '<a href="'.$url.'">'.("View Full Header").'</a>';
+   $s  = "<TR>\n" .
+         '<TD VALIGN="MIDDLE" ALIGN="RIGHT" WIDTH="20%"><B>' . _("Options") . ":&nbsp;&nbsp;</B></TD>\n" .
+         '<TD VALIGN="MIDDLE" ALIGN="LEFT" WIDTH="80%"><SMALL>' .
+         '<a href="'.$url.'">'._("View Full Header").'</a>';
 
    /* Output the printer friendly link if we are in subtle mode. */
-   $s .= '&nbsp;|&nbsp;';
-   $s .= printer_friendly_link($mailbox, $passed_id, $passed_ent_id, $color);
+   $s .= '&nbsp;|&nbsp;' .
+         printer_friendly_link($mailbox, $passed_id, $passed_ent_id, $color);
    echo $s;
    do_hook("read_body_header_right");
-   $s = "</SMALL></TD>\n"  
-   $s .= "</TR>\n";
+   $s = "</SMALL></TD>\n" .  
+        "</TR>\n";
    echo $s;
 
-
 }
 
 /***************************/
@@ -560,7 +658,7 @@ $mbx_response = sqimap_mailbox_select($imapConnection, $mailbox, false, false, t
 
 if (!isset($messages)) {
     $messages = array();
-    session_register('messages');
+    sqsession_register($messages,'messages');
 }
 
 /**
@@ -575,14 +673,18 @@ if (!isset($messages[$uidvalidity])) {
 }  
 if (!isset($messages[$uidvalidity][$passed_id]) || !$uid_support) {
    $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
+   $FirstTimeSee = !$message->is_seen;
+   $message->is_seen = true;
    $messages[$uidvalidity][$passed_id] = $message;
+   sqsession_register($messages, 'messages');
 } else {
-   $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
-//   $message = $messages[$uidvalidity][$passed_id];
+//   $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
+   $message = $messages[$uidvalidity][$passed_id];
+   $FirstTimeSee = !$message->is_seen;
 }
-$FirstTimeSee = !$message->is_seen;
-$message->is_seen = true;
-$messages[$uidvalidity][$passed_id] = $message;
+//$FirstTimeSee = !$message->is_seen;
+//$message->is_seen = true;
+//$messages[$uidvalidity][$passed_id] = $message;
 
 if (isset($passed_ent_id) && $passed_ent_id) {
    $message = $message->getEntity($passed_ent_id);
@@ -590,7 +692,7 @@ if (isset($passed_ent_id) && $passed_ent_id) {
       $message = $message->parent;
    }
    $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[$passed_ent_id.HEADER]", true, $response, $msg, $uid_support);
-   $rfc822_header = new rfc822_header();
+   $rfc822_header = new Rfc822Header();
    $rfc822_header->parseHeader($read);
    $message->rfc822_header = $rfc822_header;
 } else {
@@ -617,7 +719,7 @@ if (isset($sendreceipt)) {
          $final_recipient = getPref($data_dir, $username, 'email_address', '' );
       }
       $supportMDN = ServerMDNSupport($mbx_response["PERMANENTFLAGS"]);
-      if ( SendMDN( $mailbox, $passed_id, $final_recipient, $message ) > 0 && $supportMDN ) {
+      if ( SendMDN( $mailbox, $passed_id, $final_recipient, $message, $imapConnection ) > 0 && $supportMDN ) {
          ToggleMDNflag( true, $imapConnection, $mailbox, $passed_id, $uid_support);
          $message->is_mdnsent = true;
          $messages[$uidvalidity][$passed_id]=$message;