Subversion Repositories Applications.papyrus

Rev

Rev 474 | Blame | Last modification | View Log | RSS feed

<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */ 
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1                                                                                      |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
// +------------------------------------------------------------------------------------------------------+
// | This library is free software; you can redistribute it and/or                                        |
// | modify it under the terms of the GNU General Public                                                  |
// | License as published by the Free Software Foundation; either                                         |
// | version 2.1 of the License, or (at your option) any later version.                                   |
// |                                                                                                      |
// | This library 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                                    |
// | General Public License for more details.                                                             |
// |                                                                                                      |
// | You should have received a copy of the GNU General Public                                            |
// | License along with this library; if not, write to the Free Software                                  |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: ezmlm-parser.php,v 1.3 2007-04-19 15:34:35 neiluj Exp $
/**
* Application projet
*
* classe ezmlm_parser pour lire les fichiers d index de ezmlm-idx
*
*@package projet
//Auteur original : ?? recupere dans ezmlm-php
*@author        Alexandre Granier <alexandre@tela-botanica.org>
*@copyright     Tela-Botanica 2000-2004
*@version       $Revision: 1.3 $
// +------------------------------------------------------------------------------------------------------+
*/


// +------------------------------------------------------------------------------------------------------+
// |                                            ENTETE du PROGRAMME                                       |
// +------------------------------------------------------------------------------------------------------+

// $Id: ezmlm-parser.php,v 1.3 2007-04-19 15:34:35 neiluj Exp $
//

require_once("ezmlm.php");
require_once("Mail/mimeDecode.php") ;
// CLASS: ezmlm-parser
class ezmlm_parser extends ezmlm_php {
    var $headers;           // the full untouched headers of the message
    var $body;              // the full untouched (but decoded) body (this is not $this->parts[0]->body)
        var $parts;             // all the parts, if it is a multipart message. each part is an ezmlm_parser object...

    // Here's the most accessed headers, everything else can be
    // accessed from the $this->headers array.
    var $to;                // To:
    var $from;              // From:
    var $date;              // Date:
    var $subject;           // Subject:
    var $replyto;           // Reply-To:
    var $contenttype;       // Content-Type:

        var $multipart;         // TRUE if the message is a multipart message

        var $msgfile;           // if parsed from a file, this is the filename...

        // functions

