<?php
/***********************************************
* File      :   tnefparser.php
* Project   :   Z-Push
* Descr     :   This is tnef implementation for z-push.
*               It is based on Zarafa's tnef implementation.
*               This class does only simple reading of a
*               tnef stream. Most importantly, we currently
*               only support properties within the message itself,
*               and do not support recipient tables and
*               attachment properties within the TNEF data.
*               This class will accept TNEF streams with data about
*               recipients and attachments, but the information
*               will be ignored.
*
* Created   :   21.06.2008
*
* Copyright 2007 - 2012 Zarafa Deutschland GmbH
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU Affero General Public License, version 3,
* as published by the Free Software Foundation with the following additional
* term according to sec. 7:
*
* According to sec. 7 of the GNU Affero General Public License, version 3,
* the terms of the AGPL are supplemented with the following terms:
*
* "Zarafa" is a registered trademark of Zarafa B.V.
* "Z-Push" is a registered trademark of Zarafa Deutschland GmbH
* The licensing of the Program under the AGPL does not imply a trademark license.
* Therefore any rights, title and interest in our trademarks remain entirely with us.
*
* However, if you propagate an unmodified version of the Program you are
* allowed to use the term "Z-Push" to indicate that you distribute the Program.
* Furthermore you may use our trademarks where it is necessary to indicate
* the intended purpose of a product or service provided you use it in accordance
* with honest practices in industrial or commercial matters.
* If you want to propagate modified versions of the Program under the name "Z-Push",
* you may only do so if you have a written permission by Zarafa Deutschland GmbH
* (to acquire a permission please contact Zarafa at trademark@zarafa.com).
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Affero General Public License for more details.
*
* You should have received a copy of the GNU Affero General Public License
* along with this program.  If not, see <http://www.gnu.org/licenses/>.
*
* Consult LICENSE file for details
************************************************/
/**
 * For more information on tnef refer to:
 * http://msdn.microsoft.com/en-us/library/ms530652(EXCHG.10).aspx
 * http://msdn.microsoft.com/en-us/library/cc425498(EXCHG.80).aspx
 *
 * The mapping between Microsoft Mail IPM classes and those used in
 * MAPI see: http://msdn2.microsoft.com/en-us/library/ms527360.aspx
 */

class TNEFParser {
    const TNEF_SIGNATURE = 0x223e9f78;
    const TNEF_LVL_MESSAGE = 0x01;
    const TNEF_LVL_ATTACHMENT = 0x02;
    const DWORD = 32;
    const WORD = 16;
    const BYTE = 8;

    /**
     * Constructor
     * We need a store in order to get the namedpropers
     *
     * @param mapistore     $store
     * @param array         &$props     properties to be set
     *
     * @access public
     */
    public function TNEFParser(&$store, &$props) {
        $this->store = $store;
        $this->props = $props;
    }

