$end) || ($start < 1)) {
echo "Error in message header fetching. Start message: $start, End message: $end
";
exit;
}
$from_pos = 0;
$date_pos = 0;
$subj_pos = 0;
while ($rel_start <= $end) {
if ($end - $rel_start > 50) {
$rel_end = $rel_start + 50;
} else {
$rel_end = $end;
}
fputs($imapConnection, "messageFetch FETCH $rel_start:$rel_end RFC822.HEADER.LINES (From Subject Date)\n");
$read = fgets($imapConnection, 1024);
while ((substr($read, 0, 15) != "messageFetch OK") && (substr($read, 0, 16) != "messageFetch BAD")) {
if (substr($read, 0, 5) == "From:") {
$read = ereg_replace("<", "EMAILSTART--", $read);
$read = ereg_replace(">", "--EMAILEND", $read);
$from[$from_pos] = substr($read, 5, strlen($read) - 6);
$from_pos++;
}
else if (substr($read, 0, 5) == "Date:") {
$read = ereg_replace("<", "<", $read);
$read = ereg_replace(">", ">", $read);
$date[$date_pos] = substr($read, 5, strlen($read) - 6);
$date_pos++;
}
else if (substr($read, 0, 8) == "Subject:") {
$read = ereg_replace("<", "<", $read);
$read = ereg_replace(">", ">", $read);
$subject[$subj_pos] = substr($read, 8, strlen($read) - 9);
if (strlen(Chop($subject[$subj_pos])) == 0)
$subject[$subj_pos] = "(no subject)";
$subj_pos++;
}
$read = fgets($imapConnection, 1024);
}
$rel_start = $rel_start + 50;
}
}
function setMessageFlag($imapConnection, $i, $q, $flag) {
fputs($imapConnection, "messageStore STORE $i:$q +FLAGS (\\$flag)\n");
}
/** This function gets the flags for message $j. It does only one message at a
** time, rather than doing groups of messages (like getMessageHeaders does).
** I found it one or two seconds quicker (on a box of 800 messages) to do it
** individually. I'm not sure why it happens like that, but that's what my
** testing found. Perhaps later I will be proven wrong and this will change.
**/
function getMessageFlags($imapConnection, $j, &$flags) {
/** * 2 FETCH (FLAGS (\Answered \Seen)) */
fputs($imapConnection, "messageFetch FETCH $j:$j FLAGS\n");
$read = fgets($imapConnection, 1024);
$count = 0;
while ((substr($read, 0, 15) != "messageFetch OK") && (substr($read, 0, 16) != "messageFetch BAD")) {
if (strpos($read, "FLAGS")) {
$read = ereg_replace("\(", "", $read);
$read = ereg_replace("\)", "", $read);
$read = substr($read, strpos($read, "FLAGS")+6, strlen($read));
$read = trim($read);
$flags = explode(" ", $read);;
$s = 0;
while ($s < count($flags)) {
$flags[$s] = substr($flags[$s], 1, strlen($flags[$s]));
$s++;
}
} else {
$flags[0] = "None";
}
$count++;
$read = fgets($imapConnection, 1024);
}
}
function getEmailAddr($sender) {
if (strpos($sender, "EMAILSTART--") == false)
return "";
$start = strpos($sender, "EMAILSTART--");
$emailAddr = substr($sender, $start, strlen($sender));
return $emailAddr;
}
function getSender($sender) {
if (strpos($sender, "EMAILSTART--") == false)
return "";
$first = substr($sender, 0, strpos($sender, "EMAILSTART--"));
$second = substr($sender, strpos($sender, "--EMAILEND") +10, strlen($sender));
return "$first$second";
}
function getSenderName($sender) {
$name = getSender($sender);
$emailAddr = getEmailAddr($sender);
$emailStart = strpos($emailAddr, "EMAILSTART--");
$emailEnd = strpos($emailAddr, "--EMAILEND") - 10;
if (($emailAddr == "") && ($name == "")) {
$from = $sender;
}
else if ((strstr($name, "?") != false) || (strstr($name, "$") != false) || (strstr($name, "%") != false)){
$emailAddr = ereg_replace("EMAILSTART--", "", $emailAddr);
$emailAddr = ereg_replace("--EMAILEND", "", $emailAddr);
$from = $emailAddr;
}
else if (strlen($name) > 0) {
$from = $name;
}
else if (strlen($emailAddr > 0)) {
$emailAddr = ereg_replace("EMAILSTART--", "", $emailAddr);
$emailAddr = ereg_replace("--EMAILEND", "", $emailAddr);
$from = $emailAddr;
}
$from = trim($from);
// strip out any quotes if they exist
if ((strlen($from) > 0) && ($from[0] == "\"") && ($from[strlen($from) - 1] == "\""))
$from = substr($from, 1, strlen($from) - 2);
return $from;
}
/** returns "true" if the copy was completed successfully.
** returns "false" with an error message if unsuccessful.
**/
function copyMessages($imapConnection, $from_id, $to_id, $folder) {
fputs($imapConnection, "mailboxStore COPY $from_id:$to_id \"$folder\"\n");
$read = fgets($imapConnection, 1024);
while ((substr($read, 0, 15) != "mailboxStore OK") && (substr($read, 0, 15) != "mailboxStore NO")) {
$read = fgets($imapConnection, 1024);
}
if (substr($read, 0, 15) == "mailboxStore NO") {
echo "ERROR... $read
";
return false;
} else if (substr($read, 0, 15) == "mailboxStore OK") {
return true;
}
echo "UNKNOWN ERROR copying messages $from_id to $to_id to folder $folder.
";
return false;
}
/** expunges a mailbox **/
function expungeBox($imapConnection, $mailbox) {
selectMailbox($imapConnection, $mailbox, $num);
fputs($imapConnection, "1 EXPUNGE\n");
}
function getFolderNameMinusINBOX($mailbox) {
if (substr($mailbox, 0, 6) == "INBOX.")
$box = substr($mailbox, 6, strlen($mailbox));
else
$box = $mailbox;
return $box;
}
function fetchBody($imapConnection, $id) {
fputs($imapConnection, "messageFetch FETCH $id:$id BODY[TEXT]\n");
$count = 0;
$read[$count] = fgets($imapConnection, 1024);
while ((substr($read[$count], 0, 15) != "messageFetch OK") && (substr($read[$count], 0, 16) != "messageFetch BAD")) {
$count++;
$read[$count] = fgets($imapConnection, 1024);
}
$count = 0;
$useHTML= false;
while ($count < count($read)) {
$read[$count] = "^^$read[$count]";
if (strpos($read[$count], "") == true) {
$useHTML = true;
} else if (strpos(strtolower($read[$count]), ">") == 2) {
$read[$count] = substr($read[$count], 2, strlen($read[$count]));
$read[$count] = "$read[$count]\n";
} else if (strpos(trim(str_replace(" ", "", $read[$count])), ">") == 2) {
$read[$count] = substr($read[$count], 2, strlen($read[$count]));
$read[$count] = "$read[$count]\n";
} else {
$read[$count] = substr($read[$count], 2, strlen($read[$count]));
$read[$count] = "$read[$count]\n";
}
if (strpos(strtolower($read[$count]), "http://") != false) {
$start = strpos(strtolower($read[$count]), "http://");
$link = substr($read[$count], $start, strlen($read[$count]));
if (strpos($link, " "))
$end = strpos($link, " ");
else if (strpos($link, "<"))
$end = strpos($link, "<");
else
$end = strlen($link);
$link = substr($link, 0, $end);
$read[$count] = str_replace($link, "$link", $read[$count]);
}
}
$count++;
}
return $read;
}
?>