Source for file message_details_bottom.php

Documentation is available at message_details_bottom.php

  1. <?php
  2. /**
  3.  * Message Details plugin - bottom frame with message structure and rfc822 body
  4.  *
  5.  * Plugin to view the RFC822 raw message output and the bodystructure of a message
  6.  *
  7.  * Licensed under the GNU GPL. For full terms see the file COPYING.
  8.  *
  9.  * @author Marc Groot Koerkamp
  10.  * @copyright 2002 Marc Groot Koerkamp, The Netherlands
  11.  * @copyright 2004-2020 The SquirrelMail Project Team
  12.  * @license http://opensource.org/licenses/gpl-license.php GNU Public License
  13.  * @version $Id: message_details_bottom.php 14840 2020-01-07 07:42:38Z pdontthink $
  14.  * @package plugins
  15.  * @subpackage message_details
  16.  */
  17.  
  18. /** @ignore */
  19. define('SM_PATH','../../');
  20.  
  21. /* SquirrelMail required files. */
  22. require_once(SM_PATH . 'include/validate.php');
  23. require_once(SM_PATH . 'functions/imap.php');
  24. require_once(SM_PATH . 'functions/mime.php');
  25.  
  26. global $color, $uid_support;
  27.  
  28. sqgetGlobalVar('passed_id', $passed_id, SQ_GET);
  29. if (!sqGetGlobalVar('passed_ent_id', $passed_ent_id, SQ_FORM))
  30.     $passed_ent_id = 0;
  31. sqgetGlobalVar('mailbox', $mailbox, SQ_GET);
  32.  
  33. sqgetGlobalVar('username', $username, SQ_SESSION);
  34. sqgetGlobalVar('key', $key, SQ_COOKIE);
  35. sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION);
  36. global $imap_stream_options; // in case not defined in config
  37.  
  38. /**
  39.  * Calculates id of MIME entity
  40.  * @param string $entString 
  41.  * @param integer $direction 
  42.  * @return string 
  43.  * @access private
  44.  */
  45. function CalcEntity($entString, $direction) {
  46.     $result = $entString;
  47.     if ($direction == -1) {
  48.         $pos = strrpos($entString,'.');
  49.         $result = substr($entString,0,$pos);
  50.     }
  51.  
  52.     switch ($direction) {
  53.        case 0:
  54.           $pos = strrpos($entString,'.');
  55.           if ($pos === false) {
  56.          $entString++;
  57.          $result= $entString;
  58.           } 
  59.       else {
  60.              $level = substr($entString,0,$pos);
  61.          $sublevel = substr($entString,$pos+1);
  62.          $sublevel++;
  63.          $result = "$level".'.'."$sublevel";
  64.       }
  65.       break;
  66.        case 1:
  67.           $result = "$entString".".0";
  68.       break;
  69.        default:
  70.           break;
  71.     }
  72.     return ($result);
  73. }
  74.  
  75. $imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0, $imap_stream_options);
  76. $read = sqimap_mailbox_select($imapConnection, $mailbox);
  77. if (!empty($passed_ent_id))
  78.     $body = sqimap_run_command($imapConnection, "FETCH $passed_id BODY[$passed_ent_id]",true, $response, $readmessage, $uid_support);
  79. else
  80.     $body = sqimap_run_command($imapConnection, "FETCH $passed_id RFC822",true, $response, $readmessage, $uid_support);
  81. $message_body = '';
  82. $header = false;
  83. $mimepart = false;
  84. $bnd_end = false;
  85. $messageheader = true;
  86. $messageheaderstart=false;
  87. $boundaries = array();
  88. $entities = array();
  89. sqsession_unregister("entities");
  90. $pre = '<b>';
  91. $end = '</b>';
  92. $entStr = '';
  93. $bla ='';
  94. $content = array ();
  95. $content_indx = -1;
  96. $contentset = false;
  97.  
  98. $count=count($body);
  99. $body[$count-1] = substr($body[$count-1], -1);
  100. for ($i=1; $i < $count; $i++) {
  101.     $line = trim($body[$i]);
  102.     if ($line == '') {
  103.     $pre = '';
  104.     $end = '';
  105.         if ($bnd_end) {
  106.         $header = true;
  107.         $mimepart = false;
  108.     } else if ($messageheader) {
  109.         if ($header) {
  110.         $header=false;
  111.         $end = "\n \n".'</div>'."\n \n".'<div class="ent_body" id="'.$entStr.'B">'."\n \n"; 
  112.         }
  113.         $mimepart = -$header;
  114.         $bnd_end = false;
  115.         if ($messageheaderstart) {
  116.         $messageheaderstart=false;
  117.         }
  118.     } else if ($messageheaderstart) {
  119.         $messageheader= false;
  120.     } else {
  121.         if ($header) {
  122.             $pre = '';
  123.         $end = "\n \n".'</div>'."\n \n".'<div class="ent_body" id="'.$entStr.'B">'."\n \n"; 
  124.         }
  125.         $header = false;
  126.         $mimepart=true;
  127.     }  
  128.     $contentset = false;
  129.     $nameset = false;
  130.     } else {
  131.         if (!$header && $messageheader) {
  132.         $messageheaderstart=true;
  133.         if ($pre != '<b>') {
  134.         $pre = '<i><font color ='."$color[1]>";
  135.         $end = '</font></i>';
  136.         }
  137.     }     
  138.     if (!$messageheader && !$header ) {
  139.         $mimepart=true;
  140.     }  else {
  141.         $mimepart=false;
  142.     }
  143.     $pre = '';
  144.     $end = '';
  145.     }
  146.     if (  ( $header || $messageheader) && (preg_match("/^.*boundary=\"?(.+(?=\")|.+).*/i",$line,$reg)) )  {
  147.         $bnd = $reg[1];
  148.         $bndreg = $bnd;    
  149.         $bndreg = str_replace("\\","\\\\",$bndreg);    
  150.         $bndreg = str_replace("?","\\?",$bndreg);
  151.         $bndreg = str_replace("+","\\+",$bndreg);        
  152.         $bndreg = str_replace(".","\\.",$bndreg);            
  153.         $bndreg = str_replace("/","\\/",$bndreg);
  154.         $bndreg = str_replace("-","\\-",$bndreg);
  155.         $bndreg = str_replace("(","\\(",$bndreg);
  156.         $bndreg = str_replace(")","\\)",$bndreg);
  157.  
  158.         $boundaries[] = array( 'bnd' => $bnd, 'bndreg' => $bndreg);
  159.         $messageheader = false;
  160.         $messageheaderstart=false;
  161.         $mimepart=false;
  162.         if ($entStr=='') {
  163.             $entStr='0';
  164.         } else {
  165.             $entStr = CalcEntity("$entStr",1);
  166.         }
  167.     }
  168.     
  169.     if (($line != '' && $line{0} == '-' || $header)  && isset($boundaries[0])) {
  170.         $cnt=count($boundaries)-1;
  171.     $bnd = $boundaries[$cnt]['bnd'];
  172.     $bndreg = $boundaries[$cnt]['bndreg'];
  173.       
  174.     $regstr = '/^--'."($bndreg)".".*".'/';
  175.     if (preg_match($regstr,$line,$reg) ) {
  176.         $bndlen = strlen($reg[1]);
  177.         $bndend = false;        
  178.             if (strlen($line) > ($bndlen + 3)) {
  179.         if ($line{$bndlen+2} == '-' && $line{$bndlen+3} == '-') 
  180.             $bndend = true;
  181.         }
  182.         if ($bndend) {
  183.             $entStr = CalcEntity("$entStr",-1);
  184.             array_pop($boundaries);
  185.             $pre .= '<b><font color ='."$color[2]>";
  186.             $end .= '</font></b>';
  187.             $header = true;
  188.             $mimepart = false;
  189.             $bnd_end = true;
  190.             $encoding = '';
  191.         } else {
  192.             $header = true;
  193.             $bnd_end = false;
  194.             $entStr = CalcEntity("$entStr",0);
  195.             $content_indx++;
  196.             $content[$content_indx]=array();        
  197.             $content[$content_indx]['ent'] = '<a href="#' . $entStr . '">' . $entStr . '</a>';
  198.             $pre .= "\n \n".'</div>'."\n \n".'<div class="entheader" id="'.
  199.                 $entStr.'H"><a name="'."$entStr".'"></a><b><font color ='."$color[2]>";
  200.             $end .= '</font></b>'."\n";
  201.             $header = true;
  202.             $mimepart = false;
  203.             $encoding = '';
  204.         }
  205.     }  else {
  206.         if ($header) {
  207.         if (!$contentset && preg_match("/^.*(content-type:)\s*(\w+)\/(\w+).*/i",$line,$reg)) {
  208.             if (strtolower($reg[2]) == 'message' && strtolower($reg[3]) == 'rfc822') {
  209.             $messageheader = true;
  210.             }
  211.             $content[$content_indx]['type'] = "$reg[2]/$reg[3]";
  212.             $contentset = true;
  213.             if ($reg[2] == 'image') {
  214.             $entities["$entStr"] = array();
  215.             $entities["$entStr"]['entity'] = $entStr;
  216.             $entities["$entStr"]['contenttype']=$reg[2].'/'.$reg[3];
  217.             }    
  218.            } else if (!$nameset && preg_match("/^.*(name=\s*)\"(.*)\".*/i",$line,$reg)) {
  219.             $name = sm_encode_html_special_chars($reg[2]);
  220.             $content[$content_indx]['name'] = decodeHeader($name);
  221.             $nameset = true;
  222.             if (isset($entities["$entStr"])) {
  223.             $entities["$entStr"]['name'] = urlEncode($reg[2]);
  224.             }
  225.            } else if (preg_match("/^.*(content-transfer-encoding:)\s*(\w+-?(\w+)?).*/i",$line,$reg) ) {
  226.             $encoding = $reg[2];
  227.             if (isset($entities["$entStr"])) {
  228.             $entities["$entStr"]['encoding']=$reg[2];
  229.             }
  230.             $content[$content_indx]['encoding'] = $encoding;
  231.             $mimeentity = '';
  232.         }
  233.  
  234.         $pre .= '<b><font color ='."$color[7]>";
  235.         $end .= '</font></b>';
  236.         //$mimepart=false;
  237.         }           
  238.     }
  239.     }  
  240. /*
  241.     if ($mimepart) {
  242.         if (isset($entities["$entStr"])) {
  243.         if (isset($encoding) && $encoding == 'base64') {
  244.             if (!isset( $entities["$entStr"]['content'])) $entities[$entStr]['content'] = '';
  245.         $entities["$entStr"]['content'] .= $line;
  246.         }
  247.         }
  248.     }     
  249. */
  250.     $line = sm_encode_html_special_chars($line);
  251.     $message_body .= "$pre"."$line"."$end".'<br />'."\r\n";
  252. }
  253.  
  254. $xtra = <<<ECHO
  255.  
  256. <style>
  257.  
  258. <!--
  259. .ent_body {
  260.   display:inline;
  261. }
  262.  
  263. .header {
  264.   display:inline;
  265. }
  266.  
  267. .entheader {
  268.   display:inline;
  269.   width:99%;
  270. }
  271. //-->
  272.  
  273. </style>
  274.  
  275. ECHO;
  276.  
  277. displayHtmlHeader( _("Message Details"), $xtra, FALSE );
  278. /* body */
  279. echo "<body text=\"$color[8]\" bgcolor=\"$color[4]\" link=\"$color[7]\" vlink=\"$color[7]\" alink=\"$color[7]\">\n";
  280. echo '<code>'."\n";
  281. echo '<font face = "monospace">'."\n";
  282. echo '<br />'."\n";
  283.  
  284. if (count($content) > 0) {
  285.     echo '<h2>' . _("Bodystructure") . "</h2>\n\n";
  286.     echo '<table border=1 width="98%"><thead>'.
  287.       '<tr bgcolor="'."$color[7]".'">'.
  288.         '<td><b><font color="'."$color[5]".'">' . _("Entity") . '</font></b></td>'.
  289.         '<td><b><font color="'."$color[5]".'">' . _("Content-Type") . '</font></b></td>'.
  290.         '<td><b><font color="'."$color[5]".'">' . _("Name") . '</font></b></td>'.
  291.         '<td><b><font color="'."$color[5]".'">' . _("Encoding") . '</font></b></td>'.
  292.  
  293.       '</tr>'.
  294.       '</thead><tbody>';
  295.     for ($i = 0; $i < count($content);$i++) {
  296.     echo '<tr><td>';
  297.     echo $content[$i]['ent'].'</td><td>';
  298.     if (isset($content[$i]['type'])) {
  299.         echo $content[$i]['type'];
  300.     } else echo 'TEXT/PLAIN';
  301.     echo '</td><td>';
  302.     if (isset($content[$i]['name'])) {
  303.         echo $content[$i]['name'];
  304.     } else echo '&nbsp;';
  305.     echo '</td><td>';
  306.     if (isset($content[$i]['encoding'])) {
  307.         echo $content[$i]['encoding'];
  308.     } else echo '&nbsp;';
  309.     echo '</td></tr>'."\n";
  310.     }
  311.     echo '</tbody></table><br>'."\n";
  312. }
  313. echo '<h2>' . _("RFC822 Message body") . "</h2>\n\n";
  314. echo '<div><div class="header">'."\n\n";
  315. echo $message_body;
  316. echo '</div></div></font></code></body></html>';
  317. ?>

Documentation generated on Mon, 13 Jan 2020 04:24:57 +0100 by phpDocumentor 1.4.3