    /**
     * Function reads tnef stream and puts mapi properties into an array.
     *
     * @param string        $tnefstream
     * @param array         &$mapiprops mapi properties
     *
     * @access public
     * @return int
     */
    public function ExtractProps($tnefstream, &$mapiprops) {
        $hresult = NOERROR;
        $signature = 0; //tnef signature - 32 Bit
        $key = 0; //a nonzero 16-bit unsigned integer

        $type = 0; // 32-bit value
        $size = 0; // 32-bit value
        $checksum = 0; //16-bit value
        $component = 0; //8-bit value - either self::TNEF_LVL_MESSAGE or self::TNEF_LVL_ATTACHMENT
        $buffer = "";

        //mapping between Microsoft Mail IPM classes and those in MAPI
        $aClassMap = array(
            "IPM.Microsoft Schedule.MtgReq"      => "IPM.Schedule.Meeting.Request",
            "IPM.Microsoft Schedule.MtgRespP"    => "IPM.Schedule.Meeting.Resp.Pos",
            "IPM.Microsoft Schedule.MtgRespN"    => "IPM.Schedule.Meeting.Resp.Neg",
            "IPM.Microsoft Schedule.MtgRespA"    => "IPM.Schedule.Meeting.Resp.Tent",
            "IPM.Microsoft Schedule.MtgCncl"     => "IPM.Schedule.Meeting.Canceled",
            "IPM.Microsoft Mail.Non-Delivery"    => "Report.IPM.Note.NDR",
            "IPM.Microsoft Mail.Read Receipt"    => "Report.IPM.Note.IPNRN",
            "IPM.Microsoft Mail.Note"            => "IPM.Note",
            "IPM.Microsoft Mail.Note"            => "IPM",
        );

        //read signature
        $hresult = $this->readFromTnefStream($tnefstream, self::DWORD, $signature);
        if ($hresult !== NOERROR) {
            ZLog::Write(LOGLEVEL_WARN, "TNEF: STREAM:".bin2hex($tnefstream));
            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading tnef signature");
            return $hresult;
        }

        //check signature
        if ($signature != self::TNEF_SIGNATURE) {
            ZLog::Write(LOGLEVEL_WARN, "TNEF: Corrupt signature.");
            return MAPI_E_CORRUPT_DATA;
        }

        //read key
        $hresult = $this->readFromTnefStream($tnefstream, self::WORD, $key);
        if ($hresult !== NOERROR) {
            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading tnef key.");
            return $hresult;
        }

        // File is made of blocks, with each a type and size. Component and Key are ignored.
        while(1) {
            //the stream is empty. exit
            if (strlen($tnefstream) == 0) return NOERROR;

            //read component - it is either self::TNEF_LVL_MESSAGE or self::TNEF_LVL_ATTACHMENT
            $hresult = $this->readFromTnefStream($tnefstream, self::BYTE, $component);
            if ($hresult !== NOERROR) {
                $hresult = NOERROR; //EOF -> no error
                return $hresult;
                break;
            }

            //read type
            $hresult = $this->readFromTnefStream($tnefstream, self::DWORD, $type);
            if ($hresult !== NOERROR) {
                ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property type");
                return $hresult;
            }

            //read size
            $hresult = $this->readFromTnefStream($tnefstream, self::DWORD, $size);
            if ($hresult !== NOERROR) {
                ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property size");
                return $hresult;
            }

            if ($size == 0) {
                // do not allocate 0 size data block
                ZLog::Write(LOGLEVEL_WARN, "TNEF: Size is 0. Corrupt data.");
                return MAPI_E_CORRUPT_DATA;
            }

            //read buffer
            $hresult = $this->readBuffer($tnefstream, $size, $buffer);
            if ($hresult !== NOERROR) {
                ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                return $hresult;
            }

            //read checksum
            $hresult = $this->readFromTnefStream($tnefstream, self::WORD, $checksum);
            if ($hresult !== NOERROR) {
                ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property checksum.");
                return $hresult;
            }

            // Loop through all the blocks of the TNEF data. We are only interested
            // in the properties block for now (0x00069003)
            switch ($type) {
                case 0x00069003:
                    $hresult = $this->readMapiProps($buffer, $size, $mapiprops);
                    if ($hresult !== NOERROR) {
                        ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading mapi properties' part.");
                        return $hresult;
                    }
                    break;
                case 0x00078008: // PR_MESSAGE_CLASS
                    $msMailClass = trim($buffer);
                    if (array_key_exists($msMailClass, $aClassMap)) {
                        $messageClass = $aClassMap[$msMailClass];
                    }
                    else {
                        $messageClass = $msMailClass;
                    }
                    $mapiprops[PR_MESSAGE_CLASS] = $messageClass;
                    break;
                case 0x00050008: // PR_OWNER_APPT_ID
                    $mapiprops[PR_OWNER_APPT_ID] = $buffer;
                    break;
                case 0x00040009: // PR_RESPONSE_REQUESTED
                    $mapiprops[PR_RESPONSE_REQUESTED] = $buffer;
                    break;

                // --- TNEF attachemnts ---
                case 0x00069002:
                    break;
                case 0x00018010:        // PR_ATTACH_FILENAME
                    break;
                case 0x00068011:        // PR_ATTACH_RENDERING, extra icon information
                    break;
                case 0x0006800f:        // PR_ATTACH_DATA_BIN, will be set via OpenProperty() in ECTNEF::Finish()
                    break;
                case 0x00069005:        // Attachment property stream
                    break;
                default:
                    // Ignore this block
                    break;
            }
        }
        return NOERROR;
    }

