-<?
+<?php
/**
** imap_messages.php
**
** Copies specified messages to specified folder
******************************************************************************/
function sqimap_messages_copy ($imap_stream, $start, $end, $mailbox) {
- fputs ($imap_stream, "a001 COPY $start:$end \"$mailbox\"\n");
+ fputs ($imap_stream, "a001 COPY $start:$end \"$mailbox\"\r\n");
$read = sqimap_read_data ($imap_stream, "a001", true, $response, $message);
}
} else {
sqimap_messages_flag ($imap_stream, $start, $end, "Deleted");
}
- if ($auto_expunge == true)
- sqimap_mailbox_expunge ($imap_stream, $mailbox);
}
/******************************************************************************
** Sets the specified messages with specified flag
******************************************************************************/
function sqimap_messages_flag ($imap_stream, $start, $end, $flag) {
- fputs ($imap_stream, "a001 STORE $start:$end +FLAGS (\\$flag)\n");
+ fputs ($imap_stream, "a001 STORE $start:$end +FLAGS (\\$flag)\r\n");
$read = sqimap_read_data ($imap_stream, "a001", true, $response, $message);
+
}
/******************************************************************************
** Returns some general header information -- FROM, DATE, and SUBJECT
******************************************************************************/
function sqimap_get_small_header ($imap_stream, $id, &$from, &$subject, &$date) {
- fputs ($imap_stream, "a001 FETCH $id:$id RFC822.HEADER.LINES (From Subject Date)\n");
+ fputs ($imap_stream, "a001 FETCH $id:$id RFC822.HEADER.LINES (From Subject Date)\r\n");
$read = sqimap_read_data ($imap_stream, "a001", true, $response, $message);
+ $subject = _("(no subject)");
+ $from = _("Unknown Sender");
for ($i = 0; $i < count($read); $i++) {
- if (substr($read[$i], 0, 5) == "From:") {
+ if (strtolower(substr($read[$i], 0, 5)) == "from:") {
$from = sqimap_find_displayable_name(substr($read[$i], 5));
- } else if (substr($read[$i], 0, 5) == "Date:") {
+ } else if (strtolower(substr($read[$i], 0, 5)) == "date:") {
$date = substr($read[$i], 5);
- } else if (substr($read[$i], 0, 8) == "Subject:") {
+ } else if (strtolower(substr($read[$i], 0, 8)) == "subject:") {
$subject = htmlspecialchars(substr($read[$i], 8));
if (strlen(trim($subject)) == 0)
$subject = _("(no subject)");
/******************************************************************************
** Returns the flags for the specified messages
******************************************************************************/
- function sqimap_get_flags ($imap_stream, $start, $end) {
- fputs ($imap_stream, "a001 FETCH $start:$end FLAGS\n");
+ function sqimap_get_flags ($imap_stream, $i) {
+ fputs ($imap_stream, "a001 FETCH $i:$i FLAGS\r\n");
$read = sqimap_read_data ($imap_stream, "a001", true, $response, $message);
- $i = 0;
- while ($i < count($read)) {
- if (strpos($read[$i], "FLAGS")) {
- $tmp = ereg_replace("\(", "", $read[$i]);
- $tmp = ereg_replace("\)", "", $tmp);
- $tmp = str_replace("\\", "", $tmp);
- $tmp = substr($tmp, strpos($tmp, "FLAGS")+6, strlen($tmp));
- $tmp = trim($tmp);
- $flags[$i] = explode(" ", $tmp);
- } else {
- $flags[$i][0] = "None";
- }
- $i++;
+ if (strpos($read[0], "FLAGS")) {
+ $tmp = ereg_replace("\(", "", $read[0]);
+ $tmp = ereg_replace("\)", "", $tmp);
+ $tmp = str_replace("\\", "", $tmp);
+ $tmp = substr($tmp, strpos($tmp, "FLAGS")+6, strlen($tmp));
+ $tmp = trim($tmp);
+ $flags = explode(" ", $tmp);
+ } else {
+ $flags[0] = "None";
}
return $flags;
}
$message["INFO"]["ID"] = $id;
$message["INFO"]["MAILBOX"] = $mailbox;
$message["HEADER"] = sqimap_get_message_header($imap_stream, $id);
- $message["ENTITIES"] = sqimap_get_message_body($imap_stream, $message["HEADER"]["BOUNDARY"], $id, $message["HEADER"]["TYPE0"], $message["HEADER"]["TYPE1"], $message["HEADER"]["ENCODING"]);
+ $message["ENTITIES"] = sqimap_get_message_body($imap_stream, $message["HEADER"]["BOUNDARY"], $id, $message["HEADER"]["TYPE0"], $message["HEADER"]["TYPE1"], $message["HEADER"]["ENCODING"], $message["HEADER"]["CHARSET"]);
return $message;
}
** Wrapper function that reformats the header information.
******************************************************************************/
function sqimap_get_message_header ($imap_stream, $id) {
- fputs ($imap_stream, "a001 FETCH $id:$id RFC822.HEADER\n");
+ fputs ($imap_stream, "a001 FETCH $id:$id BODY[HEADER]\r\n");
$read = sqimap_read_data ($imap_stream, "a001", true, $response, $message);
return sqimap_get_header($imap_stream, $read);
******************************************************************************/
function sqimap_get_header ($imap_stream, $read) {
$i = 0;
+ // Set up some defaults
+ $header["TYPE0"] = "text";
+ $header["TYPE1"] = "plain";
+ $header["CHARSET"] = "us-ascii";
+
while ($i < count($read)) {
if (substr($read[$i], 0, 17) == "MIME-Version: 1.0") {
$header["MIME"] = true;
}
/** CONTENT-TYPE **/
- else if (substr($read[$i], 0, 13) == "Content-Type:") {
+ else if (strtolower(substr($read[$i], 0, 13)) == "content-type:") {
$cont = strtolower(trim(substr($read[$i], 13)));
if (strpos($cont, ";"))
$cont = substr($cont, 0, strpos($cont, ";"));
+
if (strpos($cont, "/")) {
$header["TYPE0"] = substr($cont, 0, strpos($cont, "/"));
$header["TYPE1"] = substr($cont, strpos($cont, "/")+1);
$header["TYPE0"] = $cont;
}
+
$line = $read[$i];
$i++;
while ( (substr(substr($read[$i], 0, strpos($read[$i], " ")), -1) != ":") && (trim($read[$i]) != "") && (trim($read[$i]) != ")")) {
}
/** Detect the boundary of a multipart message **/
- if (strpos(strtolower(trim($line)), "boundary=")) {
- $pos = strpos($line, "boundary=") + 9;
- $bound = trim($line);
- if (strpos($line, " ", $pos) > 0) {
- $bound = substr($bound, $pos, strpos($line, " ", $pos));
- } else {
- $bound = substr($bound, $pos);
- }
- $bound = str_replace("\"", "", $bound);
- $header["BOUNDARY"] = $bound;
+ if (eregi("boundary=\"([^\"]+)\"", $line, $regs)) {
+ $header["BOUNDARY"] = $regs[1];
}
/** Detect the charset **/
$header["CHARSET"] = "us-ascii";
}
+ }
+
+ else if (strtolower(substr($read[$i], 0, 20)) == "content-disposition:") {
+ /** Add better dontent-disposition support **/
+
+ $line = $read[$i];
+ $i++;
+ while ( (substr(substr($read[$i], 0, strpos($read[$i], " ")), -1) != ":") && (trim($read[$i]) != "") && (trim($read[$i]) != ")")) {
+ str_replace("\n", "", $line);
+ str_replace("\n", "", $read[$i]);
+ $line = "$line $read[$i]";
+ $i++;
+ }
+
/** Detects filename if any **/
- if (strpos(strtolower(trim($line)), "name=")) {
- $pos = strpos($line, "name=") + 5;
+ if (strpos(strtolower(trim($line)), "filename=")) {
+ $pos = strpos($line, "filename=") + 9;
$name = trim($line);
if (strpos($line, " ", $pos) > 0) {
$name = substr($name, $pos, strpos($line, " ", $pos));
$i++;
}
}
+ /** MESSAGE ID **/
+ else if (strtolower(substr($read[$i], 0, 11)) == "message-id:") {
+ $header["MESSAGE-ID"] = trim(substr($read[$i], 11));
+ $i++;
+ }
+
/** ERROR CORRECTION **/
else if (substr($read[$i], 0, 1) == ")") {
/******************************************************************************
** Returns the body of a message.
******************************************************************************/
- function sqimap_get_message_body ($imap_stream, $bound, $id, $type0, $type1, $encoding) {
- fputs ($imap_stream, "a001 FETCH $id:$id BODY[TEXT]\n");
+ function sqimap_get_message_body ($imap_stream, $bound, $id, $type0, $type1, $encoding, $charset) {
+ fputs ($imap_stream, "a001 FETCH $id:$id BODY[TEXT]\r\n");
$read = sqimap_read_data ($imap_stream, "a001", true, $response, $message);
$i = 0;
}
$body = $bodytmp;
- return decodeMime($body, $bound, $type0, $type1, $encoding);
+ return decodeMime($body, $bound, $type0, $type1, $encoding, $charset);
}
?>