case preg_match("/^\* (OK \[PARSE\])(.*)$/", $read):
$read = sqimap_fgets($imap_stream);
break 1;
- case preg_match('/^\* [0-9]+ FETCH.*/', $read):
+ case preg_match('/^\* ([0-9]+) FETCH.*/', $read, $regs):
$fetch_data = array();
$fetch_data[] = $read;
$read = sqimap_fgets($imap_stream);
- while (!preg_match('/^\* [0-9]+ FETCH.*/', $read) &&
+ while (!preg_match('/^\* [0-9]+ FETCH.*/', $read) &&
!preg_match("/^$pre (OK|BAD|NO)(.*)$/", $read)) {
$fetch_data[] = $read;
+ $last = $read;
$read = sqimap_fgets($imap_stream);
}
+ if (isset($last) && preg_match('/^\)/', $last)) {
+ array_pop($fetch_data);
+ }
$resultlist[] = $fetch_data;
break 1;
default:
function sqimap_read_data ($imap_stream, $pre, $handle_errors, &$response, &$message, $query = '') {
$res = sqimap_read_data_list($imap_stream, $pre, $handle_errors, $response, $message, $query);
- return $res[0];
+
+ /* sqimap_read_data should be called for one response
+ but since it just calls sqimap_read_data_list which
+ handles multiple responses we need to check for that
+ and merge the $res array IF they are seperated and
+ IF it was a FETCH response. */
+
+ if (isset($res[1]) && is_array($res[1]) && isset($res[1][0])
+ && preg_match('/^\* \d+ FETCH/', $res[1][0])) {
+ $result = array();
+ foreach($res as $index=>$value) {
+ $result = array_merge($result, $res["$index"]);
+ }
+ }
+ if (isset($result)) {
+ return $result;
+ }
+ else {
+ return $res[0];
+ }
+
}
/*
function sqimap_login ($username, $password, $imap_server_address, $imap_port, $hide) {
global $color, $squirrelmail_language, $HTTP_ACCEPT_LANGUAGE, $onetimepad;
+ $imap_server_address = sqimap_get_user_server($imap_server_address, $username);
+
$imap_stream = fsockopen ( $imap_server_address, $imap_port, $error_number, $error_string, 15);
if ( !$imap_stream ) {
return false;
$tmp = fgets ($imap_stream, 1024);
}
+function sqimap_get_user_server ($imap_server, $username) {
+
+ if (substr($imap_server, 0, 4) != "map:") {
+ return $imap_server;
+ }
+
+ $function = substr($imap_server, 4);
+ return $function($username);
+}
+
+/* This is an example that gets imapservers from yellowpages (NIS).
+ * you can simple put map:map_yp_alias in your $imap_server_address
+ * in config.php use your own function instead map_yp_alias to map your
+ * LDAP whatever way to find the users imapserver. */
+
+function map_yp_alias($username) {
+ $yp = `ypmatch $username aliases`;
+ return chop(substr($yp, strlen($username)+1));
+}
+
?>