Part 1 of switch to use of SM_PATH with require_once.
[squirrelmail.git] / src / read_body.php
index 273d6a3686c16fd13f36b56d565d594b8240c2cd..102b683532ab00996124c5652e6a46070ed5399c 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 . 'src/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,67 +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;
+           $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 );
 
-    $body = charset_encode_japanese($body);
-    
+    $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;
 }
 
 
@@ -306,9 +407,9 @@ function formatRecipientString($recipients, $item ) {
 
 function formatEnvheader($mailbox, $passed_id, $passed_ent_id, $message, 
                          $color, $FirstTimeSee) {
-  global $msn_user_support, $default_use_mdn, $draft_folder, $sent_folder,
-         $default_use_priority, $show_xmailer_default, 
-        $mdn_user_support, $PHP_SELF, $javascript_on;
+    global $msn_user_support, $default_use_mdn, $draft_folder, $sent_folder,
+           $default_use_priority, $show_xmailer_default, 
+           $mdn_user_support, $PHP_SELF, $javascript_on;
 
    $header = $message->rfc822_header;
    $env = array();
@@ -375,7 +476,7 @@ function formatEnvheader($mailbox, $passed_id, $passed_ent_id, $message,
      }
    }
    echo $s;
-   do_hook("read_body_header");   
+   do_hook("read_body_header");
    formatToolbar($mailbox,$passed_id,$passed_ent_id,$message, $color);
    echo '</table>';
 }           
