handmadeimap.php

<?php
/** 
 * This module implements a subset of the IMAP protocol, using PHP's socket
 * interface rather than relying on an extension like php-imap. Why would
 * you want to do such a thing?
 *
 * o This supports pulling down all 'to' recipients when grabbing just headers
 * o You can use it to log into ordinary Yahoo accounts, using their mangled
 *   version of IMAP:
 *   http://groups.google.com/group/mozilla.dev.apps.thunderbird/browse_thread/thread/546356554c73f8ca
 * o It's a lot more hackable to support extensions like oAuth for Gmail:
 *   http://sites.google.com/site/oauthgoog/Home/oauthimap
 *
 * Unfortunately it doesn't implement the complete IMAP protocol, only the
 * pieces I've needed for my projects. This includes logging in, getting
 * lists of mailboxes, messages since a certain date and complete header
 * information, but not downloading actual message bodies.
 *
 * To extend it yourself, check out the RFC spec at:
 * http://www.faqs.org/rfcs/rfc3501.html
 * The basic process is sending a text command using
 * handmade_send_command() and getting the result back from
 * handmadeimap_get_command_result().
 *
 * It uses globals for error checking and parsing, so interleaving commands for 
 * different connections may cause problems.
 *

 Licensed under the 2-clause (ie no advertising requirement) BSD license,
 making it easy to reuse for commercial or GPL projects:
 
 (c) Pete Warden <pete@petewarden.com> http://petewarden.typepad.com/ - Mar 11th 2010
 
 Redistribution and use in source and binary forms, with or without modification, are
 permitted provided that the following conditions are met:

   1. Redistributions of source code must retain the above copyright notice, this 
      list of conditions and the following disclaimer.
   2. Redistributions in binary form must reproduce the above copyright notice, this 
      list of conditions and the following disclaimer in the documentation and/or 
      other materials provided with the distribution.
   3. The name of the author may not be used to endorse or promote products derived 
      from this software without specific prior written permission.

THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, 
BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 
PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 
WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY
OF SUCH DAMAGE.
 
 */

require_once("peteutils.php");

// Each client command requires a unique ID, so that the server can reference it when
// returning results. I use an incrementing counter to generate the ID
$g_currentidcounter = 0;

// These two arrays contain the data returned from the server in response to our
// client commands. The result one is an associative map linking a command id to the
// information returned for that command. I'd originally planned to handle firing off
// multiple simultaneous outstanding commands, but that became complex to support and
// wasn't needed for my usage. Instead, it supports an 'issue command 1', 'get results
// of command 1', 'issue command 2', 'get results of command 2', ... pattern on the
// caller's side, anything more complex may end up confusing it!
// The $g_resultlines entries consist of a two-entry array, 'infoline' which contains
// the data the server returned for that command and 'resultline' which holds any other
// information like error messages that the server returned for that call.
$g_resultlines = array();
$g_infolines = array();

// This function implements the basic client-calling primitive of IMAP, sending the
// given string as a command pre-pended with a unique ID for the server to use as a
// reference in the results it returns
function handmadeimap_send_command($connection, $command)
{
    global $g_currentidcounter;
    $commandid = "A".$g_currentidcounter;
    $g_currentidcounter += 1;
    
    $commandline = "$commandid $command\r\n";    
    fwrite($connection, $commandline);
    
    pete_log('handmadeimap', "Sent '$commandline'");
    
    return $commandid;
}