        /**
     * recent_msgs renvoie les derniers messages de la liste de discussion
     * ezmlm
     *
     * (
     * [0] => Array
     *   (
     *       [1] => sujet
     *       [2] => date en anglais
     *       [3] => le hash de l auteur
     *       [4] => l auteur
     *   )
     * [1] => ...
     * )
     * @param   int     le nombre de message a renvoye
     * @return array    un tableau contenant les messages
     * @access public
     */
        function recent_msgs($show = 20, $month = "") {
                
                $repertoire_archive = opendir($this->listdir . "/archive/");

                $repertoire_message = array() ;
                $dernier_repertoire = 0 ;
                while (false !== ($item = readdir($repertoire_archive))) {
                        // $item contient les noms des repertoires
                        // on ne garde que ceux qui sont des chiffres

                        if (preg_match('/[0-9]+/', $item)) {
                                // on ouvre le fichier d index de chaque repertoire
                                if ((int) $item > $dernier_repertoire) $dernier_repertoire = (int) $item;
                        
                        }
                }
                $tableau_message = array() ;
                $compteur_message = 0 ;
                $fichier_index = fopen ($this->listdir.'/archive/'.$dernier_repertoire.'/index', 'r') ;
                while (!feof($fichier_index)) {
                                // Recuperation du numero de message, du hash du sujet et du sujet
                                $temp = fgets($fichier_index, 4096);
                                preg_match('/([0-9]+): ([a-z]+) (.*)/', $temp, $match) ;
                                
                                // dans la seconde on recupere la date, hash auteur et auteur
                                $temp = fgets($fichier_index, 4096);
                                preg_match('/\t([0-9]+) ([a-zA-Z][a-zA-Z][a-zA-Z]) ([0-9][0-9][0-9][0-9]) ([^;]+);([^ ]*) (.*)/', $temp, $match_deuxieme_ligne) ;
                                if ($match[1] != '') {
                                $tableau_message[$match[1]] = array ($match[2], $match[3], 
                                                                        $match_deuxieme_ligne[1].' '.$match_deuxieme_ligne[2].' '.$match_deuxieme_ligne[3], 
                                                                        $match_deuxieme_ligne[5], 
                                                                        $match_deuxieme_ligne[6]);
                                }
                        }
                        fclose ($fichier_index);
                // on renverse le tableau pour afficher les derniers messages en premier
                $tableau_message = array_reverse($tableau_message, true);
                
                // On compte le nombre de message, s il est inferieur $show et que l on est
                // pas dans le premier index, on ouvre le fichier precedent et recupere
                // le n dernier message
                
                if (count ($tableau_message) < $show && $dernier_repertoire != '0') {
                        $avant_dernier_repertoire = $dernier_repertoire - 1 ;
                        // On utilise file_get_contents pour renverser le fichier
                        $fichier_index = array_reverse(
                                                                        explode ("\n", 
                                                                                preg_replace ('/\n$/', '', 
                                                                                        file_get_contents ($this->listdir.'/archive/'.$avant_dernier_repertoire.'/index')) ), true) ;
                        reset ($fichier_index);
                        //var_dump ($fichier_index);
                        
                        for ($i = count ($tableau_message); $i <= $show; $i++) {
                                // Recuperation du numero de message, du hash du sujet et du sujet
                                // dans la seconde on recupere la date, hash auteur et auteur

                                preg_match('/\t([0-9]+) ([a-zA-Z][a-zA-Z][a-zA-Z]) ([0-9][0-9][0-9][0-9]) ([^;]+);([^ ]*) (.*)/', 
                                                                        current ($fichier_index), $match_deuxieme_ligne) ;
                                preg_match('/([0-9]+): ([a-z]+) (.*)/', next($fichier_index), $match) ;
                                next ($fichier_index);
                                
                                if ($match[1] != '') {
                                $tableau_message[$match[1]] = array ($match[2], $match[3], 
                                                                        $match_deuxieme_ligne[1].' '.$match_deuxieme_ligne[2].' '.$match_deuxieme_ligne[3], 
                                                                        $match_deuxieme_ligne[5], 
                                                                        $match_deuxieme_ligne[6]);
                                }
                        }
                } else {
                        // Si le nombre de message est > $show on limite le tableau de retour
                        $tableau_message = array_slice($tableau_message, 0, $show, true);
                }
                        
                
                return $tableau_message ;
        }


        // parse_file - opens a file and feeds the data to parse, file can be relative to the listdir
        function parse_file($file,$simple = FALSE) {
                if (!is_file($file)) {
                        if (is_file($this->listdir . "/" . $file)) { $file = $this->listdir . "/" . $file; }
                        else if (is_file($this->listdir . "/archive/" . $file)) { $file = $this->listdir . "/archive/" . $file; }
                        else { return FALSE; }
                }

                $this->msgfile = $file;
        $data = '' ;
                $fd = fopen($file, "r");
                while (!feof($fd)) { $data .= fgets($fd,4096); }
                fclose($fd);
                return $this->parse($data,$simple);
        }

    // parse_file_headers - ouvre un fichier et analyse les entête
        function parse_file_headers($file,$simple = FALSE) {
                if (!is_file($file)) {
                        if (is_file($this->listdir . "/" . $file)) { $file = $this->listdir . "/" . $file; }
                        else if (is_file($this->listdir . "/archive/" . $file)) { $file = $this->listdir . "/archive/" . $file; }
                        else { return FALSE; }
                }

                $this->msgfile = $file;
        $data = file_get_contents ($file) ;
        $message = file_get_contents($file) ;
        $mimeDecode = new Mail_mimeDecode($message) ;
        $mailDecode = $mimeDecode->decode() ;
        return $mailDecode ;
        }

        // this does all of the work (well it calls two functions that do all the work :)
        // all the decoding a part breaking follows RFC2045 (http://www.faqs.org/rfcs/rfc2045.html)
        function parse($data,$simple = FALSE) {
        
                if (($this->_get_headers($data,$simple)) && $this->_get_body($data,$simple)) { return TRUE; }
                return FALSE;
        }

        // all of these are internal functions, you shouldn't call them directly...

