WebSVN – Applications.projet – Diff – /trunk/classes/ezmlm-php-2.0/ezmlm-parser.php


<?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.4 2008-08-25 15:20:54 alexandre_tb 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.4 $
// +------------------------------------------------------------------------------------------------------+
*/
 
 
// +------------------------------------------------------------------------------------------------------+
// |                                            ENTETE du PROGRAMME                                       |
// +------------------------------------------------------------------------------------------------------+
 
// $Id: ezmlm-parser.php,v 1.4 2008-08-25 15:20:54 alexandre_tb 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() ;
 
 
 
 
 
 
		$numArchive = $this->getNumArchive();
		$dernier_repertoire = floor($numArchive / 100);
 
 
		
		$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 ;
	}
 
 
	/**
     * num_msg_lest_week renvoie le nombre de messages echanges la derniere semaine
     *
     * @return int	un entier
     * @access public
     */
	function num_msg_last_week() {
		
		$repertoire_archive = opendir($this->listdir . "/archive/");
 
		$repertoire_message = array() ;
		$dernier_repertoire = 0 ;
		
		
		// Recherche du dernier repertorie
		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_date = array() ;
		$tableau_final = array();
		$compteur_message = '0' ;
		
		while ($dernier_repertoire != -1) {
			if (!file_exists($this->listdir.'/archive/'.$dernier_repertoire.'/index')) return '0';
			
			// Si le fichier index est vide, c'est probable que la liste soit nouvelle,
			// on retourne 0
			if (filesize($this->listdir.'/archive/'.$dernier_repertoire.'/index') == 0) return '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]) ([0-9][0-9]:[0-9][0-9]:[0-9][0-9]) ([^;]+);([^ ]*) (.*)/', $temp, $match_deuxieme_ligne) ;
				if ($match[1] != '') {
					$date = $match_deuxieme_ligne[1].' '.$match_deuxieme_ligne[2].' '.$match_deuxieme_ligne[3].' '.$match_deuxieme_ligne[4];
					
					$tableau_date[] = $date;
				}
			}
			fclose ($fichier_index);
			$tableau_date = array_reverse($tableau_date);
			foreach ($tableau_date as $date) {
				
				if (strtotime ($date) > time() - 7 * 24 * 60 *60) {
					$tableau_final[] = $date;
					$compteur_message++;	
				} else {
					return $compteur_message;
				}
			}
			$dernier_repertoire--;	
		}
	}
	
	// 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);
	}
    
}