// Probably the ugliest function of the whole project, this started off simple but
// ended up with a whole lot of scar tissue as I fixed bugs related to issues like
// escaping string literals. Its basic form is a polling loop that sits waiting for
// the server to return data. As data is returned it's associated with the command
// ID, and parsed into data and information strings for that client call. Once a
// complete result has been returned for the given command, the function returns with
// the results. To detect an error, you need to call handmadeimap_was_command_ok()
function handmadeimap_get_command_result($connection, $commandid)
{
    global $g_resultlines;
    global $g_infolines;

    $g_infolines = array();

    $insidequotes = false;
    $insideliteral = false;
    $chewingliteral = false;
    $literallength = 0;

    $outputline = '';
    $previouschar = '';

    while (!feof($connection))
    {
        if (isset($g_resultlines[$commandid]))
        {
            return $g_resultlines[$commandid];
        }
            
        while (!feof($connection)) {
            $outputchar = fgetc($connection);
            if ($outputchar===FALSE)
                break;
        
            if ($chewingliteral)
            {
                $literallength -= 1;
                
                if ($outputchar=='"')
                    $outputline .= '\\';
                
                if ($literallength<1)
                {
                    $chewingliteral = false;
                    $outputline .= $outputchar;
                    $outputline .= '"';
                }
                else if (($outputchar!=chr(10))&&($outputchar!=chr(13)))
                {
                    $outputline .= $outputchar;
                }
            }
            else
            {
                if ($outputchar=='"')
                {
                    $insidequotes = !$insidequotes;
                    $outputline .= $outputchar;
                }
                else if (!$insidequotes && ($outputchar=='{'))
                {
                    $insideliteral = true;
                    $literallength = 0;
                }
                else if ($insideliteral && ctype_digit($outputchar))
                {
                    $literallength *= 10;
                    $literallength += $outputchar;                    
                }
                else if ($insideliteral && ($outputchar=='}'))
                {
                    $literallength += 2;
                    $chewingliteral = true;
                    $outputline .= '"';
                }
                else if (($outputchar==chr(10))&&($previouschar==chr(13)))
                {            
                    $outputline = trim($outputline);

                    pete_log('handmadeimap', "Received '$outputline'");
                    
                    $spacearray = explode(" ", $outputline);
                    $resultid = $spacearray[0];
                    
                    if ($resultid=='*')
                    {
                        $g_infolines[] = $outputline;
                    }
                    else
                    {
                        $g_resultlines[$resultid] = array( 
                            'resultline' => $outputline,
                            'infolines' => $g_infolines,
                        );
                    }
                    
                    $outputline = '';
                    $insidequotes = false;
                    $insideliteral = false;
                    $chewingliteral = false;
                    $literallength = 0;
                }
                else
                {
                    $outputline .= $outputchar;
                }
            }
            
            $previouschar = $outputchar;
        }
        
        time_nanosleep(0, 500000);
    }

    return null;
}

// Checks the command's result to see if it succeeded or failed
function handmadeimap_was_command_ok($commandresult)
{
    if (!isset($commandresult))
        return false;
        
    if ($commandresult=='')
        return false;
        
    $commandparts = explode(' ', $commandresult);
    if (count($commandparts)<2)
        return false;
        
    return ($commandparts[1]=='OK');
}

// A set of utility functions that the module uses to provide access to a human-
// readable error string in the event that something goes wrong
$g_handmadeimap_error = null;
function handmadeimap_set_error($error)
{
    global $g_handmadeimap_error;
    $g_handmadeimap_error = $error;
}

function handmadeimap_get_error()
{
    global $g_handmadeimap_error;
    return $g_handmadeimap_error;    
}

function handmadeimap_was_ok()
{
    return (handmadeimap_get_error()==null);
}

// Returns a socket connection to the given mail server
function handmadeimap_open_connection($serverurl, $serverport)
{
    $fp = fsockopen($serverurl, $serverport, $errno, $errstr, 30);
    if ($fp==null)
    {
        handmadeimap_set_error($errstr);
        return null;
    }
    
    stream_set_blocking($fp,0);
    
    return $fp;
}

// Closes the mail server connection
function handmadeimap_close_connection($connection)
{
    $loginid = handmadeimap_send_command($connection, "LOGOUT");
    $loginresult = handmadeimap_get_command_result($connection, $loginid);
    $loginwasok = handmadeimap_was_command_ok($loginresult['resultline']);
    if (!$loginwasok)
        handmadeimap_set_error("LOGOUT failed with '".$loginresult['resultline']."'");
    fclose($connection);
}

// Sends the strange command that Yahoo needs for access to its IMAP email accounts. See
// http://groups.google.com/group/mozilla.dev.apps.thunderbird/browse_thread/thread/546356554c73f8ca
function handmadeimap_yahoo_command($connection)
{
	$yahoocommandid = handmadeimap_send_command($connection, 'ID ("GUID" "1")');
	$yahoocommandresult = handmadeimap_get_command_result($connection, $yahoocommandid);
	$yahoocommandwasok = handmadeimap_was_command_ok($yahoocommandresult['resultline']);
	if (!$yahoocommandwasok)
		handmadeimap_set_error("Yahoo Command failed with '".$yahoocommandresult['resultline']."'");
}