        // _ct_parse: parse Content-Type headers -> $ct[0] = Full header, $ct[1] = Content-Type, $ct[2] ... $ct[n] = AP's
        function _ct_parse() {
                $instr = $this->headers['content-type'];
                preg_replace('/\(.*\)/','',$instr); // strip rfc822 comments
                if (preg_match('/: /', $instr)) {
                        $ct = preg_split('/:/',trim($instr),2);
                        $ct = preg_split('/;/',trim($ct[1]));
                } else {
                        $ct = preg_split('/;/',trim($instr));
                }
                if (isset($ct[1])) $attrs = preg_split('/[\s\n]/',$ct[1]);
                $i = 2;
                $ct[1] = $ct[0];
                $ct[0] = $this->headers['content-type'];
        if (isset($attrs) && is_array($attrs)) {
            while (list($key, $val) = each($attrs)) {
                if ($val == '') continue;
                $ap = preg_split('/=/',$val,2);
                if (preg_match('/^"/',$ap[1])) { $ap[1] = substr($ap[1],1,strlen($ap[1])-2); }
                $ct[$i] = $ap;
                $i++;
            }
        }
                // are we a multipart message?
                if (preg_match('/^multipart/i', $ct[1])) { $this->multipart = TRUE; }

                return $ct;
        }

        // _get_headers: pulls the headers out of the data and builds the $this->headers array
        function _get_headers($data,$simple = FALSE) {
                $lines = preg_split('/\n/', $data);
                while (list($key, $val) = each($lines)) {
                        $val = trim($val);
                        if ($val == "") break;
                        if (preg_match('/^From[^:].*$/', $val)) continue;       /* strips out any From lines added by the MTA */

                        $hdr = preg_split('/: /', $val, 2);
                        if (count($hdr) == 1) {
                                // this is a continuation of the last header (like a recieved from line)
                                $this->headers[$last] .= $val;
                        } else {
                                $this->headers[strtolower($hdr[0])] = $hdr[1];
                //echo htmlspecialchars($this->headers['from'])."<br />" ;
                                $last = strtolower($hdr[0]);
                        }
                }
        // ajout alex
        // pour supprimer le problème des ISO...
        // a déplacer ailleur, et appelé avant affichage
        
        if (preg_match ('/windows-[0-9][0-9][0-9][0-9]/', $this->headers['subject'], $nombre)) {
            $reg_exp = $nombre[0] ;
        } else {
            $reg_exp = 'ISO-8859-15?' ;
        }
        if (preg_match ('/UTF/i', $this->headers['subject'])) $reg_exp = 'UTF-8' ;
        preg_match_all ("/=\?$reg_exp\?(Q|B)\?(.*?)\?=/i", $this->headers['subject'], $match, PREG_PATTERN_ORDER)  ;
        for ($i = 0; $i < count ($match[0]); $i++ ) {
            
                if ($match[1][$i] == 'Q') {
                    $decode = quoted_printable_decode ($match[2][$i]) ;
                } elseif ($match[1][$i] == 'B') {
                    $decode = base64_decode ($match[2][$i]) ;
                }
                $decode = preg_replace ("/_/", " ", $decode) ;
            if ($reg_exp == 'UTF-8') {
                $decode = utf8_decode ($decode) ;
            } 
            $this->headers['subject'] = str_replace ($match[0][$i], $decode, $this->headers['subject']) ;
        }
                // sanity anyone?
                if (!$this->headers['content-type']) { $this->headers['content-type'] = "text/plain; charset=us-ascii"; }
                if (!$simple) { $this->headers['content-type'] = $this->_ct_parse(); }
        

                return TRUE;
        }