@@ -394,7 +495,7 @@ function formatMenubar($mailbox, $passed_id, $passed_ent_id, $message, $mbx_resp
    if (isset($where) && isset($what)) {
       $msgs_url .= 'search.php?where='.urlencode($where).
                    '&amp;what='.urlencode($what).'&amp;mailbox='.$urlMailbox;
-      $msgs_str = _("Search results");            
+      $msgs_str = _("Search results");
    } else {
       $msgs_url .= 'right_main.php?sort='.$sort.'&amp;startMessage='.
                   $startMessage.'&amp;mailbox='.$urlMailbox;
@@ -416,8 +517,8 @@ function formatMenubar($mailbox, $passed_id, $passed_ent_id, $message, $mbx_resp
 
    $comp_uri = $base_uri . 'src/compose.php'.
                          '?passed_id='.$passed_id.
-                        '&amp;mailbox='.$urlMailbox.
-                        (isset($passed_ent_id)?'&amp;passed_ent_id='.$passed_ent_id:'');
+                         '&amp;mailbox='.$urlMailbox.
+                         (isset($passed_ent_id)?'&amp;passed_ent_id='.$passed_ent_id:'');
 
    if (($mailbox == $draft_folder) && ($save_as_draft)) {
       $comp_alt_uri = $comp_uri . '&amp;action=draft';
@@ -430,14 +531,14 @@ function formatMenubar($mailbox, $passed_id, $passed_ent_id, $message, $mbx_resp
       $s .= $topbar_delimiter;   
       if ($compose_new_win == '1') {
          $s .= '<a href="javascript:void(0)" '. 
-                'onclick="comp_in_new(\''.$comp_alt_uri.'\')">'.$comp_alt_string.'</a>';
+               'onclick="comp_in_new(\''.$comp_alt_uri.'\')">'.$comp_alt_string.'</a>';
       } else {
          $s .= '<a href="'.$comp_alt_uri.'">'.$comp_alt_string.'</a>';
       }
    }
-   
+
    $s .= '</small></td><td align="center" width="33%"><small>';
-   
+
    if (!(isset($where) && isset($what)) && !$passed_ent_id) {
       $prev = findPreviousMessage($mbx_response['EXISTS'], $passed_id);
       $next = findNextMessage($passed_id);
@@ -454,7 +555,7 @@ function formatMenubar($mailbox, $passed_id, $passed_ent_id, $message, $mbx_resp
          $uri = $base_uri . 'src/read_body.php?passed_id='.$next.
                 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
                 '&amp;startMessage='.$startMessage.'&amp;show_more=0';
-         $s .= '<a href="'.$uri.'">'._("Next").'</a>';  
+         $s .= '<a href="'.$uri.'">'._("Next").'</a>';
       } else {
          $s .= _("Next");
       }
@@ -464,12 +565,12 @@ function formatMenubar($mailbox, $passed_id, $passed_ent_id, $message, $mbx_resp
       $s .= '<a href="'.$url.'">'._("View Message").'</a>';
       $par_ent_id = $message->parent->entity_id;
       if ($par_ent_id) {
-         $par_ent_id = substr($par_ent_id,0,-2);
-         $s .= $topbar_delimiter;
-        $url = set_url_var($PHP_SELF, 'passed_ent_id',$par_ent_id);
-        $s .= '<a href="'.$url.'">'._("Up").'</a>';
+        $par_ent_id = substr($par_ent_id,0,-2);
+        $s .= $topbar_delimiter;
+        $url = set_url_var($PHP_SELF, 'passed_ent_id',$par_ent_id);
+        $s .= '<a href="'.$url.'">'._("Up").'</a>';
       }
-   }      
+   }
 
    $s .= '</small></td><td align="right" width="33%" nowrap><small>';
    $comp_action_uri = $comp_uri . '&amp;action=forward';
@@ -492,7 +593,6 @@ function formatMenubar($mailbox, $passed_id, $passed_ent_id, $message, $mbx_resp
       $s .= $topbar_delimiter;
    }
 
-
    $comp_action_uri = decodeHeader($comp_uri . '&amp;action=reply');
    if ($compose_new_win == '1') {
       $s .= '<a href="javascript:void(0)" '. 
@@ -510,7 +610,9 @@ function formatMenubar($mailbox, $passed_id, $passed_ent_id, $message, $mbx_resp
       $s .= '<a href="'.$comp_action_uri.'">'._("Reply All").'</a>';
    }
    $s .= '</small></td></tr></table>';
+   do_hook("read_body_menu_top");
    echo $s;
+   do_hook("read_body_menu_bottom");
 }
 
 function formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color) {
@@ -519,25 +621,24 @@ 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;
 
-
 }
 
 /***************************/
-/*   Main of read_boby.php */
+/*   Main of read_body.php */
 /***************************/
 
 /*
@@ -557,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');
 }
 
 /**
@@ -572,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);
@@ -587,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 {
@@ -614,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;
@@ -657,15 +762,15 @@ echo '              <tr><td><br>' . $messagebody . '</td></td>';
 echo '            </table>';
 echo '          </td></tr>';      
 echo '        </table></td></tr>';
-echo '      </table>';
-echo '    </td></tr>';
+echo '    </table>';
+echo '  </td></tr>';
 
 $attachmentsdisplay = formatAttachments($message,$ent_ar,$mailbox, $passed_id);
 if ($attachmentsdisplay) {
-   echo '    <tr><td>';
+   echo '  <tr><td>';
    echo '    <table width="100%" cellpadding="1" cellspacing="0" align="center"'.' border="0" bgcolor="'.$color[9].'">';
-   echo '      <tr><td>';
-   echo '      <table width="100%" cellpadding="1" cellspacing="0" align="center" border="0" bgcolor="'.$color[4].'">';
+   echo '     <tr><td>';
+   echo '       <table width="100%" cellpadding="1" cellspacing="0" align="center" border="0" bgcolor="'.$color[4].'">';
    echo '        <tr><td ALIGN="left" bgcolor="'.$color[9].'">';
    echo '           <b>' . _("Attachments") . ':</b>';
    echo '        </td></tr>';
@@ -674,7 +779,7 @@ if ($attachmentsdisplay) {
    echo              $attachmentsdisplay;
    echo '          </td></tr></table>';
    echo '        </table></td></tr>';
-   echo '      </table></td></tr>';
+   echo '       </table></td></tr>';
    echo '    </table>';
    echo '  </td></tr>';
 }