// Performs a standard LOGIN to the mail server
function handmadeimap_login($connection, $user, $password)
{
    $loginid = handmadeimap_send_command($connection, "LOGIN $user $password");
    $loginresult = handmadeimap_get_command_result($connection, $loginid);
    $loginwasok = handmadeimap_was_command_ok($loginresult['resultline']);
    if (!$loginwasok)
        handmadeimap_set_error("LOGIN failed with '".$loginresult['resultline']."'");
}

// Performs a LOGIN using Google's XOAuth extension, as documented here:
// http://sites.google.com/site/oauthgoog/Home/oauthimap
function handmadeimap_login_xoauth($connection, $loginstring)
{
    $loginid = handmadeimap_send_command($connection, "AUTHENTICATE XOAUTH $loginstring");
    $loginresult = handmadeimap_get_command_result($connection, $loginid);
    $loginwasok = handmadeimap_was_command_ok($loginresult['resultline']);
    if (!$loginwasok)
        handmadeimap_set_error("LOGIN failed with '".$loginresult['resultline']."'");
}

// Returns the capabilities exposed by this server
function handmadeimap_capability($connection)
{
    $capabilityid = handmadeimap_send_command($connection, "CAPABILITY");
    $capabilityresult = handmadeimap_get_command_result($connection, $capabilityid);
    $capabilitywasok = handmadeimap_was_command_ok($capabilityresult['resultline']);
    if (!$capabilitywasok)
        handmadeimap_set_error("CAPABILITY failed with '".$capabilityresult['resultline']."'");
}

// Lists the folders available on this account
function handmadeimap_list($connection)
{
    $listid = handmadeimap_send_command($connection, 'LIST "" "*"');
    $listresult = handmadeimap_get_command_result($connection, $listid);
    $listwasok = handmadeimap_was_command_ok($listresult['resultline']);
    if (!$listwasok)
        handmadeimap_set_error("LIST failed with '".$listresult['resultline']."'");

    $result = array();
    foreach ($listresult['infolines'] as $infoline)
    {
        print "$infoline\n";
    }
    
    return $result;
}

// Chooses a folder for subsequent operations to act upon, and returns any other
// information that the server returns about that folder
function handmadeimap_select($connection, $mailboxname)
{
    $selectid = handmadeimap_send_command($connection, 'SELECT "'.$mailboxname.'"');
    $selectresult = handmadeimap_get_command_result($connection, $selectid);
    $selectwasok = handmadeimap_was_command_ok($selectresult['resultline']);
    if (!$selectwasok)
        handmadeimap_set_error("SELECT failed with '".$selectresult['resultline']."'");
    else
        handmadeimap_set_error(null);
        
    $result = array();
    foreach ($selectresult['infolines'] as $infoline)
    {
        $infoparts = explode(' ', $infoline);
                
        if (isset($infoparts[2]))
        {
            if ($infoparts[1]=='FLAGS')
            {
                // do nothing
            }
            else if ($infoparts[2]=='EXISTS')
            {
                $result['totalcount'] = $infoparts[1];
            }
            else if ($infoparts[2]=='RECENT')
            {
                $result['recentcount'] = $infoparts[1];            
            }
        }
        
    }
    
    return $result;
}

// Pulls out a list of message indices that were delivered after the given date
function handmadeimap_search_since_date($connection, $date)
{
    $searchid = handmadeimap_send_command($connection, 'SEARCH SINCE '.$date);
    $searchresult = handmadeimap_get_command_result($connection, $searchid);
    $searchwasok = handmadeimap_was_command_ok($searchresult['resultline']);
    if (!$searchwasok)
        handmadeimap_set_error("SEARCH failed with '".$searchresult['resultline']."'");
    else
        handmadeimap_set_error(null);

    $result = array();
    foreach ($searchresult['infolines'] as $infoline)
    {
        $parts = split(' ', $infoline);
        // Remove "* SEARCH"
        unset($parts[0]);
        unset($parts[1]);
    
        $result = array_merge($result, $parts);
    }
    
    return $result;
}

