[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', 'fixed');
        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);

          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 = html_entities($text);
            return banana_catchFormats($text);

          default:
            return $text;
        }
    }

    public function getSender()
    {
        $from = $this->headers['from'];
        $name = trim(preg_replace('/<[^ ]*>/', '', $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 {
            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)
    {
#     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 (preg_match("/^([^ ]+@[^ ]+)$/", $text, $regs)) {
            $result = $mailto . $regs[1] . '">' . banana_htmlentities($regs[1]) . '</a>';
        }
        if (preg_match("/^<(.+@.+)>$/", $text, $regs)) {
            $result = $mailto . $regs[1] . '">' . banana_htmlentities($regs[1]) . '</a>';
        }
        if (preg_match("/^([^ ]+@[^ ]+) \((.*)\)$/", $text, $regs)) {
            $result = $mailto . $regs[1] . '">' . banana_htmlentities($regs[2]) . '</a>';
        }   
        if (preg_match("/^\"?([^<>\"]+)\"? +<(.+@.+)>$/", $text, $regs)) {
            $nom = preg_replace("/^'(.*)'$/", '\1', $regs[1]);
            $nom = stripslashes($nom);
            $result = $mailto . $regs[2] . '">' . banana_htmlentities($nom) . '</a>';
        }
        return preg_replace("/\\\(\(|\))/","\\1",$result);
    }

    static public function formatDate($text)
    {
        return utf8_encode(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)
    {
        if (isset($refs['references'])) {
            $text = str_replace('><', '> <', $refs['references']);
            return preg_split('/\s/', strtr($text, Banana::$spool->ids));
        } elseif (isset($refs['in-reply-to'])) {
            return array(Banana::$spool->ids[$refs['in-reply-to']]);
        } else {
            return array();
        }
    }

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

    public function getXFace()
    {
        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['name'] == $this->headers['from'];
    }

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

// 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;
	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');
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":
	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":
7027794f	110	$text = stripslashes($text);
2d4e8347	111	$text = html_entities($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'];
	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	{
e9360b11	144	$this->msg_headers = array_merge($this->msg_headers, Banana::$msgedit_headers, Banana::$profile['headers']);
7027794f	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[1]) . '</a>';
	163	}
	164	if (preg_match("/^([^ ]+@[^ ]+) \((.*)\)$/", $text, $regs)) {
	165	$result = $mailto . $regs[1] . '">' . 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] . '">' . banana_htmlentities($nom) . '</a>';
	171	}
	172	return preg_replace("/\\\(\(\|\))/","\\1",$result);
	173	}
	174
	175	static public function formatDate($text)
	176	{
	177	return utf8_encode(strftime("%A %d %B %Y, %H:%M (fuseau serveur)", strtotime($text)));
	178	}
	179
	180	public function translateHeaders()
	181	{
	182	$result = array();
	183	foreach (array_keys($this->headers) as $name) {
	184	$value = $this->translateHeaderValue($name);
	185	if (!is_null($value)) {
	186	$result[$this->translateHeaderName($name)] = $value;
	187	}
	188	}
	189	return $result;
	190	}
	191
	192	public function getReferences()
	193	{
	194	$text = $this->headers['references'];
	195	$text = str_replace("><","> <", $text);
	196	return preg_split('/\s/', $text);
	197	}
	198
	199	public function getTranslatedReferences()
	200	{
	201	return BananaMessage::formatReferences($this->headers);
	202	}
	203
	204	static public function formatReferences(array &$refs)
	205	{
	206	if (isset($refs['references'])) {
	207	$text = str_replace('><', '> <', $refs['references']);
	208	return preg_split('/\s/', strtr($text, Banana::$spool->ids));
209	} elseif (isset($refs['in-reply-to'])) {
210	return array(Banana::$spool->ids[$refs['in-reply-to']]);
211	} else {
212	return array();
213	}
214	}
215
216	public function hasXFace()
217	{
e9360b11	218	return Banana::$msgshow_xface && isset($this->headers['x-face']);
7027794f	219	}
	220
	221	public function getXFace()
	222	{
	223	header('Content-Type: image/gif');
	224	$xface = $this->headers['x-face'];
	225	passthru('echo ' . escapeshellarg($xface)
	226	. '\| uncompface -X '
	227	. '\| convert -transparent white xbm:- gif:-');
	228	exit;
	229	}
	230
a9defc17	231	public function getFormattedBody(&$reqtype = null)
7027794f	232	{
e9360b11	233	$types = Banana::$msgshow_mimeparts;
a9defc17	234	if (!is_null($reqtype)) {
a9defc17	235	array_unshift($types, $reqtype);
7027794f	236	}
	237	foreach ($types as $type) {
	238	@list($type, $subtype) = explode('/', $type);
	239	$parts = $this->getParts($type, $subtype);
	240	if (empty($parts)) {
	241	continue;
	242	}
a9defc17	243	$reqtype = implode('/', $parts[0]->getType());
3c3a3ce3	244	return $parts[0]->toHtml();
7027794f	245	}
	246	return null;
	247	}
	248
	249	public function quote()
	250	{
3c3a3ce3	251	foreach (Banana::$msgedit_mimeparts as $type) {
	252	@list($type, $subtype) = explode('/', $type);
	253	$parts = $this->getParts($type, $subtype);
	254	if (empty($parts)) {
	255	continue;
	256	}
	257	if ($parts[0] === $this) {
	258	return parent::quote();
	259	}
	260	return $parts[0]->quote();
7027794f	261	}
3c3a3ce3	262	return null;
7027794f	263	}
	264
	265	public function canCancel()
	266	{
	267	if (!Banana::$protocole->canCancel()) {
	268	return false;
	269	}
	270	if (function_exists('hook_checkcancel')) {
	271	return hook_checkcancel($this->headers);
	272	}
	273	return Banana::$profile['name'] == $this->headers['from'];
	274	}
	275
	276	public function canSend()
	277	{
	278	return Banana::$protocole->canSend();
	279	}
	280	}
	281
598a1c53	282	// vim:set et sw=4 sts=4 ts=4 enc=utf-8:
7027794f	283	?>