###############################################################################
# Configuration
###############

/* POP3/IMAP/NNTP server to connect to, with optional port. */
$server = "localhost:143";

/* Protocol specification (optional) */
$protocol = "/notls";

/* Name of the mailbox to open. */
$mailbox = "INBOX";

/* Your username. */
$username = "";

/* Your password. */
$password = "";

/* Whether or not to download the message body and display it in the
element. */
$downloadBody = true;

/* Whether or not to mark retrieved messages as seen. */
$markSeen = true;

/* Whether or not to convert newlines to HTML line breaks in message bodies for
displaying in HTML-based RSS readers. */
$htmlLineBreaks = true;

/* If the message body is longer than this number of bytes, it will be trimmed.
Set to 0 for no limit. */
$bodyMaxLength = 4096;

###############################################################################
# End of User-Editable Settings
###############################

require_once("Mail/mimeDecode.php");

// Parse URL vars.
foreach(array_keys($_GET) as $var)
{
$value = urldecode($_GET[$var]);

switch(strtolower($var))
{
case "server":
$server = $value;
break;

case "protocol":
$protocol = $value;
break;

case "mailbox":
$mailbox = $value;
break;

case "username":
case "user":
case "login":
$username = $value;
break;

case "password":
case "pass":
$password = $value;
break;

case "markseen":
case "seen":
$markSeen = $value;
break;

case "downloadbody":
case "showbody":
case "body":
$downloadBody = $value;
break;

case "htmlLineBreaks":
$htmlLineBreaks = $value;
break;

case "bodymaxlength":
case "maxbodylength":
case "bodylength":
$bodyMaxLength = $value;
break;
}
}

RssHeader();

error_reporting(0);
set_error_handler("errorHandler");

if ($conn = imap_open('{'.$server.$protocol.'}'.$mailbox, $username, $password, OP_READONLY))
{
// Set up the parameters for the MimeDecode object.
$mimeParams = array();
$mimeParams['decode_headers'] = true;
$mimeParams['crlf'] = "\r\n";

if ($downloadBody)
{
$mimeParams['include_bodies'] = true;
$mimeParams['decode_bodies'] = true;
}
else
{
$mimeParams['include_bodies'] = false;
$mimeParams['decode_bodies'] = false;
}

// See if the mailbox contains any messages.
if ($msgCount = imap_num_msg($conn))
{
// Loop through the messages.
for($i = 1; $i <= $msgCount; $i++)
{
// Get the message header.
if ($downloadBody)
$header = imap_fetchheader($conn, $i, FT_PREFETCHTEXT);
else
$header = imap_fetchheader($conn, $i);

// Get the message body if desired.
if ($downloadBody)
{
if ($markSeen)
$body = imap_body($conn, $i);
else
$body = imap_body($conn, $i, FT_PEEK);
}

// Send the header and body through mimeDecode.
$mimeParams['input'] = $header.$body;
$message = Mail_mimeDecode::decode($mimeParams);

// Some mail servers and clients use special messages for holding
// mailbox data; ignore that message if it exists.
if ($message->headers['subject'] != "DON'T DELETE THIS MESSAGE -- FOLDER INTERNAL DATA")
{
// Format the message for inclusion in the RSS feed.
if ($downloadBody)
{
// Does the message have an attachment?
if (strtolower($message->ctype_primary) == "multipart")
{
$body = trim($message->parts[0]->body);

// Get information about the attachments.
$attachCount = count($message->parts) - 1;
$attachSize = 0;

for($p = 1; $p < count($message->parts); $p++)
$attachSize += strlen($message->parts[$p]->body);

if ($attachCount == 1)
$body .= "\n\n[Message contains 1 attachment. (".translateSize($attachSize).")]";
else
$body .= "\n\n[Message contains $attachCount attachments. (".translateSize($attachSize).")]";
}
else
{
$body = trim($message->body);
}

// Trim the body to $bodyMaxLength characters if desired.
if ($bodyMaxLength && strlen($body) > $bodyMaxLength)
$body = substr($body, 0, $bodyMaxLength).'...';

// Convert newlines to HTML line breaks if desired.
if ($htmlLineBreaks)
$body = nl2br($body);
}
else
{
$body = "";
}

// Create the RSS item.
RssItem($message->headers['subject'], $body,
$message->headers['from'], $mailbox,
dateToRfc822($message->headers['date']));
}
}
}

imap_close($conn);
}

RssFooter();

restore_error_handler();

###############################################################################
# RSS functions
###############

function RssFooter()
{
?>


}

function RssHeader()
{
header("Content-Type: text/xml");

echo "\n";
?>

Checks a POP3, IMAP, or NNTP mailbox on demand and returns an RSS feed containing the messages in the mailbox.
http://blogs.law.harvard.edu/tech/rss
MailFeed v1.0.1

function RssItem($title, $description = "", $author = "", $category = "",
$pubDate = "", $guid = "")
{
?>

if (strlen($pubDate))
{
?>

if (strlen($description))
{
?>

}

if (strlen($author))
{
?>

}

if (strlen($category))
{
?>

}

if (strlen($guid))
{
?>

}
?>

}

###############################################################################
# Error handling functions
##########################

function errorHandler($errno, $errmsg, $filename, $linenum, $vars)
{
if ($errno != E_NOTICE && $errno != E_USER_NOTICE)
{
RssItem("MailFeed Error", "Error at line $linenum: ".htmlspecialchars($errmsg),
"MailFeed", "Errors", date("D, d M Y H:i:s T"));
}
}

###############################################################################
# Miscellaneous functions
#########################

function dateToRfc822($date)
{
$time = strtotime($date);

if ($time > 0)
$date = date("D, d M Y H:i:s T", $time);

return $date;
}

function translateSize($size)
{
$units = array("bytes", "KB", "MB", "GB", "TB");

for($i = 0; $size >= 1024 && $i < count($units); $i++)
$size /= 1024;