    /**
     * Reads a given number of bits from stream and converts them from little indian in a "normal" order. The function
     * also cuts the tnef stream after reading.
     *
     * @param string        &$tnefstream
     * @param int           $bits
     * @param array         &$element       the read element
     *
     * @access private
     * @return int
     */
    private function readFromTnefStream(&$tnefstream, $bits, &$element) {
        $bytes = $bits / 8;

        $part = substr($tnefstream, 0, $bytes);
        $packs = array();

        switch ($bits) {
            case self::DWORD:
                $packs = unpack("V", $part);
                break;
            case self::WORD:
                $packs = unpack("v", $part);
                break;
            case self::BYTE:
                $packs[1] = ord($part[0]);
                break;
            default:
                $packs = array();
                break;
        }

        if (empty($packs) || !isset($packs[1])) return MAPI_E_CORRUPT_DATA;

        $tnefstream = substr($tnefstream, $bytes);
        $element = $packs[1];
        return NOERROR;
    }

    /**
     * Reads a given number of bytes from stream and puts them into $element. The function
     * also cuts the tnef stream after reading.
     *
     * @param string        &$tnefstream
     * @param int           $bytes
     * @param array         &$element       the read element
     *
     * @access private
     * @return int
     */
    private function readBuffer(&$tnefstream, $bytes, &$element) {
        $element = substr($tnefstream, 0, $bytes);
        $tnefstream = substr($tnefstream, $bytes);
        return NOERROR;

    }

    /**
     * Reads mapi props from buffer into an anrray.
     *
     * @param string        &$buffer
     * @param int           $size
     * @param array         &$mapiprops
     *
     * @access private
     * @return int
     */
    function readMapiProps(&$buffer, $size, &$mapiprops) {
        $nrprops = 0;
        //get number of mapi properties
        $hresult = $this->readFromTnefStream($buffer, self::DWORD, $nrprops);
        if ($hresult !== NOERROR) {
                ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error getting the number of mapi properties in stream.");
                return $hresult;
        }

        $size -= 4;

        ZLog::Write(LOGLEVEL_DEBUG, "TNEF: nrprops:$nrprops");
        //loop through all the properties and add them to our internal list
        while($nrprops) {
            $hresult = $this->readSingleMapiProp($buffer, $size, $read, $mapiprops);
            if ($hresult !== NOERROR) {
                    ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading a mapi property.");
                    ZLog::Write(LOGLEVEL_WARN, "TNEF: result: " . sprintf("0x%X", $hresult));

                    return $hresult;
            }
            $nrprops--;
        }
        return NOERROR;
    }

