Subversion Repositories Applications.papyrus

Rev

Rev 474 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 474 Rev 1336
Line 1... Line 1...
1 
<?php
 1 
<?php
- 
 
 2 
/*vim: set expandtab tabstop=4 shiftwidth=4: */
- 
 
 3 
// +------------------------------------------------------------------------------------------------------+
- 
 
 4 
// | PHP version 4.1                                                                                      |
- 
 
 5 
// +------------------------------------------------------------------------------------------------------+
- 
 
 6 
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
- 
 
 7 
// +------------------------------------------------------------------------------------------------------+
- 
 
 8 
// | This library is free software; you can redistribute it and/or                                        |
- 
 
 9 
// | modify it under the terms of the GNU General Public                                                  |
- 
 
 10 
// | License as published by the Free Software Foundation; either                                         |
- 
 
 11 
// | version 2.1 of the License, or (at your option) any later version.                                   |
- 
 
 12 
// |                                                                                                      |
- 
 
 13 
// | This library is distributed in the hope that it will be useful,                                      |
- 
 
 14 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
- 
 
 15 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
- 
 
 16 
// | General Public License for more details.                                                             |
- 
 
 17 
// |                                                                                                      |
- 
 
 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                                  |
- 
 
 20 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
- 
 
 21 
// +------------------------------------------------------------------------------------------------------+
- 
 
 22 
// CVS : $Id: ezmlm-parser.php,v 1.3 2007-04-19 15:34:35 neiluj Exp $
- 
 
 23 
/**
- 
 
 24 
* Application projet
- 
 
 25 
*
- 
 
 26 
* classe ezmlm_parser pour lire les fichiers d index de ezmlm-idx
- 
 
 27 
*
- 
 
 28 
*@package projet
- 
 
 29 
//Auteur original : ?? recupere dans ezmlm-php
- 
 
 30 
*@author        Alexandre Granier <alexandre@tela-botanica.org>
- 
 
 31 
*@copyright     Tela-Botanica 2000-2004
- 
 
 32 
*@version       $Revision: 1.3 $
- 
 
 33 
// +------------------------------------------------------------------------------------------------------+
- 
 
 34 
*/
- 
 
 35 
 
- 
 
 36 
 
- 
 
 37 
// +------------------------------------------------------------------------------------------------------+
- 
 
 38 
// |                                            ENTETE du PROGRAMME                                       |
- 
 
 39 
// +------------------------------------------------------------------------------------------------------+
- 
 
 40 
 
2 
// $Id: ezmlm-parser.php,v 1.2 2005-09-27 16:43:08 alexandre_tb Exp $
 41 
// $Id: ezmlm-parser.php,v 1.3 2007-04-19 15:34:35 neiluj Exp $
3 
//
 42 
//
4 
// ezmlm-parser.php - ezmlm-php v2.0
 - 
 
5 
// --------------------------------------------------------------
 - 
 
6 
// Contains all the code for parsing messages.
 - 
 
7 
// It handles all the nessesary decoding, attachments, etc...
 - 
 
8 
// Note this does all the parsing itself now removing the dependancy
 - 
 
9 
// on the mailparse library (as it looks like it will never make
 - 
 
10 
// it into the official inclusion with PHP)...
 - 
 
11 
// --------------------------------------------------------------
 - 
 
Line 12... Line 43...
12 
 
 43 
 
13 
require_once("ezmlm.php");
 44 
require_once("ezmlm.php");
14 
require_once("Mail/mimeDecode.php") ;
 45 
require_once("Mail/mimeDecode.php") ;
15 
// CLASS: ezmlm-parser
 46 
// CLASS: ezmlm-parser
16 
class ezmlm_parser extends ezmlm_php {
 47 
class ezmlm_parser extends ezmlm_php {
17 
        var $headers;           // the full untouched headers of the message
 48 
    var $headers;           // the full untouched headers of the message
18 
        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)
Line 19... Line 50...
19 
	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...
20 
 
 51 
 
21 
        // Here's the most accessed headers, everything else can be
 52 
    // Here's the most accessed headers, everything else can be
22 
        // accessed from the $this->headers array.
 53 
    // accessed from the $this->headers array.
23 
        var $to;                // To:
 54 
    var $to;                // To:
24 
        var $from;              // From:
 55 
    var $from;              // From:
25 
        var $date;              // Date:
 56 
    var $date;              // Date:
26 
        var $subject;           // Subject:
 57 
    var $subject;           // Subject:
Line 27... Line 58...
27 
        var $replyto;           // Reply-To:
 58 
    var $replyto;           // Reply-To:
Line 28... Line 59...
28 
        var $contenttype;       // Content-Type:
 59 
    var $contenttype;       // Content-Type:
Line 29... Line 60...
29 
 
