| New file |
|---|
| 0,0 → 1,385 |
|---|
| <?php |
| // $Id: ezmlm-msgdisplay.php,v 1.7 2007-10-02 09:00:06 alexandre_tb Exp $ |
| // |
| // ezmlm-msgdisplay.php - ezmlm-php v2.0 |
| // -------------------------------------------------------------- |
| // Will parse a template (if specified) and display a message. |
| // Includes a default template. |
| // -------------------------------------------------------------- |
| |
| require_once("ezmlm.php"); |
| require_once("Mail/mimeDecode.php") ; |
| |
| class ezmlm_msgdisplay extends ezmlm_php { |
| // our template |
| var $msgtmpl; |
| var $message_rendu ; |
| var $_auth ; |
| // display: parses a message (using ezmlm_parser) and displays it |
| // using a template |
| var $msgfile; |
| |
| function display($msgfile) { |
| if (!is_file($msgfile)) { |
| if (is_file($this->listdir . "/" . $msgfile)) { $msgfile = $this->listdir . "/" . $msgfile; } |
| else if (is_file($this->listdir . "/archive/" . $msgfile)) { $msgfile = $this->listdir . "/archive/" . $msgfile; } |
| else { return FALSE; } |
| } |
| $this->msgfile = $msgfile ; |
| $message = file_get_contents($msgfile) ; |
| // En cours de codage |
| // La fonction display retourne tout simplement le source du mail |
| // Il n'y a plus d'analyse à ce niveau |
| |
| return $message; |
| $mimeDecode = new Mail_mimeDecode($message) ; |
| $mailDecode = $mimeDecode->decode(array('decode_bodies' => 'true', 'include_bodies' => 'true')) ; |
| |
| // $msg->msgfile contient le chemin du fichier du mail en partant de la racine |
| // Le point d'exclamation est le délimiteur de l'expression régulière |
| $relfile = preg_replace('!' . $this->listdir . '!', '', $msgfile); |
| |
| $a1 = preg_replace('!/archive/(.*)/.*$!', '\1', $relfile); // $a1 contient le nom du répertoire |
| $a2 = preg_replace('!/archive/.*/(.*)$!', '\1', $relfile); // $a2 contient le nom du fichier |
| if (isset($mailDecode->headers['date'])) $msgtime = strtotime(preg_replace ('/CEST/', '', $mailDecode->headers['date'])); |
| $threadidx = date("Ym", $msgtime); |
| if ($a2 <= 10) $numero_precedent = '0'.($a2 - 1) ; else $numero_precedent = ($a2 - 1) ; |
| if ($a2 < 9) $numero_suivant = '0'.($a2 + 1) ; else $numero_suivant = ($a2 + 1); |
| // On teste si le message suivant existe |
| $decoupe = explode ('/', $msgfile) ; |
| |
| // Les nom de fichiers sont du format : |
| // archive/0/01 |
| // archive/0/02 ... 0/99 archive/1/01 ... |
| |
| $nom_fichier = $decoupe[count($decoupe)-1] ; |
| $nom_repertoire = $decoupe[count($decoupe)-2] ; |
| $repertoire_suivant = $nom_repertoire ; $repertoire_precedent = $nom_repertoire ; |
| if ($nom_fichier > 8) { |
| $fichier_suivant = $nom_fichier + 1 ; |
| if ($nom_fichier == 99) { |
| $fichier_suivant = '01' ; |
| $repertoire_suivant = $nom_repertoire + 1 ; |
| } |
| } else { |
| $fichier_suivant = '0'.($nom_fichier + 1) ; |
| } |
| if ($nom_fichier > 10) { |
| $fichier_precedent = $nom_fichier - 1 ; |
| } else { |
| if ($nom_fichier == '01') { |
| $fichier_precedent = '99' ; |
| $repertoire_precedent = $nom_repertoire - 1 ; |
| } else { |
| $fichier_precedent = '0'.($nom_fichier - 1) ; |
| } |
| } |
| print $this->parse_entete_mail($mailDecode) ; |
| $this->parse_template($mailDecode, $a2, $a1); |
| print $this->message_rendu; |
| //print '</div>' ; |
| } |
| |
| /** |
| * Renvoie les infos des messages suivants |
| * |
| * |
| */ |
| function getInfoSuivant() { |
| $relfile = preg_replace('!' . $this->listdir . '!', '', $this->msgfile); |
| $nom_repertoire = preg_replace('!/archive/(.*)/.*$!', '\1', $relfile); |
| $nom_fichier = preg_replace('!/archive/.*/(.*)$!', '\1', $relfile); |
| |
| $repertoire_suivant = $nom_repertoire; |
| |
| // a partir du nom du fichier |
| // et du nom du repertoire, on reconstitue |
| // le numero du message stocke dans le fichier d index |
| // le message 12 du repertoire 2 a le numero 112 |
| |
| if ($nom_repertoire == '0') { |
| $numero_message = $nom_fichier; |
| } else { |
| $numero_message = $nom_repertoire.$nom_fichier ; |
| } |
| |
| // On ouvre le fichier d index |
| $fichier_index = fopen ($this->listdir.'/archive/'.$nom_repertoire.'/index', 'r'); |
| |
| |
| $compteur_ligne = 1; |
| if (preg_match ('/0([1-9][0-9]*)/', $nom_fichier, $match)) { |
| $nom_fichier = $match[1]; |
| $prefixe = '0' ; |
| } else { |
| $prefixe = '' ; |
| } |
| $prefixe = $this->prefixe_nom_message($nom_fichier); |
| //echo $numero_message; |
| // on cherche la ligne avec le numero du message |
| while (!feof($fichier_index)) { |
| |
| $temp = fgets($fichier_index,4096); |
| list($num, $hash, $sujet) = split (':', $temp) ; |
| |
| if ($num == $numero_message) { |
| |
| $ligne_message_precedent = $compteur_ligne -2; |
| $temp = fgets($fichier_index, 4096); |
| $temp = fgets($fichier_index, 4096); |
| list ($fichier_suivant,$hash, $sujet) = split(':', $temp); |
| |
| // Au cas ou est au dernier message du fichier d index |
| // il faut ouvrir le suivant |
| if (feof($fichier_index)) { |
| $repertoire_suivant++; |
| if (file_exists($this->listdir.'/archive/'.$repertoire_suivant.'/index')) { |
| $fichier_index_suivant = fopen($this->listdir.'/archive/'.$repertoire_suivant.'/index', 'r'); |
| // on recupere le numero du premier message |
| list($fichier_suivant, $hash, $sujet) = split (':', fgets($fichier_index_suivant), 4096); |
| fclose ($fichier_index_suivant); |
| } |
| } |
| |
| // Si le numero est > 100, il faut decouper et ne retenir |
| // que les dizaines et unites |
| if ($fichier_suivant >= 100) { |
| $decimal = (string) $fichier_suivant; |
| $numero = substr($decimal, -2) ; |
| $fichier_suivant = $numero ; |
| } else { |
| if ($fichier_suivant <= 9)$fichier_suivant = '0'.$fichier_suivant; |
| } |
| |
| break; |
| } |
| |
| // On avance d une ligne, la 2e ligne contient date hash auteur |
| $temp2 = fgets($fichier_index, 4096); |
| $compteur_ligne += 2; |
| } |
| |
| // On utilise $ligne_message_precedent pour recupere le num du message precedent |
| // Si $ligne_precedent est negatif soit c le premier message de la liste |
| // soit il faut ouvrir le repertoire precedent |
| |
| if ($ligne_message_precedent > 0) { |
| $compteur = 1; |
| rewind($fichier_index); |
| while (!feof($fichier_index)) { |
| $temp = fgets($fichier_index, 4096); |
| if ($ligne_message_precedent == $compteur) { |
| list ($fichier_precedent, $hash, $sujet) = split (':', $temp) ; |
| } |
| $compteur++; |
| } |
| // Le nom du repertoire precedent est le meme que le repertoire courant |
| $repertoire_precedent = $nom_repertoire ; |
| // Si $ligne_message_precedent est negatif, alors il faut ouvrir |
| // le fichier index du repertoire precedent |
| // si le nom du repertoire est 0, alors il n y a pas de repertoire precedent |
| // et donc pas de message precedent |
| } else { |
| |
| if ($nom_repertoire != '0') { |
| $repertoire_precedent = $nom_repertoire -1 ; |
| // on ouvre le fichier d index et on extraie le numero |
| // du dernier message |
| |
| $fichier_index_precedent = fopen ($this->listdir.'/archive/'.$repertoire_precedent.'/index', 'r') ; |
| while (!feof($fichier_index_precedent)) { |
| $temp = fgets($fichier_index_precedent,4096); |
| $ligne = split (':', $temp) ; |
| if ($ligne[0] != '') $fichier_precedent = $ligne[0]; |
| $temp = fgets($fichier_index_precedent,4096); |
| } |
| |
| fclose ($fichier_index_precedent); |
| // on se situe dans le repertoire 0 donc pas de message precedent |
| } else { |
| $fichier_precedent = null; |
| $repertoire_precedent = null; |
| } |
| } |
| if ($fichier_precedent > 100) { |
| $decimal = (string) $fichier_precedent; |
| $numero = substr($decimal, -2) ; |
| $fichier_precedent = $numero ; |
| } else { |
| if ($fichier_precedent < 10 )$fichier_precedent = '0'.$fichier_precedent; |
| } |
| fclose ($fichier_index); |
| //if ($fichier_precedent != null && $fichier_precedent < 10) $fichier_precedent = '0'.$fichier_precedent; |
| |
| return array ('fichier_suivant' => $fichier_suivant, |
| 'repertoire_suivant' => $repertoire_suivant, |
| 'fichier_precedent' => $fichier_precedent, |
| 'repertoire_precedent' => $repertoire_precedent); |
| } |
| |
| /** |
| * analyse l'entete d'un mail pour en extraire les entête |
| * to, from, subject, date |
| * met à jour la variable $this->msgtmpl |
| * |
| */ |
| |
| function parse_entete_mail (&$mailDecode) { |
| $startpos = strpos(strtolower($this->msgtmpl_entete), '<ezmlm-headers>'); |
| $endpos = strpos(strtolower($this->msgtmpl_entete), '</ezmlm-headers>'); |
| $headers = substr($this->msgtmpl_entete,$startpos + 15,($endpos - $startpos - 15)); |
| $headers_replace = '' ; |
| for ($i = 0; $i < count($this->showheaders); $i++) { |
| $val = $this->showheaders[$i]; |
| $headers_replace .= $headers; |
| $hnpos = strpos(strtolower($headers_replace), '<ezmlm-header-name>'); |
| $headers_replace = substr_replace($headers_replace, $this->header_en_francais[$val], $hnpos, 19); |
| $hvpos = strpos(strtolower($headers_replace), '<ezmlm-header-value'); |
| $headers_replace = $this->decode_iso ($headers_replace) ; |
| switch ($val) { |
| case 'date': |
| $headers_replace = substr_replace($headers_replace, $this->date_francaise($mailDecode->headers[strtolower($val)]), $hvpos, 20); |
| break; |
| case 'from': |
| if ($mailDecode->headers[strtolower($val)] == '') $from = $mailDecode->headers['return-path'] ; |
| else $from = $mailDecode->headers['from']; |
| $headers_replace = substr_replace($headers_replace, $this->protect_email($this->decode_iso($from)), $hvpos, 20); |
| //$headers_replace = htmlspecialchars($headers_replace); |
| break; |
| default: |
| $headers_replace = substr_replace($headers_replace, $this->protect_email($this->decode_iso($mailDecode->headers[strtolower($val)])), $hvpos, 20); |
| } |
| } |
| return substr_replace($this->msgtmpl_entete, $headers_replace, $startpos, (($endpos + 16) - $startpos)); |
| } |
| |
| |
| function parse_template(&$mailDecode, $numero_mail, $numero_mois, $num_part = '') { |
| static $profondeur = array(); |
| array_push ($profondeur, $num_part) ; |
| $corps = '' ; |
| |
| if ($mailDecode->ctype_primary == 'multipart') { |
| include_once PROJET_CHEMIN_CLASSES.'type_fichier_mime.class.php' ; |
| for ($i = 0; $i < count($mailDecode->parts); $i++) { |
| switch ($mailDecode->parts[$i]->ctype_secondary) { |
| case 'plain' : |
| if ($mailDecode->parts[$i]->headers['content-transfer-encoding'] == '8bit') { |
| $corps .= $this->_cte_8bit($mailDecode->parts[$i]->body); |
| } else if ($mailDecode->parts[$i]->headers['content-transfer-encoding'] == 'quoted-printable') { |
| if ($mailDecode->parts[$i]->ctype_parameters['charset'] == 'UTF-8') { |
| $corps .= utf8_decode($mailDecode->parts[$i]->body); |
| } |
| } |
| break; |
| case 'html' : $corps .= $mailDecode->parts[$i]->body ; |
| break ; |
| case 'mixed' : |
| case 'rfc822' : |
| case 'alternative' : |
| case 'appledouble' : |
| $this->parse_template($mailDecode->parts[$i], $numero_mail, $numero_mois, $i) ; |
| break ; |
| case 'applefile' : continue ; |
| break ; |
| default : |
| |
| if ($mailDecode->parts[$i]->ctype_secondary == 'octet-stream') { |
| $nom_piece_jointe = $mailDecode->parts[$i]->ctype_parameters['name'] ; |
| $tab = explode ('.', $nom_piece_jointe) ; |
| $extension = $tab[count ($tab) - 1] ; |
| $mimeType = type_fichier_mime::factory($extension, $GLOBALS['projet_db']); |
| $mimeType->setCheminIcone(PROJET_CHEMIN_ICONES) ; |
| } else { |
| $nom_piece_jointe = isset ($mailDecode->parts[$i]->d_parameters['filename']) ? |
| $mailDecode->parts[$i]->d_parameters['filename'] : $mailDecode->parts[$i]->ctype_parameters['name'] ; |
| $mimeType = new type_fichier_mime($GLOBALS['projet_db'], $mailDecode->parts[$i]->ctype_primary.'/'. |
| $mailDecode->parts[$i]->ctype_secondary, PROJET_CHEMIN_ICONES) ; |
| } |
| |
| $corps .= '<a href="'.PROJET_CHEMIN_APPLI.'fichier_attache.php?nom_liste='.$this->listname. |
| '&actionargs[]='.$numero_mois. |
| '&actionargs[]='.$numero_mail; |
| |
| if (count ($profondeur) > 0) { |
| array_shift($profondeur) ; |
| for ($j= 0; $j < count ($profondeur); $j++) $corps .= '&actionargs[]='.$profondeur[$j]; |
| } |
| $corps .= '&actionargs[]='.$i ; |
| $corps .= '">'.'<img src="'.$mimeType->getCheminIcone().'" alt="'.$nom_piece_jointe.'" /> ' ; |
| $corps .= $nom_piece_jointe; |
| $corps .= '</a><br />' ; |
| break ; |
| } |
| } |
| $this->message_rendu .= preg_replace('/<ezmlm-body>/i', $this->cleanup_body($corps,TRUE), $this->msgtmpl); |
| |
| } else if ($mailDecode->ctype_primary == 'message') { |
| |
| $this->message_rendu .= "\n".'<div class="message">'.$this->parse_entete_mail($mailDecode->parts[0]); |
| $corps .= $this->parse_template($mailDecode->parts[0], $numero_mail, $numero_mois, 0) ; |
| $this->message_rendu .= preg_replace('/<ezmlm-body>/i', $this->cleanup_body($corps,true), $this->msgtmpl).'</div>'; |
| |
| } else if ($mailDecode->ctype_primary == 'application' || $mailDecode->ctype_primary == 'image'){ |
| if ($mailDecode->ctype_secondary == 'applefile') return ; |
| $mimeType = new type_fichier_mime($GLOBALS['projet_db'], $mailDecode->ctype_primary.'/'.$mailDecode->ctype_secondary,PROJET_CHEMIN_ICONES) ; |
| |
| if ($mimeType->getIdType() != 12) { |
| $corps .= '<a href="'.PROJET_CHEMIN_APPLI.'fichier_attache.php?nom_liste='.$this->listname.'&actionargs[]='. |
| $numero_mois.'&actionargs[]='. |
| $numero_mail.'&actionargs[]='.$i.'">'. |
| '<img src="'.$mimeType->getCheminIcone().'" alt="'.$mailDecode->ctype_parameters['name'].'" /> ' ; |
| $corps .= $mailDecode->ctype_parameters['name'].'</a><br />' ; |
| |
| $this->message_rendu .= preg_replace('/<ezmlm-body>/i', $this->cleanup_body($corps,true), $this->msgtmpl); |
| } |
| } else { |
| if (preg_match('/html/i', $mailDecode->ctype_secondary)) { |
| $this->message_rendu .= preg_replace('/<ezmlm-body>/i', $this->cleanup_body($mailDecode->body,TRUE), $this->msgtmpl); |
| } else { |
| if (isset ($mailDecode->ctype_parameters['charset']) && $mailDecode->ctype_parameters['charset'] == 'UTF-8') { |
| $this->message_rendu .= preg_replace('/<ezmlm-body>/i', '<pre>' . utf8_decode($this->cleanup_body($mailDecode->body,TRUE)) . '</pre>', $this->msgtmpl); |
| } else { |
| $this->message_rendu .= preg_replace('/<ezmlm-body>/i', '<pre>' . $this->cleanup_body($mailDecode->body,TRUE) . '</pre>', $this->msgtmpl); |
| } |
| } |
| } |
| } |
| |
| function ezmlm_msgdisplay() { |
| $this->ezmlm_php(); |
| if (($this->msgtemplate != "") and (is_file($this->msgtemplate))) { |
| $fd = fopen($this->msgtemplate, "r"); |
| while (!feof($fd)) { $this->msgtmpl .= fgets($fd,4096); } |
| fclose($fd); |
| } else { |
| $this->msgtmpl = '<pre> |
| <ezmlm-body> |
| </pre> |
| '; |
| } |
| $this->msgtmpl_entete = '<dl><ezmlm-headers> |
| <dt><ezmlm-header-name> :</dt> |
| <dd><ezmlm-header-value></dd> |
| </ezmlm-headers> |
| </dl>' ; |
| } |
| |
| // _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; |
| } |
| |
| } |