// Finds the index of the earliest message after the given timestamp (only accurate to +- 24 hours)
function handmadeimap_earliest_index_since_time($connection, $unixtime, $totalcount)
{
    // The IMAP search ignores the time zone, so bump the time backwards by a day to avoid missing any
    $conservativetime = ($unixtime-24*60*60);
	$date = date( 'd-M-Y', $conservativetime );	
    
    $messageindices = handmadeimap_search_since_date($connection, $date);
    $minindex = $totalcount;
    foreach ($messageindices as $index)
        $minindex = min($minindex, $index);
        
    return $minindex;
}

// IMAP result data is returned in a data structure defined by nested parentheses, in a lisp-esque manner.
// The following functions implement a primitive parser, mostly used to turn ENVELOPE results into usable
// information by the rest of the engine.
function pull_string($line)
{
    $result = '';
    $countline = strlen($line);
    $index = 0;
    while ($index<$countline)
    {
        $char = $line{$index};
        if (ctype_space($char))
            return $result;
    
        $result .= $char;
        $index += 1;
    }
    
    return $result;
}

function pull_quoted($line)
{
    $result = '';
    $countline = strlen($line);
    $index = 1;
    $lastchar = '';
    $charbeforelast = '';
    while ($index<$countline)
    {
        $char = $line{$index};
        if (($char=='"')&&($lastchar!='\\'))
            return $result;
    
        $result .= $char;
        $index += 1;
        
        $lastchar = $char;
    }
    
    echo "Missing end quotes for $line";
    
    return $result;
}

function pull_parens($line)
{
    $result = '';
    $parensdepth = 0;
    $isinquotes = false;
    $countline = strlen($line);
    $index = 1;
    $lastchar='';
    while ($index<$countline)
    {
        $char = $line{$index};
        if ($isinquotes)
        {
            if (($char=='"')&&($lastchar!='\\'))
            {
                $isinquotes = false;
            }
        }
        else
        {
            if (($char=='"')&&($lastchar!='\\'))
            {
                $isinquotes = true;
            }
            else if ($char=='(')
            {
                $parensdepth += 1;
            }
            else if ($char==')')
            {
                $parensdepth -= 1;
                if ($parensdepth<0)
                    return $result;
            }
        }
    
        $result .= $char;
        $index += 1;
        
        $lastchar = $char;
    }
    
    global $g_handmadeimap_currentline;
    echo "Missing end parens for $g_handmadeimap_currentline";
    
    return $result;
}

function string_to_expression_tree($line)
{
    $result = array();

    $countline = strlen($line);
    $index = 0;
    while ($index<$countline)
    {
        $char = $line[$index];
        
        if ($char=='"')
        {
            $currentchunk = pull_quoted(substr($line, $index));
            $result[] = $currentchunk;
            $index += strlen($currentchunk)+2;
        }
        else if ($char=='(')
        {
            $currentchunk = pull_parens(substr($line, $index));
            $result[] = string_to_expression_tree($currentchunk);
            $index += strlen($currentchunk)+2;
        }
        else if (ctype_space($char))
        {
            $index += 1;
        }
        else
        {
            $currentchunk = pull_string(substr($line, $index));
            $result[] = $currentchunk;
            $index += strlen($currentchunk);        
        }
    }
    
    return $result;
}

function get_addresses_from_tree($tree)
{
    if (is_string($tree)&&($tree=="NIL"))
        return array();
    
    if (!is_array($tree))
    {
        error_log("Not an array: $tree");
        global $g_handmadeimap_currentline;
        error_log($g_handmadeimap_currentline);
    }
    
    $result = array();
    foreach ($tree as $current)
    {
        $currentdisplay = $current[0];
        $currentusername = $current[2];
        $currentdomain = $current[3];
        
        if ($currentdisplay=="NIL")
            $currentdisplay = "";
            
        $currentaddress = $currentusername."@".$currentdomain;
        
        $result[] = array(
            'display' => $currentdisplay,
            'address' => $currentaddress,
        );
    }
    
    return $result;
}