 60 
 
Line -... Line 61...
- 
 
 61 
	var $multipart;		// TRUE if the message is a multipart message
30 
	var $multipart;		// TRUE if the message is a multipart message
 62 
 
- 
 
 63 
	var $msgfile;		// if parsed from a file, this is the filename...
- 
 
 64 
 
- 
 
 65 
	// functions
- 
 
 66 
 
- 
 
 67 
	/**
- 
 
 68 
     * recent_msgs renvoie les derniers messages de la liste de discussion
- 
 
 69 
     * ezmlm
- 
 
 70 
     *
- 
 
 71 
     * (
- 
 
 72 
     * [0] => Array
- 
 
 73 
     *   (
- 
 
 74 
     *       [1] => sujet
- 
 
 75 
     *       [2] => date en anglais
- 
 
 76 
     *       [3] => le hash de l auteur
- 
 
 77 
     *       [4] => l auteur
- 
 
 78 
     *   )
31 
 
 79 
     * [1] => ...
32 
	var $msgfile;		// if parsed from a file, this is the filename...
 - 
 
33 
 
 - 
 
34 
	// functions
 - 
 
35 
 
 - 
 
36 
	// recent_msgs - parses and returns an arbitrary number of the most recent messages
 - 
 
37 
	function recent_msgs($show = 20, $month = "") {
 - 
 
38 
		if ($month == "") { $month = date("Ym"); }
 - 
 
39 
		$threadyear = substr($month,0,4);
 - 
 
40 
		$threadmonth = substr($month,4,2);
 - 
 
41 
 
 - 
 
42 
		if (!is_file($this->listdir . "/archive/threads/" . $month)) {
 - 
 
43 
			if ($threadmonth == '01') { $prevthread = ($threadyear - 1) . "12"; }
 - 
 
44 
			else if ($threadmonth >= 11) { $prevthread = $threadyear . ($threadmonth - 1); }
 - 
 
45 
			else { $prevthread = $threadyear . "0" . ($threadmonth - 1); }
 - 
 
46 
			return $this->recent_msgs($show,$prevthread);
 - 
 
47 
		}
 - 
 
48 
        // on ouvre les fichiers de threads du dernier mois
 - 
 
49 
		$fd = fopen($this->listdir . "/archive/threads/" . $month, "r");
 - 
 
50 
		fseek($fd,-256,SEEK_END);
 - 
 
51
- 
 
52 
        // on récupère la dernière ligne
 - 
 
53
- 
 
54 
		while (!feof($fd)) {
 - 
 
55 
			$temp = fgets($fd,4096);
 - 
 
56 
			if ($temp != "") { $curthread = $temp; }
 - 
 
57 
		}
 - 
 
58 
        $nombre_message = 0 ;
 - 
 
59 
        fseek ($fd, 0) ;
 - 
 
60 
        while (!feof($fd)) {
 - 
 
61 
            $nombre_message++;
 - 
 
62 
			fgets($fd);
 - 
 
63 
		}
 - 
 
64 
		fclose($fd);
 - 
 
65 
        ///echo "<br />".$curthread."<br />" ;
 - 
 
66 
		$subjectfile = preg_replace("/^[0-9]*\:([a-z]*) \[.*/", "\\1", $curthread);
 - 
 
67 
		$subjectfile = substr($subjectfile,0,2) . "/" . substr($subjectfile,2,18); // on ne garde que les 2 1ère lettre du hash, slash et le reste du hash
 - 
 
68
- 
 
69 
        // on ouvre le fichier des sujets
 - 
 
70 
        // présenté comme suit :
 - 
 
71 
        // hash sujet originel   (sur la première ligne)
 - 
 
72 
        // num_message:annéemois:hash_auteur Nom Auteur
 - 
 
73 
		$fd = fopen($this->listdir . "/archive/subjects/" . $subjectfile, "r");
 - 
 
74 
		fseek($fd,-512,SEEK_END);
 - 
 
75
- 
 
76 
        // on prend la dernière ligne
 - 
 
77 
		while (!feof($fd)) {
 - 
 
78 
			$temp = fgets($fd,4096);
 - 
 
Line 79... Line 80...
79 
			if ($temp != "") { $cursubject = $temp; }
 80 
     * )
80 
		}
 81 
     * @param	int	le nombre de message a renvoye
81 
		fclose($fd);
 82 
     * @return array	un tableau contenant les messages
82
83 
     * @access public
83 
		list($msgnum,$fromthread,$authorid) = split(":",$cursubject);
 84 
     */
