*
* This implements all functions that do general IMAP functions.
*
- * @copyright 1999-2017 The SquirrelMail Project Team
+ * @copyright 1999-2021 The SquirrelMail Project Team
* @license http://opensource.org/licenses/gpl-license.php GNU Public License
* @version $Id$
* @package squirrelmail
$read = '';
if (!is_array($message)) $message = array();
if (!is_array($response)) $response = array();
- $aResponse = '';
+ $aResponse = array();
$resultlist = array();
$data = array();
$sCommand = '';
$read = sqimap_fgets($imap_stream);
$i = 0;
while ($read) {
- $char = $read{0};
+ $char = $read[0];
switch ($char)
{
case '+':
$read = sqimap_fgets($imap_stream);
break;
- case $tag{0}:
+ case $tag[0]:
{
/* get the command */
$arg = '';
break 2; /* switch while */
}
break;
- } // end case $tag{0}
+ } // end case $tag[0]
case '*':
{
break 4; /* while while switch while */
}
/* check for next untagged reponse and break */
- if ($read{0} == '*') break 2;
+ if ($read[0] == '*') break 2;
$s = substr($read,-3);
} while ($s === "}\r\n" || $read_literal);
$s = substr($read,-3);
- } while ($read{0} !== '*' &&
+ } while ($read[0] !== '*' &&
substr($read,0,strlen($tag)) !== $tag);
$resultlist[] = $fetch_data;
/* release not neaded data */
$read = sqimap_fgets($imap_stream);
if ($read === false) {
break 3; /* while switch while */
- } else if ($read{0} == '*') {
+ } else if ($read[0] == '*') {
break;
}
$s = substr($read,-3);
// Skip any rfc5530 response code: '[something]' at the
// start of the message
if (!empty($message)
- && $message{0} == '['
+ && $message[0] == '['
&& ($end = strstr($message, ']'))
&& $end != ']') {
$message = substr($end, 1);
exit;
}
+ // Run ID command if configured - RFC 2971
+ //
+ // Administrator must declare a configuration variable called
+ // $imap_id_command_args in config/config_local.php which must
+ // be an array, where each key is an attibute to be sent in the
+ // IMAP ID command to the server. Values will be sent as-is
+ // except if the value is "###REMOTE ADDRESS###" (without quotes)
+ // in which case the current user's real IP address will be
+ // substituted. If "###X-FORWARDED-FOR###" is used and a
+ // "X-FORWARDED-FOR" header is present in the client request,
+ // the contents of that header are used (careful, this can be
+ // forged). If "###X-FORWARDED-FOR OR REMOTE ADDRESS###" is
+ // used, then the "X-FORWARDED-FOR" header is used if it is
+ // present in the request, otherwise, the client's connecting
+ // IP address is used. The following attributes will always be
+ // added unless they are specifically overridden with a blank
+ // value:
+ // name, vendor, support-url, version
+ // A parsed representation of server's response is made available
+ // to plugins as both a global and session variable named
+ // "imap_server_id_response" (a simple key/value array) unless
+ // response parsing is turned off by way of setting a variable
+ // named $do_not_parse_imap_id_command_response in
+ // config/config_local.php to TRUE, in which case, the stored
+ // response will be the unparsed IMAP response.
+ //
+ global $imap_id_command_args, $do_not_parse_imap_id_command_response;
+ if (!empty($imap_id_command_args) && is_array($imap_id_command_args)
+ && sqimap_capability($imap_stream, 'ID')) {
+
+ static $args = array();
+ if (empty($args)) {
+ if (!isset($imap_id_command_args['name']))
+ $imap_id_command_args['name'] = 'SquirrelMail';
+ if (!isset($imap_id_command_args['vendor']))
+ $imap_id_command_args['vendor'] = 'SquirrelMail Project Team';
+ if (!isset($imap_id_command_args['support-url']))
+ $imap_id_command_args['support-url'] = 'https://squirrelmail.org';
+ if (!isset($imap_id_command_args['version'])) {
+ $imap_id_command_args['version'] = SM_VERSION;
+ }
+ foreach ($imap_id_command_args as $key => $value) {
+ $key = trim($key);
+ $value = trim($value);
+ if ($key === '' || $value === '')
+ continue;
+ if ($value === '###REMOTE ADDRESS###' && sqGetGlobalVar('REMOTE_ADDR', $remote_addr, SQ_SERVER))
+ $value = $remote_addr;
+ else if ($value === '###X-FORWARDED-FOR###' && sqGetGlobalVar('HTTP_X_FORWARDED_FOR', $remote_addr, SQ_SERVER))
+ $value = $remote_addr;
+ else if ($value === '###X-FORWARDED-FOR OR REMOTE ADDRESS###') {
+ if (sqGetGlobalVar('HTTP_X_FORWARDED_FOR', $remote_addr, SQ_SERVER))
+ $value = $remote_addr;
+ else if (sqGetGlobalVar('REMOTE_ADDR', $remote_addr, SQ_SERVER))
+ $value = $remote_addr;
+ }
+ else if ($value === '###REMOTE ADDRESS###' && sqGetGlobalVar('REMOTE_ADDR', $remote_addr, SQ_SERVER)) {
+ $value = $remote_addr;
+ }
+ $args[] = '"' . str_replace(array('"', '\\'), array('\\"', '\\\\'), $key)
+ . '" "' . str_replace(array('"', '\\'), array('\\"', '\\\\'), $value) . '"';
+ }
+ }
+ $read_ary = sqimap_run_command($imap_stream, 'ID (' . implode(' ', $args) . ')', false, $response, $message);
+ if (!empty($read_ary) && is_array($read_ary)) {
+ global $imap_server_id_response;
+ if ($do_not_parse_imap_id_command_response)
+ $imap_server_id_response = $read_ary;
+ else
+ {
+ $imap_server_id_response = array();
+
+ // NOTE that this parser ignores closing ) sign, so
+ // technically some kind of malformed server
+ // response could cause extra junk to be included here
+ foreach ($read_ary as $info)
+ {
+ $parsed_info = explode('(', $info, 2);
+ if (!empty($parsed_info[1]))
+ {
+ // find opening quote for the next key name
+ while ($parsed_info = explode('"', $parsed_info[1], 2))
+ {
+ if (empty($parsed_info[1]))
+ break;
+ else
+ {
+ // find closing quote for the key name
+ $pos = strpos($parsed_info[1], '"');
+ if ($pos === FALSE)
+ break;
+ else
+ {
+ $key = substr($parsed_info[1], 0, $pos);
+ $parsed_info[1] = substr($parsed_info[1], $pos + 1);
+
+ // find opening quote for the key's value
+ $parsed_info = explode('"', $parsed_info[1], 2);
+ if (empty($parsed_info[1]))
+ break;
+ else
+ {
+ // find closing quote for the key's value
+ $pos = strpos($parsed_info[1], '"');
+ if ($pos === FALSE)
+ break;
+ else
+ {
+ $imap_server_id_response[$key] = substr($parsed_info[1], 0, $pos);
+ $parsed_info[1] = substr($parsed_info[1], $pos + 1);
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ sqsession_register($imap_server_id_response, 'imap_server_id_response');
+ }
+ }
+
return $imap_stream;
}
function sqimap_logout ($imap_stream) {
/* Logout is not valid until the server returns 'BYE'
* If we don't have an imap_ stream we're already logged out */
- if(isset($imap_stream) && $imap_stream)
+ if(isset($imap_stream) && $imap_stream) {
sqimap_run_command($imap_stream, 'LOGOUT', false, $response, $message);
+ fclose($imap_stream);
+ }
}
/**
$pn = $data2[1];
$pna = explode(')(', $pn);
$delnew = array();
- while (list($k, $v) = each($pna)) {
+ foreach ($pna as $v) {
$lst = explode('"', $v);
if (isset($lst[3])) {
$delnew[$lst[1]] = $lst[3];
if ($sid) {
$imapsid = $sid;
}
- if ($response{0} == '+') {
+ if ($response[0] == '+') {
// continuation request triggerd by sqimap_append()
$bDone = true;
} else {