$g_handmadeimap_currentline = '';

function handmadeimap_parse_envelope_line($infoline)
{
    global $g_handmadeimap_currentline;
    $g_handmadeimap_currentline = $infoline;
    $infotree = string_to_expression_tree($infoline);

    $messagenumber = $infotree[1];
    
    $envelopetree = $infotree[3][1];
    
    $date = $envelopetree[0];
    $subject = $envelopetree[1];
    
    $fromtree = $envelopetree[2];
    $fromlist = get_addresses_from_tree($fromtree);

    $sendertree = $envelopetree[3];
    $senderlist = get_addresses_from_tree($sendertree);

    $replytotree = $envelopetree[4];
    $replytolist = get_addresses_from_tree($replytotree);

    $totree = $envelopetree[5];
    $tolist = get_addresses_from_tree($totree);

    $cctree = $envelopetree[6];
    $cclist = get_addresses_from_tree($cctree);
    
    $bcctree = $envelopetree[7];
    $bcclist = get_addresses_from_tree($bcctree);
    
    $inreplyto = $envelopetree[8];
    $messageuid = $envelopetree[9];
    
    return array(
        'messagenumber' => $messagenumber,
        'date' => $date,
        'subject' => $subject,
        'from' => $fromlist,
        'sender' => $senderlist,
        'replyto' => $replytolist,
        'to' => $tolist,
        'cc' => $cclist,
        'bcc' => $bcclist,
        'inreplyto' => $inreplyto,
        'messageuid' => $messageuid,
    );

}

// This function pulls down the message information for the given indices and parses
// the returned strings into usable data structures
function handmadeimap_fetch_envelopes($connection, $firstindex, $lastindex)
{
    $fetchcommand = "FETCH $firstindex:$lastindex (ENVELOPE)";
    $fetchid = handmadeimap_send_command($connection, $fetchcommand);
    $fetchresult = handmadeimap_get_command_result($connection, $fetchid);
    $fetchwasok = handmadeimap_was_command_ok($fetchresult['resultline']);
    if (!$fetchwasok)
        handmadeimap_set_error("FETCH failed with '".$fetchresult['resultline']."'");
    else
        handmadeimap_set_error(null);
    
    $result = array();
    foreach ($fetchresult['infolines'] as $infoline)
        $result[] = handmadeimap_parse_envelope_line($infoline);
    
    return $result;
}

function create_envelope_recipients_xml($recipients, $role)
{
	$messagexml = "";
	
	if (!$recipients)
		return $messagexml;
	
	foreach ($recipients as $object) {
		$display = $object['display'];
		$address = $object['address'];
		$messagexml .= "<recipient>\n";
		$messagexml .= "<address>".$address."</address>\n";
		$messagexml .= "<display>".make_cdata($display)."</display>\n";
		$messagexml .= "<role>".$role."</role>\n";
		$messagexml .= "</recipient>\n";
	}

	return $messagexml;
}

// Given a set of 'envelopes' containing the information for some messages, return
// an XML string representing that message data
function envelopes_to_xml($envelopes, $sentorreceived)
{
    $messagexml = '';
    foreach ($envelopes as $headerinfo)
    {
        $subject = $headerinfo["subject"];

        $imapdate = $headerinfo["date"];
        $phpdate = strtotime($imapdate);
        $date = date( 'Y-m-d H:i:s', $phpdate );

        $from = $headerinfo["from"];
        $fromcomponents = $from[0];
        $fromaddress = $fromcomponents["address"];
        $fromdisplay = $fromcomponents["display"];

        $sourcefolder = $sentorreceived;

        $to = $headerinfo["to"];
        $cc = $headerinfo["cc"];
        $bcc = $headerinfo["bcc"];

        $contenttext = "";
        $contenthtml = "";

        $sourceuid = $headerinfo['messageuid'];

        $messagexml .= "<message>\n";
        $messagexml .= make_tag("messageuid", uniqid("",TRUE));
        $messagexml .= make_cdatatag("sourceuid", $sourceuid);
        $messagexml .= make_cdatatag("subject", $subject);
        
        $messagexml .= make_cdatatag("fromaddress", $fromaddress);
        $messagexml .= make_cdatatag("fromdisplay", $fromdisplay);
        
        $messagexml .= make_tag("deliverytime", $date);

        $messagexml .= "<recipients>\n";

		$messagexml .= create_envelope_recipients_xml($to,"to");
		$messagexml .= create_envelope_recipients_xml($cc,"cc");
		$messagexml .= create_envelope_recipients_xml($bcc,"bcc");
     
        $messagexml .= "</recipients>\n";

        $messagexml .= make_cdatatag("contenttext", $contenttext);
        $messagexml .= make_cdatatag("contenthtml", $contenthtml);
            
        $messagexml .= make_tag("sourcefolder", $sourcefolder);
            
        $messagexml .= "</message>\n";

    }
    
    return $messagexml;
}

