Source for file imap_general.php

Documentation is available at imap_general.php

  1. <?php
  2.  
  3. /**
  4.  * imap_general.php
  5.  *
  6.  * This implements all functions that do general IMAP functions.
  7.  *
  8.  * @copyright 1999-2020 The SquirrelMail Project Team
  9.  * @license http://opensource.org/licenses/gpl-license.php GNU Public License
  10.  * @version $Id: imap_general.php 14845 2020-01-07 08:09:34Z pdontthink $
  11.  * @package squirrelmail
  12.  * @subpackage imap
  13.  */
  14.  
  15. /** Includes.. */
  16.  
  17. require_once(SM_PATH 'functions/rfc822address.php');
  18.  
  19.  
  20. /**
  21.  * Generates a new session ID by incrementing the last one used;
  22.  * this ensures that each command has a unique ID.
  23.  * @param bool $unique_id (since 1.3.0) controls use of unique
  24.  *   identifiers/message sequence numbers in IMAP commands. See IMAP
  25.  *   rfc 'UID command' chapter.
  26.  * @return string IMAP session id of the form 'A000'.
  27.  * @since 1.2.0
  28.  */
  29. function sqimap_session_id($unique_id FALSE{
  30.     static $sqimap_session_id 1;
  31.  
  32.     if (!$unique_id{
  33.         returnsprintf("A%03d"$sqimap_session_id++) );
  34.     else {
  35.         returnsprintf("A%03d"$sqimap_session_id++' UID' );
  36.     }
  37. }
  38.  
  39. /**
  40.  * Both send a command and accept the result from the command.
  41.  * This is to allow proper session number handling.
  42.  * @param stream $imap_stream imap connection resource
  43.  * @param string $query imap command
  44.  * @param boolean $handle_errors see sqimap_retrieve_imap_response()
  45.  * @param array $response 
  46.  * @param array $message 
  47.  * @param boolean $unique_id (since 1.3.0) see sqimap_session_id().
  48.  * @return mixed returns false on imap error. displays error message
  49.  *   if imap stream is not available.
  50.  * @since 1.2.3
  51.  */
  52. function sqimap_run_command_list ($imap_stream$query$handle_errors&$response&$message$unique_id false{
  53.     if ($imap_stream{
  54.         $sid sqimap_session_id($unique_id);
  55.         fputs ($imap_stream$sid ' ' $query "\r\n");
  56.         $tag_uid_a explode(' ',trim($sid));
  57.         $tag $tag_uid_a[0];
  58.         $read sqimap_retrieve_imap_response ($imap_stream$tag$handle_errors$response$message$query );
  59.         /* get the response and the message */
  60.         $message $message[$tag];
  61.         $response $response[$tag];
  62.         return $read[$tag];
  63. //FIXME: obey $handle_errors below!
  64.     else {
  65.         global $squirrelmail_language$color;
  66.         set_up_language($squirrelmail_language);
  67. //FIXME: NO HTML IN CORE!
  68.         $string "<b><font color=\"$color[2]\">\n.
  69.                 _("ERROR: No available IMAP stream.".
  70. //FIXME: NO HTML IN CORE!
  71.                 "</b></font>\n";
  72.         error_box($string);
  73.         return false;
  74.     }
  75. }
  76.  
  77. /**
  78.  * @param stream $imap_stream imap connection resource
  79.  * @param string $query imap command
  80.  * @param boolean $handle_errors see sqimap_retrieve_imap_response()
  81.  * @param array $response empty string, if return = false
  82.  * @param array $message empty string, if return = false
  83.  * @param boolean $unique_id (since 1.3.0) see sqimap_session_id()
  84.  * @param boolean $filter (since 1.4.1 and 1.5.0) see sqimap_fread()
  85.  * @param mixed $outputstream (since 1.4.1 and 1.5.0) see sqimap_fread()
  86.  * @param boolean $no_return (since 1.4.1 and 1.5.0) see sqimap_fread()
  87.  * @return mixed returns false on imap error. displays error message
  88.  *   if imap stream is not available.
  89.  * @since 1.2.3
  90.  */
  91. function sqimap_run_command ($imap_stream$query$handle_errors&$response,
  92.                             &$message$unique_id false,$filter=false,
  93.                              $outputstream=false,$no_return=false{
  94.     if ($imap_stream{
  95.         $sid sqimap_session_id($unique_id);
  96.         fputs ($imap_stream$sid ' ' $query "\r\n");
  97.         $tag_uid_a explode(' ',trim($sid));
  98.         $tag $tag_uid_a[0];
  99.  
  100.         $read sqimap_read_data ($imap_stream$tag$handle_errors$response,
  101.                                   $message$query,$filter,$outputstream,$no_return);
  102.         if (empty($read)) {    //IMAP server dropped its connection
  103.             $response '';
  104.             $message '';
  105.             return false;
  106.         }
  107.         /* retrieve the response and the message */
  108.         $response $response[$tag];
  109.         $message  $message[$tag];
  110.  
  111.         if (!empty($read[$tag])) {
  112.             /* sqimap_read_data should be called for one response
  113.                but since it just calls sqimap_retrieve_imap_response
  114.                which handles multiple responses we need to check for
  115.                that and merge the $read[$tag] array IF they are
  116.                separated and IF it was a FETCH response. */
  117.  
  118.             if (isset($read[$tag][1]&& is_array($read[$tag][1]&& isset($read[$tag][1][0])
  119.                 && preg_match('/^\* \d+ FETCH/'$read[$tag][1][0])) {
  120.                 $result array();
  121.                 foreach($read[$tagas $index => $value{
  122.                     $result array_merge($result$read[$tag]["$index"]);
  123.                 }
  124.                 return $result;
  125.             }
  126.  
  127.             return $read[$tag][0];
  128.         else {
  129.             return $read[$tag];
  130.         }
  131. //FIXME: obey $handle_errors below!
  132.     else {
  133.         global $squirrelmail_language$color;
  134.         set_up_language($squirrelmail_language);
  135. //FIXME: NO HTML IN CORE!
  136.         $string "<b><font color=\"$color[2]\">\n.
  137.                 _("ERROR: No available IMAP stream.".
  138. //FIXME: NO HTML IN CORE!
  139.                 "</b></font>\n";
  140.         error_box($string);
  141.         return false;
  142.     }
  143. }
  144.  
  145. /**
  146.  * @param mixed $new_query 
  147.  * @param string $tag 
  148.  * @param array $aQuery 
  149.  * @param boolean $unique_id see sqimap_session_id()
  150.  * @since 1.5.0
  151.  */
  152. function sqimap_prepare_pipelined_query($new_query,&$tag,&$aQuery,$unique_id{
  153.     $sid sqimap_session_id($unique_id);
  154.     $tag_uid_a explode(' ',trim($sid));
  155.     $tag $tag_uid_a[0];
  156.     $query $sid ' '.$new_query."\r\n";
  157.     $aQuery[$tag$query;
  158. }
  159.  
  160. /**
  161.  * @param stream $imap_stream imap stream
  162.  * @param array $aQueryList 
  163.  * @param boolean $handle_errors 
  164.  * @param array $aServerResponse 
  165.  * @param array $aServerMessage 
  166.  * @param boolean $unique_id see sqimap_session_id()
  167.  * @param boolean $filter see sqimap_fread()
  168.  * @param mixed $outputstream see sqimap_fread()
  169.  * @param boolean $no_return see sqimap_fread()
  170.  * @since 1.5.0
  171.  */
  172. function sqimap_run_pipelined_command ($imap_stream$aQueryList$handle_errors,
  173.                        &$aServerResponse&$aServerMessage$unique_id false,
  174.                        $filter=false,$outputstream=false,$no_return=false{
  175.     $aResponse false;
  176.  
  177.     /*
  178.        Do not fire all calls at once to the IMAP server but split the calls up
  179.        in portions of $iChunkSize. If we do not do that I think we misbehave as
  180.        IMAP client or should handle BYE calls if the IMAP server drops the
  181.        connection because the number of queries is to large. This isn't tested
  182.        but a wild guess how it could work in the field.
  183.  
  184.        After testing it on Exchange 2000 we discovered that a chunksize of 32
  185.        was quicker then when we raised it to 128.
  186.     */
  187.     $iQueryCount count($aQueryList);
  188.     $iChunkSize 32;
  189.     // array_chunk would also do the job but it's supported from php > 4.2
  190.     $aQueryChunks array();
  191.     $iLoops floor($iQueryCount $iChunkSize);
  192.  
  193.     if ($iLoops $iChunkSize != $iQueryCount++$iLoops;
  194.  
  195.     if (!function_exists('array_chunk')) // arraychunk replacement
  196.         reset($aQueryList);
  197.         for($i=0;$i<$iLoops;++$i{
  198.             for($j=0;$j<$iChunkSize;++$j{
  199.                 $key key($aQueryList);
  200.                 $aTmp[$key$aQueryList[$key];
  201.                 if (next($aQueryList=== falsebreak;
  202.             }
  203.             $aQueryChunks[$aTmp;
  204.         }
  205.     else {
  206.         $aQueryChunks array_chunk($aQueryList,$iChunkSize,true);
  207.     }
  208.  
  209.     for ($i=0;$i<$iLoops;++$i{
  210.         $aQuery $aQueryChunks[$i];
  211.         foreach($aQuery as $tag => $query{
  212.             fputs($imap_stream,$query);
  213.             $aResults[$tagfalse;
  214.         }
  215.         foreach($aQuery as $tag => $query{
  216.             if ($aResults[$tag== false{
  217.                 $aReturnedResponse sqimap_retrieve_imap_response ($imap_stream$tag,
  218.                                     $handle_errors$response$message$query,
  219.                                     $filter,$outputstream,$no_return);
  220.                 foreach ($aReturnedResponse as $returned_tag => $aResponse{
  221.                     if (!empty($aResponse)) {
  222.                         $aResults[$returned_tag$aResponse[0];
  223.                     else {
  224.                         $aResults[$returned_tag$aResponse;
  225.                     }
  226.                     $aServerResponse[$returned_tag$response[$returned_tag];
  227.                     $aServerMessage[$returned_tag$message[$returned_tag];
  228.                 }
  229.             }
  230.         }
  231.     }
  232.     return $aResults;
  233. }
  234.  
  235. /**
  236.  * Custom fgets function: gets a line from the IMAP server,
  237.  * no matter how big it may be.
  238.  * @param stream $imap_stream the stream to read from
  239.  * @return string a line
  240.  * @since 1.2.8
  241.  */
  242. function sqimap_fgets($imap_stream{
  243.     $read '';
  244.     $buffer 4096;
  245.     $results '';
  246.     $offset 0;
  247.     while (strpos($results"\r\n"$offset=== false{
  248.         if (!($read fgets($imap_stream$buffer))) {
  249.         /* this happens in case of an error */
  250.         /* reset $results because it's useless */
  251.         $results false;
  252.             break;
  253.         }
  254.         if $results != '' {
  255.             $offset strlen($results1;
  256.         }
  257.         $results .= $read;
  258.     }
  259.     return $results;
  260. }
  261.  
  262. /**
  263.  * @param stream $imap_stream 
  264.  * @param integer $iSize 
  265.  * @param boolean $filter 
  266.  * @param mixed $outputstream stream or 'php://stdout' string
  267.  * @param boolean $no_return controls data returned by function
  268.  * @return string 
  269.  * @since 1.4.1
  270.  */
  271. function sqimap_fread($imap_stream,$iSize,$filter=false,
  272.                       $outputstream=false$no_return=false{
  273.     if (!$filter || !$outputstream{
  274.         $iBufferSize $iSize;
  275.     else {
  276.         // see php bug 24033. They changed fread behaviour %$^&$%
  277.         $iBufferSize 7800// multiple of 78 in case of base64 decoding.
  278.     }
  279.     if ($iSize $iBufferSize{
  280.         $iBufferSize $iSize;
  281.     }
  282.  
  283.     $iRetrieved 0;
  284.     $results '';
  285.     $sRead $sReadRem '';
  286.     // NB: fread can also stop at end of a packet on sockets.
  287.     while ($iRetrieved $iSize{
  288.         $sRead fread($imap_stream,$iBufferSize);
  289.         $iLength strlen($sRead);
  290.         $iRetrieved += $iLength ;
  291.         $iRemaining $iSize $iRetrieved;
  292.         if ($iRemaining $iBufferSize{
  293.             $iBufferSize $iRemaining;
  294.         }
  295.         if ($sRead == ''{
  296.             $results false;
  297.             break;
  298.         }
  299.         if ($sReadRem != ''{
  300.             $sRead $sReadRem $sRead;
  301.             $sReadRem '';
  302.         }
  303.  
  304.         if ($filter && $sRead != ''{
  305.            // in case the filter is base64 decoding we return a remainder
  306.            $sReadRem $filter($sRead);
  307.         }
  308.         if ($outputstream && $sRead != ''{
  309.            if (is_resource($outputstream)) {
  310.                fwrite($outputstream,$sRead);
  311.            else if ($outputstream == 'php://stdout'{
  312.                echo $sRead;
  313.            }
  314.         }
  315.         if ($no_return{
  316.             $sRead '';
  317.         else {
  318.             $results .= $sRead;
  319.         }
  320.     }
  321.     return $results;
  322. }
  323.  
  324.  
  325. /**
  326.  * Obsolete function, inform plugins that use it
  327.  * @param stream $imap_stream 
  328.  * @param string $tag 
  329.  * @param boolean $handle_errors 
  330.  * @param array $response 
  331.  * @param array $message 
  332.  * @param string $query 
  333.  * @since 1.1.3
  334.  * @deprecated (since 1.5.0) use sqimap_run_command or sqimap_run_command_list instead
  335.  */
  336. function sqimap_read_data_list($imap_stream$tag$handle_errors,
  337.           &$response&$message$query ''{
  338.     global $color$oTemplate$squirrelmail_language;
  339.     set_up_language($squirrelmail_language);
  340. //FIXME: NO HTML IN CORE!
  341.     $string "<b><font color=\"$color[2]\">\n.
  342.         _("ERROR: Bad function call.".
  343. //FIXME: NO HTML IN CORE!
  344.         "</b><br />\n" .
  345.         _("Reason:"' '.
  346.           'There is a plugin installed which make use of the  <br />' .
  347.           'SquirrelMail internal function sqimap_read_data_list.<br />'.
  348.           'Please adapt the installed plugin and let it use<br />'.
  349.           'sqimap_run_command or sqimap_run_command_list instead<br /><br />'.
  350.           'The following query was issued:<br />'.
  351. //FIXME: NO HTML IN CORE!
  352.            sm_encode_html_special_chars($query'<br />' "</font><br />\n";
  353.     error_box($string);
  354.     $oTemplate->display('footer.tpl');
  355.     exit;
  356. }
  357.  
  358. /**
  359.  * Function to display an error related to an IMAP query.
  360.  * @param string title the caption of the error box
  361.  * @param string query the query that went wrong
  362.  * @param string message_title optional message title
  363.  * @param string message optional error message
  364.  * @param string $link an optional link to try again
  365.  * @return void 
  366.  * @since 1.5.0
  367.  */
  368. function sqimap_error_box($title$query ''$message_title ''$message ''$link '')
  369. {
  370.     global $color$squirrelmail_language;
  371.  
  372.     set_up_language($squirrelmail_language);
  373. //FIXME: NO HTML IN CORE!
  374.     $string "<font color=\"$color[2]\"><b>\n$title "</b><br />\n";
  375.     $cmd explode(' ',$query);
  376.     $cmdstrtolower($cmd[0]);
  377.  
  378.     if ($query != '' &&  $cmd != 'login')
  379.         $string .= _("Query:"' ' sm_encode_html_special_chars($query'<br />';
  380.     if ($message_title != '')
  381.         $string .= $message_title;
  382.     if ($message != '')
  383.         $string .= sm_encode_html_special_chars($message);
  384. //FIXME: NO HTML IN CORE!
  385.     $string .= "</font><br />\n";
  386.     if ($link != '')
  387.         $string .= $link;
  388.     error_box($string);
  389. }
  390.  
  391. /**
  392.  * Reads the output from the IMAP stream.  If handle_errors is set to true,
  393.  * this will also handle all errors that are received.  If it is not set,
  394.  * the errors will be sent back through $response and $message.
  395.  * @param stream $imap_stream imap stream
  396.  * @param string $tag 
  397.  * @param boolean $handle_errors handle errors internally or send them in $response and $message.
  398.  * @param array $response 
  399.  * @param array $message 
  400.  * @param string $query command that can be printed if something fails
  401.  * @param boolean $filter see sqimap_fread()
  402.  * @param mixed $outputstream  see sqimap_fread()
  403.  * @param boolean $no_return  see sqimap_fread()
  404.  * @since 1.5.0
  405.  */
  406. function sqimap_retrieve_imap_response($imap_stream$tag$handle_errors,
  407.           &$response&$message$query '',
  408.            $filter false$outputstream false$no_return false{
  409.     global $color$squirrelmail_language;
  410.     $read '';
  411.     if (!is_array($message)) $message array();
  412.     if (!is_array($response)) $response array();
  413.     $aResponse array();
  414.     $resultlist array();
  415.     $data array();
  416.     $sCommand '';
  417.     if (preg_match("/^(\w+)\s*/",$query,$aMatch)) {
  418.         $sCommand strtoupper($aMatch[1]);
  419.     else {
  420.         // error reporting (shouldn't happen)
  421.     }
  422.     $read sqimap_fgets($imap_stream);
  423.     $i 0;
  424.     while ($read{
  425.         $char $read{0};
  426.         switch ($char)
  427.         {
  428.           case '+':
  429.           default:
  430.             $read sqimap_fgets($imap_stream);
  431.             break;
  432.  
  433.           case $tag{0}:
  434.           {
  435.             /* get the command */
  436.             $arg '';
  437.             $i strlen($tag)+1;
  438.             $s substr($read,$i);
  439.             if (($j strpos($s,' ')) || ($j strpos($s,"\n"))) {
  440.                 $arg substr($s,0,$j);
  441.             }
  442.             $found_tag substr($read,0,$i-1);
  443.             if ($found_tag{
  444.                 switch ($arg)
  445.                 {
  446.                   case 'OK':
  447.                   case 'BAD':
  448.                   case 'NO':
  449.                   case 'BYE':
  450.                   case 'PREAUTH':
  451.                     $response[$found_tag$arg;
  452.                     $message[$found_tagtrim(substr($read,$i+strlen($arg)));
  453.                     if (!empty($data)) {
  454.                         $resultlist[$data;
  455.                     }
  456.                     $aResponse[$found_tag$resultlist;
  457.                     $data $resultlist array();
  458.                     if ($found_tag == $tag{
  459.                         break 3/* switch switch while */
  460.                     }
  461.                   break;
  462.                   default:
  463.                     /* this shouldn't happen */
  464.                     $response[$found_tag$arg;
  465.                     $message[$found_tagtrim(substr($read,$i+strlen($arg)));
  466.                     if (!empty($data)) {
  467.                         $resultlist[$data;
  468.                     }
  469.                     $aResponse[$found_tag$resultlist;
  470.                     $data $resultlist array();
  471.                     if ($found_tag == $tag{
  472.                         break 3/* switch switch while */
  473.                     }
  474.                 }
  475.             }
  476.             $read sqimap_fgets($imap_stream);
  477.             if ($read === false/* error */
  478.                  break 2/* switch while */
  479.             }
  480.             break;
  481.           // end case $tag{0}
  482.  
  483.           case '*':
  484.           {
  485.             if (($sCommand == "FETCH" || $sCommand == "STORE")  && preg_match('/^\*\s\d+\sFETCH/',$read)) {
  486.                 /* check for literal */
  487.                 $s substr($read,-3);
  488.                 $fetch_data array();
  489.                 do /* outer loop, continue until next untagged fetch
  490.                         or tagged reponse */
  491.                     do /* innerloop for fetching literals. with this loop
  492.                             we prohibid that literal responses appear in the
  493.                             outer loop so we can trust the untagged and
  494.                             tagged info provided by $read */
  495.                         $read_literal false;
  496.                         if ($s === "}\r\n"{
  497.                             $j strrpos($read,'{');
  498.                             $iLit substr($read,$j+1,-3);
  499.                             $fetch_data[$read;
  500.                             $sLiteral sqimap_fread($imap_stream,$iLit,$filter,$outputstream,$no_return);
  501.                             if ($sLiteral === false/* error */
  502.                                 break 4/* while while switch while */
  503.                             }
  504.                             /* backwards compattibility */
  505.                             $aLiteral explode("\n"$sLiteral);
  506.                             /* release not neaded data */
  507.                             unset($sLiteral);
  508.                             foreach ($aLiteral as $line{
  509.                                 $fetch_data[$line ."\n";
  510.                             }
  511.                             /* release not neaded data */
  512.                             unset($aLiteral);
  513.                             /* next fgets belongs to this fetch because
  514.                                we just got the exact literalsize and there
  515.                                must follow data to complete the response */
  516.                             $read sqimap_fgets($imap_stream);
  517.                             if ($read === false/* error */
  518.                                 break 4/* while while switch while */
  519.                             }
  520.                             $s substr($read,-3);
  521.                             $read_literal true;
  522.                             continue;
  523.                         else {
  524.                             $fetch_data[$read;
  525.                         }
  526.                         /* retrieve next line and check in the while
  527.                            statements if it belongs to this fetch response */
  528.                         $read sqimap_fgets($imap_stream);
  529.                         if ($read === false/* error */
  530.                             break 4/* while while switch while */
  531.                         }
  532.                         /* check for next untagged reponse and break */
  533.                         if ($read{0== '*'break 2;
  534.                         $s substr($read,-3);
  535.                     while ($s === "}\r\n" || $read_literal);
  536.                     $s substr($read,-3);
  537.                 while ($read{0!== '*' &&
  538.                          substr($read,0,strlen($tag)) !== $tag);
  539.                 $resultlist[$fetch_data;
  540.                 /* release not neaded data */
  541.                 unset ($fetch_data);
  542.             else {
  543.                 $s substr($read,-3);
  544.                 do {
  545.                     if ($s === "}\r\n"{
  546.                         $j strrpos($read,'{');
  547.                         $iLit substr($read,$j+1,-3);
  548.                         // check for numeric value to avoid that untagged responses like:
  549.                         // * OK [PARSE] Unexpected characters at end of address: {SET:debug=51}
  550.                         // will trigger literal fetching  ({SET:debug=51} !== int )
  551.                         if (is_numeric($iLit)) {
  552.                             $data[$read;
  553.                             $sLiteral fread($imap_stream,$iLit);
  554.                             if ($sLiteral === false/* error */
  555.                                 $read false;
  556.                                 break 3/* while switch while */
  557.                             }
  558.                             $data[$sLiteral;
  559.                             $data[sqimap_fgets($imap_stream);
  560.                         else {
  561.                             $data[$read;
  562.                         }
  563.                     else {
  564.                          $data[$read;
  565.                     }
  566.                     $read sqimap_fgets($imap_stream);
  567.                     if ($read === false{
  568.                         break 3/* while switch while */
  569.                     else if ($read{0== '*'{
  570.                         break;
  571.                     }
  572.                     $s substr($read,-3);
  573.                 while ($s === "}\r\n");
  574.                 break 1;
  575.             }
  576.             break;
  577.           // end case '*'
  578.         }   // end switch
  579.     // end while
  580.  
  581.     /* error processing in case $read is false */
  582.     if ($read === false{
  583.         // try to retrieve an untagged bye respons from the results
  584.         $sResponse array_pop($data);
  585.         if ($sResponse !== NULL && strpos($sResponse,'* BYE'!== false{
  586.             if (!$handle_errors{
  587.                 $query '';
  588.             }
  589.             sqimap_error_box(_("ERROR: IMAP server closed the connection.")$query_("Server responded:"),$sResponse);
  590. //FIXME: NO HTML IN CORE!
  591.             echo '</body></html>';
  592.             exit;
  593.         else if ($handle_errors{
  594.             unset($data);
  595.             sqimap_error_box(_("ERROR: Connection dropped by IMAP server.")$query);
  596.             exit;
  597.         }
  598.     }
  599.  
  600.     /* Set $resultlist array */
  601.     if (!empty($data)) {
  602.         //$resultlist[] = $data;
  603.     }
  604.     elseif (empty($resultlist)) {
  605.         $resultlist[array();
  606.     }
  607.  
  608.     /* Return result or handle errors */
  609.     if ($handle_errors == false{
  610.         return $aResponse;
  611.     }
  612.     switch ($response[$tag]{
  613.     case 'OK':
  614.         return $aResponse;
  615.         break;
  616.     case 'NO':
  617.         /* ignore this error from M$ exchange, it is not fatal (aka bug) */
  618.         if (strstr($message[$tag]'command resulted in'=== false{
  619.             sqsession_register('NO''IMAP_FATAL_ERROR_TYPE');
  620.             sqsession_register($query'IMAP_FATAL_ERROR_QUERY');
  621.             sqsession_register($message[$tag]'IMAP_FATAL_ERROR_MESSAGE');
  622.             sqimap_error_box(_("ERROR: Could not complete request.")$query_("Reason Given:"' '$message[$tag]);
  623.             echo '</body></html>';
  624.             exit;
  625.         }
  626.         break;
  627.     case 'BAD':
  628.         sqsession_register('BAD''IMAP_FATAL_ERROR_TYPE');
  629.         sqsession_register($query'IMAP_FATAL_ERROR_QUERY');
  630.         sqsession_register($message[$tag]'IMAP_FATAL_ERROR_MESSAGE');
  631.         sqimap_error_box(_("ERROR: Bad or malformed request.")$query_("Server responded:"' '$message[$tag]);
  632. //FIXME: NO HTML IN CORE!
  633.         echo '</body></html>';
  634.         exit;
  635.     case 'BYE':
  636.         sqsession_register('BYE''IMAP_FATAL_ERROR_TYPE');
  637.         sqsession_register($query'IMAP_FATAL_ERROR_QUERY');
  638.         sqsession_register($message[$tag]'IMAP_FATAL_ERROR_MESSAGE');
  639.         sqimap_error_box(_("ERROR: IMAP server closed the connection.")$query_("Server responded:"' '$message[$tag]);
  640. //FIXME: NO HTML IN CORE!
  641.         echo '</body></html>';
  642.         exit;
  643.     default:
  644.         sqsession_register('UNKNOWN''IMAP_FATAL_ERROR_TYPE');
  645.         sqsession_register($query'IMAP_FATAL_ERROR_QUERY');
  646.         sqsession_register($message[$tag]'IMAP_FATAL_ERROR_MESSAGE');
  647.         sqimap_error_box(_("ERROR: Unknown IMAP response.")$query_("Server responded:"' '$message[$tag]);
  648.        /* the error is displayed but because we don't know the reponse we
  649.           return the result anyway */
  650.        return $aResponse;
  651.        break;
  652.     }
  653. }
  654.  
  655. /**
  656.  * @param stream $imap_stream imap string
  657.  * @param string $tag_uid 
  658.  * @param boolean $handle_errors 
  659.  * @param array $response 
  660.  * @param array $message 
  661.  * @param string $query (since 1.2.5)
  662.  * @param boolean $filter (since 1.4.1) see sqimap_fread()
  663.  * @param mixed $outputstream (since 1.4.1) see sqimap_fread()
  664.  * @param boolean $no_return (since 1.4.1) see sqimap_fread()
  665.  */
  666. function sqimap_read_data ($imap_stream$tag_uid$handle_errors,
  667.                            &$response&$message$query '',
  668.                            $filter=false,$outputstream=false,$no_return=false{
  669.  
  670.     $tag_uid_a explode(' ',trim($tag_uid));
  671.     $tag $tag_uid_a[0];
  672.  
  673.     $res sqimap_retrieve_imap_response($imap_stream$tag$handle_errors,
  674.               $response$message$query,$filter,$outputstream,$no_return);
  675.     return $res;
  676. }
  677.  
  678. /**
  679.  * Connects to the IMAP server and returns a resource identifier for use with
  680.  * the other SquirrelMail IMAP functions. Does NOT login!
  681.  * @param string server hostname of IMAP server
  682.  * @param int port port number to connect to
  683.  * @param integer $tls whether to use plain text(0), TLS(1) or STARTTLS(2) when connecting.
  684.  *   Argument was boolean before 1.5.1.
  685.  * @param array $stream_options Stream context options, see config_local.php
  686.  *                            for more details (OPTIONAL)
  687.  * @return imap-stream resource identifier
  688.  * @since 1.5.0 (usable only in 1.5.1 or later)
  689.  */
  690. function sqimap_create_stream($server,$port,$tls=0,$stream_options=array()) {
  691.     global $squirrelmail_language;
  692.  
  693.     if (strstr($server,':'&& preg_match("/^\[.*\]$/",$server)) {
  694.         // numerical IPv6 address must be enclosed in square brackets
  695.         $server '['.$server.']';
  696.     }
  697.  
  698.     // NB: Using "ssl://" ensures the highest possible TLS version
  699.     // will be negotiated with the server (whereas "tls://" only
  700.     // uses TLS version 1.0)
  701.     //
  702.     if ($tls == 1{
  703.         if ((check_php_version(4,3)) and (extension_loaded('openssl'))) {
  704.             if (function_exists('stream_socket_client')) {
  705.                 $server_address 'ssl://' $server ':' $port;
  706.                 $ssl_context @stream_context_create($stream_options);
  707.                 $connect_timeout ini_get('default_socket_timeout');
  708.                 // null timeout is broken
  709.                 if ($connect_timeout == 0)
  710.                     $connect_timeout 15;
  711.                 $imap_stream @stream_socket_client($server_address$error_number$error_string$connect_timeoutSTREAM_CLIENT_CONNECT$ssl_context);
  712.             else {
  713.                 $imap_stream @fsockopen('ssl://' $server$port$error_number$error_string15);
  714.             }
  715.         else {
  716.             require_once(SM_PATH 'functions/display_messages.php');
  717.             logout_errorsprintf(_("Error connecting to IMAP server: %s.")$server).
  718.                 '<br />'.
  719.                 _("TLS is enabled, but this version of PHP does not support TLS sockets, or is missing the openssl extension.").
  720.                 '<br /><br />'.
  721.                 _("Please contact your system administrator and report this error."),
  722.                           sprintf(_("Error connecting to IMAP server: %s.")$server));
  723.         }
  724.     else {
  725.         $imap_stream @fsockopen($server$port$error_number$error_string15);
  726.     }
  727.  
  728.  
  729.     /* Do some error correction */
  730.     if (!$imap_stream{
  731.         set_up_language($squirrelmail_languagetrue);
  732.         require_once(SM_PATH 'functions/display_messages.php');
  733.         logout_errorsprintf(_("Error connecting to IMAP server: %s.")$server).
  734. //FIXME: NO HTML IN CORE!
  735.             "<br />\r\n$error_number : $error_string<br />\r\n",
  736.                       sprintf(_("Error connecting to IMAP server: %s.")$server) );
  737.         exit;
  738.     }
  739.     $server_info fgets ($imap_stream1024);
  740.  
  741.     /**
  742.      * Implementing IMAP STARTTLS (rfc2595) in php 5.1.0+
  743.      * http://www.php.net/stream-socket-enable-crypto
  744.      */
  745.     if ($tls === 2{
  746.         if (function_exists('stream_socket_enable_crypto')) {
  747.             // check starttls capability, don't use cached capability version
  748.             if (sqimap_capability($imap_stream'STARTTLS'false)) {
  749.                 // imap server does not declare starttls support
  750.                 sqimap_error_box(sprintf(_("Error connecting to IMAP server: %s.")$server),
  751.                                  '','',
  752.                                  _("IMAP STARTTLS is enabled in SquirrelMail configuration, but used IMAP server does not support STARTTLS."));
  753.                 exit;
  754.             }
  755.  
  756.             // issue starttls command and check response
  757.             sqimap_run_command($imap_stream'STARTTLS'false$starttls_response$starttls_message);
  758.             // check response
  759.             if ($starttls_response!='OK'{
  760.                 // starttls command failed
  761.                 sqimap_error_box(sprintf(_("Error connecting to IMAP server: %s.")$server),
  762.                                  'STARTTLS',
  763.                                  _("Server replied:"' ',
  764.                                  $starttls_message);
  765.                 exit();
  766.             }
  767.  
  768.             // start crypto on connection. suppress function errors.
  769.             if (@stream_socket_enable_crypto($imap_stream,true,STREAM_CRYPTO_METHOD_TLS_CLIENT)) {
  770.                 // starttls was successful
  771.  
  772.                 /**
  773.                  * RFC 2595 requires to discard CAPABILITY information after successful
  774.                  * STARTTLS command. We don't follow RFC, because SquirrelMail stores CAPABILITY
  775.                  * information only after successful login (src/redirect.php) and cached information
  776.                  * is used only in other php script connections after successful STARTTLS. If script
  777.                  * issues sqimap_capability() call before sqimap_login() and wants to get initial
  778.                  * capability response, script should set third sqimap_capability() argument to false.
  779.                  */
  780.                 //sqsession_unregister('sqimap_capabilities');
  781.             else {
  782.                 /**
  783.                  * stream_socket_enable_crypto() call failed. Possible issues:
  784.                  * - broken ssl certificate (uw drops connection, error is in syslog mail facility)
  785.                  * - some ssl error (can reproduce with STREAM_CRYPTO_METHOD_SSLv3_CLIENT, PHP E_WARNING
  786.                  *   suppressed in stream_socket_enable_crypto() call)
  787.                  */
  788.                 sqimap_error_box(sprintf(_("Error connecting to IMAP server: %s.")$server),
  789.                                  '','',
  790.                                  _("Unable to start TLS."));
  791.                 /**
  792.                  * Bug: stream_socket_enable_crypto() does not register SSL errors in
  793.                  * openssl_error_string() or stream notification wrapper and displays
  794.                  * them in E_WARNING level message. It is impossible to retrieve error
  795.                  * message without own error handler.
  796.                  */
  797.                 exit;
  798.             }
  799.         else {
  800.             // php install does not support stream_socket_enable_crypto() function
  801.             sqimap_error_box(sprintf(_("Error connecting to IMAP server: %s.")$server),
  802.                              '','',
  803.                              _("IMAP STARTTLS is enabled in SquirrelMail configuration, but used PHP version does not support functions that allow to enable encryption on open socket."));
  804.             exit;
  805.         }
  806.     }
  807.     return $imap_stream;
  808. }
  809.  
  810. /**
  811.  * Logs the user into the IMAP server.  If $hide is set, no error messages
  812.  * will be displayed (if set to 1, just exits, if set to 2, returns FALSE).
  813.  * This function returns the IMAP connection handle.
  814.  * @param string $username user name
  815.  * @param string $password password encrypted with onetimepad. Since 1.5.2
  816.  *   function can use internal password functions, if parameter is set to
  817.  *   boolean false.
  818.  * @param string $imap_server_address address of imap server
  819.  * @param integer $imap_port port of imap server
  820.  * @param int $hide controls display connection errors:
  821.  *                   0 = do not hide
  822.  *                   1 = show no errors (just exit)
  823.  *                   2 = show no errors (return FALSE)
  824.  *                   3 = show no errors (return error string)
  825.  * @param array $stream_options Stream context options, see config_local.php
  826.  *                            for more details (OPTIONAL)
  827.  * @return mixed The IMAP connection stream, or if the connection fails,
  828.  *                FALSE if $hide is set to 2 or an error string if $hide
  829.  *                is set to 3.
  830.  */
  831. function sqimap_login ($username$password$imap_server_address,
  832.                        $imap_port$hide$stream_options=array()) {
  833.     global $color$squirrelmail_language$onetimepad$use_imap_tls,
  834.            $imap_auth_mech$sqimap_capabilities$display_imap_login_error;
  835.  
  836.     // Note/TODO: This hack grabs the $authz argument from the session. In the short future,
  837.     // a new argument in function sqimap_login() will be used instead.
  838.     $authz '';
  839.     global $authz;
  840.     sqgetglobalvar('authz' $authz SQ_SESSION);
  841.  
  842.     if(!empty($authz)) {
  843.         /* authz plugin - specific:
  844.          * Get proxy login parameters from authz plugin configuration. If they
  845.          * exist, they will override the current ones.
  846.          * This is useful if we want to use different SASL authentication mechanism
  847.          * and/or different TLS settings for proxy logins. */
  848.         global $authz_imap_auth_mech$authz_use_imap_tls$authz_imapPort_tls;
  849.         $imap_auth_mech !empty($authz_imap_auth_mechstrtolower($authz_imap_auth_mech$imap_auth_mech;
  850.         $use_imap_tls !empty($authz_use_imap_tls)$authz_use_imap_tls $use_imap_tls;
  851.         $imap_port !empty($authz_use_imap_tls)$authz_imapPort_tls $imap_port;
  852.  
  853.         if($imap_auth_mech == 'login' || $imap_auth_mech == 'cram-md5'{
  854.             logout_error("Misconfigured Plugin (authz or equivalent):<br/>".
  855.             "The LOGIN and CRAM-MD5 authentication mechanisms cannot be used when attempting proxy login.");
  856.             exit;
  857.         }
  858.     }
  859.  
  860.     /* get imap login password */
  861.     if ($password===false{
  862.         /* standard functions */
  863.         $password sqauth_read_password();
  864.     else {
  865.         /* old way. $key must be extracted from cookie */
  866.         if (!isset($onetimepad|| empty($onetimepad)) {
  867.             sqgetglobalvar('onetimepad' $onetimepad SQ_SESSION );
  868.         }
  869.         /* Decrypt the password */
  870.         $password OneTimePadDecrypt($password$onetimepad);
  871.     }
  872.  
  873.     if (!isset($sqimap_capabilities)) {
  874.         sqgetglobalvar('sqimap_capabilities' $sqimap_capabilities SQ_SESSION );
  875.     }
  876.  
  877.     $host $imap_server_address;
  878.     $imap_server_address sqimap_get_user_server($imap_server_address$username);
  879.  
  880.     $imap_stream sqimap_create_stream($imap_server_address,$imap_port,$use_imap_tls,$stream_options);
  881.  
  882.     if (($imap_auth_mech == 'cram-md5'OR ($imap_auth_mech == 'digest-md5')) {
  883.         // We're using some sort of authentication OTHER than plain or login
  884.         $tag=sqimap_session_id(false);
  885.         if ($imap_auth_mech == 'digest-md5'{
  886.             $query $tag " AUTHENTICATE DIGEST-MD5\r\n";
  887.         elseif ($imap_auth_mech == 'cram-md5'{
  888.             $query $tag " AUTHENTICATE CRAM-MD5\r\n";
  889.         }
  890.         fputs($imap_stream,$query);
  891.         $answer=sqimap_fgets($imap_stream);
  892.         // Trim the "+ " off the front
  893.         $response=explode(" ",$answer,3);
  894.         if ($response[0== '+'{
  895.             // Got a challenge back
  896.             $challenge=$response[1];
  897.             if ($imap_auth_mech == 'digest-md5'{
  898.                 $reply digest_md5_response($username,$password,$challenge,'imap',$host,$authz);
  899.             elseif ($imap_auth_mech == 'cram-md5'{
  900.                 $reply cram_md5_response($username,$password,$challenge);
  901.             }
  902.             fputs($imap_stream,$reply);
  903.             $read=sqimap_fgets($imap_stream);
  904.             if ($imap_auth_mech == 'digest-md5'{
  905.                 // DIGEST-MD5 has an extra step..
  906.                 if (substr($read,0,1== '+'// OK so far..
  907.                     fputs($imap_stream,"\r\n");
  908.                     $read=sqimap_fgets($imap_stream);
  909.                 }
  910.             }
  911.             $results=explode(" ",$read,3);
  912.             $response=$results[1];
  913.             $message=$results[2];
  914.         else {
  915.             // Fake the response, so the error trap at the bottom will work
  916.             $response="BAD";
  917.             $message='IMAP server does not appear to support the authentication method selected.';
  918.             $message .= '  Please contact your system administrator.';
  919.         }
  920.     elseif ($imap_auth_mech == 'login'{
  921.     // Original IMAP login code
  922.         $query 'LOGIN "' quoteimap($username.  '" "' quoteimap($password'"';
  923.         $read sqimap_run_command ($imap_stream$queryfalse$response$message);
  924.     elseif ($imap_auth_mech == 'plain'{
  925.         /***
  926.          * SASL PLAIN, RFC 4616 (updates 2595)
  927.          *
  928.          * The mechanism consists of a single message, a string of [UTF-8]
  929.          * encoded [Unicode] characters, from the client to the server.  The
  930.          * client presents the authorization identity (identity to act as),
  931.          * followed by a NUL (U+0000) character, followed by the authentication
  932.          * identity (identity whose password will be used), followed by a NUL
  933.          * (U+0000) character, followed by the clear-text password.  As with
  934.          * other SASL mechanisms, the client does not provide an authorization
  935.          * identity when it wishes the server to derive an identity from the
  936.          * credentials and use that as the authorization identity.
  937.          */
  938.         $tag=sqimap_session_id(false);
  939.         $sasl (isset($sqimap_capabilities['SASL-IR']&& $sqimap_capabilities['SASL-IR']true false;
  940.         if(!empty($authz)) {
  941.             $auth base64_encode("$username\0$authz\0$password");
  942.         else {
  943.             $auth base64_encode("$username\0$username\0$password");
  944.         }
  945.         if ($sasl{
  946.             // IMAP Extension for SASL Initial Client Response
  947.             // <draft-siemborski-imap-sasl-initial-response-01b.txt>
  948.             $query $tag " AUTHENTICATE PLAIN $auth\r\n";
  949.             fputs($imap_stream$query);
  950.             $read sqimap_fgets($imap_stream);
  951.         else {
  952.             $query $tag " AUTHENTICATE PLAIN\r\n";
  953.             fputs($imap_stream$query);
  954.             $read=sqimap_fgets($imap_stream);
  955.             if (substr($read,0,1== '+'// OK so far..
  956.                 fputs($imap_stream"$auth\r\n");
  957.                 $read sqimap_fgets($imap_stream);
  958.             }
  959.         }
  960.         $results=explode(" ",$read,3);
  961.         $response=$results[1];
  962.         $message=$results[2];
  963.  
  964.     else {
  965.         $response="BAD";
  966.         $message="Internal SquirrelMail error - unknown IMAP authentication method chosen.  Please contact the developers.";
  967.     }
  968.  
  969.     /* If the connection was not successful, lets see why */
  970.     if ($response != 'OK'{
  971.         if (!$hide || $hide == 3{
  972. //FIXME: UUURG... We don't want HTML in error messages, should also do html sanitizing of error messages elsewhere; should't assume output is destined for an HTML browser here
  973.             if ($response != 'NO'{
  974.                 /* "BAD" and anything else gets reported here. */
  975.                 $message sm_encode_html_special_chars($message);
  976.                 set_up_language($squirrelmail_languagetrue);
  977.                 if ($response == 'BAD'{
  978.                     if ($hide == 3return sprintf(_("Bad request: %s")$message);
  979.                     $string sprintf (_("Bad request: %s")."<br />\r\n"$message);
  980.                 else {
  981.                     if ($hide == 3return sprintf(_("Unknown error: %s")$message);
  982.                     $string sprintf (_("Unknown error: %s""<br />\n"$message);
  983.                 }
  984.                 if (isset($read&& is_array($read)) {
  985.                     $string .= '<br />' _("Read data:""<br />\n";
  986.                     foreach ($read as $line{
  987.                         $string .= sm_encode_html_special_chars($line"<br />\n";
  988.                     }
  989.                 }
  990.                 error_box($string);
  991.                 exit;
  992.             else {
  993.                 /*
  994.                  * If the user does not log in with the correct
  995.                  * username and password it is not possible to get the
  996.                  * correct locale from the user's preferences.
  997.                  * Therefore, apply the same hack as on the login
  998.                  * screen.
  999.                  *
  1000.                  * $squirrelmail_language is set by a cookie when
  1001.                  * the user selects language and logs out
  1002.                  */
  1003.  
  1004.                 set_up_language($squirrelmail_languagetrue);
  1005.                 sqsession_destroy();
  1006.  
  1007.                 /* terminate the session nicely */
  1008.                 sqimap_logout($imap_stream);
  1009.  
  1010.                 // determine what error message to use
  1011.                 //
  1012.                 $fail_msg _("Unknown user or password incorrect.");
  1013.                 if ($display_imap_login_error{
  1014.                     // See if there is an error message from the server
  1015.                     // Skip any rfc5530 response code: '[something]' at the
  1016.                     // start of the message
  1017.                     if (!empty($message)
  1018.                      && $message{0== '['
  1019.                      && ($end strstr($message']'))
  1020.                      && $end != ']'{
  1021.                         $message substr($end1);
  1022.                     }
  1023.                     // Remove surrounding spaces and if there
  1024.                     // is anything left, display that as the
  1025.                     // error message:
  1026.                     $message trim($message);
  1027.                     if (strlen($message))
  1028.                         $fail_msg _($message);
  1029.                 }
  1030.  
  1031.                 if ($hide == 3return $fail_msg;
  1032.                 logout_error($fail_msg);
  1033.                 exit;
  1034.             }
  1035.         else {
  1036.             if ($hide == 2return FALSE;
  1037.             exit;
  1038.         }
  1039.     }
  1040.  
  1041.     /* Special error case:
  1042.      * Login referrals. The server returns:
  1043.      * ? OK [REFERRAL <imap url>]
  1044.      * Check RFC 2221 for details. Since we do not support login referrals yet
  1045.      * we log the user out.
  1046.      */
  1047.     if stristr($message'REFERRAL imap'=== TRUE {
  1048.         sqimap_logout($imap_stream);
  1049.         set_up_language($squirrelmail_languagetrue);
  1050.         sqsession_destroy();
  1051.         logout_error_("Your mailbox is not located at this server. Try a different server or consult your system administrator") );
  1052.         exit;
  1053.     }
  1054.  
  1055.     // Run ID command if configured - RFC 2971
  1056.     //
  1057.     // Administrator must declare a configuration variable called
  1058.     // $imap_id_command_args in config/config_local.php which must
  1059.     // be an array, where each key is an attibute to be sent in the
  1060.     // IMAP ID command to the server.  Values will be sent as-is
  1061.     // except if the value is "###REMOTE ADDRESS###" (without quotes)
  1062.     // in which case the current user's real IP address will be
  1063.     // substituted.  If "###X-FORWARDED-FOR###" is used and a
  1064.     // "X-FORWARDED-FOR" header is present in the client request,
  1065.     // the contents of that header are used (careful, this can be
  1066.     // forged).  If "###X-FORWARDED-FOR OR REMOTE ADDRESS###" is
  1067.     // used, then the "X-FORWARDED-FOR" header is used if it is
  1068.     // present in the request, otherwise, the client's connecting
  1069.     // IP address is used.  The following attributes will always be
  1070.     // added unless they are specifically overridden with a blank
  1071.     // value:
  1072.     //    name, vendor, support-url, version
  1073.     // A parsed representation of server's response is made available
  1074.     // to plugins as both a global and session variable named
  1075.     // "imap_server_id_response" (a simple key/value array) unless
  1076.     // response parsing is turned off by way of setting a variable
  1077.     // named $do_not_parse_imap_id_command_response in
  1078.     // config/config_local.php to TRUE, in which case, the stored
  1079.     // response will be the unparsed IMAP response.
  1080.     //
  1081.     global $imap_id_command_args$do_not_parse_imap_id_command_response;
  1082.     if (!empty($imap_id_command_args&& is_array($imap_id_command_args)
  1083.      && sqimap_capability($imap_stream'ID')) {
  1084.  
  1085.         static $args array();
  1086.         if (empty($args)) {
  1087.             if (!isset($imap_id_command_args['name']))
  1088.                 $imap_id_command_args['name''SquirrelMail';
  1089.             if (!isset($imap_id_command_args['vendor']))
  1090.                 $imap_id_command_args['vendor''SquirrelMail Project Team';
  1091.             if (!isset($imap_id_command_args['support-url']))
  1092.                 $imap_id_command_args['support-url''https://squirrelmail.org';
  1093.             if (!isset($imap_id_command_args['version'])) {
  1094.                 $imap_id_command_args['version'SM_VERSION;
  1095.             }
  1096.             foreach ($imap_id_command_args as $key => $value{
  1097.                 $key trim($key);
  1098.                 $value trim($value);
  1099.                 if ($key === '' || $value === '')
  1100.                    continue;
  1101.                 if ($value === '###REMOTE ADDRESS###' && sqGetGlobalVar('REMOTE_ADDR'$remote_addrSQ_SERVER))
  1102.                     $value $remote_addr;
  1103.                 else if ($value === '###X-FORWARDED-FOR###' && sqGetGlobalVar('HTTP_X_FORWARDED_FOR'$remote_addrSQ_SERVER))
  1104.                     $value $remote_addr;
  1105.                 else if ($value === '###X-FORWARDED-FOR OR REMOTE ADDRESS###'{
  1106.                     if (sqGetGlobalVar('HTTP_X_FORWARDED_FOR'$remote_addrSQ_SERVER))
  1107.                         $value $remote_addr;
  1108.                     else if (sqGetGlobalVar('REMOTE_ADDR'$remote_addrSQ_SERVER))
  1109.                         $value $remote_addr;
  1110.                 }
  1111.                 else if ($value === '###REMOTE ADDRESS###' && sqGetGlobalVar('REMOTE_ADDR'$remote_addrSQ_SERVER)) {
  1112.                     $value $remote_addr;
  1113.                 }
  1114.                 $args['"' str_replace(array('"''\\')array('\\"''\\\\')$key)
  1115.                                . '" "' str_replace(array('"''\\')array('\\"''\\\\')$value'"';
  1116.             }
  1117.         }
  1118.         $read_ary sqimap_run_command($imap_stream'ID (' implode(' '$args')'false$response$message);
  1119.         if (!empty($read_ary&& is_array($read_ary)) {
  1120.             global $imap_server_id_response;
  1121.             if ($do_not_parse_imap_id_command_response)
  1122.                $imap_server_id_response $read_ary;
  1123.             else
  1124.             {
  1125.                $imap_server_id_response array();
  1126.  
  1127.                // NOTE that this parser ignores closing ) sign, so
  1128.                //      technically some kind of malformed server
  1129.                //      response could cause extra junk to be included here
  1130.                foreach ($read_ary as $info)
  1131.                {
  1132.                   $parsed_info explode('('$info2);
  1133.                   if (!empty($parsed_info[1]))
  1134.                   {
  1135.                      // find opening quote for the next key name
  1136.                      while ($parsed_info explode('"'$parsed_info[1]2))
  1137.                      {
  1138.                         if (empty($parsed_info[1]))
  1139.                            break;
  1140.                         else
  1141.                         {
  1142.                            // find closing quote for the key name
  1143.                            $pos strpos($parsed_info[1]'"');
  1144.                            if ($pos === FALSE)
  1145.                               break;
  1146.                            else
  1147.                            {
  1148.                               $key substr($parsed_info[1]0$pos);
  1149.                               $parsed_info[1substr($parsed_info[1]$pos 1);
  1150.  
  1151.                               // find opening quote for the key's value
  1152.                               $parsed_info explode('"'$parsed_info[1]2);
  1153.                               if (empty($parsed_info[1]))
  1154.                                  break;
  1155.                               else
  1156.                               {
  1157.                                  // find closing quote for the key's value
  1158.                                  $pos strpos($parsed_info[1]'"');
  1159.                                  if ($pos === FALSE)
  1160.                                     break;
  1161.                                  else
  1162.                                  {
  1163.                                     $imap_server_id_response[$keysubstr($parsed_info[1]0$pos);
  1164.                                     $parsed_info[1substr($parsed_info[1]$pos 1);
  1165.                                  }
  1166.                               }
  1167.                            }
  1168.                         }
  1169.                      }
  1170.                   }
  1171.                }
  1172.             }
  1173.             sqsession_register($imap_server_id_response'imap_server_id_response');
  1174.         }
  1175.     }
  1176.  
  1177.     return $imap_stream;
  1178. }
  1179.  
  1180. /**
  1181.  * Simply logs out the IMAP session
  1182.  * @param stream $imap_stream the IMAP connection to log out.
  1183.  * @return void 
  1184.  */
  1185. function sqimap_logout ($imap_stream{
  1186.     /* Logout is not valid until the server returns 'BYE'
  1187.      * If we don't have an imap_ stream we're already logged out */
  1188.     if(isset($imap_stream&& $imap_stream{
  1189.         sqimap_run_command($imap_stream'LOGOUT'false$response$message);
  1190.         fclose($imap_stream);
  1191.     }
  1192. }
  1193.  
  1194. /**
  1195.  * Retrieve the CAPABILITY string from the IMAP server.
  1196.  * If capability is set, returns only that specific capability,
  1197.  * else returns array of all capabilities.
  1198.  * @param stream $imap_stream 
  1199.  * @param string $capability (since 1.3.0)
  1200.  * @param boolean $bUseCache (since 1.5.1) Controls use of capability data stored in session
  1201.  * @return mixed (string if $capability is set and found,
  1202.  *   false, if $capability is set and not found,
  1203.  *   array if $capability not set)
  1204.  */
  1205. function sqimap_capability($imap_stream$capability=''$bUseCache=true{
  1206.     // sqgetGlobalVar('sqimap_capabilities', $sqimap_capabilities, SQ_SESSION);
  1207.  
  1208.     if (!$bUseCache || sqgetGlobalVar('sqimap_capabilities'$sqimap_capabilitiesSQ_SESSION)) {
  1209.         $read sqimap_run_command($imap_stream'CAPABILITY'true$a$b);
  1210.         $c explode(' '$read[0]);
  1211.         for ($i=2$i count($c)$i++{
  1212.             $cap_list explode('='$c[$i]);
  1213.             if (isset($cap_list[1])) {
  1214.                 if(isset($sqimap_capabilities[trim($cap_list[0])]&&
  1215.                  !is_array($sqimap_capabilities[trim($cap_list[0])])) {
  1216.                     // Remove array key that was added in 'else' block below
  1217.                     // This is to accomodate for capabilities like:
  1218.                     // SORT SORT=MODSEQ
  1219.                     unset($sqimap_capabilities[trim($cap_list[0])]);
  1220.                 }
  1221.                 $sqimap_capabilities[trim($cap_list[0])][$cap_list[1];
  1222.             else {
  1223.                 if(!isset($sqimap_capabilities[trim($cap_list[0])])) {
  1224.                     $sqimap_capabilities[trim($cap_list[0])TRUE;
  1225.                 }
  1226.             }
  1227.         }
  1228.     }
  1229.     if ($capability{
  1230.         if (isset($sqimap_capabilities[$capability])) {
  1231.                 return $sqimap_capabilities[$capability];
  1232.         else {
  1233.                 return false;
  1234.         }
  1235.     }
  1236.     return $sqimap_capabilities;
  1237. }
  1238.  
  1239. /**
  1240.  * Returns the delimiter between mailboxes: INBOX/Test, or INBOX.Test
  1241.  * @param stream $imap_stream 
  1242.  * @return string 
  1243.  */
  1244. function sqimap_get_delimiter ($imap_stream false{
  1245.     global $sqimap_delimiter$optional_delimiter;
  1246.  
  1247.     /* Use configured delimiter if set */
  1248.     if((!empty($optional_delimiter)) && $optional_delimiter != 'detect'{
  1249.         return $optional_delimiter;
  1250.     }
  1251.  
  1252.     /* Delimiter is stored in the session from redirect.  Try fetching from there first */
  1253.     if (empty($sqimap_delimiter)) {
  1254.         sqgetGlobalVar('delimiter',$sqimap_delimiter,SQ_SESSION);
  1255.     }
  1256.  
  1257.     /* Do some caching here */
  1258.     if (!$sqimap_delimiter{
  1259.         if (sqimap_capability($imap_stream'NAMESPACE')
  1260.             /*
  1261.              * According to something that I can't find, this is supposed to work on all systems
  1262.              * OS: This won't work in Courier IMAP.
  1263.              * OS: According to rfc2342 response from NAMESPACE command is:
  1264.              * OS: * NAMESPACE (PERSONAL NAMESPACES) (OTHER_USERS NAMESPACE) (SHARED NAMESPACES)
  1265.              * OS: We want to lookup all personal NAMESPACES...
  1266.              *
  1267.              * TODO: remove this in favour of the information from sqimap_get_namespace()
  1268.              */
  1269.          && ($read sqimap_run_command($imap_stream'NAMESPACE'true$a$b))
  1270.          && preg_match('/\* NAMESPACE +(\( *\(.+\) *\)|NIL) +(\( *\(.+\) *\)|NIL) +(\( *\(.+\) *\)|NIL)/i'$read[0]$data)
  1271.          && preg_match('/^\( *\((.*)\) *\)/'$data[1]$data2)) {
  1272.             $pn $data2[1];
  1273.             $pna explode(')('$pn);
  1274.             $delnew array();
  1275.             while (list($k$veach($pna)) {
  1276.                 $lst explode('"'$v);
  1277.                 if (isset($lst[3])) {
  1278.                     $delnew[$lst[1]] $lst[3];
  1279.                 else {
  1280.                     $delnew[$lst[1]] '';
  1281.                 }
  1282.             }
  1283.             $sqimap_delimiter array_shift($delnew);
  1284.         else {
  1285.             fputs ($imap_stream". LIST \"INBOX\" \"\"\r\n");
  1286.             $read sqimap_read_data($imap_stream'.'true$a$b);
  1287.             $read $read['.'][0];    //sqimap_read_data() now returns a tag array of response array
  1288.             $quote_position strpos ($read[0]'"');
  1289.             $sqimap_delimiter substr ($read[0]$quote_position+11);
  1290.         }
  1291.     }
  1292.     return $sqimap_delimiter;
  1293. }
  1294.  
  1295. /**
  1296.  * Retrieves the namespaces from the IMAP server.
  1297.  * NAMESPACE is an IMAP extension defined in RFC 2342.
  1298.  *
  1299.  * @param stream $imap_stream 
  1300.  * @return array 
  1301.  */
  1302. function sqimap_get_namespace($imap_stream{
  1303.     $read sqimap_run_command($imap_stream'NAMESPACE'true$a$b);
  1304.     return sqimap_parse_namespace($read[0]);
  1305. }
  1306.  
  1307. /**
  1308.  * Parses a NAMESPACE response and returns an array with the available
  1309.  * personal, users and shared namespaces.
  1310.  *
  1311.  * @param string $input 
  1312.  * @return array The returned array has the following format:
  1313.  *  <pre>
  1314.  *  array(
  1315.  *    'personal' => array(
  1316.  *        0 => array('prefix'=>'INBOX.','delimiter' =>'.'),
  1317.  *        1 => ...
  1318.  *     ),
  1319.  *     'users' => array(..
  1320.  *     ),
  1321.  *     'shared' => array( ..
  1322.  *     )
  1323.  *  )
  1324.  *  </pre>
  1325.  *  Note that if a namespace is not defined in the server, then the corresponding
  1326.  *  array will be empty.
  1327.  */
  1328. function sqimap_parse_namespace(&$input{
  1329.     $ns_strings array(1=>'personal'2=>'users'3=>'shared');
  1330.     $namespace array();
  1331.  
  1332.     if (preg_match('/NAMESPACE (\(\(.*\)\)|NIL) (\(\(.*\)\)|NIL) (\(\(.*\)\)|NIL)/'$input$regs)) {
  1333.         for($i=1$i<=3$i++{
  1334.             if($regs[$i== 'NIL'{
  1335.                 $namespace[$ns_strings[$i]] array();
  1336.             else {
  1337.                 // Pop-out the first ( and last ) for easier parsing
  1338.                 $ns substr($regs[$i]1sizeof($regs[$i])-2);
  1339.                 if($c preg_match_all('/\((?:(.*?)\s*?)\)/'$ns$regs2)) {
  1340.                     $namespace[$ns_strings[$i]] array();
  1341.                     for($j=0$j<sizeof($regs2[1])$j++{
  1342.                         preg_match('/"(.*)"\s+("(.*)"|NIL)/'$regs2[1][$j]$regs3);
  1343.                         $namespace[$ns_strings[$i]][$j]['prefix'$regs3[1];
  1344.                         if($regs3[2== 'NIL'{
  1345.                             $namespace[$ns_strings[$i]][$j]['delimiter'null;
  1346.                         else {
  1347.                             // $regs[3] is $regs[2] without the quotes
  1348.                             $namespace[$ns_strings[$i]][$j]['delimiter'$regs3[3];
  1349.                         }
  1350.                         unset($regs3);
  1351.                     }
  1352.                 }
  1353.                 unset($ns);
  1354.             }
  1355.         }
  1356.     }
  1357.     return($namespace);
  1358. }
  1359.  
  1360. /**
  1361.  * This encodes a mailbox name for use in IMAP commands.
  1362.  * @param string $what the mailbox to encode
  1363.  * @return string the encoded mailbox string
  1364.  * @since 1.5.0
  1365.  */
  1366. {
  1367.     if (preg_match('/["\\\r\n]/'$what))
  1368.         return '{' strlen($what"}\r\n" $what;        /* 4.3 literal form */
  1369.     return '"' $what '"';        /* 4.3 quoted string form */
  1370. }
  1371.  
  1372. /**
  1373.  * Gets the number of messages in the current mailbox.
  1374.  *
  1375.  * OBSOLETE use sqimap_status_messages instead.
  1376.  * @param stream $imap_stream imap stream
  1377.  * @param string $mailbox 
  1378.  * @deprecated
  1379.  */
  1380. function sqimap_get_num_messages ($imap_stream$mailbox{
  1381.     $aStatus sqimap_status_messages($imap_stream,$mailbox,array('MESSAGES'));
  1382.     return $aStatus['MESSAGES'];
  1383. }
  1384.  
  1385. /**
  1386.  * OBSOLETE FUNCTION should be removed after mailbox_display,
  1387.  * printMessage function is adapted
  1388.  * $addr_ar = array(), $group = '' and $host='' arguments are used in 1.4.0
  1389.  * @param string $address 
  1390.  * @param integer $max 
  1391.  * @since 1.4.0
  1392.  * @deprecated See Rfc822Address.php
  1393.  */
  1394. function parseAddress($address$max=0{
  1395.     $aAddress parseRFC822Address($address,array('limit'=> $max));
  1396.     /*
  1397.      * Because the expected format of the array element is changed we adapt it now.
  1398.      * This also implies that this function is obsolete and should be removed after the
  1399.      * rest of the source is adapted. See Rfc822Address.php for the new function.
  1400.      */
  1401.      array_walk($aAddress'_adaptAddress');
  1402.      return $aAddress;
  1403. }
  1404.  
  1405. /**
  1406.  * OBSOLETE FUNCTION should be removed after mailbox_display,
  1407.  * printMessage function is adapted
  1408.  *
  1409.  * callback function used for formating of addresses array in
  1410.  * parseAddress() function
  1411.  * @param array $aAddr 
  1412.  * @param integer $k array key
  1413.  * @since 1.5.1
  1414.  * @deprecated
  1415.  */
  1416. function _adaptAddress(&$aAddr,$k{
  1417.    $sPersonal (isset($aAddr[SQM_ADDR_PERSONAL]&& $aAddr[SQM_ADDR_PERSONAL]?
  1418.        $aAddr[SQM_ADDR_PERSONAL'';
  1419.    $sEmail ($aAddr[SQM_ADDR_HOST]?
  1420.        $aAddr[SQM_ADDR_MAILBOX'@'.$aAddr[SQM_ADDR_HOST:
  1421.        $aAddr[SQM_ADDR_MAILBOX];
  1422.    $aAddr array($sEmail,$sPersonal);
  1423. }
  1424.  
  1425. /**
  1426.  * Returns the number of unseen messages in this folder.
  1427.  * obsoleted by sqimap_status_messages !
  1428.  * Arguments differ in 1.0.x
  1429.  * @param stream $imap_stream 
  1430.  * @param string $mailbox 
  1431.  * @return integer 
  1432.  * @deprecated
  1433.  */
  1434. function sqimap_unseen_messages ($imap_stream$mailbox{
  1435.     $aStatus sqimap_status_messages($imap_stream,$mailbox,array('UNSEEN'));
  1436.     return $aStatus['UNSEEN'];
  1437. }
  1438.  
  1439. /**
  1440.  * Returns the status items of a mailbox.
  1441.  * Default it returns MESSAGES,UNSEEN and RECENT
  1442.  * Supported status items are MESSAGES, UNSEEN, RECENT (since 1.4.0),
  1443.  * UIDNEXT (since 1.5.1) and UIDVALIDITY (since 1.5.1)
  1444.  * @param stream $imap_stream imap stream
  1445.  * @param string $mailbox mail folder
  1446.  * @param array $aStatusItems status items
  1447.  * @return array 
  1448.  * @since 1.3.2
  1449.  */
  1450. function sqimap_status_messages ($imap_stream$mailbox,
  1451.                        $aStatusItems array('MESSAGES','UNSEEN','RECENT')) {
  1452.  
  1453.     $aStatusItems implode(' ',$aStatusItems);
  1454.     $read_ary sqimap_run_command ($imap_stream'STATUS ' sqimap_encode_mailbox_name($mailbox.
  1455.                                     " ($aStatusItems)"false$result$message);
  1456.     $i 0;
  1457.     $messages $unseen $recent $uidnext $uidvalidity false;
  1458.     $regs array(false,false);
  1459.     while (isset($read_ary[$i])) {
  1460.         if (preg_match('/UNSEEN\s+([0-9]+)/i'$read_ary[$i]$regs)) {
  1461.             $unseen $regs[1];
  1462.         }
  1463.         if (preg_match('/MESSAGES\s+([0-9]+)/i'$read_ary[$i]$regs)) {
  1464.             $messages $regs[1];
  1465.         }
  1466.         if (preg_match('/RECENT\s+([0-9]+)/i'$read_ary[$i]$regs)) {
  1467.             $recent $regs[1];
  1468.         }
  1469.         if (preg_match('/UIDNEXT\s+([0-9]+)/i'$read_ary[$i]$regs)) {
  1470.             $uidnext $regs[1];
  1471.         }
  1472.         if (preg_match('/UIDVALIDITY\s+([0-9]+)/i'$read_ary[$i]$regs)) {
  1473.             $uidvalidity $regs[1];
  1474.         }
  1475.         $i++;
  1476.     }
  1477.  
  1478.     $status=array('MESSAGES' => $messages,
  1479.                  'UNSEEN'=>$unseen,
  1480.                  'RECENT' => $recent,
  1481.                  'UIDNEXT' => $uidnext,
  1482.                  'UIDVALIDITY' => $uidvalidity);
  1483.  
  1484.     if (!empty($messages)) $hook_status['MESSAGES']=$messages}
  1485.     if (!empty($unseen)) $hook_status['UNSEEN']=$unseen}
  1486.     if (!empty($recent)) $hook_status['RECENT']=$recent}
  1487.     if (!empty($hook_status)) {
  1488.          $hook_status['MAILBOX']=$mailbox;
  1489.          $hook_status['CALLER']='sqimap_status_messages';
  1490.          do_hook('folder_status'$hook_status);
  1491.     }
  1492.     return $status;
  1493. }
  1494.  
  1495.  
  1496. /**
  1497.  * Saves a message to a given folder -- used for saving sent messages
  1498.  * @param stream $imap_stream 
  1499.  * @param string $sent_folder 
  1500.  * @param $length 
  1501.  * @return string $sid
  1502.  */
  1503. function sqimap_append ($imap_stream$sMailbox$length{
  1504.     $sid sqimap_session_id();
  1505.     $query $sid ' APPEND ' sqimap_encode_mailbox_name($sMailbox" (\\Seen) {".$length."}";
  1506.     fputs ($imap_stream"$query\r\n");
  1507.     $tmp fgets ($imap_stream1024);
  1508.     sqimap_append_checkresponse($tmp$sMailbox,$sid$query);
  1509.     return $sid;
  1510. }
  1511.  
  1512. /**
  1513.  * @param stream imap_stream
  1514.  * @param string $folder (since 1.3.2)
  1515.  */
  1516. function sqimap_append_done ($imap_stream$sMailbox=''{
  1517.     fputs ($imap_stream"\r\n");
  1518.     $tmp fgets ($imap_stream1024);
  1519.     while (!sqimap_append_checkresponse($tmp$sMailbox)) {
  1520.         $tmp fgets ($imap_stream1024);
  1521.     }
  1522. }
  1523.  
  1524. /**
  1525.  * Displays error messages, if there are errors in responses to
  1526.  * commands issues by sqimap_append() and sqimap_append_done() functions.
  1527.  * @param string $response 
  1528.  * @param string $sMailbox 
  1529.  * @return bool $bDone
  1530.  * @since 1.5.1 and 1.4.5
  1531.  */
  1532. function sqimap_append_checkresponse($response$sMailbox$sid=''$query=''{
  1533.     // static vars to keep them available when sqimap_append_done calls this function.
  1534.     static $imapquery$imapsid;
  1535.  
  1536.     $bDone false;
  1537.  
  1538.     if ($query{
  1539.         $imapquery $query;
  1540.     }
  1541.     if ($sid{
  1542.         $imapsid $sid;
  1543.     }
  1544.     if ($response{0== '+'{
  1545.         // continuation request triggerd by sqimap_append()
  1546.         $bDone true;
  1547.     else {
  1548.         $i strpos($response' ');
  1549.         $sRsp substr($response,0,$i);
  1550.         $sMsg substr($response,$i+1);
  1551.         $aExtra array('MAILBOX' => $sMailbox);
  1552.         switch ($sRsp{
  1553.             case '*'//untagged response
  1554.                 $i strpos($sMsg' ');
  1555.                 $sRsp strtoupper(substr($sMsg,0,$i));
  1556.                 $sMsg substr($sMsg,$i+1);
  1557.                 if ($sRsp == 'NO' || $sRsp == 'BAD'{
  1558.                     // for the moment disabled. Enable after 1.5.1 release.
  1559.                     // Notices could give valueable information about the mailbox
  1560.                     // Update: seems this was forgotten, but now it is finally enabled
  1561.                     sqm_trigger_imap_error('SQM_IMAP_APPEND_NOTICE',$imapquery,$sRsp,$sMsg);
  1562.                 }
  1563.                 $bDone false;
  1564.             case $imapsid:
  1565.                 // A001 OK message
  1566.                 // $imapsid<space>$sRsp<space>$sMsg
  1567.                 $bDone true;
  1568.                 $i strpos($sMsg' ');
  1569.                 $sRsp strtoupper(substr($sMsg,0,$i));
  1570.                 $sMsg substr($sMsg,$i+1);
  1571.                 switch ($sRsp{
  1572.                     case 'NO':
  1573.                         if (preg_match("/(.*)(quota)(.*)$/i"$sMsg$aMatch)) {
  1574.                             sqm_trigger_imap_error('SQM_IMAP_APPEND_QUOTA_ERROR',$imapquery,$sRsp,$sMsg,$aExtra);
  1575.                         else {
  1576.                             sqm_trigger_imap_error('SQM_IMAP_APPEND_ERROR',$imapquery,$sRsp,$sMsg,$aExtra);
  1577.                         }
  1578.                         break;
  1579.                     case 'BAD':
  1580.                         sqm_trigger_imap_error('SQM_IMAP_ERROR',$imapquery,$sRsp,$sMsg,$aExtra);
  1581.                         break;
  1582.                     case 'BYE':
  1583.                         sqm_trigger_imap_error('SQM_IMAP_BYE',$imapquery,$sRsp,$sMsg,$aExtra);
  1584.                         break;
  1585.                     case 'OK':
  1586.                         break;
  1587.                     default:
  1588.                         break;
  1589.                 }
  1590.                 break;
  1591.             default:
  1592.                 // should be false because of the unexpected response but i'm not sure if
  1593.                 // that will cause an endless loop in sqimap_append_done
  1594.                 $bDone true;
  1595.         }
  1596.     }
  1597.     return $bDone;
  1598. }
  1599.  
  1600. /**
  1601.  * Allows mapping of IMAP server address with custom function
  1602.  * see map_yp_alias()
  1603.  * @param string $imap_server imap server address or mapping
  1604.  * @param string $username 
  1605.  * @return string 
  1606.  * @since 1.3.0
  1607.  */
  1608. function sqimap_get_user_server ($imap_server$username{
  1609.    if (substr($imap_server04!= "map:"{
  1610.        return $imap_server;
  1611.    }
  1612.    $function substr($imap_server4);
  1613.    return $function($username);
  1614. }
  1615.  
  1616. /**
  1617.  * This is an example that gets IMAP servers from yellowpages (NIS).
  1618.  * you can simple put map:map_yp_alias in your $imap_server_address
  1619.  * in config.php use your own function instead map_yp_alias to map your
  1620.  * LDAP whatever way to find the users IMAP server.
  1621.  *
  1622.  * Requires access to external ypmatch program
  1623.  * FIXME: it can be implemented in php yp extension or pecl (since php 5.1.0)
  1624.  * @param string $username 
  1625.  * @return string 
  1626.  * @since 1.3.0
  1627.  */
  1628. function map_yp_alias($username{
  1629.    $safe_username escapeshellarg($username);
  1630.    $yp = `ypmatch $safe_username aliases`;
  1631.    return chop(substr($ypstrlen($username)+1));
  1632. }

Documentation generated on Mon, 13 Jan 2020 04:22:45 +0100 by phpDocumentor 1.4.3