84 
		$msgdir = (int)($msgnum / 100); // on reconstruit le répertoire du message en divisant son numéro par 100
 85 
	function recent_msgs($show = 20, $month = "") {
85
86
- 
 
 87 
		$repertoire_archive = opendir($this->listdir . "/archive/");
86 
		$numshown = 0;
 88 
 
- 
 
 89 
		$repertoire_message = array() ;
87
90 
		$dernier_repertoire = 0 ;
88 
		$msgfiles = array();
 91 
		while (false !== ($item = readdir($repertoire_archive))) {
- 
 
 92 
			// $item contient les noms des repertoires
89 
        // on boucle 100 fois
 93 
			// on ne garde que ceux qui sont des chiffres
- 
 
 94 
 
- 
 
 95 
			if (preg_match('/[0-9]+/', $item)) {
90 
		for ($i = 0; $i <= 99; $i++) {
 96 
				// on ouvre le fichier d index de chaque repertoire
91 
			if (($msgdir == 0) and ($i == 0)) { $i++; };
 97 
				if ((int) $item > $dernier_repertoire) $dernier_repertoire = (int) $item;
- 
 
 98
92 
			if ($i < 10) { $msgfile = "0" . $i; }
 99 
			}
- 
 
 100 
		}
- 
 
 101 
		$tableau_message = array() ;
- 
 
 102 
		$compteur_message = 0 ;
93 
			else { $msgfile = $i; }
 103 
		$fichier_index = fopen ($this->listdir.'/archive/'.$dernier_repertoire.'/index', 'r') ;
- 
 
 104 
		while (!feof($fichier_index)) {
94 
			if (!is_file($this->listdir . "/archive/" . $msgdir . "/" . $msgfile)) { break; }
 105 
				// Recuperation du numero de message, du hash du sujet et du sujet
- 
 
 106 
				$temp = fgets($fichier_index, 4096);
- 
 
 107 
				preg_match('/([0-9]+): ([a-z]+) (.*)/', $temp, $match) ;
95
108
96 
		}
 109 
				// dans la seconde on recupere la date, hash auteur et auteur
- 
 
 110 
				$temp = fgets($fichier_index, 4096);
97 
        if ($show == '') $show = $nombre_message ;  // Si aucun paramètre n'est passé on renvoie tous les fichiers du mois
 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) ;
98 
		while ($numshown < $show) {
 112 
				if ($match[1] != '') {
- 
 
 113 
				$tableau_message[$match[1]] = array ($match[2], $match[3],
- 
 
 114 
									$match_deuxieme_ligne[1].' '.$match_deuxieme_ligne[2].' '.$match_deuxieme_ligne[3],
- 
 
 115 
									$match_deuxieme_ligne[5],
- 
 
 116 
									$match_deuxieme_ligne[6]);
- 
 
 117 
				}
- 
 
 118 
			}
- 
 
 119 
			fclose ($fichier_index);
- 
 
 120 
		// on renverse le tableau pour afficher les derniers messages en premier
99 
			$i--;
 121 
		$tableau_message = array_reverse($tableau_message, true);
- 
 
 122
- 
 
 123 
		// On compte le nombre de message, s il est inferieur $show et que l on est
100 
			if ($i < 0) {
 124 
		// pas dans le premier index, on ouvre le fichier precedent et recupere
- 
 
 125 
		// le n dernier message
101 
				$i = 99;
 126
- 
 
 127 
		if (count ($tableau_message) < $show && $dernier_repertoire != '0') {
- 
 
 128 
			$avant_dernier_repertoire = $dernier_repertoire - 1 ;
- 
 
 129 
			// On utilise file_get_contents pour renverser le fichier
- 
 
 130 
			$fichier_index = array_reverse(
- 
 
 131 
									explode ("\n",
- 
 
 132 
										preg_replace ('/\n$/', '',
- 
 
 133 
											file_get_contents ($this->listdir.'/archive/'.$avant_dernier_repertoire.'/index')) ), true) ;
- 
 
 134 
			reset ($fichier_index);
- 
 
 135 
			//var_dump ($fichier_index);
- 
 
 136
- 
 
 137 
			for ($i = count ($tableau_message); $i <= $show; $i++) {
- 
 
 138 
				// Recuperation du numero de message, du hash du sujet et du sujet
- 
 
 139 
				// dans la seconde on recupere la date, hash auteur et auteur
- 
 
 140 
 
- 
 
 141 
				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) ;
- 
 
 143 
				preg_match('/([0-9]+): ([a-z]+) (.*)/', next($fichier_index), $match) ;
- 
 
 144 
				next ($fichier_index);
102 
				$msgdir--;
 145
103 
				if ($msgdir < 0) { break; }
 - 
 
104 
			}
 - 
 
105 
			if ($i < 10) {
 - 
 
106 
				$msgfile = $this->listdir . "/archive/" . $msgdir . "/0" . $i;
 - 
 
107 
			} else {
 - 
 
108 
				$msgfile = $this->listdir . "/archive/" . $msgdir . "/" . $i;
 - 
 
109 
			}
 - 
 
110 
            /*
 - 
 
111 
			$msg = new ezmlm_parser();
 - 
 
112 
			$msg->parse_file($msgfile);
 - 
 
113 
            */
 - 
 
114 
            if (!is_file($msgfile)) {
 - 
 
115 
                if (is_file($this->listdir . "/" . $msgfile)) {
 146 
				if ($match[1] != '') {
116 
                    $msgfile = $this->listdir . "/" . $msgfile;
- 
 
117 
                } else if (is_file($this->listdir . "/archive/" . $msgfile)) {
147 
				$tableau_message[$match[1]] = array ($match[2], $match[3],
118 
                    $msgfile = $this->listdir . "/archive/" . $msgfile;
- 
 
119 
                } else {
- 
 
120 
                    return $msgfiles;
148 
									$match_deuxieme_ligne[1].' '.$match_deuxieme_ligne[2].' '.$match_deuxieme_ligne[3],
121 
                }
 - 
 
122 
            }
 - 
 
123 
            $message = file_get_contents($msgfile) ;
 - 
 
124 
            $mimeDecode = new Mail_mimeDecode($message) ;
 - 
 
125 
            $mailDecode = $mimeDecode->decode() ;
 149 
									$match_deuxieme_ligne[5],
- 
 
 150 
									$match_deuxieme_ligne[6]);
126 
            $mailDecode->msgfile = $msgfile ;
 151 
				}
127 
            $mailDecode->nummessage = $msgdir.$i ;
 152 
			}
128 
			$msgfiles[] = $mailDecode ;
 153 
		} else {
Line 129... Line 154...
129
154 
			// Si le nombre de message est > $show on limite le tableau de retour
130 
			unset($mailDecode);
 155 
			$tableau_message = array_slice($tableau_message, 0, $show, true);
Line 149... Line 174...
149 
		while (!feof($fd)) { $data .= fgets($fd,4096); }
 174 
		while (!feof($fd)) { $data .= fgets($fd,4096); }
150 
		fclose($fd);
 175 
		fclose($fd);
151 
		return $this->parse($data,$simple);
 176 
		return $this->parse($data,$simple);
152 
	}
 177 
	}