// Given a set of 'envelopes' containing the information for some messages, return
// a PHP data structure representing that message data. It looks something like this:
// array( 
//   [0] => array(
//     'subject' => 'Hello Pete',
//     'timestamp' => 1234567890,
//     'from' => array('address' => 'pete@mailana.com', 'display' => 'Pete Warden'),
//     'sourcefolder' => 'received',
//     'to' => array( [0] => array( 'address' => 'pete@petewarden.com', 'display' => 'Pete Warden')),
//     'cc' => array( [0] => array( 'address' => 'bob@example.com', 'display' => 'Bob Example')),
//     'bcc' => array(),
//     'sourceuid' => 'ABCDEF012345679',
//   )
//   ...
// );
//
// The timestamp is in standard UNIX format, seconds from 1970. The sourceuid is the
// unique identifier the ISP has given the message, and the sourcefolder is a way for
// the calling code to keep track of whether you're fetching messages from a sent or
// a received message folder
function envelopes_to_data($envelopes, $sentorreceived)
{
    $result = array();
    foreach ($envelopes as $headerinfo)
    {
        $subject = $headerinfo["subject"];

        $imapdate = $headerinfo["date"];
        $phpdate = strtotime($imapdate);

        $from = $headerinfo["from"];
        $fromcomponents = $from[0];
        $fromaddress = $fromcomponents["address"];
        $fromdisplay = $fromcomponents["display"];

        $sourcefolder = $sentorreceived;

        $to = $headerinfo["to"];
        $cc = $headerinfo["cc"];
        $bcc = $headerinfo["bcc"];

        $sourceuid = $headerinfo['messageuid'];
        
        $result[] = array(
            'subject' => $subject,
            'timestamp' => $phpdate,
            'from' => array('address' => $fromaddress, 'display' => $fromdisplay),
            'sourcefolder' => $sourcefolder,
            'to' => $to,
            'cc' => $cc,
            'bcc' => $bcc,
            'sourceuid' => $sourceuid,
        );
    }
    
    return $result;
}

// Runs the envelope parsing code through a test message that originally caused a lot of problems,
// thanks to its heavy use of quoted literals and parentheses
function handmadeimap_test_envelope_parsing()
{
    $testline = '* 123 FETCH (ENVELOPE ("Fri, 05 Jun 2009 06:39:46 -0400 (EDT)" "ViewSonic 24\" 1080p LCD $229.99, Flip Video Mino 60M Camcorder $89.99, Plantronics Bluetooth Headset $16.99,.." (("Buy.com Deals" NIL "buy.com_offers" "enews.buy.com")) (("Buy.com Deals" NIL "buy.com_offers" "enews.buy.com")) ((NIL NIL "Buycom-s7ou4ipo6sh" "checkout.l.google.com")) ((NIL NIL "Christophe-b7ou4ipo6sh" "checkout.l.google.com")) NIL NIL NIL "<22389195.945191244198463993.JavaMail.sierra-prod@cgl35.prod.google.com>"))';
    
    $testresult = handmadeimap_parse_envelope_line($testline);
    
    print_r($testresult);
}

/**
 * Searches messages bodies with gmail-specific extension to SEARCH.
 * @see http://code.google.com/apis/gmail/imap/#x-gm-raw
 * @param resource $connection Connection resource (returned from handmadeimap_open_connection())
 * @param string $pattern String to search for.
 * @return array Array containing ids of matching messages.
 * @author Paulina Budzoń <paulina.budzon@gmail.com>
 */
