- }
- }
-
- return $imap_stream;
- }
-
-
-
-
- /******************************************************************************
- ** Simply logs out the imap session
- ******************************************************************************/
- function sqimap_logout ($imap_stream) {
- fputs ($imap_stream, "a001 LOGOUT\r\n");
- }
-
-
-
- /******************************************************************************
- ** Returns the delimeter between mailboxes: INBOX/Test, or INBOX.Test...
- ******************************************************************************/
- function sqimap_get_delimiter ($imap_stream) {
- fputs ($imap_stream, ". LSUB \"\" *\r\n");
- $read = sqimap_read_data($imap_stream, ".", true, $a, $b);
- $quote_position = strpos ($read[0], "\"");
- $delim = substr ($read[0], $quote_position+1, 1);
-
- return $delim;
- }
-
-
-
-
- /******************************************************************************
- ** Gets the number of messages in the current mailbox.
- ******************************************************************************/
- function sqimap_get_num_messages ($imap_stream, $mailbox) {
- fputs ($imap_stream, "a001 EXAMINE \"$mailbox\"\r\n");
- $read_ary = sqimap_read_data ($imap_stream, "a001", true, $result, $message);
- for ($i = 0; $i < count($read_ary); $i++) {
- if (substr(trim($read_ary[$i]), -6) == EXISTS) {
- $array = explode (" ", $read_ary[$i]);
- $num = $array[1];
- }
- }
- return $num;
- }
-
-
- /******************************************************************************
- ** Returns a displayable email address
- ******************************************************************************/
- function sqimap_find_email ($string) {
- /** Luke Ehresman <lehresma@css.tayloru.edu>
- ** <lehresma@css.tayloru.edu>
- ** lehresma@css.tayloru.edu
- **/
-
- if (strpos($string, "<") && strpos($string, ">")) {
- $string = substr($string, strpos($string, "<")+1);
- $string = substr($string, 0, strpos($string, ">"));
- }
- return trim($string);
- }
-
-
- /******************************************************************************
- ** Takes the From: field, and creates a displayable name.
- ** Luke Ehresman <lkehresman@yahoo.com>
- ** becomes: Luke Ehresman
- ** <lkehresman@yahoo.com>
- ** becomes: lkehresman@yahoo.com
- ******************************************************************************/
- function sqimap_find_displayable_name ($string) {
- $string = " ".trim($string);
- if (strpos($string, "<") && strpos($string, ">")) {
- if (strpos($string, "<") == 1) {
- $string = sqimap_find_email($string);
- } else {
- $string = trim($string);
- $string = substr($string, 0, strpos($string, "<"));
- $string = ereg_replace ("\"", "", $string);
- }
- }
- return $string;
- }
-
-
-
- /******************************************************************************
- ** Returns the number of unseen messages in this folder
- ******************************************************************************/
- function sqimap_unseen_messages ($imap_stream, &$num_unseen) {
- fputs ($imap_stream, "a001 SEARCH UNSEEN NOT DELETED\r\n");
- $read_ary = sqimap_read_data ($imap_stream, "a001", true, $result, $message);
- $unseen = false;
-
- if (strlen($read_ary[0]) > 10) {
- $unseen = true;
- $ary = explode (" ", $read_ary[0]);
- $num_unseen = count($ary) - 2;
- } else {
- $unseen = false;
- $num_unseen = 0;
- }
-
- return $unseen;
- }
-
-
- /******************************************************************************
- ** Saves a message to a given folder -- used for saving sent messages
- ******************************************************************************/
- function sqimap_append ($imap_stream, $sent_folder, $length) {
- fputs ($imap_stream, "a001 APPEND \"$sent_folder\" (\\Seen) \{$length}\r\n");
- $tmp = fgets ($imap_stream, 1024);
- }
-
- function sqimap_append_done ($imap_stream) {
- fputs ($imap_stream, "\r\n");
- $tmp = fgets ($imap_stream, 1024);
- }
+ }
+ }
+ return $imap_stream;
+}
+
+/* Simply logs out the IMAP session */
+function sqimap_logout ($imap_stream) {
+ /* Logout is not valid until the server returns 'BYE' */
+ sqimap_run_command($imap_stream, 'LOGOUT', false, $response, $message);
+}
+
+function sqimap_capability($imap_stream, $capability) {
+ global $sqimap_capabilities;
+
+ if (!is_array($sqimap_capabilities)) {
+ $read = sqimap_run_command($imap_stream, 'CAPABILITY', true, $a, $b);
+
+ $c = explode(' ', $read[0]);
+ for ($i=2; $i < count($c); $i++) {
+ $cap_list = explode('=', $c[$i]);
+ if (isset($cap_list[1])) {
+ $sqimap_capabilities[$cap_list[0]] = $cap_list[1];
+ } else {
+ $sqimap_capabilities[$cap_list[0]] = TRUE;
+ }
+ }
+ }
+ if (isset($sqimap_capabilities[$capability])) {
+ return $sqimap_capabilities[$capability];
+ } else {
+ return false;
+ }
+}
+
+/* Returns the delimeter between mailboxes: INBOX/Test, or INBOX.Test */
+function sqimap_get_delimiter ($imap_stream = false) {
+ global $sqimap_delimiter, $optional_delimiter;
+
+ /* Use configured delimiter if set */
+ if((!empty($optional_delimiter)) && $optional_delimiter != 'detect') {
+ return $optional_delimiter;
+ }
+
+ /* Do some caching here */
+ if (!$sqimap_delimiter) {
+ if (sqimap_capability($imap_stream, 'NAMESPACE')) {
+ /*
+ * According to something that I can't find, this is supposed to work on all systems
+ * OS: This won't work in Courier IMAP.
+ * OS: According to rfc2342 response from NAMESPACE command is:
+ * OS: * NAMESPACE (PERSONAL NAMESPACES) (OTHER_USERS NAMESPACE) (SHARED NAMESPACES)
+ * OS: We want to lookup all personal NAMESPACES...
+ */
+ $read = sqimap_run_command($imap_stream, 'NAMESPACE', true, $a, $b);
+ if (eregi('\\* NAMESPACE +(\\( *\\(.+\\) *\\)|NIL) +(\\( *\\(.+\\) *\\)|NIL) +(\\( *\\(.+\\) *\\)|NIL)', $read[0], $data)) {
+ if (eregi('^\\( *\\((.*)\\) *\\)', $data[1], $data2)) {
+ $pn = $data2[1];
+ }
+ $pna = explode(')(', $pn);
+ while (list($k, $v) = each($pna)) {
+ $lst = explode('"', $v);
+ if (isset($lst[3])) {
+ $pn[$lst[1]] = $lst[3];
+ } else {
+ $pn[$lst[1]] = '';
+ }
+ }
+ }
+ $sqimap_delimiter = $pn[0];
+ } else {
+ fputs ($imap_stream, ". LIST \"INBOX\" \"\"\r\n");
+ $read = sqimap_read_data($imap_stream, '.', true, $a, $b);
+ $quote_position = strpos ($read[0], '"');
+ $sqimap_delimiter = substr ($read[0], $quote_position+1, 1);
+ }
+ }
+ return $sqimap_delimiter;
+}
+
+
+/* Gets the number of messages in the current mailbox. */
+function sqimap_get_num_messages ($imap_stream, $mailbox) {
+ $read_ary = sqimap_run_command ($imap_stream, "EXAMINE \"$mailbox\"", true, $result, $message);
+ for ($i = 0; $i < count($read_ary); $i++) {
+ if (ereg("[^ ]+ +([^ ]+) +EXISTS", $read_ary[$i], $regs)) {
+ return $regs[1];
+ }
+ }
+ return "BUG! Couldn't get number of messages in $mailbox!";
+}
+
+
+/* Returns a displayable email address.
+ * Luke Ehresman <lehresma@css.tayloru.edu>
+ * "Luke Ehresman" <lehresma@css.tayloru.edu>
+ * <lehresma@css.tayloru.edu>
+ * lehresma@css.tayloru.edu (Luke Ehresman)
+ * lehresma@css.tayloru.edu
+ * becomes: lehresma@css.tayloru.edu
+ */
+function sqimap_find_email ($string) {
+ if (ereg("<([^>]+)>", $string, $regs)) {
+ $string = $regs[1];
+ } else if (ereg("([^ ]+@[^ ]+)", $string, $regs)) {
+ $string = $regs[1];
+ }
+ return trim($string);
+}
+
+
+/*
+ * Takes the From: field and creates a displayable name.
+ * Luke Ehresman <lkehresman@yahoo.com>
+ * "Luke Ehresman" <lkehresman@yahoo.com>
+ * lkehresman@yahoo.com (Luke Ehresman)
+ * becomes: Luke Ehresman
+ * <lkehresman@yahoo.com>
+ * becomes: lkehresman@yahoo.com
+ */
+function sqimap_find_displayable_name ($string) {
+ $string = trim($string);
+
+ if ( ereg('^(.+)<.*>', $string, $regs) ) {
+ $orig_string = $string;
+ $string = str_replace ('"', '', $regs[1] );
+ if (trim($string) == '') {
+ $string = sqimap_find_email($orig_string);
+ }
+ if( $string == '' || $string == ' ' ){
+ $string = ' ';
+ }
+ }
+ elseif ( ereg('\((.*)\)', $string, $regs) ) {
+ if( ( $regs[1] == '' ) || ( $regs[1] == ' ' ) ){
+ if ( ereg('^(.+) \(', $string, $regs) ) {
+ $string = ereg_replace( ' \(\)$', '', $string );
+ } else {
+ $string = ' ';
+ }
+ } else {
+ $string = $regs[1];
+ }
+ }
+ else {
+ $string = str_replace ('"', '', sqimap_find_email($string));
+ }
+
+ return trim($string);
+}
+
+/*
+ * Returns the number of unseen messages in this folder
+ */
+function sqimap_unseen_messages ($imap_stream, $mailbox) {
+ $read_ary = sqimap_run_command ($imap_stream, "STATUS \"$mailbox\" (UNSEEN)", true, $result, $message);
+ $i = 0;
+ while (isset($read_ary[$i])) {
+ if (ereg("UNSEEN ([0-9]+)", $read_ary[$i], $regs)) {
+ break;
+ }
+ $i++;
+ }
+ return $regs[1];
+}
+
+
+/*
+ * Saves a message to a given folder -- used for saving sent messages
+ */
+function sqimap_append ($imap_stream, $sent_folder, $length) {
+ fputs ($imap_stream, sqimap_session_id() . " APPEND \"$sent_folder\" (\\Seen) \{$length}\r\n");
+ $tmp = fgets ($imap_stream, 1024);
+}
+
+function sqimap_append_done ($imap_stream) {
+ fputs ($imap_stream, "\r\n");
+ $tmp = fgets ($imap_stream, 1024);
+}
+