<?php
/********************************************************************************
* banana/message.inc.php : class for messages
* ------------------------
*
* This file is part of the banana distribution
* Copyright: See COPYING files that comes with this distribution
********************************************************************************/

require_once dirname(__FILE__) . '/mimepart.inc.php';
require_once dirname(__FILE__) . '/message.func.inc.php';
require_once dirname(__FILE__) . '/banana.inc.php';

final class BananaMessage extends BananaMimePart
{
    private $msg_headers = array();

    public function __construct($data = null)
    {
        parent::__construct($data);
        if (!is_null($data)) {
            if (isset($this->headers['in-reply-to']) && isset($this->headers['references'])) {
                unset($this->headers['in-reply-to']);
            }
            Banana::$msgshow_headers = array_intersect(Banana::$msgshow_headers, array_keys($this->headers));
            Banana::$message =& $this;
        }
    }

    public function hasHeader($hdr)
    {
        return isset($this->headers[$hdr]);
    }

    static public function newMessage(array $headers, $body, array $file = null)
    {
        $msg = new BananaMessage();
        $msg->msg_headers = $headers;
        $msg->makeTextPart($body, 'text/plain', '8bits', 'UTF-8', 'flowed');
        if (!is_null($file)) {
            $msg->addAttachment($file);
        }
        return $msg;
    }

    static public function translateHeaderName($hdr)
    {
        switch (strtolower($hdr)) {
          case 'from':          return _b_('De');
          case 'subject':       return _b_('Sujet');
          case 'newsgroups':    return _b_('Forums');
          case 'followup-to':   return _b_('Suivi à');
          case 'to':            return _b_('À');
          case 'cc':            return _b_('Copie à');
          case 'bcc':           return _b_('Copie cachée à');
          case 'reply-to':      return _b_('Répondre à');
          case 'date':          return _b_('Date');
          case 'organization':  return _b_('Organisation');
          case 'in-reply-to':
          case 'references':    return _b_('Références');
          case 'x-face':        return _b_('Image');
        }
        return $hdr;
    }

    public function translateHeaderValue($hdr)
    {
        if (!isset($this->headers[$hdr])) {
            return null;
        }
        $text = $this->headers[$hdr];

        if (function_exists('hook_formatDisplayHeader')
             && $res = hook_formatDisplayHeader($hdr, $text)) {
            return $res;
        }
        switch ($hdr) {
          case "date":
            return BananaMessage::formatDate($text);

          case "followup-to": case "newsgroups":
            $groups = preg_split("/[\t ]*,[\t ]*/", $text);
            $res    = '';
            foreach ($groups as $g) {
                $res .= Banana::$page->makeLink(Array('group' => $g, 'text' => $g)) . ', ';
            }
            return substr($res,0, -2);

          case "from":
            return BananaMessage::formatFrom($text, $this->headers['subject']);

          case "references": case "in-reply-to":
            $rsl     = "";
            $parents = Banana::$spool->getReferences($this->headers);
            $ndx = 1;
            while (!empty($parents)) {
                $p = array_shift($parents);
                $rsl .= Banana::$page->makeLink(Array('group' => Banana::$spool->group,
                                                      'artid' => $p->id, 'text' => $ndx++)) . ' ';
            }
            return $rsl;

          case "subject":
            $text = stripslashes($text);
            $text = banana_htmlentities($text);
            return banana_catchFormats($text);

          default:
            return $text;
        }
    }

    public function getSender()
    {
        $from = $this->headers['from'];
        $name = trim(strip_tags($from));
        if (empty($name)) {
            return $from;
        }
        return $name;
    }

    public function getHeaderValue($hdr)
    {
        $hdr = strtolower($hdr);
        if (!isset($this->headers[$hdr])) {
            return null;
        }
        if ($hdr == 'date') {
            return strtotime($this->headers['date']);
        } else if ($hdr == 'references' || $hdr == 'reply-to') {
            return str_replace('><', '> <', $this->headers[$hdr]);
        } else {
            return $this->headers[$hdr];
        }
    }

    public function getHeaders()
    {
        $this->msg_headers = array_merge($this->msg_headers, Banana::$msgedit_headers, Banana::$profile['headers']);
        $headers = array_map(array($this, 'encodeHeader'), $this->msg_headers);
        return array_merge($headers, parent::getHeaders());
    }

    static public function extractMail($text)
    {
        if (preg_match("/^\"?([^<>\"]+)\"? +<(.+@.+)>$/", $text, $regs)) {
            # From: Mark Horton <mark@cbosgd.ATT.COM>
            $nom = preg_replace("/^'(.*)'$/", '\1', $regs[1]);
            $nom = stripslashes($nom);
            return array($nom, strtolower($regs[2]));
        } else if (preg_match("/^([^ ]+@[^ ]+) \((.*)\)$/", $text, $regs)) {
            # From: mark@cbosgd.ATT.COM (Mark Horton)
            return array($regs[2], strtolower($regs[1]));
        } else if (preg_match("/^<?([^< ]+@[^> ]+)>?$/", $text, $regs)) {
            # From: <mark@cbosgd.ATT.COM>
            return array($regs[1], strtolower($regs[1]));
        } else {
            # From: mark@cbosgd.ATT.COM
            return array($text, strtolower($text));
        }
    }