function handmadeimap_search_gmail_message($connection, $pattern)
{
    $searchid = handmadeimap_send_command($connection, 'SEARCH X-GM-RAW "'.$pattern.'"');
    $searchresult = handmadeimap_get_command_result($connection, $searchid);
    $searchwasok = handmadeimap_was_command_ok($searchresult['resultline']);
    if (!$searchwasok)
        handmadeimap_set_error("SEARCH failed with '".$searchresult['resultline']."'");
    else
        handmadeimap_set_error(null);

    $result = array();
    foreach ($searchresult['infolines'] as $infoline)
    {
        $parts = explode(' ', $infoline);
        // Remove "* SEARCH"
        unset($parts[0]);
        unset($parts[1]);
    
        $result = array_merge($result, $parts);
    }
    
    return $result;
}

/**
 * Fetches body of a single message.
 * @param resource $connection Connection resource.
 * @param int $messageindex Id of the message.
 * @return string Raw message body. 
 * @author Paulina Budzoń <paulina.budzon@gmail.com>
 */
function handmadeimap_fetch_message_body($connection, $messageindex)
{
    $fetchcommand = "FETCH $messageindex (BODY[TEXT])";

    $fetchid = handmadeimap_send_command($connection, $fetchcommand);
    $fetchresult = handmadeimap_get_command_result($connection, $fetchid);
    $fetchwasok = handmadeimap_was_command_ok($fetchresult['resultline']);
    if (!$fetchwasok)
        handmadeimap_set_error("FETCH failed with '".$fetchresult['resultline']."'");
    else
        handmadeimap_set_error(null);
    
    $result = "";
    
    foreach ($fetchresult['infolines'] as $infoline){
        $result .= str_replace("* $messageindex FETCH (BODY[TEXT] ", "", $infoline);
    }
    
    $result = quoted_printable_decode($result);
    if(preg_match("/Content-Transfer-Encoding: base64(.*)/", $result, $match)){
        return base64_decode($match[1]);
}
    return $result;
}

/**
 * Fetches size of the message according to RFC 822.
 * @param resource $connection Connection resource.
 * @param int $messageindex Id of the message.
 * @return string Message size. 
 * @author Paulina Budzoń <paulina.budzon@gmail.com>
 */
function handmadeimap_fetch_size($connection, $messageindex){
    $fetchcommand = "FETCH $messageindex RFC822.SIZE";
    
    $fetchid = handmadeimap_send_command($connection, $fetchcommand);
    $fetchresult = handmadeimap_get_command_result($connection, $fetchid);
    $fetchwasok = handmadeimap_was_command_ok($fetchresult['resultline']);
    if (!$fetchwasok)
        handmadeimap_set_error("FETCH failed with '".$fetchresult['resultline']."'");
    else
        handmadeimap_set_error(null);
    
    $result = "";
    
    foreach ($fetchresult['infolines'] as $infoline){
        $result = str_replace("* $messageindex FETCH (RFC822.SIZE ", "", $infoline);
        $result = str_replace(")", "", $result);
    }
    return $result;
}

/**
 * Parses body messages returned from FETCH - removes "* xxx FETCH ...".
 * @param int $index Index of the message that was fetched.
 * @param string $message Raw message.
 * @return string Cleared message. 
 * @author Paulina Budzoń <paulina.budzon@gmail.com>
 */
function handmadeimap_parse_message_body($index, $message){
    $message = str_replace("* $index FETCH (BODY[TEXT] ", "", $message);
    return $message;
}

/**
 * Fetches envelope of a single message.
 * @param resource $connection Connection resource.
 * @param int $messageindex Id of the message.
 * @return array Information from the envelope. 
 * @author Paulina Budzoń <paulina.budzon@gmail.com>
 */
function handmadeimap_fetch_envelope($connection, $messageindex)
{
    $fetchcommand = "FETCH $messageindex (ENVELOPE)";
    $fetchid = handmadeimap_send_command($connection, $fetchcommand);
    $fetchresult = handmadeimap_get_command_result($connection, $fetchid);
    $fetchwasok = handmadeimap_was_command_ok($fetchresult['resultline']);
    if (!$fetchwasok)
        handmadeimap_set_error("FETCH failed with '".$fetchresult['resultline']."'");
    else
        handmadeimap_set_error(null);

    $result = array();
    foreach ($fetchresult['infolines'] as $infoline)
        $result[] = handmadeimap_parse_envelope_line($infoline);  
    return $result;
}

