| | |
| | | public $encoding; |
| | | public $charset; |
| | | public $ctype; |
| | | public $flags; |
| | | public $timestamp; |
| | | public $body_structure; |
| | | public $bodystructure; |
| | | public $internaldate; |
| | | public $references; |
| | | public $priority; |
| | | public $mdn_to; |
| | | public $mdn_sent = false; |
| | | public $is_draft = false; |
| | | |
| | | public $flags; |
| | | public $mdnsent = false; |
| | | public $seen = false; |
| | | public $deleted = false; |
| | | public $recent = false; |
| | | public $answered = false; |
| | | public $forwarded = false; |
| | | public $junk = false; |
| | | public $flagged = false; |
| | | public $has_children = false; |
| | | public $depth = 0; |
| | | public $unread_children = 0; |
| | | public $others = array(); |
| | | } |
| | | |
| | |
| | | public $errornum; |
| | | public $result; |
| | | public $resultcode; |
| | | public $selected; |
| | | public $data = array(); |
| | | public $flags = array( |
| | | 'SEEN' => '\\Seen', |
| | | 'DELETED' => '\\Deleted', |
| | | 'RECENT' => '\\Recent', |
| | | 'ANSWERED' => '\\Answered', |
| | | 'DRAFT' => '\\Draft', |
| | | 'FLAGGED' => '\\Flagged', |
| | |
| | | '*' => '\\*', |
| | | ); |
| | | |
| | | private $selected; |
| | | private $fp; |
| | | private $host; |
| | | private $logged = false; |
| | |
| | | private $prefs; |
| | | private $cmd_tag; |
| | | private $cmd_num = 0; |
| | | private $resourceid; |
| | | private $_debug = false; |
| | | private $_debug_handler = false; |
| | | |
| | |
| | | if ($endln) |
| | | $string .= "\r\n"; |
| | | |
| | | |
| | | $res = 0; |
| | | if ($parts = preg_split('/(\{[0-9]+\}\r\n)/m', $string, -1, PREG_SPLIT_DELIM_CAPTURE)) { |
| | | for ($i=0, $cnt=count($parts); $i<$cnt; $i++) { |
| | | if (preg_match('/^\{[0-9]+\}\r\n$/', $parts[$i+1])) { |
| | | if (preg_match('/^\{([0-9]+)\}\r\n$/', $parts[$i+1], $matches)) { |
| | | // LITERAL+ support |
| | | if ($this->prefs['literal+']) |
| | | $parts[$i+1] = preg_replace('/([0-9]+)/', '\\1+', $parts[$i+1]); |
| | | if ($this->prefs['literal+']) { |
| | | $parts[$i+1] = sprintf("{%d+}\r\n", $matches[1]); |
| | | } |
| | | |
| | | $bytes = $this->putLine($parts[$i].$parts[$i+1], false); |
| | | if ($bytes === false) |
| | |
| | | } |
| | | } |
| | | } |
| | | |
| | | return $res; |
| | | } |
| | | |
| | |
| | | return $line; |
| | | } |
| | | |
| | | function multLine($line, $escape=false) |
| | | function multLine($line, $escape = false) |
| | | { |
| | | $line = rtrim($line); |
| | | if (preg_match('/\{[0-9]+\}$/', $line)) { |
| | | $out = ''; |
| | | if (preg_match('/\{([0-9]+)\}$/', $line, $m)) { |
| | | $out = ''; |
| | | $str = substr($line, 0, -strlen($m[0])); |
| | | $bytes = $m[1]; |
| | | |
| | | preg_match_all('/(.*)\{([0-9]+)\}$/', $line, $a); |
| | | $bytes = $a[2][0]; |
| | | while (strlen($out) < $bytes) { |
| | | $line = $this->readBytes($bytes); |
| | | if ($line === NULL) |
| | |
| | | $out .= $line; |
| | | } |
| | | |
| | | $line = $a[1][0] . ($escape ? $this->escape($out) : $out); |
| | | $line = $str . ($escape ? $this->escape($out) : $out); |
| | | } |
| | | |
| | | return $line; |
| | |
| | | |
| | | $line = trim(fgets($this->fp, 8192)); |
| | | |
| | | if ($this->_debug && $line) { |
| | | $this->debug('S: '. $line); |
| | | if ($this->_debug) { |
| | | // set connection identifier for debug output |
| | | preg_match('/#([0-9]+)/', (string)$this->fp, $m); |
| | | $this->resourceid = strtoupper(substr(md5($m[1].$this->user.microtime()), 0, 4)); |
| | | |
| | | if ($line) |
| | | $this->debug('S: '. $line); |
| | | } |
| | | |
| | | // Connected to wrong port or connection error? |
| | |
| | | /** |
| | | * Executes SELECT command (if mailbox is already not in selected state) |
| | | * |
| | | * @param string $mailbox Mailbox name |
| | | * @param string $mailbox Mailbox name |
| | | * @param array $qresync_data QRESYNC data (RFC5162) |
| | | * |
| | | * @return boolean True on success, false on error |
| | | * @access public |
| | | */ |
| | | function select($mailbox) |
| | | function select($mailbox, $qresync_data = null) |
| | | { |
| | | if (!strlen($mailbox)) { |
| | | return false; |
| | |
| | | } |
| | | } |
| | | */ |
| | | list($code, $response) = $this->execute('SELECT', array($this->escape($mailbox))); |
| | | $params = array($this->escape($mailbox)); |
| | | |
| | | // QRESYNC data items |
| | | // 0. the last known UIDVALIDITY, |
| | | // 1. the last known modification sequence, |
| | | // 2. the optional set of known UIDs, and |
| | | // 3. an optional parenthesized list of known sequence ranges and their |
| | | // corresponding UIDs. |
| | | if (!empty($qresync_data)) { |
| | | if (!empty($qresync_data[2])) |
| | | $qresync_data[2] = self::compressMessageSet($qresync_data[2]); |
| | | $params[] = array('QRESYNC', $qresync_data); |
| | | } |
| | | |
| | | list($code, $response) = $this->execute('SELECT', $params); |
| | | |
| | | if ($code == self::ERROR_OK) { |
| | | $response = explode("\r\n", $response); |
| | |
| | | if (preg_match('/^\* ([0-9]+) (EXISTS|RECENT)$/i', $line, $m)) { |
| | | $this->data[strtoupper($m[2])] = (int) $m[1]; |
| | | } |
| | | else if (preg_match('/^\* OK \[(UIDNEXT|UIDVALIDITY|UNSEEN) ([0-9]+)\]/i', $line, $match)) { |
| | | $this->data[strtoupper($match[1])] = (int) $match[2]; |
| | | else if (preg_match('/^\* OK \[/i', $line, $match)) { |
| | | $line = substr($line, 6); |
| | | if (preg_match('/^(UIDNEXT|UIDVALIDITY|UNSEEN) ([0-9]+)/i', $line, $match)) { |
| | | $this->data[strtoupper($match[1])] = (int) $match[2]; |
| | | } |
| | | else if (preg_match('/^(HIGHESTMODSEQ) ([0-9]+)/i', $line, $match)) { |
| | | $this->data[strtoupper($match[1])] = (string) $match[2]; |
| | | } |
| | | else if (preg_match('/^(NOMODSEQ)/i', $line, $match)) { |
| | | $this->data[strtoupper($match[1])] = true; |
| | | } |
| | | else if (preg_match('/^PERMANENTFLAGS \(([^\)]+)\)/iU', $line, $match)) { |
| | | $this->data['PERMANENTFLAGS'] = explode(' ', $match[1]); |
| | | } |
| | | } |
| | | else if (preg_match('/^\* OK \[PERMANENTFLAGS \(([^\)]+)\)\]/iU', $line, $match)) { |
| | | $this->data['PERMANENTFLAGS'] = explode(' ', $match[1]); |
| | | // QRESYNC FETCH response (RFC5162) |
| | | else if (preg_match('/^\* ([0-9+]) FETCH/i', $line, $match)) { |
| | | $line = substr($line, strlen($match[0])); |
| | | $fetch_data = $this->tokenizeResponse($line, 1); |
| | | $data = array('id' => $match[1]); |
| | | |
| | | for ($i=0, $size=count($fetch_data); $i<$size; $i+=2) { |
| | | $data[strtolower($fetch_data[$i])] = $fetch_data[$i+1]; |
| | | } |
| | | |
| | | $this->data['QRESYNC'][$data['uid']] = $data; |
| | | } |
| | | // QRESYNC VANISHED response (RFC5162) |
| | | else if (preg_match('/^\* VANISHED [()EARLIER]*/i', $line, $match)) { |
| | | $line = substr($line, strlen($match[0])); |
| | | $v_data = $this->tokenizeResponse($line, 1); |
| | | |
| | | $this->data['VANISHED'] = $v_data; |
| | | } |
| | | } |
| | | |
| | |
| | | * in RFC3501: UIDNEXT, UIDVALIDITY, RECENT |
| | | * |
| | | * @return array Status item-value hash |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | function status($mailbox, $items=array()) |
| | |
| | | |
| | | list($mbox, $items) = $this->tokenizeResponse($response, 2); |
| | | |
| | | // Fix for #1487859. Some buggy server returns not quoted |
| | | // folder name with spaces. Let's try to handle this situation |
| | | if (!is_array($items) && ($pos = strpos($response, '(')) !== false) { |
| | | $response = substr($response, $pos); |
| | | $items = $this->tokenizeResponse($response, 1); |
| | | if (!is_array($items)) { |
| | | return $result; |
| | | } |
| | | } |
| | | |
| | | for ($i=0, $len=count($items); $i<$len; $i += 2) { |
| | | $result[$items[$i]] = (int) $items[$i+1]; |
| | | $result[$items[$i]] = $items[$i+1]; |
| | | } |
| | | |
| | | $this->data['STATUS:'.$mailbox] = $result; |
| | |
| | | * @param string $messages Message UIDs to expunge |
| | | * |
| | | * @return boolean True on success, False on error |
| | | * @access public |
| | | */ |
| | | function expunge($mailbox, $messages=NULL) |
| | | { |
| | |
| | | * Executes CLOSE command |
| | | * |
| | | * @return boolean True on success, False on error |
| | | * @access public |
| | | * @since 0.5 |
| | | */ |
| | | function close() |
| | |
| | | * @param string $mailbox Mailbox name |
| | | * |
| | | * @return boolean True on success, False on error |
| | | * @access public |
| | | */ |
| | | function subscribe($mailbox) |
| | | { |
| | |
| | | * @param string $mailbox Mailbox name |
| | | * |
| | | * @return boolean True on success, False on error |
| | | * @access public |
| | | */ |
| | | function unsubscribe($mailbox) |
| | | { |
| | |
| | | * @param string $mailbox Mailbox name |
| | | * |
| | | * @return boolean True on success, False on error |
| | | * @access public |
| | | */ |
| | | function deleteFolder($mailbox) |
| | | { |
| | |
| | | * @param string $mailbox Mailbox name |
| | | * |
| | | * @return boolean True on success, False on error |
| | | * @access public |
| | | */ |
| | | function clearFolder($mailbox) |
| | | { |
| | |
| | | * @param string $mailbox Mailbox name |
| | | * |
| | | * @return int Number of messages, False on error |
| | | * @access public |
| | | */ |
| | | function countMessages($mailbox, $refresh = false) |
| | | { |
| | |
| | | * @param string $mailbox Mailbox name |
| | | * |
| | | * @return int Number of messages, False on error |
| | | * @access public |
| | | */ |
| | | function countRecent($mailbox) |
| | | { |
| | |
| | | * @param string $mailbox Mailbox name |
| | | * |
| | | * @return int Number of messages, False on error |
| | | * @access public |
| | | */ |
| | | function countUnseen($mailbox) |
| | | { |
| | |
| | | * @param array $items Client identification information key/value hash |
| | | * |
| | | * @return array Server identification information key/value hash |
| | | * @access public |
| | | * @since 0.6 |
| | | */ |
| | | function id($items=array()) |
| | | { |
| | | if (is_array($items) && !empty($items)) { |
| | | foreach ($items as $key => $value) { |
| | | $args[] = $this->escape($key); |
| | | $args[] = $this->escape($value); |
| | | $args[] = $this->escape($key, true); |
| | | $args[] = $this->escape($value, true); |
| | | } |
| | | } |
| | | |
| | |
| | | |
| | | if ($code == self::ERROR_OK && preg_match('/\* ID /i', $response)) { |
| | | $response = substr($response, 5); // remove prefix "* ID " |
| | | $items = $this->tokenizeResponse($response); |
| | | $items = $this->tokenizeResponse($response, 1); |
| | | $result = null; |
| | | |
| | | for ($i=0, $len=count($items); $i<$len; $i += 2) { |
| | | $result[$items[$i]] = $items[$i+1]; |
| | | } |
| | | |
| | | return $result; |
| | | } |
| | | |
| | | return false; |
| | | } |
| | | |
| | | /** |
| | | * Executes ENABLE command (RFC5161) |
| | | * |
| | | * @param mixed $extension Extension name to enable (or array of names) |
| | | * |
| | | * @return array|bool List of enabled extensions, False on error |
| | | * @since 0.6 |
| | | */ |
| | | function enable($extension) |
| | | { |
| | | if (empty($extension)) |
| | | return false; |
| | | |
| | | if (!$this->hasCapability('ENABLE')) |
| | | return false; |
| | | |
| | | if (!is_array($extension)) |
| | | $extension = array($extension); |
| | | |
| | | list($code, $response) = $this->execute('ENABLE', $extension); |
| | | |
| | | if ($code == self::ERROR_OK && preg_match('/\* ENABLED /i', $response)) { |
| | | $response = substr($response, 10); // remove prefix "* ENABLED " |
| | | $result = (array) $this->tokenizeResponse($response); |
| | | |
| | | return $result; |
| | | } |
| | |
| | | * @param int $uid Message unique identifier (UID) |
| | | * |
| | | * @return int Message sequence identifier |
| | | * @access public |
| | | */ |
| | | function UID2ID($mailbox, $uid) |
| | | { |
| | |
| | | * @param int $uid Message sequence identifier |
| | | * |
| | | * @return int Message unique identifier |
| | | * @access public |
| | | */ |
| | | function ID2UID($mailbox, $id) |
| | | { |
| | | if (empty($id) || $id < 0) { |
| | | return null; |
| | | return null; |
| | | } |
| | | |
| | | if (!$this->select($mailbox)) { |
| | |
| | | |
| | | function fetchUIDs($mailbox, $message_set=null) |
| | | { |
| | | if (is_array($message_set)) |
| | | $message_set = join(',', $message_set); |
| | | else if (empty($message_set)) |
| | | if (empty($message_set)) |
| | | $message_set = '1:*'; |
| | | |
| | | return $this->fetchHeaderIndex($mailbox, $message_set, 'UID', false); |
| | | } |
| | | |
| | | function fetchHeaders($mailbox, $message_set, $uidfetch=false, $bodystr=false, $add='') |
| | | /** |
| | | * FETCH command (RFC3501) |
| | | * |
| | | * @param string $mailbox Mailbox name |
| | | * @param mixed $message_set Message(s) sequence identifier(s) or UID(s) |
| | | * @param bool $is_uid True if $message_set contains UIDs |
| | | * @param array $query_items FETCH command data items |
| | | * @param string $mod_seq Modification sequence for CHANGEDSINCE (RFC4551) query |
| | | * @param bool $vanished Enables VANISHED parameter (RFC5162) for CHANGEDSINCE query |
| | | * |
| | | * @return array List of rcube_mail_header elements, False on error |
| | | * @since 0.6 |
| | | */ |
| | | function fetch($mailbox, $message_set, $is_uid = false, $query_items = array(), |
| | | $mod_seq = null, $vanished = false) |
| | | { |
| | | $result = array(); |
| | | |
| | | if (!$this->select($mailbox)) { |
| | | return false; |
| | | } |
| | | |
| | | $message_set = $this->compressMessageSet($message_set); |
| | | $result = array(); |
| | | |
| | | if ($add) |
| | | $add = ' '.trim($add); |
| | | |
| | | /* FETCH uid, size, flags and headers */ |
| | | $key = $this->nextTag(); |
| | | $request = $key . ($uidfetch ? ' UID' : '') . " FETCH $message_set "; |
| | | $request .= "(UID RFC822.SIZE FLAGS INTERNALDATE "; |
| | | if ($bodystr) |
| | | $request .= "BODYSTRUCTURE "; |
| | | $request .= "BODY.PEEK[HEADER.FIELDS (DATE FROM TO SUBJECT CONTENT-TYPE "; |
| | | $request .= "LIST-POST DISPOSITION-NOTIFICATION-TO".$add.")])"; |
| | | $request = $key . ($is_uid ? ' UID' : '') . " FETCH $message_set "; |
| | | $request .= "(" . implode(' ', $query_items) . ")"; |
| | | |
| | | if ($mod_seq !== null && $this->hasCapability('CONDSTORE')) { |
| | | $request .= " (CHANGEDSINCE $mod_seq" . ($vanished ? " VANISHED" : '') .")"; |
| | | } |
| | | |
| | | if (!$this->putLine($request)) { |
| | | $this->setError(self::ERROR_COMMAND, "Unable to send command: $request"); |
| | | return false; |
| | | } |
| | | |
| | | do { |
| | | $line = $this->readLine(4096); |
| | | $line = $this->multLine($line); |
| | | |
| | | if (!$line) |
| | | break; |
| | | |
| | | // Sample reply line: |
| | | // * 321 FETCH (UID 2417 RFC822.SIZE 2730 FLAGS (\Seen) |
| | | // INTERNALDATE "16-Nov-2008 21:08:46 +0100" BODYSTRUCTURE (...) |
| | | // BODY[HEADER.FIELDS ... |
| | | |
| | | if (preg_match('/^\* ([0-9]+) FETCH/', $line, $m)) { |
| | | $id = intval($m[1]); |
| | |
| | | $result[$id]->messageID = 'mid:' . $id; |
| | | |
| | | $lines = array(); |
| | | $ln = 0; |
| | | $line = substr($line, strlen($m[0]) + 2); |
| | | $ln = 0; |
| | | |
| | | // Sample reply line: |
| | | // * 321 FETCH (UID 2417 RFC822.SIZE 2730 FLAGS (\Seen) |
| | | // INTERNALDATE "16-Nov-2008 21:08:46 +0100" BODYSTRUCTURE (...) |
| | | // BODY[HEADER.FIELDS ... |
| | | // get complete entry |
| | | while (preg_match('/\{([0-9]+)\}\r\n$/', $line, $m)) { |
| | | $bytes = $m[1]; |
| | | $out = ''; |
| | | |
| | | if (preg_match('/^\* [0-9]+ FETCH \((.*) BODY/sU', $line, $matches)) { |
| | | $str = $matches[1]; |
| | | |
| | | // swap parents with quotes, then explode |
| | | $str = preg_replace('/[()]/', '"', $str); |
| | | $a = rcube_explode_quoted_string(' ', $str); |
| | | |
| | | // did we get the right number of replies? |
| | | $parts_count = count($a); |
| | | if ($parts_count>=6) { |
| | | for ($i=0; $i<$parts_count; $i=$i+2) { |
| | | if ($a[$i] == 'UID') { |
| | | $result[$id]->uid = intval($a[$i+1]); |
| | | } |
| | | else if ($a[$i] == 'RFC822.SIZE') { |
| | | $result[$id]->size = intval($a[$i+1]); |
| | | } |
| | | else if ($a[$i] == 'INTERNALDATE') { |
| | | $time_str = $a[$i+1]; |
| | | } |
| | | else if ($a[$i] == 'FLAGS') { |
| | | $flags_str = $a[$i+1]; |
| | | } |
| | | } |
| | | |
| | | $time_str = str_replace('"', '', $time_str); |
| | | |
| | | // if time is gmt... |
| | | $time_str = str_replace('GMT','+0000',$time_str); |
| | | |
| | | $result[$id]->internaldate = $time_str; |
| | | $result[$id]->timestamp = $this->StrToTime($time_str); |
| | | $result[$id]->date = $time_str; |
| | | while (strlen($out) < $bytes) { |
| | | $out = $this->readBytes($bytes); |
| | | if ($out === NULL) |
| | | break; |
| | | $line .= $out; |
| | | } |
| | | |
| | | // BODYSTRUCTURE |
| | | if ($bodystr) { |
| | | while (!preg_match('/ BODYSTRUCTURE (.*) BODY\[HEADER.FIELDS/sU', $line, $m)) { |
| | | $line2 = $this->readLine(1024); |
| | | $line .= $this->multLine($line2, true); |
| | | } |
| | | $result[$id]->body_structure = $m[1]; |
| | | } |
| | | $str = $this->readLine(4096); |
| | | if ($str === false) |
| | | break; |
| | | |
| | | // the rest of the result |
| | | if (preg_match('/ BODY\[HEADER.FIELDS \(.*?\)\]\s*(.*)$/s', $line, $m)) { |
| | | $reslines = explode("\n", trim($m[1], '"')); |
| | | // re-parse (see below) |
| | | foreach ($reslines as $resln) { |
| | | if (ord($resln[0])<=32) { |
| | | $lines[$ln] .= (empty($lines[$ln])?'':"\n").trim($resln); |
| | | } else { |
| | | $lines[++$ln] = trim($resln); |
| | | $line .= $str; |
| | | } |
| | | |
| | | // Tokenize response and assign to object properties |
| | | while (list($name, $value) = $this->tokenizeResponse($line, 2)) { |
| | | if ($name == 'UID') { |
| | | $result[$id]->uid = intval($value); |
| | | } |
| | | else if ($name == 'RFC822.SIZE') { |
| | | $result[$id]->size = intval($value); |
| | | } |
| | | else if ($name == 'RFC822.TEXT') { |
| | | $result[$id]->body = $value; |
| | | } |
| | | else if ($name == 'INTERNALDATE') { |
| | | $result[$id]->internaldate = $value; |
| | | $result[$id]->date = $value; |
| | | $result[$id]->timestamp = $this->StrToTime($value); |
| | | } |
| | | else if ($name == 'FLAGS') { |
| | | if (!empty($value)) { |
| | | foreach ((array)$value as $flag) { |
| | | $flag = str_replace('\\', '', $flag); |
| | | |
| | | switch (strtoupper($flag)) { |
| | | case 'SEEN': |
| | | $result[$id]->seen = true; |
| | | break; |
| | | case 'DELETED': |
| | | $result[$id]->deleted = true; |
| | | break; |
| | | case 'ANSWERED': |
| | | $result[$id]->answered = true; |
| | | break; |
| | | case '$FORWARDED': |
| | | $result[$id]->forwarded = true; |
| | | break; |
| | | case '$MDNSENT': |
| | | $result[$id]->mdnsent = true; |
| | | break; |
| | | case 'FLAGGED': |
| | | $result[$id]->flagged = true; |
| | | break; |
| | | default: |
| | | $result[$id]->flags[] = $flag; |
| | | break; |
| | | } |
| | | } |
| | | } |
| | | } |
| | | else if ($name == 'MODSEQ') { |
| | | $result[$id]->modseq = $value[0]; |
| | | } |
| | | else if ($name == 'ENVELOPE') { |
| | | $result[$id]->envelope = $value; |
| | | } |
| | | else if ($name == 'BODYSTRUCTURE' || ($name == 'BODY' && count($value) > 2)) { |
| | | if (!is_array($value[0]) && (strtolower($value[0]) == 'message' && strtolower($value[1]) == 'rfc822')) { |
| | | $value = array($value); |
| | | } |
| | | $result[$id]->bodystructure = $value; |
| | | } |
| | | else if ($name == 'RFC822') { |
| | | $result[$id]->body = $value; |
| | | } |
| | | else if ($name == 'BODY') { |
| | | $body = $this->tokenizeResponse($line, 1); |
| | | if ($value[0] == 'HEADER.FIELDS') |
| | | $headers = $body; |
| | | else if (!empty($value)) |
| | | $result[$id]->bodypart[$value[0]] = $body; |
| | | else |
| | | $result[$id]->body = $body; |
| | | } |
| | | } |
| | | |
| | | // Start parsing headers. The problem is, some header "lines" take up multiple lines. |
| | | // So, we'll read ahead, and if the one we're reading now is a valid header, we'll |
| | | // process the previous line. Otherwise, we'll keep adding the strings until we come |
| | | // to the next valid header line. |
| | | |
| | | do { |
| | | $line = rtrim($this->readLine(300), "\r\n"); |
| | | |
| | | // The preg_match below works around communigate imap, which outputs " UID <number>)". |
| | | // Without this, the while statement continues on and gets the "FH0 OK completed" message. |
| | | // If this loop gets the ending message, then the outer loop does not receive it from radline on line 1249. |
| | | // This in causes the if statement on line 1278 to never be true, which causes the headers to end up missing |
| | | // If the if statement was changed to pick up the fh0 from this loop, then it causes the outer loop to spin |
| | | // An alternative might be: |
| | | // if (!preg_match("/:/",$line) && preg_match("/\)$/",$line)) break; |
| | | // however, unsure how well this would work with all imap clients. |
| | | if (preg_match("/^\s*UID [0-9]+\)$/", $line)) { |
| | | break; |
| | | } |
| | | |
| | | // handle FLAGS reply after headers (AOL, Zimbra?) |
| | | if (preg_match('/\s+FLAGS \((.*)\)\)$/', $line, $matches)) { |
| | | $flags_str = $matches[1]; |
| | | break; |
| | | } |
| | | |
| | | if (ord($line[0])<=32) { |
| | | $lines[$ln] .= (empty($lines[$ln])?'':"\n").trim($line); |
| | | } else { |
| | | $lines[++$ln] = trim($line); |
| | | } |
| | | // patch from "Maksim Rubis" <siburny@hotmail.com> |
| | | } while ($line[0] != ')' && !$this->startsWith($line, $key, true)); |
| | | |
| | | if (strncmp($line, $key, strlen($key))) { |
| | | // process header, fill rcube_mail_header obj. |
| | | // initialize |
| | | if (is_array($headers)) { |
| | | reset($headers); |
| | | while (list($k, $bar) = each($headers)) { |
| | | $headers[$k] = ''; |
| | | // create array with header field:data |
| | | if (!empty($headers)) { |
| | | $headers = explode("\n", trim($headers)); |
| | | foreach ($headers as $hid => $resln) { |
| | | if (ord($resln[0]) <= 32) { |
| | | $lines[$ln] .= (empty($lines[$ln]) ? '' : "\n") . trim($resln); |
| | | } else { |
| | | $lines[++$ln] = trim($resln); |
| | | } |
| | | } |
| | | |
| | | // create array with header field:data |
| | | while (list($lines_key, $str) = each($lines)) { |
| | | list($field, $string) = $this->splitHeaderLine($str); |
| | | list($field, $string) = explode(':', $str, 2); |
| | | |
| | | $field = strtolower($field); |
| | | $string = preg_replace('/\n\s*/', ' ', $string); |
| | | $string = preg_replace('/\n[\t\s]*/', ' ', trim($string)); |
| | | |
| | | switch ($field) { |
| | | case 'date'; |
| | |
| | | $result[$id]->others[$field] = $string; |
| | | } |
| | | break; |
| | | } // end switch () |
| | | } // end while () |
| | | } |
| | | |
| | | // process flags |
| | | if (!empty($flags_str)) { |
| | | $flags_str = preg_replace('/[\\\"]/', '', $flags_str); |
| | | $flags_a = explode(' ', $flags_str); |
| | | |
| | | if (is_array($flags_a)) { |
| | | foreach($flags_a as $flag) { |
| | | $flag = strtoupper($flag); |
| | | if ($flag == 'SEEN') { |
| | | $result[$id]->seen = true; |
| | | } else if ($flag == 'DELETED') { |
| | | $result[$id]->deleted = true; |
| | | } else if ($flag == 'RECENT') { |
| | | $result[$id]->recent = true; |
| | | } else if ($flag == 'ANSWERED') { |
| | | $result[$id]->answered = true; |
| | | } else if ($flag == '$FORWARDED') { |
| | | $result[$id]->forwarded = true; |
| | | } else if ($flag == 'DRAFT') { |
| | | $result[$id]->is_draft = true; |
| | | } else if ($flag == '$MDNSENT') { |
| | | $result[$id]->mdn_sent = true; |
| | | } else if ($flag == 'FLAGGED') { |
| | | $result[$id]->flagged = true; |
| | | } |
| | | } |
| | | $result[$id]->flags = $flags_a; |
| | | } |
| | | } |
| | | } |
| | | |
| | | // VANISHED response (QRESYNC RFC5162) |
| | | // Sample: * VANISHED (EARLIER) 300:310,405,411 |
| | | |
| | | else if (preg_match('/^\* VANISHED [EARLIER]*/i', $line, $match)) { |
| | | $line = substr($line, strlen($match[0])); |
| | | $v_data = $this->tokenizeResponse($line, 1); |
| | | |
| | | $this->data['VANISHED'] = $v_data; |
| | | } |
| | | |
| | | } while (!$this->startsWith($line, $key, true)); |
| | | |
| | | return $result; |
| | | } |
| | | |
| | | function fetchHeaders($mailbox, $message_set, $is_uid = false, $bodystr = false, $add = '') |
| | | { |
| | | $query_items = array('UID', 'RFC822.SIZE', 'FLAGS', 'INTERNALDATE'); |
| | | if ($bodystr) |
| | | $query_items[] = 'BODYSTRUCTURE'; |
| | | $query_items[] = 'BODY.PEEK[HEADER.FIELDS (' |
| | | . 'DATE FROM TO SUBJECT CONTENT-TYPE CC REPLY-TO LIST-POST DISPOSITION-NOTIFICATION-TO X-PRIORITY' |
| | | . ($add ? ' ' . trim($add) : '') |
| | | . ')]'; |
| | | |
| | | $result = $this->fetch($mailbox, $message_set, $is_uid, $query_items); |
| | | |
| | | return $result; |
| | | } |
| | | |
| | | function fetchHeader($mailbox, $id, $uidfetch=false, $bodystr=false, $add='') |
| | | { |
| | | $a = $this->fetchHeaders($mailbox, $id, $uidfetch, $bodystr, $add); |
| | | $a = $this->fetchHeaders($mailbox, $id, $uidfetch, $bodystr, $add); |
| | | if (is_array($a)) { |
| | | return array_shift($a); |
| | | } |
| | |
| | | $params .= 'RETURN (' . implode(' ', $items) . ')'; |
| | | } |
| | | if (!empty($criteria)) { |
| | | $modseq = stripos($criteria, 'MODSEQ') !== false; |
| | | $params .= ($params ? ' ' : '') . $criteria; |
| | | } |
| | | else { |
| | |
| | | |
| | | if ($code == self::ERROR_OK) { |
| | | // remove prefix... |
| | | $response = substr($response, stripos($response, |
| | | $response = substr($response, stripos($response, |
| | | $esearch ? '* ESEARCH' : '* SEARCH') + ($esearch ? 10 : 9)); |
| | | // ...and unilateral untagged server responses |
| | | if ($pos = strpos($response, '*')) { |
| | | $response = rtrim(substr($response, 0, $pos)); |
| | | } |
| | | |
| | | // remove MODSEQ response |
| | | if ($modseq) { |
| | | if (preg_match('/\(MODSEQ ([0-9]+)\)$/', $response, $m)) { |
| | | $response = substr($response, 0, -strlen($m[0])); |
| | | } |
| | | } |
| | | |
| | | if ($esearch) { |
| | |
| | | |
| | | $result = array(); |
| | | for ($i=0; $i<count($items); $i++) { |
| | | // If the SEARCH results in no matches, the server MUST NOT |
| | | // If the SEARCH returns no matches, the server MUST NOT |
| | | // include the item result option in the ESEARCH response |
| | | if ($ret = $this->tokenizeResponse($response, 2)) { |
| | | list ($name, $value) = $ret; |
| | |
| | | * |
| | | * @return array List of mailboxes or hash of options if $status_opts argument |
| | | * is non-empty. |
| | | * @access public |
| | | */ |
| | | function listMailboxes($ref, $mailbox, $status_opts=array(), $select_opts=array()) |
| | | { |
| | |
| | | * |
| | | * @return array List of mailboxes or hash of options if $status_opts argument |
| | | * is non-empty. |
| | | * @access public |
| | | */ |
| | | function listSubscribed($ref, $mailbox, $status_opts=array()) |
| | | { |
| | |
| | | * |
| | | * @return array List of mailboxes or hash of options if $status_ops argument |
| | | * is non-empty. |
| | | * @access private |
| | | */ |
| | | private function _listMailboxes($ref, $mailbox, $subscribed=false, |
| | | $status_opts=array(), $select_opts=array()) |
| | |
| | | while ($this->tokenizeResponse($response, 1) == '*') { |
| | | $cmd = strtoupper($this->tokenizeResponse($response, 1)); |
| | | // * LIST (<options>) <delimiter> <mailbox> |
| | | if (!$lstatus || $cmd == 'LIST' || $cmd == 'LSUB') { |
| | | if ($cmd == 'LIST' || $cmd == 'LSUB') { |
| | | list($opts, $delim, $mailbox) = $this->tokenizeResponse($response, 3); |
| | | |
| | | // Add to result array |
| | |
| | | $folders[$mailbox][$name] = $value; |
| | | } |
| | | } |
| | | // other untagged response line, skip it |
| | | else { |
| | | $response = ltrim($response); |
| | | if (($position = strpos($response, "\n")) !== false) |
| | | $response = substr($response, $position+1); |
| | | else |
| | | $response = ''; |
| | | } |
| | | } |
| | | |
| | | return $folders; |
| | |
| | | return false; |
| | | } |
| | | |
| | | function fetchMIMEHeaders($mailbox, $id, $parts, $mime=true) |
| | | function fetchMIMEHeaders($mailbox, $uid, $parts, $mime=true) |
| | | { |
| | | if (!$this->select($mailbox)) { |
| | | return false; |
| | |
| | | $peeks[] = "BODY.PEEK[$part.$type]"; |
| | | } |
| | | |
| | | $request = "$key FETCH $id (" . implode(' ', $peeks) . ')'; |
| | | $request = "$key UID FETCH $uid (" . implode(' ', $peeks) . ')'; |
| | | |
| | | // send request |
| | | if (!$this->putLine($request)) { |
| | |
| | | |
| | | if (preg_match('/BODY\[([0-9\.]+)\.'.$type.'\]/', $line, $matches)) { |
| | | $idx = $matches[1]; |
| | | $result[$idx] = preg_replace('/^(\* '.$id.' FETCH \()?\s*BODY\['.$idx.'\.'.$type.'\]\s+/', '', $line); |
| | | $result[$idx] = preg_replace('/^(\* [0-9]+ FETCH \()?\s*BODY\['.$idx.'\.'.$type.'\]\s+/', '', $line); |
| | | $result[$idx] = trim($result[$idx], '"'); |
| | | $result[$idx] = rtrim($result[$idx], "\t\r\n\0\x0B"); |
| | | } |
| | |
| | | } else if ($mode == 2) { |
| | | $line = rtrim($line, "\t\r\0\x0B"); |
| | | $line = quoted_printable_decode($line); |
| | | // Remove NULL characters (#1486189) |
| | | $line = str_replace("\x00", '', $line); |
| | | // UUENCODE |
| | | } else if ($mode == 3) { |
| | | $line = rtrim($line, "\t\r\n\0\x0B"); |
| | |
| | | return false; |
| | | } |
| | | |
| | | function fetchStructureString($mailbox, $id, $is_uid=false) |
| | | { |
| | | if (!$this->select($mailbox)) { |
| | | return false; |
| | | } |
| | | |
| | | $key = $this->nextTag(); |
| | | $result = false; |
| | | $command = $key . ($is_uid ? ' UID' : '') ." FETCH $id (BODYSTRUCTURE)"; |
| | | |
| | | if ($this->putLine($command)) { |
| | | do { |
| | | $line = $this->readLine(5000); |
| | | $line = $this->multLine($line, true); |
| | | if (!preg_match("/^$key /", $line)) |
| | | $result .= $line; |
| | | } while (!$this->startsWith($line, $key, true, true)); |
| | | |
| | | $result = trim(substr($result, strpos($result, 'BODYSTRUCTURE')+13, -1)); |
| | | } |
| | | else { |
| | | $this->setError(self::ERROR_COMMAND, "Unable to send command: $command"); |
| | | } |
| | | |
| | | return $result; |
| | | } |
| | | |
| | | function getQuota() |
| | | { |
| | | /* |
| | |
| | | * |
| | | * @return boolean True on success, False on failure |
| | | * |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | function setACL($mailbox, $user, $acl) |
| | |
| | | * |
| | | * @return boolean True on success, False on failure |
| | | * |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | function deleteACL($mailbox, $user) |
| | |
| | | * @param string $mailbox Mailbox name |
| | | * |
| | | * @return array User-rights array on success, NULL on error |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | function getACL($mailbox) |
| | |
| | | * @param string $user User name |
| | | * |
| | | * @return array List of user rights |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | function listRights($mailbox, $user) |
| | |
| | | * @param string $mailbox Mailbox name |
| | | * |
| | | * @return array MYRIGHTS response on success, NULL on error |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | function myRights($mailbox) |
| | |
| | | * @param array $entries Entry-value array (use NULL value as NIL) |
| | | * |
| | | * @return boolean True on success, False on failure |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | function setMetadata($mailbox, $entries) |
| | |
| | | } |
| | | |
| | | foreach ($entries as $name => $value) { |
| | | if ($value === null) { |
| | | $value = 'NIL'; |
| | | } |
| | | else { |
| | | $value = sprintf("{%d}\r\n%s", strlen($value), $value); |
| | | } |
| | | $entries[$name] = $this->escape($name) . ' ' . $value; |
| | | $entries[$name] = $this->escape($name) . ' ' . $this->escape($value); |
| | | } |
| | | |
| | | $entries = implode(' ', $entries); |
| | |
| | | * |
| | | * @return boolean True on success, False on failure |
| | | * |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | function deleteMetadata($mailbox, $entries) |
| | |
| | | * |
| | | * @return array GETMETADATA result on success, NULL on error |
| | | * |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | function getMetadata($mailbox, $entries, $options=array()) |
| | |
| | | * three elements: entry name, attribute name, value |
| | | * |
| | | * @return boolean True on success, False on failure |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | function setAnnotation($mailbox, $data) |
| | |
| | | } |
| | | |
| | | foreach ($data as $entry) { |
| | | $name = $entry[0]; |
| | | $attr = $entry[1]; |
| | | $value = $entry[2]; |
| | | |
| | | if ($value === null) { |
| | | $value = 'NIL'; |
| | | } |
| | | else { |
| | | $value = sprintf("{%d}\r\n%s", strlen($value), $value); |
| | | } |
| | | |
| | | // ANNOTATEMORE drafts before version 08 require quoted parameters |
| | | $entries[] = sprintf('%s (%s %s)', |
| | | $this->escape($name, true), $this->escape($attr, true), $value); |
| | | $entries[] = sprintf('%s (%s %s)', $this->escape($entry[0], true), |
| | | $this->escape($entry[1], true), $this->escape($entry[2], true)); |
| | | } |
| | | |
| | | $entries = implode(' ', $entries); |
| | |
| | | * |
| | | * @return boolean True on success, False on failure |
| | | * |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | function deleteAnnotation($mailbox, $data) |
| | |
| | | * |
| | | * @return array Annotations result on success, NULL on error |
| | | * |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | function getAnnotation($mailbox, $entries, $attribs) |
| | |
| | | } |
| | | |
| | | /** |
| | | * Returns BODYSTRUCTURE for the specified message. |
| | | * |
| | | * @param string $mailbox Folder name |
| | | * @param int $id Message sequence number or UID |
| | | * @param bool $is_uid True if $id is an UID |
| | | * |
| | | * @return array/bool Body structure array or False on error. |
| | | * @since 0.6 |
| | | */ |
| | | function getStructure($mailbox, $id, $is_uid = false) |
| | | { |
| | | $result = $this->fetch($mailbox, $id, $is_uid, array('BODYSTRUCTURE')); |
| | | if (is_array($result)) { |
| | | $result = array_shift($result); |
| | | return $result->bodystructure; |
| | | } |
| | | return false; |
| | | } |
| | | |
| | | static function getStructurePartType($structure, $part) |
| | | { |
| | | $part_a = self::getStructurePartArray($structure, $part); |
| | | if (!empty($part_a)) { |
| | | if (is_array($part_a[0])) |
| | | return 'multipart'; |
| | | else if ($part_a[0]) |
| | | return $part_a[0]; |
| | | } |
| | | |
| | | return 'other'; |
| | | } |
| | | |
| | | static function getStructurePartEncoding($structure, $part) |
| | | { |
| | | $part_a = self::getStructurePartArray($structure, $part); |
| | | if ($part_a) { |
| | | if (!is_array($part_a[0])) |
| | | return $part_a[5]; |
| | | } |
| | | |
| | | return ''; |
| | | } |
| | | |
| | | static function getStructurePartCharset($structure, $part) |
| | | { |
| | | $part_a = self::getStructurePartArray($structure, $part); |
| | | if ($part_a) { |
| | | if (is_array($part_a[0])) |
| | | return ''; |
| | | else { |
| | | if (is_array($part_a[2])) { |
| | | $name = ''; |
| | | while (list($key, $val) = each($part_a[2])) |
| | | if (strcasecmp($val, 'charset') == 0) |
| | | return $part_a[2][$key+1]; |
| | | } |
| | | } |
| | | } |
| | | |
| | | return ''; |
| | | } |
| | | |
| | | static function getStructurePartArray($a, $part) |
| | | { |
| | | if (!is_array($a)) { |
| | | return false; |
| | | } |
| | | if (strpos($part, '.') > 0) { |
| | | $original_part = $part; |
| | | $pos = strpos($part, '.'); |
| | | $rest = substr($original_part, $pos+1); |
| | | $part = substr($original_part, 0, $pos); |
| | | if ((strcasecmp($a[0], 'message') == 0) && (strcasecmp($a[1], 'rfc822') == 0)) { |
| | | $a = $a[8]; |
| | | } |
| | | return self::getStructurePartArray($a[$part-1], $rest); |
| | | } |
| | | else if ($part>0) { |
| | | if (!is_array($a[0]) && (strcasecmp($a[0], 'message') == 0) |
| | | && (strcasecmp($a[1], 'rfc822') == 0)) { |
| | | $a = $a[8]; |
| | | } |
| | | if (is_array($a[$part-1])) |
| | | return $a[$part-1]; |
| | | else |
| | | return $a; |
| | | } |
| | | else if (($part == 0) || (empty($part))) { |
| | | return $a; |
| | | } |
| | | } |
| | | |
| | | |
| | | /** |
| | | * Creates next command identifier (tag) |
| | | * |
| | | * @return string Command identifier |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | function nextTag() |
| | |
| | | * @param int $options Execution options |
| | | * |
| | | * @return mixed Response code or list of response code and data |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | function execute($command, $arguments=array(), $options=0) |
| | |
| | | $response = $noresp ? null : ''; |
| | | |
| | | if (!empty($arguments)) { |
| | | $query .= ' ' . implode(' ', $arguments); |
| | | foreach ($arguments as $arg) { |
| | | $query .= ' ' . self::r_implode($arg); |
| | | } |
| | | } |
| | | |
| | | // Send command |
| | |
| | | * @param int $num Number of tokens to return |
| | | * |
| | | * @return mixed Tokens array or string if $num=1 |
| | | * @access public |
| | | * @since 0.5-beta |
| | | */ |
| | | static function tokenizeResponse(&$str, $num=0) |
| | |
| | | if (!is_numeric(($bytes = substr($str, 1, $epos - 1)))) { |
| | | // error |
| | | } |
| | | $result[] = substr($str, $epos + 3, $bytes); |
| | | $result[] = $bytes ? substr($str, $epos + 3, $bytes) : ''; |
| | | // Advance the string |
| | | $str = substr($str, $epos + 3 + $bytes); |
| | | break; |
| | |
| | | |
| | | // Parenthesized list |
| | | case '(': |
| | | case '[': |
| | | $str = substr($str, 1); |
| | | $result[] = self::tokenizeResponse($str); |
| | | break; |
| | | case ')': |
| | | case ']': |
| | | $str = substr($str, 1); |
| | | return $result; |
| | | break; |
| | |
| | | break; |
| | | } |
| | | |
| | | // excluded chars: SP, CTL, (, ), {, ", ], % |
| | | if (preg_match('/^([\x21\x23\x24\x26\x27\x2A-\x5C\x5E-\x7A\x7C-\x7E]+)/', $str, $m)) { |
| | | // excluded chars: SP, CTL, ), [, ] |
| | | if (preg_match('/^([^\x00-\x20\x29\x5B\x5D\x7F]+)/', $str, $m)) { |
| | | $result[] = $m[1] == 'NIL' ? NULL : $m[1]; |
| | | $str = substr($str, strlen($m[1])); |
| | | } |
| | |
| | | } |
| | | |
| | | return $num == 1 ? $result[0] : $result; |
| | | } |
| | | |
| | | static function r_implode($element) |
| | | { |
| | | $string = ''; |
| | | |
| | | if (is_array($element)) { |
| | | reset($element); |
| | | while (list($key, $value) = each($element)) { |
| | | $string .= ' ' . self::r_implode($value); |
| | | } |
| | | } |
| | | else { |
| | | return $element; |
| | | } |
| | | |
| | | return '(' . trim($string) . ')'; |
| | | } |
| | | |
| | | private function _xor($string, $string2) |
| | |
| | | * |
| | | * @return int Unix timestamp |
| | | */ |
| | | private function strToTime($date) |
| | | static function strToTime($date) |
| | | { |
| | | $ts = (int) rcube_strtotime($date); |
| | | return $ts < 0 ? 0 : $ts; |
| | | } |
| | | // support non-standard "GMTXXXX" literal |
| | | $date = preg_replace('/GMT\s*([+-][0-9]+)/', '\\1', $date); |
| | | |
| | | private function splitHeaderLine($string) |
| | | { |
| | | $pos = strpos($string, ':'); |
| | | if ($pos>0) { |
| | | $res[0] = substr($string, 0, $pos); |
| | | $res[1] = trim(substr($string, $pos+1)); |
| | | return $res; |
| | | // if date parsing fails, we have a date in non-rfc format |
| | | // remove token from the end and try again |
| | | while (($ts = intval(@strtotime($date))) <= 0) { |
| | | $d = explode(' ', $date); |
| | | array_pop($d); |
| | | if (empty($d)) { |
| | | break; |
| | | } |
| | | $date = implode(' ', $d); |
| | | } |
| | | return $string; |
| | | |
| | | return $ts < 0 ? 0 : $ts; |
| | | } |
| | | |
| | | private function parseCapability($str, $trusted=false) |
| | |
| | | * Escapes a string when it contains special characters (RFC3501) |
| | | * |
| | | * @param string $string IMAP string |
| | | * @param boolean $force_quotes Forces string quoting |
| | | * @param boolean $force_quotes Forces string quoting (for atoms) |
| | | * |
| | | * @return string Escaped string |
| | | * @todo String literals, lists |
| | | * @return string String atom, quoted-string or string literal |
| | | * @todo lists |
| | | */ |
| | | static function escape($string, $force_quotes=false) |
| | | { |
| | | if ($string === null) { |
| | | return 'NIL'; |
| | | } |
| | | else if ($string === '') { |
| | | if ($string === '') { |
| | | return '""'; |
| | | } |
| | | // need quoted-string? find special chars: SP, CTL, (, ), {, %, *, ", \, ] |
| | | // plus [ character as a workaround for DBMail's bug (#1487766) |
| | | else if ($force_quotes || |
| | | preg_match('/([\x00-\x20\x28-\x29\x7B\x25\x2A\x22\x5B\x5C\x5D\x7F]+)/', $string) |
| | | ) { |
| | | // atom-string (only safe characters) |
| | | if (!$force_quotes && !preg_match('/[\x00-\x20\x22\x28-\x2A\x5B-\x5D\x7B\x7D\x80-\xFF]/', $string)) { |
| | | return $string; |
| | | } |
| | | // quoted-string |
| | | if (!preg_match('/[\r\n\x00\x80-\xFF]/', $string)) { |
| | | return '"' . addcslashes($string, '\\"') . '"'; |
| | | } |
| | | |
| | | // atom |
| | | return $string; |
| | | // literal-string |
| | | return sprintf("{%d}\r\n%s", strlen($string), $string); |
| | | } |
| | | |
| | | static function unEscape($string) |
| | |
| | | * |
| | | * @param boolean $debug New value for the debugging flag. |
| | | * |
| | | * @access public |
| | | * @since 0.5-stable |
| | | */ |
| | | function setDebug($debug, $handler = null) |
| | |
| | | * |
| | | * @param string $message Debug mesage text. |
| | | * |
| | | * @access private |
| | | * @since 0.5-stable |
| | | */ |
| | | private function debug($message) |
| | | { |
| | | if ($this->resourceid) { |
| | | $message = sprintf('[%s] %s', $this->resourceid, $message); |
| | | } |
| | | |
| | | if ($this->_debug_handler) { |
| | | call_user_func_array($this->_debug_handler, array(&$this, $message)); |
| | | } else { |