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', 'flowed');
  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, $this->headers['subject']);
  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, $subject = '')
 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 ($subject) {
 159            $subject = '?subject=' . banana_htmlentities(_b_('Re: ') . $subject, ENT_QUOTES);
 160         }
 161         if (preg_match("/^<?([^< ]+@[^> ]+)>?$/", $text, $regs)) {
 162             $result = $mailto . $regs[1] . $subject . '">' . banana_htmlentities($regs[1]) . '</a>';
 163         }
 164         if (preg_match("/^([^ ]+@[^ ]+) \((.*)\)$/", $text, $regs)) {
 165             $result = $mailto . $regs[1] . $subject . '">' . banana_htmlentities($regs[2]) . '</a>';
 166         }
 167         if (preg_match("/^\"?([^<>\"]+)\"? +<(.+@.+)>$/", $text, $regs)) {
 168             $nom = preg_replace("/^'(.*)'$/", '\1', $regs[1]);
 169             $nom = stripslashes($nom);
 170             $result = $mailto . $regs[2] . $subject . '">' . banana_htmlentities($nom) . '</a>';
 171         }
 172         return preg_replace("/\\\(\(|\))/","\\1",$result);
 173     }
 174
 175     public function getAuthorName()
 176     {
 177         $text = $this->getHeaderValue('From');
 178         $name = null;
 179         if (preg_match("/^([^ ]+@[^ ]+) \((.*)\)$/", $text, $regs)) {
 180             $name = $regs[2];
 181         }
 182         if (preg_match("/^\"?([^<>\"]+)\"? +<(.+@.+)>$/", $text, $regs)) {
 183             $name = preg_replace("/^'(.*)'$/", '\1', $regs[1]);
 184             $name = stripslashes($name);
 185         }
 186         if ($name) {
 187             return preg_replace("/\\\(\(|\))/","\\1", $name);
 188         }
 189
 190         if (function_exists('hook_getAuthorName') && $name = hook_getAuthorName($this)) {
 191             return $name;
 192         }
 193
 194         if (preg_match("/([^< ]+)@([^> ]+)/", $text, $regs)) {
 195             return $regs[1];
 196         }
 197         return 'Anonymous';
 198     }
 199
 200     static public function formatDate($text)
 201     {
 202         return strftime("%A %d %B %Y, %H:%M (fuseau serveur)", strtotime($text));
 203     }
 204
 205     public function translateHeaders()
 206     {
 207         $result = array();
 208         foreach (array_keys($this->headers) as $name) {
 209             $value = $this->translateHeaderValue($name);
 210             if (!is_null($value)) {
 211                 $result[$this->translateHeaderName($name)] = $value;
 212             }
 213         }
 214         return $result;
 215     }
 216
 217     public function getReferences()
 218     {
 219         $text = $this->headers['references'];
 220         $text = str_replace("><","> <", $text);
 221         return preg_split('/\s/', $text);
 222     }
 223
 224     public function getTranslatedReferences()
 225     {
 226         return BananaMessage::formatReferences($this->headers);
 227     }
 228
 229     static public function formatReferences(array &$refs)
 230     {
 231         if (isset($refs['references'])) {
 232             $text = preg_split('/\s/', str_replace('><', '> <', $refs['references']));
 233             foreach ($text as $id=>&$value) {
 234                 if (isset(Banana::$spool->ids[$value])) {
 235                     $value = Banana::$spool->ids[$value];
 236                 } else {
 237                     unset($text[$id]);
 238                 }
 239             }
 240             return $text;
 241         } elseif (isset($refs['in-reply-to']) && isset(Banana::$spool->ids[$refs['in-reply-to']])) {
 242             return array(Banana::$spool->ids[$refs['in-reply-to']]);
 243         } else {
 244             return array();
 245         }
 246     }
 247
 248     public function hasXFace()
 249     {
 250         return Banana::$msgshow_xface && isset($this->headers['x-face']);
 251     }
 252
 253     public function getXFace()
 254     {
 255         header('Content-Type: image/gif');
 256         $xface = $this->headers['x-face'];
 257         passthru('echo ' . escapeshellarg($xface)
 258                 . '| uncompface -X '
 259                 . '| convert -transparent white xbm:- gif:-');
 260         exit;
 261     }
 262
 263     public function getFormattedBody(&$reqtype = null)
 264     {
 265         $types = Banana::$msgshow_mimeparts;
 266         if (!is_null($reqtype)) {
 267             array_unshift($types, $reqtype);
 268         }
 269         foreach ($types as $type) {
 270             @list($type, $subtype) = explode('/', $type);
 271             $parts = $this->getParts($type, $subtype);
 272             if (empty($parts)) {
 273                 continue;
 274             }
 275             $reqtype = implode('/', $parts[0]->getType());
 276             return $parts[0]->toHtml();
 277         }
 278         return null;
 279     }
 280
 281     public function quote()
 282     {
 283         foreach (Banana::$msgedit_mimeparts as $type) {
 284             @list($type, $subtype) = explode('/', $type);
 285             $parts = $this->getParts($type, $subtype);
 286             if (empty($parts)) {
 287                 continue;
 288             }
 289             if ($parts[0] === $this) {
 290                 return parent::quote();
 291             }
 292             return $parts[0]->quote();
 293         }
 294         return null;
 295     }
 296
 297     public function canCancel()
 298     {
 299         if (!Banana::$protocole->canCancel()) {
 300             return false;
 301         }
 302         if (function_exists('hook_checkcancel')) {
 303             return hook_checkcancel($this->headers);
 304         }
 305         return Banana::$profile['name'] == $this->headers['from'];
 306     }
 307
 308     public function canSend()
 309     {
 310         return Banana::$protocole->canSend();
 311     }
 312 }
 313
 314 // vim:set et sw=4 sts=4 ts=4 enc=utf-8:
 315 ?>