    /**
     * Reads a single mapi prop.
     *
     * @param string        &$buffer
     * @param int           $size
     * @param mixed         &$read
     * @param array         &$mapiprops
     *
     * @access private
     * @return int
     */
    private function readSingleMapiProp(&$buffer, &$size, &$read, &$mapiprops) {
        $propTag = 0;
        $len = 0;
        $origSize = $size;
        $isNamedId = 0;
        $namedProp = 0;
        $count = 0;
        $mvProp = 0;
        $guid = 0;

        if($size < 8) {
            return MAPI_E_NOT_FOUND;
        }

        $hresult = $this->readFromTnefStream($buffer, self::DWORD, $propTag);
        if ($hresult !== NOERROR) {
            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading a mapi property tag from the stream.");
            return $hresult;
        }
        $size -= 4;
        ZLog::Write(LOGLEVEL_DEBUG, "TNEF: mapi prop type:".dechex(mapi_prop_type($propTag)));
        ZLog::Write(LOGLEVEL_DEBUG, "TNEF: mapi prop tag: 0x".sprintf("%04x", mapi_prop_id($propTag)));
        if (mapi_prop_id($propTag) >= 0x8000) {
        // Named property, first read GUID, then name/id
            if($size < 24) {
                ZLog::Write(LOGLEVEL_WARN, "TNEF: Corrupt guid size for named property:".dechex($propTag));
                return MAPI_E_CORRUPT_DATA;
            }
            //strip GUID & name/id
            $hresult = $this->readBuffer($buffer, 16, $guid);
            if ($hresult !== NOERROR) {
                ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                return $hresult;
            }

            $size -= 16;
             //it is not used and is here only for eventual debugging
            $readableGuid = unpack("VV/v2v/n4n", $guid);
            $readableGuid = sprintf("{%08x-%04x-%04x-%04x-%04x%04x%04x}",$readableGuid['V'], $readableGuid['v1'], $readableGuid['v2'],$readableGuid['n1'],$readableGuid['n2'],$readableGuid['n3'],$readableGuid['n4']);
            ZLog::Write(LOGLEVEL_DEBUG, "TNEF: guid:$readableGuid");
            $hresult = $this->readFromTnefStream($buffer, self::DWORD, $isNamedId);
            if ($hresult !== NOERROR) {
                ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property checksum.");
                return $hresult;
            }
            $size -= 4;

            if($isNamedId != 0) {
                // A string name follows
                //read length of the property
                $hresult = $this->readFromTnefStream($buffer, self::DWORD, $len);
                if ($hresult !== NOERROR) {
                    ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading mapi property's length");
                    return $hresult;
                }
                $size -= 4;
                if ($size < $len) {
                    return MAPI_E_CORRUPT_DATA;
                }
                //read the name of the property, eg Keywords
                $hresult = $this->readBuffer($buffer, $len, $namedProp);
                if ($hresult !== NOERROR) {
                    ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                    return $hresult;
                }

                $size -= $len;

                //Re-align
                $buffer = substr($buffer, ($len & 3 ? 4 - ($len & 3) : 0));
                $size -= $len & 3 ? 4 - ($len & 3) : 0;
            }
            else {
                $hresult = $this->readFromTnefStream($buffer, self::DWORD, $namedProp);
                if ($hresult !== NOERROR) {
                    ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading mapi property's length");
                    return $hresult;
                }
                ZLog::Write(LOGLEVEL_DEBUG, "TNEF: named: 0x".sprintf("%04x", $namedProp));
                $size -= 4;
            }

            if ($this->store !== false) {
                $named = mapi_getidsfromnames($this->store, array($namedProp), array(makeguid($readableGuid)));

                $propTag = mapi_prop_tag(mapi_prop_type($propTag), mapi_prop_id($named[0]));
            }
            else {
                ZLog::Write(LOGLEVEL_WARN, "TNEF: Store not available. It is impossible to get named properties");
            }
        }
        ZLog::Write(LOGLEVEL_DEBUG, "TNEF: mapi prop tag: 0x".sprintf("%04x", mapi_prop_id($propTag))." ".sprintf("%04x", mapi_prop_type($propTag)));
        if($propTag & MV_FLAG) {
            if($size < 4) {
                return MAPI_E_CORRUPT_DATA;
            }
            //read the number of properties
            $hresult = $this->readFromTnefStream($buffer, self::DWORD, $count);
            if ($hresult !== NOERROR) {
                ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading number of properties for:".dechex($propTag));
                return $hresult;
            }
            $size -= 4;
        }
        else {
            $count = 1;
        }

        for ($mvProp = 0; $mvProp < $count; $mvProp++) {
            switch(mapi_prop_type($propTag) & ~MV_FLAG ) {
                case PT_I2:
                case PT_LONG:
                    $hresult = $this->readBuffer($buffer, 4, $value);
                    if ($hresult !== NOERROR) {
                        ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                        return $hresult;
                    }
                    $value = unpack("V", $value);
                    $value = intval($value[1], 16);

                    if($propTag & MV_FLAG) {
                        $mapiprops[$propTag][] = $value;
                    }
                    else {
                        $mapiprops[$propTag] = $value;
                    }
                    $size -= 4;
                    ZLog::Write(LOGLEVEL_DEBUG, "TNEF: int or long propvalue:".$value);
                    break;

                case PT_R4:
                    if($propTag & MV_FLAG) {
                        $hresult = $this->readBuffer($buffer, 4, $mapiprops[$propTag][]);

                        if ($hresult !== NOERROR) {
                            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                            return $hresult;
                        }
                    }
                    else {
                        $hresult = $this->readBuffer($buffer, 4, $mapiprops[$propTag]);
                        if ($hresult !== NOERROR) {
                            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                            return $hresult;
                        }
                    }
                    $size -= 4;
                    ZLog::Write(LOGLEVEL_DEBUG, "TNEF: propvalue:".$mapiprops[$propTag]);
                    break;

                case PT_BOOLEAN:
                    $hresult = $this->readBuffer($buffer, 4, $mapiprops[$propTag]);
                        if ($hresult !== NOERROR) {
                            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                            return $hresult;
                        }
                    $size -= 4;
                    //reported by dw2412
                    //cast to integer as it evaluates to 1 or 0 because
                    //a non empty string evaluates to true :(
                    $mapiprops[$propTag] = (integer) bin2hex($mapiprops[$propTag]{0});
                    ZLog::Write(LOGLEVEL_DEBUG, "TNEF: propvalue:".$mapiprops[$propTag]);
                    break;


                case PT_SYSTIME:
                    if($size < 8) {
                        return MAPI_E_CORRUPT_DATA;
                    }
                    if($propTag & MV_FLAG) {
                        $hresult = $this->readBuffer($buffer, 8, $mapiprops[$propTag][]);
                        if ($hresult !== NOERROR) {
                            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                            return $hresult;
                        }
                    }
                    else {
                        $hresult = $this->readBuffer($buffer, 8, $mapiprops[$propTag]);
                        if ($hresult !== NOERROR) {
                            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                            return $hresult;
                        }
                    }
                    //we have to convert the filetime to an unixtime timestamp
                    $filetime = unpack("V2v", $mapiprops[$propTag]);
                    //php on 64-bit systems converts unsigned values differently than on 32 bit systems
                    //we need this "fix" in order to get the same values on both types of systems
                    $filetime['v2'] = substr(sprintf("%08x",$filetime['v2']), -8);
                    $filetime['v1'] = substr(sprintf("%08x",$filetime['v1']), -8);

                    $filetime = hexdec($filetime['v2'].$filetime['v1']);
                    $filetime = ($filetime - 116444736000000000) / 10000000;
                    $mapiprops[$propTag] = $filetime;
                    // we have to set the start and end times separately because the standard PR_START_DATE and PR_END_DATE aren't enough
                    if ($propTag == PR_START_DATE) {
                        $mapiprops[$this->props["starttime"]] = $mapiprops[$this->props["commonstart"]] = $filetime;
                    }
                    if ($propTag == PR_END_DATE) {
                        $mapiprops[$this->props["endtime"]] = $mapiprops[$this->props["commonend"]] = $filetime;
                    }
                    $size -= 8;
                    ZLog::Write(LOGLEVEL_DEBUG, "TNEF: propvalue:".$mapiprops[$propTag]);
                    break;

                case PT_DOUBLE:
                case PT_CURRENCY:
                case PT_I8:
                case PT_APPTIME:
                    if($size < 8) {
                        return MAPI_E_CORRUPT_DATA;
                    }
                    if($propTag & MV_FLAG) {
                        $hresult = $this->readBuffer($buffer, 8, $mapiprops[$propTag][]);
                        if ($hresult !== NOERROR) {
                            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                            return $hresult;
                        }
                    }
                    else {
                        $hresult = $this->readBuffer($buffer, 8, $mapiprops[$propTag]);
                        if ($hresult !== NOERROR) {
                            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                            return $hresult;
                        }
                    }
                    $size -= 8;
                    ZLog::Write(LOGLEVEL_DEBUG, "TNEF: propvalue:".$mapiprops[$propTag]);
                    break;

                case PT_STRING8:
                    if($size < 8) {
                        return MAPI_E_CORRUPT_DATA;
                    }
                    // Skip next 4 bytes, it's always '1' (ULONG)
                    $buffer = substr($buffer, 4);
                    $size -= 4;

                    //read length of the property
                    $hresult = $this->readFromTnefStream($buffer, self::DWORD, $len);
                    if ($hresult !== NOERROR) {
                        ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading mapi property's length");
                        return $hresult;
                    }
                    $size -= 4;
                    if ($size < $len) {
                        return MAPI_E_CORRUPT_DATA;
                    }

                    if ($propTag & MV_FLAG) {
                        $hresult = $this->readBuffer($buffer, $len, $mapiprops[$propTag][]);
                        if ($hresult !== NOERROR) {
                            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                            return $hresult;
                        }
                    }
                    else {
                        $hresult = $this->readBuffer($buffer, $len, $mapiprops[$propTag]);
                        if ($hresult !== NOERROR) {
                            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                            return $hresult;
                        }
                    }
                    //location fix. it looks like tnef uses this value for location
                    if (mapi_prop_id($propTag) == 0x8342) {
                        $mapiprops[$this->props["location"]] = $mapiprops[$propTag];
                        unset($mapiprops[$propTag]);
                    }

                    $size -= $len;

                    //Re-align
                    $buffer = substr($buffer, ($len & 3 ? 4 - ($len & 3) : 0));
                    $size -= $len & 3 ? 4 - ($len & 3) : 0;
                    ZLog::Write(LOGLEVEL_DEBUG, "TNEF: propvalue:".$mapiprops[$propTag]);
                    break;

                case PT_UNICODE:
                    if($size < 8) {
                        return MAPI_E_CORRUPT_DATA;
                    }
                    // Skip next 4 bytes, it's always '1' (ULONG)
                    $buffer = substr($buffer, 4);
                    $size -= 4;

                    //read length of the property
                    $hresult = $this->readFromTnefStream($buffer, self::DWORD, $len);
                    if ($hresult !== NOERROR) {
                        ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading mapi property's length");
                        return $hresult;
                    }
                    $size -= 4;
                    if ($size < $len) {
                        return MAPI_E_CORRUPT_DATA;
                    }
                    //currently unicode strings are not supported bz mapi_setprops, so we'll use PT_STRING8
                    $propTag = mapi_prop_tag(PT_STRING8, mapi_prop_id($propTag));

                    if ($propTag & MV_FLAG) {
                        $hresult = $this->readBuffer($buffer, $len, $mapiprops[$propTag][]);
                        if ($hresult !== NOERROR) {
                            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                            return $hresult;
                        }
                    }
                    else {
                        $hresult = $this->readBuffer($buffer, $len, $mapiprops[$propTag]);
                        if ($hresult !== NOERROR) {
                            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                            return $hresult;
                        }
                    }

                    //location fix. it looks like tnef uses this value for location
                    if (mapi_prop_id($propTag) == 0x8342) {
                        $mapiprops[$this->props["location"]] = iconv("UCS-2","windows-1252", $mapiprops[$propTag]);
                        unset($mapiprops[$propTag]);
                    }

                    //convert from unicode to windows encoding
                    if (isset($mapiprops[$propTag])) $mapiprops[$propTag] = iconv("UCS-2","windows-1252", $mapiprops[$propTag]);
                    $size -= $len;

                    //Re-align
                    $buffer = substr($buffer, ($len & 3 ? 4 - ($len & 3) : 0));
                    $size -= $len & 3 ? 4 - ($len & 3) : 0;
                    if (isset($mapiprops[$propTag])) ZLog::Write(LOGLEVEL_DEBUG, "TNEF: propvalue:".$mapiprops[$propTag]);
                    break;

                case PT_OBJECT:        // PST sends PT_OBJECT data. Treat as PT_BINARY
                case PT_BINARY:
                    if($size < self::BYTE) {
                        return MAPI_E_CORRUPT_DATA;
                    }
                    // Skip next 4 bytes, it's always '1' (ULONG)
                    $buffer = substr($buffer, 4);
                    $size -= 4;

                    //read length of the property
                    $hresult = $this->readFromTnefStream($buffer, self::DWORD, $len);
                    if ($hresult !== NOERROR) {
                        ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading mapi property's length");
                        return $hresult;
                    }
                    $size -= 4;

                    if (mapi_prop_type($propTag) == PT_OBJECT) {
                        // IMessage guid [ 0x00020307 C000 0000 0000 0000 00 00 00 46 ]
                        $buffer = substr($buffer, 16);
                        $size -= 16;
                        $len -= 16;
                    }

                    if ($size < $len) {
                        return MAPI_E_CORRUPT_DATA;
                    }

                    if ($propTag & MV_FLAG) {
                        $hresult = $this->readBuffer($buffer, $len, $mapiprops[$propTag][]);
                        if ($hresult !== NOERROR) {
                            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                            return $hresult;
                        }
                    }
                    else {
                        $hresult = $this->readBuffer($buffer, $len, $mapiprops[$propTag]);
                        if ($hresult !== NOERROR) {
                            ZLog::Write(LOGLEVEL_WARN, "TNEF: There was an error reading stream property buffer");
                            return $hresult;
                        }
                    }

                    $size -= $len;

                    //Re-align
                    $buffer = substr($buffer, ($len & 3 ? 4 - ($len & 3) : 0));
                    $size -= $len & 3 ? 4 - ($len & 3) : 0;
                    ZLog::Write(LOGLEVEL_DEBUG, "TNEF: propvalue:".bin2hex($mapiprops[$propTag]));
                    break;

                default:
                    return MAPI_E_INVALID_PARAMETER;
                    break;
            }
        }
        return NOERROR;
    }
}
?>