Rev 208	Rev 310
1	`<?php`	1	`<?php`
2	`/vim: set expandtab tabstop=4 shiftwidth=4: /`	2	`/vim: set expandtab tabstop=4 shiftwidth=4: /`
3	`// +------------------------------------------------------------------------------------------------------+`	3	`// +------------------------------------------------------------------------------------------------------+`
4	`// \| PHP version 4.1 \|`	4	`// \| PHP version 4.1 \|`
5	`// +------------------------------------------------------------------------------------------------------+`	5	`// +------------------------------------------------------------------------------------------------------+`
6	`// \| Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) \|`	6	`// \| Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) \|`
7	`// +------------------------------------------------------------------------------------------------------+`	7	`// +------------------------------------------------------------------------------------------------------+`
8	`// \| This library is free software; you can redistribute it and/or \|`	8	`// \| This library is free software; you can redistribute it and/or \|`
9	`// \| modify it under the terms of the GNU General Public \|`	9	`// \| modify it under the terms of the GNU General Public \|`
10	`// \| License as published by the Free Software Foundation; either \|`	10	`// \| License as published by the Free Software Foundation; either \|`
11	`// \| version 2.1 of the License, or (at your option) any later version. \|`	11	`// \| version 2.1 of the License, or (at your option) any later version. \|`
12	`// \| \|`	12	`// \| \|`
13	`// \| This library is distributed in the hope that it will be useful, \|`	13	`// \| This library is distributed in the hope that it will be useful, \|`
14	`// \| but WITHOUT ANY WARRANTY; without even the implied warranty of \|`	14	`// \| but WITHOUT ANY WARRANTY; without even the implied warranty of \|`
15	`// \| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU \|`	15	`// \| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU \|`
16	`// \| General Public License for more details. \|`	16	`// \| General Public License for more details. \|`
17	`// \| \|`	17	`// \| \|`
18	`// \| You should have received a copy of the GNU General Public \|`	18	`// \| You should have received a copy of the GNU General Public \|`
19	`// \| License along with this library; if not, write to the Free Software \|`	19	`// \| License along with this library; if not, write to the Free Software \|`
20	`// \| Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA \|`	20	`// \| Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA \|`
21	`// +------------------------------------------------------------------------------------------------------+`	21	`// +------------------------------------------------------------------------------------------------------+`
22	`// CVS : $Id: ezmlm-parser.php,v 1.3 2007-04-19 15:34:35 neiluj Exp $`	22	`// CVS : $Id: ezmlm-parser.php,v 1.4 2008-08-25 15:20:54 alexandre_tb Exp $`
23	`/**`	23	`/**`
24	`* Application projet`	24	`* Application projet`
25	`*`	25	`*`
26	`* classe ezmlm_parser pour lire les fichiers d index de ezmlm-idx`	26	`* classe ezmlm_parser pour lire les fichiers d index de ezmlm-idx`
27	`*`	27	`*`
28	`*@package projet`	28	`*@package projet`
29	`//Auteur original : ?? recupere dans ezmlm-php`	29	`//Auteur original : ?? recupere dans ezmlm-php`
30	`*@author Alexandre Granier <alexandre@tela-botanica.org>`	30	`*@author Alexandre Granier <alexandre@tela-botanica.org>`
31	`*@copyright Tela-Botanica 2000-2004`	31	`*@copyright Tela-Botanica 2000-2004`
32	`*@version $Revision: 1.3 $`	32	`*@version $Revision: 1.4 $`
33	`// +------------------------------------------------------------------------------------------------------+`	33	`// +------------------------------------------------------------------------------------------------------+`
34	`*/`	34	`*/`
35		35
36		36
37	`// +------------------------------------------------------------------------------------------------------+`	37	`// +------------------------------------------------------------------------------------------------------+`
38	`// \| ENTETE du PROGRAMME \|`	38	`// \| ENTETE du PROGRAMME \|`
39	`// +------------------------------------------------------------------------------------------------------+`	39	`// +------------------------------------------------------------------------------------------------------+`
40		40
41	`// $Id: ezmlm-parser.php,v 1.3 2007-04-19 15:34:35 neiluj Exp $`	41	`// $Id: ezmlm-parser.php,v 1.4 2008-08-25 15:20:54 alexandre_tb Exp $`
42	`//`	42	`//`
43		43
44	`require_once("ezmlm.php");`	44	`require_once("ezmlm.php");`
45	`require_once("Mail/mimeDecode.php") ;`	45	`require_once("Mail/mimeDecode.php") ;`
46	`// CLASS: ezmlm-parser`	46	`// CLASS: ezmlm-parser`
47	`class ezmlm_parser extends ezmlm_php {`	47	`class ezmlm_parser extends ezmlm_php {`
48	`var $headers; // the full untouched headers of the message`	48	`var $headers; // the full untouched headers of the message`
49	`var $body; // the full untouched (but decoded) body (this is not $this->parts[0]->body)`	49	`var $body; // the full untouched (but decoded) body (this is not $this->parts[0]->body)`
50	`var $parts; // all the parts, if it is a multipart message. each part is an ezmlm_parser object...`	50	`var $parts; // all the parts, if it is a multipart message. each part is an ezmlm_parser object...`
51		51
52	`// Here's the most accessed headers, everything else can be`	52	`// Here's the most accessed headers, everything else can be`
53	`// accessed from the $this->headers array.`	53	`// accessed from the $this->headers array.`
54	`var $to; // To:`	54	`var $to; // To:`
55	`var $from; // From:`	55	`var $from; // From:`
56	`var $date; // Date:`	56	`var $date; // Date:`
57	`var $subject; // Subject:`	57	`var $subject; // Subject:`
58	`var $replyto; // Reply-To:`	58	`var $replyto; // Reply-To:`
59	`var $contenttype; // Content-Type:`	59	`var $contenttype; // Content-Type:`
60		60
61	`var $multipart; // TRUE if the message is a multipart message`	61	`var $multipart; // TRUE if the message is a multipart message`
62		62
63	`var $msgfile; // if parsed from a file, this is the filename...`	63	`var $msgfile; // if parsed from a file, this is the filename...`
64		64
65	`// functions`	65	`// functions`
66		66
67	`/**`	67	`/**`
68	`* recent_msgs renvoie les derniers messages de la liste de discussion`	68	`* recent_msgs renvoie les derniers messages de la liste de discussion`
69	`* ezmlm`	69	`* ezmlm`
70	`*`	70	`*`
71	`* (`	71	`* (`
72	`* [0] => Array`	72	`* [0] => Array`
73	`* (`	73	`* (`
74	`* [1] => sujet`	74	`* [1] => sujet`
75	`* [2] => date en anglais`	75	`* [2] => date en anglais`
76	`* [3] => le hash de l auteur`	76	`* [3] => le hash de l auteur`
77	`* [4] => l auteur`	77	`* [4] => l auteur`
78	`* )`	78	`* )`
79	`* [1] => ...`	79	`* [1] => ...`
80	`* )`	80	`* )`
81	`* @param int le nombre de message a renvoye`	81	`* @param int le nombre de message a renvoye`
82	`* @return array un tableau contenant les messages`	82	`* @return array un tableau contenant les messages`
83	`* @access public`	83	`* @access public`
84	`*/`	84	`*/`
85	`function recent_msgs($show = 20, $month = "") {`	85	`function recent_msgs($show = 20, $month = "") {`
86		86
87	`$repertoire_archive = opendir($this->listdir . "/archive/");`	87	`$repertoire_archive = opendir($this->listdir . "/archive/");`
88		88
89	`$repertoire_message = array() ;`	89	`$repertoire_message = array() ;`
90	`$dernier_repertoire = 0 ;`	-
91	`while (false !== ($item = readdir($repertoire_archive))) {`	-
92	`// $item contient les noms des repertoires`	-
93	`// on ne garde que ceux qui sont des chiffres`	-
94		90
95	`if (preg_match('/[0-9]+/', $item)) {`	-
96	`// on ouvre le fichier d index de chaque repertoire`	91	`$numArchive = $this->getNumArchive();`
97	`if ((int) $item > $dernier_repertoire) $dernier_repertoire = (int) $item;`	92	`$dernier_repertoire = floor($numArchive / 100);`
98		-
99	`}`	-
100	`}`	93
101	`$tableau_message = array() ;`	94	`$tableau_message = array() ;`
102	`$compteur_message = 0 ;`	95	`$compteur_message = 0 ;`
103	`$fichier_index = fopen ($this->listdir.'/archive/'.$dernier_repertoire.'/index', 'r') ;`	96	`$fichier_index = fopen ($this->listdir.'/archive/'.$dernier_repertoire.'/index', 'r') ;`
104	`while (!feof($fichier_index)) {`	97	`while (!feof($fichier_index)) {`
105	`// Recuperation du numero de message, du hash du sujet et du sujet`	98	`// Recuperation du numero de message, du hash du sujet et du sujet`
106	`$temp = fgets($fichier_index, 4096);`	99	`$temp = fgets($fichier_index, 4096);`
107	`preg_match('/([0-9]+): ([a-z]+) (.*)/', $temp, $match) ;`	100	`preg_match('/([0-9]+): ([a-z]+) (.*)/', $temp, $match) ;`
108		101
109	`// dans la seconde on recupere la date, hash auteur et auteur`	102	`// dans la seconde on recupere la date, hash auteur et auteur`
110	`$temp = fgets($fichier_index, 4096);`	103	`$temp = fgets($fichier_index, 4096);`
111	`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) ;`	104	`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) ;`
112	`if ($match[1] != '') {`	105	`if ($match[1] != '') {`
113	`$tableau_message[$match[1]] = array ($match[2], $match[3],`	106	`$tableau_message[$match[1]] = array ($match[2], $match[3],`
114	`$match_deuxieme_ligne[1].' '.$match_deuxieme_ligne[2].' '.$match_deuxieme_ligne[3],`	107	`$match_deuxieme_ligne[1].' '.$match_deuxieme_ligne[2].' '.$match_deuxieme_ligne[3],`
115	`$match_deuxieme_ligne[5],`	108	`$match_deuxieme_ligne[5],`
116	`$match_deuxieme_ligne[6]);`	109	`$match_deuxieme_ligne[6]);`
117	`}`	110	`}`
118	`}`	111	`}`
119	`fclose ($fichier_index);`	112	`fclose ($fichier_index);`
120	`// on renverse le tableau pour afficher les derniers messages en premier`	113	`// on renverse le tableau pour afficher les derniers messages en premier`
121	`$tableau_message = array_reverse($tableau_message, true);`	114	`$tableau_message = array_reverse($tableau_message, true);`
122		115
123	`// On compte le nombre de message, s il est inferieur $show et que l on est`	116	`// On compte le nombre de message, s il est inferieur $show et que l on est`
124	`// pas dans le premier index, on ouvre le fichier precedent et recupere`	117	`// pas dans le premier index, on ouvre le fichier precedent et recupere`
125	`// le n dernier message`	118	`// le n dernier message`
126		119
127	`if (count ($tableau_message) < $show && $dernier_repertoire != '0') {`	120	`if (count ($tableau_message) < $show && $dernier_repertoire != '0') {`
128	`$avant_dernier_repertoire = $dernier_repertoire - 1 ;`	121	`$avant_dernier_repertoire = $dernier_repertoire - 1 ;`
129	`// On utilise file_get_contents pour renverser le fichier`	122	`// On utilise file_get_contents pour renverser le fichier`
130	`$fichier_index = array_reverse(`	123	`$fichier_index = array_reverse(`
131	`explode ("\n",`	124	`explode ("\n",`
132	`preg_replace ('/\n$/', '',`	125	`preg_replace ('/\n$/', '',`
133	`file_get_contents ($this->listdir.'/archive/'.$avant_dernier_repertoire.'/index')) ), true) ;`	126	`file_get_contents ($this->listdir.'/archive/'.$avant_dernier_repertoire.'/index')) ), true) ;`
134	`reset ($fichier_index);`	127	`reset ($fichier_index);`
135	`//var_dump ($fichier_index);`	128	`//var_dump ($fichier_index);`
136		129
137	`for ($i = count ($tableau_message); $i <= $show; $i++) {`	130	`for ($i = count ($tableau_message); $i <= $show; $i++) {`
138	`// Recuperation du numero de message, du hash du sujet et du sujet`	131	`// Recuperation du numero de message, du hash du sujet et du sujet`
139	`// dans la seconde on recupere la date, hash auteur et auteur`	132	`// dans la seconde on recupere la date, hash auteur et auteur`
140		133
141	`preg_match('/\t([0-9]+) ([a-zA-Z][a-zA-Z][a-zA-Z]) ([0-9][0-9][0-9][0-9]) ([^;]+);([^ ]) (.)/',`	134	`preg_match('/\t([0-9]+) ([a-zA-Z][a-zA-Z][a-zA-Z]) ([0-9][0-9][0-9][0-9]) ([^;]+);([^ ]) (.)/',`
142	`current ($fichier_index), $match_deuxieme_ligne) ;`	135	`current ($fichier_index), $match_deuxieme_ligne) ;`
143	`preg_match('/([0-9]+): ([a-z]+) (.*)/', next($fichier_index), $match) ;`	136	`preg_match('/([0-9]+): ([a-z]+) (.*)/', next($fichier_index), $match) ;`
144	`next ($fichier_index);`	137	`next ($fichier_index);`
145		138
146	`if ($match[1] != '') {`	139	`if ($match[1] != '') {`
147	`$tableau_message[$match[1]] = array ($match[2], $match[3],`	140	`$tableau_message[$match[1]] = array ($match[2], $match[3],`
148	`$match_deuxieme_ligne[1].' '.$match_deuxieme_ligne[2].' '.$match_deuxieme_ligne[3],`	141	`$match_deuxieme_ligne[1].' '.$match_deuxieme_ligne[2].' '.$match_deuxieme_ligne[3],`
149	`$match_deuxieme_ligne[5],`	142	`$match_deuxieme_ligne[5],`
150	`$match_deuxieme_ligne[6]);`	143	`$match_deuxieme_ligne[6]);`
151	`}`	144	`}`
152	`}`	145	`}`
153	`} else {`	146	`} else {`
154	`// Si le nombre de message est > $show on limite le tableau de retour`	147	`// Si le nombre de message est > $show on limite le tableau de retour`
155	`$tableau_message = array_slice($tableau_message, 0, $show, true);`	148	`$tableau_message = array_slice($tableau_message, 0, $show, true);`
156	`}`	149	`}`
157		150
158		151
159	`return $tableau_message ;`	152	`return $tableau_message ;`
160	`}`	153	`}`
161		154
-		155
-		156	`/**`
-		157	`* num_msg_lest_week renvoie le nombre de messages echanges la derniere semaine`
-		158	`*`
-		159	`* @return int un entier`
-		160	`* @access public`
-		161	`*/`
-		162	`function num_msg_last_week() {`
-		163
-		164	`$repertoire_archive = opendir($this->listdir . "/archive/");`
-		165
-		166	`$repertoire_message = array() ;`
-		167	`$dernier_repertoire = 0 ;`
-		168
-		169
-		170	`// Recherche du dernier repertorie`
-		171	`while (false !== ($item = readdir($repertoire_archive))) {`
-		172	`// $item contient les noms des repertoires`
-		173	`// on ne garde que ceux qui sont des chiffres`
-		174
-		175	`if (preg_match('/[0-9]+/', $item)) {`
-		176	`// on ouvre le fichier d index de chaque repertoire`
-		177	`if ((int) $item > $dernier_repertoire) $dernier_repertoire = (int) $item;`
-		178
-		179	`}`
-		180	`}`
-		181	`$tableau_date = array() ;`
-		182	`$tableau_final = array();`
-		183	`$compteur_message = '0' ;`
-		184
-		185	`while ($dernier_repertoire != -1) {`
-		186	`if (!file_exists($this->listdir.'/archive/'.$dernier_repertoire.'/index')) return '0';`
-		187
-		188	`// Si le fichier index est vide, c'est probable que la liste soit nouvelle,`
-		189	`// on retourne 0`
-		190	`if (filesize($this->listdir.'/archive/'.$dernier_repertoire.'/index') == 0) return '0';`
-		191
-		192	`$fichier_index = fopen ($this->listdir.'/archive/'.$dernier_repertoire.'/index', 'r') ;`
-		193
-		194	`while (!feof($fichier_index)) {`
-		195	`// Recuperation du numero de message, du hash du sujet et du sujet`
-		196	`$temp = fgets($fichier_index, 4096);`
-		197	`preg_match('/([0-9]+): ([a-z]+) (.*)/', $temp, $match) ;`
-		198
-		199	`// dans la seconde on recupere la date, hash auteur et auteur`
-		200	`$temp = fgets($fichier_index, 4096);`
-		201	`preg_match('/\t([0-9]+) ([a-zA-Z][a-zA-Z][a-zA-Z]) ([0-9][0-9][0-9][0-9]) ([0-9][0-9]:[0-9][0-9]:[0-9][0-9]) ([^;]+);([^ ]) (.)/', $temp, $match_deuxieme_ligne) ;`
-		202	`if ($match[1] != '') {`
-		203	`$date = $match_deuxieme_ligne[1].' '.$match_deuxieme_ligne[2].' '.$match_deuxieme_ligne[3].' '.$match_deuxieme_ligne[4];`
-		204
-		205	`$tableau_date[] = $date;`
-		206	`}`
-		207	`}`
-		208	`fclose ($fichier_index);`
-		209	`$tableau_date = array_reverse($tableau_date);`
-		210	`foreach ($tableau_date as $date) {`
-		211
-		212	`if (strtotime ($date) > time() - 7 * 24 * 60 *60) {`
-		213	`$tableau_final[] = $date;`
-		214	`$compteur_message++;`
-		215	`} else {`
-		216	`return $compteur_message;`
-		217	`}`
-		218	`}`
-		219	`$dernier_repertoire--;`
-		220	`}`
-		221	`}`
162		222
163	`// parse_file - opens a file and feeds the data to parse, file can be relative to the listdir`	223	`// parse_file - opens a file and feeds the data to parse, file can be relative to the listdir`
164	`function parse_file($file,$simple = FALSE) {`	224	`function parse_file($file,$simple = FALSE) {`
165	`if (!is_file($file)) {`	225	`if (!is_file($file)) {`
166	`if (is_file($this->listdir . "/" . $file)) { $file = $this->listdir . "/" . $file; }`	226	`if (is_file($this->listdir . "/" . $file)) { $file = $this->listdir . "/" . $file; }`
167	`else if (is_file($this->listdir . "/archive/" . $file)) { $file = $this->listdir . "/archive/" . $file; }`	227	`else if (is_file($this->listdir . "/archive/" . $file)) { $file = $this->listdir . "/archive/" . $file; }`
168	`else { return FALSE; }`	228	`else { return FALSE; }`
169	`}`	229	`}`
170		230
171	`$this->msgfile = $file;`	231	`$this->msgfile = $file;`
172	`$data = '' ;`	232	`$data = '' ;`
173	`$fd = fopen($file, "r");`	233	`$fd = fopen($file, "r");`
174	`while (!feof($fd)) { $data .= fgets($fd,4096); }`	234	`while (!feof($fd)) { $data .= fgets($fd,4096); }`
175	`fclose($fd);`	235	`fclose($fd);`
176	`return $this->parse($data,$simple);`	236	`return $this->parse($data,$simple);`
177	`}`	237	`}`
178		238
179	`// parse_file_headers - ouvre un fichier et analyse les entête`	239	`// parse_file_headers - ouvre un fichier et analyse les entête`
180	`function parse_file_headers($file,$simple = FALSE) {`	240	`function parse_file_headers($file,$simple = FALSE) {`
181	`if (!is_file($file)) {`	241	`if (!is_file($file)) {`
182	`if (is_file($this->listdir . "/" . $file)) { $file = $this->listdir . "/" . $file; }`	242	`if (is_file($this->listdir . "/" . $file)) { $file = $this->listdir . "/" . $file; }`
183	`else if (is_file($this->listdir . "/archive/" . $file)) { $file = $this->listdir . "/archive/" . $file; }`	243	`else if (is_file($this->listdir . "/archive/" . $file)) { $file = $this->listdir . "/archive/" . $file; }`
184	`else { return FALSE; }`	244	`else { return FALSE; }`
185	`}`	245	`}`
186		246
187	`$this->msgfile = $file;`	247	`$this->msgfile = $file;`
188	`$data = file_get_contents ($file) ;`	248	`$data = file_get_contents ($file) ;`
189	`$message = file_get_contents($file) ;`	249	`$message = file_get_contents($file) ;`
190	`$mimeDecode = new Mail_mimeDecode($message) ;`	250	`$mimeDecode = new Mail_mimeDecode($message) ;`
191	`$mailDecode = $mimeDecode->decode() ;`	251	`$mailDecode = $mimeDecode->decode() ;`
192	`return $mailDecode ;`	252	`return $mailDecode ;`
193	`}`	253	`}`
194		254
195	`// this does all of the work (well it calls two functions that do all the work :)`	255	`// this does all of the work (well it calls two functions that do all the work :)`
196	`// all the decoding a part breaking follows RFC2045 (http://www.faqs.org/rfcs/rfc2045.html)`	256	`// all the decoding a part breaking follows RFC2045 (http://www.faqs.org/rfcs/rfc2045.html)`
197	`function parse($data,$simple = FALSE) {`	257	`function parse($data,$simple = FALSE) {`
198		258
199	`if (($this->_get_headers($data,$simple)) && $this->_get_body($data,$simple)) { return TRUE; }`	259	`if (($this->_get_headers($data,$simple)) && $this->_get_body($data,$simple)) { return TRUE; }`
200	`return FALSE;`	260	`return FALSE;`
201	`}`	261	`}`
202		262
203	`// all of these are internal functions, you shouldn't call them directly...`	263	`// all of these are internal functions, you shouldn't call them directly...`
204		264
205	`// _ct_parse: parse Content-Type headers -> $ct[0] = Full header, $ct[1] = Content-Type, $ct[2] ... $ct[n] = AP's`	265	`// _ct_parse: parse Content-Type headers -> $ct[0] = Full header, $ct[1] = Content-Type, $ct[2] ... $ct[n] = AP's`
206	`function _ct_parse() {`	266	`function _ct_parse() {`
207	`$instr = $this->headers['content-type'];`	267	`$instr = $this->headers['content-type'];`
208	`preg_replace('/\(.*\)/','',$instr); // strip rfc822 comments`	268	`preg_replace('/\(.*\)/','',$instr); // strip rfc822 comments`
209	`if (preg_match('/: /', $instr)) {`	269	`if (preg_match('/: /', $instr)) {`
210	`$ct = preg_split('/:/',trim($instr),2);`	270	`$ct = preg_split('/:/',trim($instr),2);`
211	`$ct = preg_split('/;/',trim($ct[1]));`	271	`$ct = preg_split('/;/',trim($ct[1]));`
212	`} else {`	272	`} else {`
213	`$ct = preg_split('/;/',trim($instr));`	273	`$ct = preg_split('/;/',trim($instr));`
214	`}`	274	`}`
215	`if (isset($ct[1])) $attrs = preg_split('/[\s\n]/',$ct[1]);`	275	`if (isset($ct[1])) $attrs = preg_split('/[\s\n]/',$ct[1]);`
216	`$i = 2;`	276	`$i = 2;`
217	`$ct[1] = $ct[0];`	277	`$ct[1] = $ct[0];`
218	`$ct[0] = $this->headers['content-type'];`	278	`$ct[0] = $this->headers['content-type'];`
219	`if (isset($attrs) && is_array($attrs)) {`	279	`if (isset($attrs) && is_array($attrs)) {`
220	`while (list($key, $val) = each($attrs)) {`	280	`while (list($key, $val) = each($attrs)) {`
221	`if ($val == '') continue;`	281	`if ($val == '') continue;`
222	`$ap = preg_split('/=/',$val,2);`	282	`$ap = preg_split('/=/',$val,2);`
223	`if (preg_match('/^"/',$ap[1])) { $ap[1] = substr($ap[1],1,strlen($ap[1])-2); }`	283	`if (preg_match('/^"/',$ap[1])) { $ap[1] = substr($ap[1],1,strlen($ap[1])-2); }`
224	`$ct[$i] = $ap;`	284	`$ct[$i] = $ap;`
225	`$i++;`	285	`$i++;`
226	`}`	286	`}`
227	`}`	287	`}`
228	`// are we a multipart message?`	288	`// are we a multipart message?`
229	`if (preg_match('/^multipart/i', $ct[1])) { $this->multipart = TRUE; }`	289	`if (preg_match('/^multipart/i', $ct[1])) { $this->multipart = TRUE; }`
230		290
231	`return $ct;`	291	`return $ct;`
232	`}`	292	`}`
233		293
234	`// _get_headers: pulls the headers out of the data and builds the $this->headers array`	294	`// _get_headers: pulls the headers out of the data and builds the $this->headers array`
235	`function _get_headers($data,$simple = FALSE) {`	295	`function _get_headers($data,$simple = FALSE) {`
236	`$lines = preg_split('/\n/', $data);`	296	`$lines = preg_split('/\n/', $data);`
237	`while (list($key, $val) = each($lines)) {`	297	`while (list($key, $val) = each($lines)) {`
238	`$val = trim($val);`	298	`$val = trim($val);`
239	`if ($val == "") break;`	299	`if ($val == "") break;`
240	`if (preg_match('/^From[^:].$/', $val)) continue; / strips out any From lines added by the MTA */`	300	`if (preg_match('/^From[^:].$/', $val)) continue; / strips out any From lines added by the MTA */`
241		301
242	`$hdr = preg_split('/: /', $val, 2);`	302	`$hdr = preg_split('/: /', $val, 2);`
243	`if (count($hdr) == 1) {`	303	`if (count($hdr) == 1) {`
244	`// this is a continuation of the last header (like a recieved from line)`	304	`// this is a continuation of the last header (like a recieved from line)`
245	`$this->headers[$last] .= $val;`	305	`$this->headers[$last] .= $val;`
246	`} else {`	306	`} else {`
247	`$this->headers[strtolower($hdr[0])] = $hdr[1];`	307	`$this->headers[strtolower($hdr[0])] = $hdr[1];`
248	`//echo htmlspecialchars($this->headers['from'])."<br />" ;`	308	`//echo htmlspecialchars($this->headers['from'])."<br />" ;`
249	`$last = strtolower($hdr[0]);`	309	`$last = strtolower($hdr[0]);`
250	`}`	310	`}`
251	`}`	311	`}`
252	`// ajout alex`	312	`// ajout alex`
253	`// pour supprimer le problème des ISO...`	313	`// pour supprimer le problème des ISO...`
254	`// a déplacer ailleur, et appelé avant affichage`	314	`// a déplacer ailleur, et appelé avant affichage`
255		315
256	`if (preg_match ('/windows-[0-9][0-9][0-9][0-9]/', $this->headers['subject'], $nombre)) {`	316	`if (preg_match ('/windows-[0-9][0-9][0-9][0-9]/', $this->headers['subject'], $nombre)) {`
257	`$reg_exp = $nombre[0] ;`	317	`$reg_exp = $nombre[0] ;`
258	`} else {`	318	`} else {`
259	`$reg_exp = 'ISO-8859-15?' ;`	319	`$reg_exp = 'ISO-8859-15?' ;`
260	`}`	320	`}`
261	`if (preg_match ('/UTF/i', $this->headers['subject'])) $reg_exp = 'UTF-8' ;`	321	`if (preg_match ('/UTF/i', $this->headers['subject'])) $reg_exp = 'UTF-8' ;`
262	`preg_match_all ("/=\?$reg_exp\?(Q\|B)\?(.*?)\?=/i", $this->headers['subject'], $match, PREG_PATTERN_ORDER) ;`	322	`preg_match_all ("/=\?$reg_exp\?(Q\|B)\?(.*?)\?=/i", $this->headers['subject'], $match, PREG_PATTERN_ORDER) ;`
263	`for ($i = 0; $i < count ($match[0]); $i++ ) {`	323	`for ($i = 0; $i < count ($match[0]); $i++ ) {`
264		324
265	`if ($match[1][$i] == 'Q') {`	325	`if ($match[1][$i] == 'Q') {`
266	`$decode = quoted_printable_decode ($match[2][$i]) ;`	326	`$decode = quoted_printable_decode ($match[2][$i]) ;`
267	`} elseif ($match[1][$i] == 'B') {`	327	`} elseif ($match[1][$i] == 'B') {`
268	`$decode = base64_decode ($match[2][$i]) ;`	328	`$decode = base64_decode ($match[2][$i]) ;`
269	`}`	329	`}`
270	`$decode = preg_replace ("/_/", " ", $decode) ;`	330	`$decode = preg_replace ("/_/", " ", $decode) ;`
271	`if ($reg_exp == 'UTF-8') {`	331	`if ($reg_exp == 'UTF-8') {`
272	`$decode = utf8_decode ($decode) ;`	332	`$decode = utf8_decode ($decode) ;`
273	`}`	333	`}`
274	`$this->headers['subject'] = str_replace ($match[0][$i], $decode, $this->headers['subject']) ;`	334	`$this->headers['subject'] = str_replace ($match[0][$i], $decode, $this->headers['subject']) ;`
275	`}`	335	`}`
276	`// sanity anyone?`	336	`// sanity anyone?`
277	`if (!$this->headers['content-type']) { $this->headers['content-type'] = "text/plain; charset=us-ascii"; }`	337	`if (!$this->headers['content-type']) { $this->headers['content-type'] = "text/plain; charset=us-ascii"; }`
278	`if (!$simple) { $this->headers['content-type'] = $this->_ct_parse(); }`	338	`if (!$simple) { $this->headers['content-type'] = $this->_ct_parse(); }`
279		339
280		340
281	`return TRUE;`	341	`return TRUE;`
282	`}`	342	`}`
283		343
284	`// _get_body: pulls the body out of the data and fills $this->body, decoding the data if nessesary.`	344	`// _get_body: pulls the body out of the data and fills $this->body, decoding the data if nessesary.`
285	`function _get_body($data,$simple = FALSE) {`	345	`function _get_body($data,$simple = FALSE) {`
286	`$lines = preg_split('/\n/', $data);`	346	`$lines = preg_split('/\n/', $data);`
287	`$doneheaders = FALSE;`	347	`$doneheaders = FALSE;`
288		348
289	`$data = "";`	349	`$data = "";`
290	`while (list($key,$val) = each($lines)) {`	350	`while (list($key,$val) = each($lines)) {`
291	`//echo htmlspecialchars($val)."<br>";`	351	`//echo htmlspecialchars($val)."<br>";`
292	`if (($val == '') and (!$doneheaders)) {`	352	`if (($val == '') and (!$doneheaders)) {`
293	`$doneheaders = TRUE;`	353	`$doneheaders = TRUE;`
294	`continue;`	354	`continue;`
295	`} else if ($doneheaders) {`	355	`} else if ($doneheaders) {`
296	`$data .= $val . "\n";`	356	`$data .= $val . "\n";`
297	`}`	357	`}`
298	`}`	358	`}`
299		359
300	`// now here comes the fun part... decoding.`	360	`// now here comes the fun part... decoding.`
301	`switch($this->headers['content-transfer-encoding']) {`	361	`switch($this->headers['content-transfer-encoding']) {`
302	`case 'binary':`	362	`case 'binary':`
303	`$this->body = $this->_cte_8bit($this->_cte_qp($this->_cte_binary($data)),$simple);`	363	`$this->body = $this->_cte_8bit($this->_cte_qp($this->_cte_binary($data)),$simple);`
304	`break;`	364	`break;`
305		365
306	`case 'base64':`	366	`case 'base64':`
307	`$this->body = $this->_cte_8bit($this->_cte_qp($this->_cte_base64($data)),$simple);`	367	`$this->body = $this->_cte_8bit($this->_cte_qp($this->_cte_base64($data)),$simple);`
308	`break;`	368	`break;`
309		369
310	`case 'quoted-printable':`	370	`case 'quoted-printable':`
311	`$this->body = $this->_cte_8bit($this->_cte_qp($data),$simple);`	371	`$this->body = $this->_cte_8bit($this->_cte_qp($data),$simple);`
312	`break;`	372	`break;`
313		373
314	`case '8bit':`	374	`case '8bit':`
315	`$this->body = $this->_cte_8bit($data,$simple);`	375	`$this->body = $this->_cte_8bit($data,$simple);`
316	`break;`	376	`break;`
317		377
318	`case '7bit': // 7bit doesn't need to be decoded`	378	`case '7bit': // 7bit doesn't need to be decoded`
319	`default: // And the fall through as well...`	379	`default: // And the fall through as well...`
320	`$this->body = $data;`	380	`$this->body = $data;`
321	`break;`	381	`break;`
322	`}`	382	`}`
323	`//echo $this->headers['content-type'][2][1];`	383	`//echo $this->headers['content-type'][2][1];`
324	`if (isset($this->headers['content-type'][2][1]) && $this->headers['content-type'][2][1] == 'UTF-8') {`	384	`if (isset($this->headers['content-type'][2][1]) && $this->headers['content-type'][2][1] == 'UTF-8') {`
325	`//$this->body = utf8_decode ($this->body) ;`	385	`//$this->body = utf8_decode ($this->body) ;`
326	`//echo quoted_printable_decode(utf8_decode ($this->body)) ;`	386	`//echo quoted_printable_decode(utf8_decode ($this->body)) ;`
327	`}`	387	`}`
328	`if ($simple) { return TRUE; }`	388	`if ($simple) { return TRUE; }`
329		389
330	`// if we are a multipart message then break up the parts and decode, set the appropriate variables.`	390	`// if we are a multipart message then break up the parts and decode, set the appropriate variables.`
331	`// here comes the best part about making ezmlm-php OOP. since each part is just really a little message`	391	`// here comes the best part about making ezmlm-php OOP. since each part is just really a little message`
332	`// in itself each part becomes a new parser object and all the wheels turn again... :)`	392	`// in itself each part becomes a new parser object and all the wheels turn again... :)`
333	`if ($this->multipart) {`	393	`if ($this->multipart) {`
334		394
335	`$boundary = '';`	395	`$boundary = '';`
336	`for ($i = 2; $i <= count($this->headers['content-type']); $i++) {`	396	`for ($i = 2; $i <= count($this->headers['content-type']); $i++) {`
337	`if (preg_match('/boundary/i', $this->headers['content-type'][$i][0])) {`	397	`if (preg_match('/boundary/i', $this->headers['content-type'][$i][0])) {`
338	`$boundary = $this->headers['content-type'][$i][1];`	398	`$boundary = $this->headers['content-type'][$i][1];`
339		399
340	`}`	400	`}`
341	`}`	401	`}`
342	`if ($boundary != '') {`	402	`if ($boundary != '') {`
343	`$this->_get_parts($this->body,$boundary);`	403	`$this->_get_parts($this->body,$boundary);`
344	`} else {`	404	`} else {`
345	`// whoopps... something's not right here. we were told that the message is supposed`	405	`// whoopps... something's not right here. we were told that the message is supposed`
346	`// to be a multipart message, yet the boundary wasn't set in the content type.`	406	`// to be a multipart message, yet the boundary wasn't set in the content type.`
347	`// mark the message as non multipart and add a message to the top of the body.`	407	`// mark the message as non multipart and add a message to the top of the body.`
348	`$this->multipart = FALSE;`	408	`$this->multipart = FALSE;`
349	`$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;`	409	`$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;`
350	`}`	410	`}`
351	`}`	411	`}`
352		412
353	`return TRUE;`	413	`return TRUE;`
354	`}`	414	`}`
355		415
356	`// _get_parts: breaks up $data into parts based on $boundary following the rfc specs`	416	`// _get_parts: breaks up $data into parts based on $boundary following the rfc specs`
357	`// detailed in section 5 of RFC2046 (http://www.faqs.org/rfcs/rfc2046.html)`	417	`// detailed in section 5 of RFC2046 (http://www.faqs.org/rfcs/rfc2046.html)`
358	`// After the parts are broken up they are then turned into parser objects and the`	418	`// After the parts are broken up they are then turned into parser objects and the`
359	`// resulting array of parts is set to $this->parts;`	419	`// resulting array of parts is set to $this->parts;`
360	`function _get_parts($data,$boundary) {`	420	`function _get_parts($data,$boundary) {`
361	`$inpart = -1;`	421	`$inpart = -1;`
362	`$lines = preg_split('/\n/', $data);`	422	`$lines = preg_split('/\n/', $data);`
363	`// La première partie contient l'avertissement pour les client mail ne supportant pas`	423	`// La première partie contient l'avertissement pour les client mail ne supportant pas`
364	`// multipart, elle est stocké dans parts[-1]`	424	`// multipart, elle est stocké dans parts[-1]`
365	`while(list($key,$val) = each($lines)) {`	425	`while(list($key,$val) = each($lines)) {`
366	`if ($val == "--" . $boundary) { $inpart++; continue; } // start of a part`	426	`if ($val == "--" . $boundary) { $inpart++; continue; } // start of a part`
367	`else if ($val == "--" . $boundary . "--") { break; } // the end of the last part`	427	`else if ($val == "--" . $boundary . "--") { break; } // the end of the last part`
368	`else { $parts[$inpart] .= $val . "\n"; }`	428	`else { $parts[$inpart] .= $val . "\n"; }`
369	`}`	429	`}`
370		430
371	`for ($i = 0; $i < count($parts) - 1; $i++) { // On saute la première partie`	431	`for ($i = 0; $i < count($parts) - 1; $i++) { // On saute la première partie`
372	`$part[$i] = new ezmlm_parser();`	432	`$part[$i] = new ezmlm_parser();`
373	`$part[$i]->parse($parts[$i]);`	433	`$part[$i]->parse($parts[$i]);`
374	`$this->parts[$i] = $part[$i];`	434	`$this->parts[$i] = $part[$i];`
375	`//echo $this->parts[$i]."<br>" ;`	435	`//echo $this->parts[$i]."<br>" ;`
376	`}`	436	`}`
377		437
378	`}`	438	`}`
379		439
380	`// _cte_8bit: decode a content transfer encoding of 8bit`	440	`// _cte_8bit: decode a content transfer encoding of 8bit`
381	`// NOTE: this function is a little bit special. Since the end result will be displayed in`	441	`// NOTE: this function is a little bit special. Since the end result will be displayed in`
382	`// a web browser _cte_8bit decodes ASCII characters > 127 (the US-ASCII table) into the`	442	`// a web browser _cte_8bit decodes ASCII characters > 127 (the US-ASCII table) into the`
383	`// html ordinal equivilant, it also ensures that the messages content-type is changed`	443	`// html ordinal equivilant, it also ensures that the messages content-type is changed`
384	`// to include text/html if it changes anything...`	444	`// to include text/html if it changes anything...`
385	`function _cte_8bit($data,$simple = FALSE) {`	445	`function _cte_8bit($data,$simple = FALSE) {`
386	`if ($simple) { return $data; }`	446	`if ($simple) { return $data; }`
387	`$changed = FALSE;`	447	`$changed = FALSE;`
388	`$chars = preg_split('//',$data);`	448	`$chars = preg_split('//',$data);`
389	`while (list($key,$val) = each($chars)) {`	449	`while (list($key,$val) = each($chars)) {`
390	`if (ord($val) > 127) { $out .= '&#' . ord($val) . ';'; $changed = TRUE; }`	450	`if (ord($val) > 127) { $out .= '&#' . ord($val) . ';'; $changed = TRUE; }`
391	`else { $out .= $val; }`	451	`else { $out .= $val; }`
392	`}`	452	`}`
393	`if ($changed) { $this->headers['content-type'][1] = 'text/html'; }`	453	`if ($changed) { $this->headers['content-type'][1] = 'text/html'; }`
394	`return $out;`	454	`return $out;`
395	`}`	455	`}`
396		456
397	`// _cte_binary: decode a content transfer encoding of binary`	457	`// _cte_binary: decode a content transfer encoding of binary`
398	`function _cte_binary($data) { return $data; }`	458	`function _cte_binary($data) { return $data; }`
399		459
400	`// _cte_base64: decode a content transfer encoding of base64`	460	`// _cte_base64: decode a content transfer encoding of base64`
401	`function _cte_base64($data) { return base64_decode($data); }`	461	`function _cte_base64($data) { return base64_decode($data); }`
402		462
403	`// _cte_qp: decode a content transfer encoding of quoted_printable`	463	`// _cte_qp: decode a content transfer encoding of quoted_printable`
404	`function _cte_qp($data) {`	464	`function _cte_qp($data) {`
405	`// For the time being we'll use PHP's function, it seems to work well enough.`	465	`// For the time being we'll use PHP's function, it seems to work well enough.`
406	`return quoted_printable_decode($data);`	466	`return quoted_printable_decode($data);`
407	`}`	467	`}`
408		468
409	`}`	469	`}`

Subversion Repositories Applications.projet

(root)/trunk/classes/ezmlm-php-2.0/ezmlm-parser.php @ 35 – Rev 208 → 310