banana/message.inc.php

   1 <?php
   2 /********************************************************************************
   3 * banana/message.inc.php : class for messages
   4 * ------------------------
   5 *
   6 * This file is part of the banana distribution
   7 * Copyright: See COPYING files that comes with this distribution
   8 ********************************************************************************/
   9
  10 require_once dirname(__FILE__) . '/mimepart.inc.php';
  11 require_once dirname(__FILE__) . '/message.func.inc.php';
  12 require_once dirname(__FILE__) . '/banana.inc.php';
  13
  14 final class BananaMessage extends BananaMimePart
  15 {
  16     private $msg_headers = array();
  17
  18     public function __construct($data = null)
  19     {
  20         parent::__construct($data);
  21         if (!is_null($data)) {
  22             if (isset($this->headers['in-reply-to']) && isset($this->headers['references'])) {
  23                 unset($this->headers['in-reply-to']);
  24             }
  25             Banana::$msgshow_headers = array_intersect(Banana::$msgshow_headers, array_keys($this->headers));
  26             Banana::$message =& $this;
  27         }
  28     }
  29
  30     public function hasHeader($hdr)
  31     {
  32         return isset($this->headers[$hdr]);
  33     }
  34
  35     static public function newMessage(array $headers, $body, array $file = null)
  36     {
  37         $msg = new BananaMessage();
  38         $msg->msg_headers = $headers;
  39         $msg->makeTextPart($body, 'text/plain', '8bits', 'UTF-8', 'fixed');
  40         if (!is_null($file)) {
  41             $msg->addAttachment($file);
  42         }
  43         return $msg;
  44     }
  45
  46     static public function translateHeaderName($hdr)
  47     {
  48         switch (strtolower($hdr)) {
  49           case 'from':          return _b_('De');
  50           case 'subject':       return _b_('Sujet');
  51           case 'newsgroups':    return _b_('Forums');
  52           case 'followup-to':   return _b_('Suivi à');
  53           case 'to':            return _b_('À');
  54           case 'cc':            return _b_('Copie à');
  55           case 'bcc':           return _b_('Copie cachée à');
  56           case 'reply-to':      return _b_('Répondre à');
  57           case 'date':          return _b_('Date');
  58           case 'organization':  return _b_('Organisation');
  59           case 'in-reply-to':
  60           case 'references':    return _b_('Références');
  61           case 'x-face':        return _b_('Image');
  62         }
  63         return $hdr;
  64     }
  65
  66     public function translateHeaderValue($hdr)
  67     {
  68         if (!isset($this->headers[$hdr])) {
  69             return null;
  70         }
  71         $text = $this->headers[$hdr];
  72
  73         if (function_exists('hook_formatDisplayHeader')
  74              && $res = hook_formatDisplayHeader($hdr, $text)) {
  75             return $res;
  76         }
  77         switch ($hdr) {
  78           case "date":
  79             return BananaMessage::formatDate($text);
  80
  81           case "followup-to": case "newsgroups":
  82             $groups = preg_split("/[\t ]*,[\t ]*/", $text);
  83             $res    = '';
  84             foreach ($groups as $g) {
  85                 $res .= Banana::$page->makeLink(Array('group' => $g, 'text' => $g)) . ', ';
  86             }
  87             return substr($res,0, -2);
  88
  89           case "from":
  90             return BananaMessage::formatFrom($text);
  91
  92           case "references": case "in-reply-to":
  93             $rsl     = "";
  94             $parents = preg_grep('/^\d+$/', $this->getTranslatedReferences());
  95             $p       = array_pop($parents);
  96
  97             $parents = array();
  98             while (!is_null($p)) {
  99                 array_unshift($parents, $p);
 100                 $p         = Banana::$spool->overview[$p]->parent;
 101             }
 102             $ndx = 1;
 103             foreach ($parents as $p) {
 104                 $rsl .= Banana::$page->makeLink(Array('group' => Banana::$spool->group,
 105                                                       'artid' => $p, 'text' => $ndx++)) . ' ';
 106             }
 107             return $rsl;
 108
 109           case "subject":
 110             $text = stripslashes($text);
 111             $text = banana_htmlentities($text);
 112             return banana_catchFormats($text);
 113
 114           default:
 115             return $text;
 116         }
 117     }
 118
 119     public function getSender()
 120     {
 121         $from = $this->headers['from'];
 122         $name = trim(preg_replace('/<[^ ]*>/', '', $from));
 123         if (empty($name)) {
 124             return $from;
 125         }
 126         return $name;
 127     }
 128
 129     public function getHeaderValue($hdr)
 130     {
 131         $hdr = strtolower($hdr);
 132         if (!isset($this->headers[$hdr])) {
 133             return null;
 134         }
 135         if ($hdr == 'date') {
 136             return strtotime($this->headers['date']);
 137         } else {
 138             return $this->headers[$hdr];
 139         }
 140     }
 141
 142     public function getHeaders()
 143     {
 144         $this->msg_headers = array_merge($this->msg_headers, Banana::$msgedit_headers, Banana::$profile['headers']);
 145         $headers = array_map(array($this, 'encodeHeader'), $this->msg_headers);
 146         return array_merge($headers, parent::getHeaders());
 147     }
 148
 149     static public function formatFrom($text)
 150     {
 151 #     From: mark@cbosgd.ATT.COM
 152 #     From: <mark@cbosgd.ATT.COM>
 153 #     From: mark@cbosgd.ATT.COM (Mark Horton)
 154 #     From: Mark Horton <mark@cbosgd.ATT.COM>
 155         $mailto = '<a href="mailto:';
 156
 157         $result = banana_htmlentities($text);
 158         if (preg_match("/^<?([^< ]+@[^> ]+)>?$/", $text, $regs)) {
 159             $result = $mailto . $regs[1] . '">' . banana_htmlentities($regs[1]) . '</a>';
 160         }
 161         if (preg_match("/^([^ ]+@[^ ]+) \((.*)\)$/", $text, $regs)) {
 162             $result = $mailto . $regs[1] . '">' . banana_htmlentities($regs[2]) . '</a>';
 163         }
 164         if (preg_match("/^\"?([^<>\"]+)\"? +<(.+@.+)>$/", $text, $regs)) {
 165             $nom = preg_replace("/^'(.*)'$/", '\1', $regs[1]);
 166             $nom = stripslashes($nom);
 167             $result = $mailto . $regs[2] . '">' . banana_htmlentities($nom) . '</a>';
 168         }
 169         return preg_replace("/\\\(\(|\))/","\\1",$result);
 170     }
 171
 172     public function getAuthorName()
 173     {
 174         $text = $this->getHeaderValue('From');
 175         $name = null;
 176         if (preg_match("/^([^ ]+@[^ ]+) \((.*)\)$/", $text, $regs)) {
 177             $name = $regs[2];
 178         }
 179         if (preg_match("/^\"?([^<>\"]+)\"? +<(.+@.+)>$/", $text, $regs)) {
 180             $name = preg_replace("/^'(.*)'$/", '\1', $regs[1]);
 181             $name = stripslashes($name);
 182         }
 183         if ($name) {
 184             return preg_replace("/\\\(\(|\))/","\\1", $name);
 185         }
 186
 187         if (function_exists('hook_getAuthorName') && $name = hook_getAuthorName($this)) {
 188             return $name;
 189         }
 190
 191         if (preg_match("/([^< ]+)@([^> ]+)/", $text, $regs)) {
 192             return $regs[1];
 193         }
 194         return 'Anonymous';
 195     }
 196
 197     static public function formatDate($text)
 198     {
 199         return strftime("%A %d %B %Y, %H:%M (fuseau serveur)", strtotime($text));
 200     }
 201
 202     public function translateHeaders()
 203     {
 204         $result = array();
 205         foreach (array_keys($this->headers) as $name) {
 206             $value = $this->translateHeaderValue($name);
 207             if (!is_null($value)) {
 208                 $result[$this->translateHeaderName($name)] = $value;
 209             }
 210         }
 211         return $result;
 212     }
 213
 214     public function getReferences()
 215     {
 216         $text = $this->headers['references'];
 217         $text = str_replace("><","> <", $text);
 218         return preg_split('/\s/', $text);
 219     }
 220
 221     public function getTranslatedReferences()
 222     {
 223         return BananaMessage::formatReferences($this->headers);
 224     }
 225
 226     static public function formatReferences(array &$refs)
 227     {
 228         if (isset($refs['references'])) {
 229             $text = str_replace('><', '> <', $refs['references']);
 230             return preg_split('/\s/', strtr($text, Banana::$spool->ids));
 231         } elseif (isset($refs['in-reply-to']) && isset(Banana::$spool->ids[$refs['in-reply-to']])) {
 232             return array(Banana::$spool->ids[$refs['in-reply-to']]);
 233         } else {
 234             return array();
 235         }
 236     }
 237
 238     public function hasXFace()
 239     {
 240         return Banana::$msgshow_xface && isset($this->headers['x-face']);
 241     }
 242
 243     public function getXFace()
 244     {
 245         header('Content-Type: image/gif');
 246         $xface = $this->headers['x-face'];
 247         passthru('echo ' . escapeshellarg($xface)
 248                 . '| uncompface -X '
 249                 . '| convert -transparent white xbm:- gif:-');
 250         exit;
 251     }
 252
 253     public function getFormattedBody(&$reqtype = null)
 254     {
 255         $types = Banana::$msgshow_mimeparts;
 256         if (!is_null($reqtype)) {
 257             array_unshift($types, $reqtype);
 258         }
 259         foreach ($types as $type) {
 260             @list($type, $subtype) = explode('/', $type);
 261             $parts = $this->getParts($type, $subtype);
 262             if (empty($parts)) {
 263                 continue;
 264             }
 265             $reqtype = implode('/', $parts[0]->getType());
 266             return $parts[0]->toHtml();
 267         }
 268         return null;
 269     }
 270
 271     public function quote()
 272     {
 273         foreach (Banana::$msgedit_mimeparts as $type) {
 274             @list($type, $subtype) = explode('/', $type);
 275             $parts = $this->getParts($type, $subtype);
 276             if (empty($parts)) {
 277                 continue;
 278             }
 279             if ($parts[0] === $this) {
 280                 return parent::quote();
 281             }
 282             return $parts[0]->quote();
 283         }
 284         return null;
 285     }
 286
 287     public function canCancel()
 288     {
 289         if (!Banana::$protocole->canCancel()) {
 290             return false;
 291         }
 292         if (function_exists('hook_checkcancel')) {
 293             return hook_checkcancel($this->headers);
 294         }
 295         return Banana::$profile['name'] == $this->headers['from'];
 296     }
 297
 298     public function canSend()
 299     {
 300         return Banana::$protocole->canSend();
 301     }
 302 }
 303
 304 // vim:set et sw=4 sts=4 ts=4 enc=utf-8:
 305 ?>