/**
 * Fetches flags and envelope of a single message.
 * @param resource $connection Connection resource.
 * @param int $messageindex Id of the message.
 * @return array Basic information, parsed by handmadeimap_parse_flags_line()
 * @author Paulina Budzoń <paulina.budzon@gmail.com>
 */
function handmadeimap_fetch_flags($connection, $messageindex)
{
    $fetchcommand = "FETCH $messageindex (FLAGS ENVELOPE)";
    $fetchid = handmadeimap_send_command($connection, $fetchcommand);
    $fetchresult = handmadeimap_get_command_result($connection, $fetchid);
    $fetchwasok = handmadeimap_was_command_ok($fetchresult['resultline']);
    if (!$fetchwasok)
        handmadeimap_set_error("FETCH failed with '".$fetchresult['resultline']."'");
    else
        handmadeimap_set_error(null);

    $result = array();
    foreach ($fetchresult['infolines'] as $infoline)
        $result[] = handmadeimap_parse_flags_line($infoline);
   
    return $result;
}

/**
 * Parses flags from the message and returns basic information.
 * @param string $line Fetched line.
 * @return array Message id, sender, flags and date sent. 
 * @author Paulina Budzoń <paulina.budzon@gmail.com>
 */
function handmadeimap_parse_flags_line($line){
    $line = string_to_expression_tree($line);
    $from = $line[3][3][2][0][0];
    if($from == "NIL"){
	$from = $line[3][3][2][0][3];
    }
    $r = array(
        "msg_id" => $line[1],
	"from" => $from,
	"flags" => $line[3][1],
	"date" => $line[3][3][0]
    );
    return $r;
}

/**
 * Searches unseen messages sent after given date.
 * @param resource $connection Connection resource.
 * @param int $messageindex Id of the message.
 * @return array List of the messages ids. 
 * @author Paulina Budzoń <paulina.budzon@gmail.com>
 */
function handmadeimap_search_unread_since_date($connection, $date)
{
    $searchid = handmadeimap_send_command($connection, 'SEARCH UNSEEN SINCE '.$date);
    $searchresult = handmadeimap_get_command_result($connection, $searchid);
    $searchwasok = handmadeimap_was_command_ok($searchresult['resultline']);
    if (!$searchwasok)
        handmadeimap_set_error("SEARCH failed with '".$searchresult['resultline']."'");
    else
        handmadeimap_set_error(null);

    $result = array();
    foreach ($searchresult['infolines'] as $infoline)
    {
        $parts = split(' ', $infoline);
        // Remove "* SEARCH"
        unset($parts[0]);
        unset($parts[1]);
    
        $result = array_merge($result, $parts);
    }
    
    return $result;
}

/**
 * Fetches bodies of given messages.
 * @param resource $connection Connection resource.
 * @param array $messagesindex Ids of the messages to fetch.
 * @return array Parsed text of the messages. 
 * @author Paulina Budzoń <paulina.budzon@gmail.com>
 */
function handmadeimap_fetch_messages_body($connection, $messagesindex)
{
    $fetchcommand = "FETCH $messagesindex (BODY[TEXT])"; 
    $fetchid = handmadeimap_send_command($connection, $fetchcommand);
    $fetchresult = handmadeimap_get_command_result($connection, $fetchid);
    $fetchwasok = handmadeimap_was_command_ok($fetchresult['resultline']);
    if (!$fetchwasok)
        handmadeimap_set_error("FETCH failed with '".$fetchresult['resultline']."'");
    else
        handmadeimap_set_error(null);
    
    $result = array();

    foreach ($fetchresult['infolines'] as $infoline){
        $r = quoted_printable_decode($infoline);
	if(preg_match("/Content-Transfer-Encoding: base64(.*)/", $r, $match)){
	    $r = base64_decode($match[1]);
	}
	$result[] = $r;
    }

    return $result;
}


?>