Line 153... Line 178...
153 
 
 178 
 
154 
    // parse_file_headers - ouvre un fichier et analyse les entêtes
 179 
    // parse_file_headers - ouvre un fichier et analyse les entête
155 
	function parse_file_headers($file,$simple = FALSE) {
 180 
	function parse_file_headers($file,$simple = FALSE) {
156 
		if (!is_file($file)) {
 181 
		if (!is_file($file)) {
157 
			if (is_file($this->listdir . "/" . $file)) { $file = $this->listdir . "/" . $file; }
 182 
			if (is_file($this->listdir . "/" . $file)) { $file = $this->listdir . "/" . $file; }
158 
			else if (is_file($this->listdir . "/archive/" . $file)) { $file = $this->listdir . "/archive/" . $file; }
 183 
			else if (is_file($this->listdir . "/archive/" . $file)) { $file = $this->listdir . "/archive/" . $file; }
Line 163... Line 188...
163 
        $data = file_get_contents ($file) ;
 188 
        $data = file_get_contents ($file) ;
164 
        $message = file_get_contents($file) ;
 189 
        $message = file_get_contents($file) ;
165 
        $mimeDecode = new Mail_mimeDecode($message) ;
 190 
        $mimeDecode = new Mail_mimeDecode($message) ;
166 
        $mailDecode = $mimeDecode->decode() ;
 191 
        $mailDecode = $mimeDecode->decode() ;
167 
        return $mailDecode ;
 192 
        return $mailDecode ;
168 
		/*$fd = fopen($file, "r");
 - 
 
169 
		while (!feof($fd)) { $data .= fgets($fd,4096); }
 - 
 
170 
		fclose($fd);*/
 - 
 
171 
        if ($this->_get_headers($data, $simple)) return true ;
 - 
 
172 
		return false ;
 - 
 
173 
	}
 193 
	}
Line 174... Line 194...
174 
 
 194 
 
175 
	// this does all of the work (well it calls two functions that do all the work :)
 195 
	// this does all of the work (well it calls two functions that do all the work :)
176 
	// all the decoding a part breaking follows RFC2045 (http://www.faqs.org/rfcs/rfc2045.html)
 196 
	// all the decoding a part breaking follows RFC2045 (http://www.faqs.org/rfcs/rfc2045.html)