    static public function formatFrom($text, $subject = '')
    {
        list($name, $email) = self::extractMail($text);
        if ($subject) {
           $subject = '?subject=' . banana_htmlentities(_b_('Re: ') . $subject, ENT_QUOTES);
        }
        $result = '<a href="mailto:' . $email . $subject . '">' . banana_htmlentities($name) . '</a>';
        return preg_replace("/\\\(\(|\))/","\\1", $result);
    }

    public function getAuthorName()
    {
        $text = $this->getHeaderValue('From');
        $name = null;
        if (preg_match("/^([^ ]+@[^ ]+) \((.*)\)$/", $text, $regs)) {
            $name = $regs[2];
        }
        if (preg_match("/^\"?([^<>\"]+)\"? +<(.+@.+)>$/", $text, $regs)) {
            $name = preg_replace("/^'(.*)'$/", '\1', $regs[1]);
            $name = stripslashes($name);
        }
        if ($name) {
            return preg_replace("/\\\(\(|\))/","\\1", $name);
        }

        if (function_exists('hook_getAuthorName') && $name = hook_getAuthorName($this)) {
            return $name;
        }

        if (preg_match("/([^< ]+)@([^> ]+)/", $text, $regs)) {
            return $regs[1];
        }
        return 'Anonymous';
    }

    static public function formatDate($text)
    {
        return strftime("%A %d %B %Y, %H:%M (fuseau serveur)", strtotime($text));
    }

    public function translateHeaders()
    {
        $result = array();
        foreach (array_keys($this->headers) as $name) {
            $value = $this->translateHeaderValue($name);
            if (!is_null($value)) {
                $result[$this->translateHeaderName($name)] = $value;
            }
        }
        return $result;
    }

    public function getReferences()
    {
        $text = $this->headers['references'];
        $text = str_replace("><","> <", $text);
        return preg_split('/\s/', $text);
    }

    public function hasXFace()
    {
        return Banana::$msgshow_xface &&
               ((function_exists('hook_hasxface') && hook_hasXFace($this->headers))
               || isset($this->headers['x-face']));
    }

    public function getXFace()
    {
        if (function_exists('hook_getxface') && hook_getXFace($this->headers)) {
            return;
        }
        header('Content-Type: image/gif');
        $xface = $this->headers['x-face'];
        passthru('echo ' . escapeshellarg($xface)
                . '| uncompface -X '
                . '| convert -transparent white xbm:- gif:-');
        exit;
    }

    public function getFormattedBody(&$reqtype = null)
    {
        $types = Banana::$msgshow_mimeparts;
        if (!is_null($reqtype)) {
            array_unshift($types, $reqtype);
        }
        foreach ($types as $type) {
            @list($type, $subtype) = explode('/', $type);
            $parts = $this->getParts($type, $subtype);
            if (empty($parts)) {
                continue;
            }
            $reqtype = implode('/', $parts[0]->getType());
            return $parts[0]->toHtml();
        }
        return null;
    }

    public function quote()
    {
        foreach (Banana::$msgedit_mimeparts as $type) {
            @list($type, $subtype) = explode('/', $type);
            $parts = $this->getParts($type, $subtype);
            if (empty($parts)) {
                continue;
            }
            if ($parts[0] === $this) {
                return parent::quote();
            }
            return $parts[0]->quote();
        }
        return null;
    }

    public function canCancel()
    {
        if (!Banana::$protocole->canCancel()) {
            return false;
        }
        if (function_exists('hook_checkcancel')) {
            return hook_checkcancel($this->headers);
        }
        return Banana::$profile['headers']['From'] == $this->headers['from'];
    }

    public function canSend()
    {
        return Banana::$protocole->canSend();
    }

    public function getSignature()
    {
        $email = $this->getHeaderValue('from');
        if (preg_match('/<?([^ <]+@[^ >]+)>?/', $email, $matches)) {
            $email = $matches[1];
        }
        $signature = BananaMimePart::getSignature();
        if (empty($signature)) {
            return $signature;
        } else {
            foreach ($signature['identity'] as $ident) {
                if (strpos($ident, "<$email>") !== false) {
                    return $signature;
                }
            }
            $signature['certified'] = false;
            $signature['certification_error'] = 'mauvaise identité';
        }
        return $signature;
    }
}

// vim:set et sw=4 sts=4 ts=4 fenc=utf-8:
?>