        // _get_body: pulls the body out of the data and fills $this->body, decoding the data if nessesary.
        function _get_body($data,$simple = FALSE) {
                $lines = preg_split('/\n/', $data);
                $doneheaders = FALSE;
        
                $data = "";
                while (list($key,$val) = each($lines)) {
            //echo htmlspecialchars($val)."<br>";
                        if (($val == '') and (!$doneheaders)) {
                                $doneheaders = TRUE;
                                continue;
                        } else if ($doneheaders) {
                                $data .= $val . "\n";
                        }
                }

                // now here comes the fun part... decoding.
                switch($this->headers['content-transfer-encoding']) {
                        case 'binary':
                                $this->body = $this->_cte_8bit($this->_cte_qp($this->_cte_binary($data)),$simple);
                                break;

                        case 'base64':
                                $this->body = $this->_cte_8bit($this->_cte_qp($this->_cte_base64($data)),$simple);
                                break;

                        case 'quoted-printable':
                                $this->body = $this->_cte_8bit($this->_cte_qp($data),$simple);
                                break;

                        case '8bit':
                                $this->body = $this->_cte_8bit($data,$simple);
                                break;

                        case '7bit':            // 7bit doesn't need to be decoded
                        default:                // And the fall through as well...
                                $this->body = $data;
                                break;
                }
        //echo  $this->headers['content-type'][2][1];
        if (isset($this->headers['content-type'][2][1]) && $this->headers['content-type'][2][1] == 'UTF-8') {
                //$this->body = utf8_decode ($this->body) ;
                //echo quoted_printable_decode(utf8_decode ($this->body)) ;
        }
                if ($simple) { return TRUE; }

                // if we are a multipart message then break up the parts and decode, set the appropriate variables.
                // here comes the best part about making ezmlm-php OOP. since each part is just really a little message
                // in itself each part becomes a new parser object and all the wheels turn again... :)
                if ($this->multipart) {
            
                        $boundary = '';
                        for ($i = 2; $i <= count($this->headers['content-type']); $i++) {
                                if (preg_match('/boundary/i', $this->headers['content-type'][$i][0])) {
                                        $boundary = $this->headers['content-type'][$i][1];
                    
                                }
                        }
                        if ($boundary != '') {
                                $this->_get_parts($this->body,$boundary);
                        } else {
                                // whoopps... something's not right here. we were told that the message is supposed
                                // to be a multipart message, yet the boundary wasn't set in the content type.
                                // mark the message as non multipart and add a message to the top of the body.
                                $this->multipart = FALSE;
                                $this->body = "PARSER ERROR:\nWHILE PARSING THIS MESSAGE AS A MULTIPART MESSAGE AS DEFINED IN RFC2045 THE BOUNDARY IDENTIFIER WAS NOT FOUND!\nTHIS MESSAGE WILL NOT DISPLAY CORRECTLY!\n\n" . $this->body;
                        }
                }

                return TRUE;
        }

        // _get_parts: breaks up $data into parts based on $boundary following the rfc specs
        // detailed in section 5 of RFC2046 (http://www.faqs.org/rfcs/rfc2046.html)
        // After the parts are broken up they are then turned into parser objects and the
        // resulting array of parts is set to $this->parts;
        function _get_parts($data,$boundary) {
                $inpart = -1;
                $lines = preg_split('/\n/', $data);
        // La première partie contient l'avertissement pour les client mail ne supportant pas
        // multipart, elle est stocké dans parts[-1]
                while(list($key,$val) = each($lines)) {
                        if ($val == "--" . $boundary) { $inpart++; continue; } // start of a part
                        else if ($val == "--" . $boundary . "--") { break; } // the end of the last part
                        else { $parts[$inpart] .= $val . "\n"; }
                }
        
                for ($i = 0; $i < count($parts) - 1; $i++) {    // On saute la première partie
                        $part[$i] = new ezmlm_parser();
                        $part[$i]->parse($parts[$i]);
                        $this->parts[$i] = $part[$i];
            //echo $this->parts[$i]."<br>" ;
                }
        
        }       

        // _cte_8bit: decode a content transfer encoding of 8bit
        // NOTE: this function is a little bit special. Since the end result will be displayed in
        // a web browser _cte_8bit decodes ASCII characters > 127 (the US-ASCII table) into the
        // html ordinal equivilant, it also ensures that the messages content-type is changed
        // to include text/html if it changes anything...
        function _cte_8bit($data,$simple = FALSE) {
                if ($simple) { return $data; }
                $changed = FALSE;
                $chars = preg_split('//',$data);
                while (list($key,$val) = each($chars)) {
                        if (ord($val) > 127) { $out .= '&#' . ord($val) . ';'; $changed = TRUE; }
                        else { $out .= $val; }
                }
                if ($changed) { $this->headers['content-type'][1] = 'text/html'; }
                return $out;
        }

        // _cte_binary: decode a content transfer encoding of binary
        function _cte_binary($data) { return $data; }

        // _cte_base64: decode a content transfer encoding of base64
        function _cte_base64($data) { return base64_decode($data); }

        // _cte_qp: decode a content transfer encoding of quoted_printable
        function _cte_qp($data) {
                // For the time being we'll use PHP's function, it seems to work well enough.
                return quoted_printable_decode($data);
        }
    
}