[banana.git] / banana / message.inc.php

<?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 = preg_grep('/^\d+$/', $this->getTranslatedReferences());
            $p       = array_pop($parents);

            $parents = array();
            while (!is_null($p)) {
                array_unshift($parents, $p);
                $p         = Banana::$spool->overview[$p]->parent;  
            }
            $ndx = 1;
            foreach ($parents as $p) {
                $rsl .= Banana::$page->makeLink(Array('group' => Banana::$spool->group,
                                                      'artid' => $p, '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 formatFrom($text, $subject = '')
    {
#     From: mark@cbosgd.ATT.COM
#     From: <mark@cbosgd.ATT.COM>
#     From: mark@cbosgd.ATT.COM (Mark Horton)
#     From: Mark Horton <mark@cbosgd.ATT.COM>
        $mailto = '<a href="mailto:';

        $result = banana_htmlentities($text);
        if ($subject) {
           $subject = '?subject=' . banana_htmlentities(_b_('Re: ') . $subject, ENT_QUOTES);
        }
        if (preg_match("/^<?([^< ]+@[^> ]+)>?$/", $text, $regs)) {
            $result = $mailto . $regs[1] . $subject . '">' . banana_htmlentities($regs[1]) . '</a>';
        }
        if (preg_match("/^([^ ]+@[^ ]+) \((.*)\)$/", $text, $regs)) {
            $result = $mailto . $regs[1] . $subject . '">' . banana_htmlentities($regs[2]) . '</a>';
        }
        if (preg_match("/^\"?([^<>\"]+)\"? +<(.+@.+)>$/", $text, $regs)) {
            $nom = preg_replace("/^'(.*)'$/", '\1', $regs[1]);
            $nom = stripslashes($nom);
            $result = $mailto . $regs[2] . $subject . '">' . banana_htmlentities($nom) . '</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 getTranslatedReferences()
    {
        return BananaMessage::formatReferences($this->headers);
    }

    static public function &formatReferences(array &$refs)
    {
        $references = array();
        $msgs = Banana::$spool->getReferences($refs);
        foreach ($msgs as &$msg) {
            $references[] = $msg->id;
        }
        return $references;
    }

    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 enc=utf-8:
?>
Commit	Line	Data
7027794f	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	}
e9360b11	25	Banana::$msgshow_headers = array_intersect(Banana::$msgshow_headers, array_keys($this->headers));
7027794f	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;
168e9acb	39	$msg->makeTextPart($body, 'text/plain', '8bits', 'UTF-8', 'flowed');
7027794f	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');
598a1c53	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 à');
7027794f	57	case 'date': return _b_('Date');
	58	case 'organization': return _b_('Organisation');
	59	case 'in-reply-to':
598a1c53	60	case 'references': return _b_('Références');
7027794f	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":
f8391ee4	90	return BananaMessage::formatFrom($text, $this->headers['subject']);
7027794f	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":
7027794f	110	$text = stripslashes($text);
ba77e884	111	$text = banana_htmlentities($text);
b87c9103	112	return banana_catchFormats($text);
7027794f	113
	114	default:
	115	return $text;
	116	}
	117	}
	118
	119	public function getSender()
	120	{
	121	$from = $this->headers['from'];
66e81236	122	$name = trim(strip_tags($from));
7027794f	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']);
3172a611	137	} else if ($hdr == 'references' \|\| $hdr == 'reply-to') {
3172a611	138	return str_replace('><', '> <', $this->headers[$hdr]);
7027794f	139	} else {
	140	return $this->headers[$hdr];
	141	}
	142	}
	143
	144	public function getHeaders()
	145	{
e9360b11	146	$this->msg_headers = array_merge($this->msg_headers, Banana::$msgedit_headers, Banana::$profile['headers']);
7027794f	147	$headers = array_map(array($this, 'encodeHeader'), $this->msg_headers);
	148	return array_merge($headers, parent::getHeaders());
	149	}
	150
f8391ee4	151	static public function formatFrom($text, $subject = '')
7027794f	152	{
	153	# From: mark@cbosgd.ATT.COM
	154	# From: <mark@cbosgd.ATT.COM>
	155	# From: mark@cbosgd.ATT.COM (Mark Horton)
	156	# From: Mark Horton <mark@cbosgd.ATT.COM>
	157	$mailto = '<a href="mailto:';
f8391ee4	158
7027794f	159	$result = banana_htmlentities($text);
f8391ee4	160	if ($subject) {
	161	$subject = '?subject=' . banana_htmlentities(_b_('Re: ') . $subject, ENT_QUOTES);
	162	}
e02edbfe	163	if (preg_match("/^<?([^< ]+@[^> ]+)>?$/", $text, $regs)) {
f8391ee4	164	$result = $mailto . $regs[1] . $subject . '">' . banana_htmlentities($regs[1]) . '</a>';
7027794f	165	}
7027794f	166	if (preg_match("/^([^ ]+@[^ ]+) \((.*)\)$/", $text, $regs)) {
f8391ee4	167	$result = $mailto . $regs[1] . $subject . '">' . banana_htmlentities($regs[2]) . '</a>';
66e81236	168	}
7027794f	169	if (preg_match("/^\"?([^<>\"]+)\"? +<(.+@.+)>$/", $text, $regs)) {
	170	$nom = preg_replace("/^'(.*)'$/", '\1', $regs[1]);
	171	$nom = stripslashes($nom);
f8391ee4	172	$result = $mailto . $regs[2] . $subject . '">' . banana_htmlentities($nom) . '</a>';
7027794f	173	}
	174	return preg_replace("/\\\(\(\|\))/","\\1",$result);
	175	}
	176
e02edbfe	177	public function getAuthorName()
	178	{
	179	$text = $this->getHeaderValue('From');
	180	$name = null;
	181	if (preg_match("/^([^ ]+@[^ ]+) \((.*)\)$/", $text, $regs)) {
	182	$name = $regs[2];
66e81236	183	}
e02edbfe	184	if (preg_match("/^\"?([^<>\"]+)\"? +<(.+@.+)>$/", $text, $regs)) {
	185	$name = preg_replace("/^'(.*)'$/", '\1', $regs[1]);
	186	$name = stripslashes($name);
	187	}
	188	if ($name) {
	189	return preg_replace("/\\\(\(\|\))/","\\1", $name);
	190	}
	191
	192	if (function_exists('hook_getAuthorName') && $name = hook_getAuthorName($this)) {
	193	return $name;
	194	}
	195
	196	if (preg_match("/([^< ]+)@([^> ]+)/", $text, $regs)) {
	197	return $regs[1];
	198	}
	199	return 'Anonymous';
	200	}
	201
7027794f	202	static public function formatDate($text)
7027794f	203	{
22b95309	204	return strftime("%A %d %B %Y, %H:%M (fuseau serveur)", strtotime($text));
7027794f	205	}
	206
	207	public function translateHeaders()
	208	{
	209	$result = array();
	210	foreach (array_keys($this->headers) as $name) {
	211	$value = $this->translateHeaderValue($name);
	212	if (!is_null($value)) {
	213	$result[$this->translateHeaderName($name)] = $value;
	214	}
	215	}
	216	return $result;
	217	}
	218
	219	public function getReferences()
	220	{
	221	$text = $this->headers['references'];
	222	$text = str_replace("><","> <", $text);
	223	return preg_split('/\s/', $text);
	224	}
	225
	226	public function getTranslatedReferences()
	227	{
	228	return BananaMessage::formatReferences($this->headers);
	229	}
	230
0580f927	231	static public function &formatReferences(array &$refs)
7027794f	232	{
0580f927	233	$references = array();
	234	$msgs = Banana::$spool->getReferences($refs);
	235	foreach ($msgs as &$msg) {
	236	$references[] = $msg->id;
7027794f	237	}
0580f927	238	return $references;
7027794f	239	}
	240
	241	public function hasXFace()
	242	{
27934b36	243	return Banana::$msgshow_xface &&
	244	((function_exists('hook_hasxface') && hook_hasXFace($this->headers))
	245	\|\| isset($this->headers['x-face']));
7027794f	246	}
	247
	248	public function getXFace()
	249	{
27934b36	250	if (function_exists('hook_getxface') && hook_getXFace($this->headers)) {
	251	return;
	252	}
7027794f	253	header('Content-Type: image/gif');
	254	$xface = $this->headers['x-face'];
	255	passthru('echo ' . escapeshellarg($xface)
	256	. '\| uncompface -X '
	257	. '\| convert -transparent white xbm:- gif:-');
	258	exit;
	259	}
	260
a9defc17	261	public function getFormattedBody(&$reqtype = null)
7027794f	262	{
e9360b11	263	$types = Banana::$msgshow_mimeparts;
a9defc17	264	if (!is_null($reqtype)) {
a9defc17	265	array_unshift($types, $reqtype);
7027794f	266	}
	267	foreach ($types as $type) {
	268	@list($type, $subtype) = explode('/', $type);
	269	$parts = $this->getParts($type, $subtype);
	270	if (empty($parts)) {
	271	continue;
	272	}
a9defc17	273	$reqtype = implode('/', $parts[0]->getType());
3c3a3ce3	274	return $parts[0]->toHtml();
7027794f	275	}
	276	return null;
	277	}
	278
	279	public function quote()
	280	{
3c3a3ce3	281	foreach (Banana::$msgedit_mimeparts as $type) {
	282	@list($type, $subtype) = explode('/', $type);
	283	$parts = $this->getParts($type, $subtype);
	284	if (empty($parts)) {
	285	continue;
	286	}
	287	if ($parts[0] === $this) {
	288	return parent::quote();
	289	}
	290	return $parts[0]->quote();
7027794f	291	}
3c3a3ce3	292	return null;
7027794f	293	}
	294
	295	public function canCancel()
	296	{
	297	if (!Banana::$protocole->canCancel()) {
	298	return false;
	299	}
	300	if (function_exists('hook_checkcancel')) {
	301	return hook_checkcancel($this->headers);
	302	}
1ffc081d	303	return Banana::$profile['headers']['From'] == $this->headers['from'];
7027794f	304	}
	305
	306	public function canSend()
	307	{
	308	return Banana::$protocole->canSend();
	309	}
a3c90095	310
	311	public function getSignature()
	312	{
	313	$email = $this->getHeaderValue('from');
	314	if (preg_match('/<?([^ <]+@[^ >]+)>?/', $email, $matches)) {
	315	$email = $matches[1];
	316	}
	317	$signature = BananaMimePart::getSignature();
	318	if (empty($signature)) {
	319	return $signature;
	320	} else {
	321	foreach ($signature['identity'] as $ident) {
	322	if (strpos($ident, "<$email>") !== false) {
	323	return $signature;
	324	}
	325	}
	326	$signature['certified'] = false;
	327	$signature['certification_error'] = 'mauvaise identité';
	328	}
	329	return $signature;
	330	}
7027794f	331	}
7027794f	332
598a1c53	333	// vim:set et sw=4 sts=4 ts=4 enc=utf-8:
7027794f	334	?>