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

<?php
/********************************************************************************
 * include/misc.inc.php : Misc functions
 * -------------------------
 *
 * This file is part of the banana distribution
 * Copyright: See COPYING files that comes with this distribution
 ********************************************************************************/

/********************************************************************************
 *  MISC
 */

function _b_($str) { return utf8_decode(dgettext('banana', utf8_encode($str))); }

function to_entities($str) {
    require_once dirname(__FILE__).'/utf8.php';
    return utf8entities(htmlentities($str, ENT_NOQUOTES, 'UTF-8'));
}

function is_utf8($s) { return iconv('utf-8', 'utf-8', $s) == $s; }

function textFormat_translate($format)
{
    switch (strtolower($format)) {
        case 'plain':       return _b_('Texte brut');
        case 'richtext':    return _b_('Texte enrichi');
        case 'html':        return _b_('HTML');
        default:            return $format;
    }
}

/********************************************************************************
 * HTML STUFF
 * Taken from php.net
 */

/**
 * @return string
 * @param string
 * @desc Strip forbidden tags and delegate tag-source check to removeEvilAttributes()
 */
function removeEvilTags($source)
{
    $allowedTags = '<h1><b><i><a><ul><li><pre><hr><blockquote><img><br><font><p><small><big><sup><sub><code><em>';
    $source = preg_replace('|</div>|i', '<br />', $source);
    $source = strip_tags($source, $allowedTags);
    return preg_replace('/<(.*?)>/ie', "'<'.removeEvilAttributes('\\1').'>'", $source);
}

/**
 * @return string
 * @param string
 * @desc Strip forbidden attributes from a tag
 */
function removeEvilAttributes($tagSource)
{
    $stripAttrib = 'javascript:|onclick|ondblclick|onmousedown|onmouseup|onmouseover|'.
                   'onmousemove|onmouseout|onkeypress|onkeydown|onkeyup';
    return stripslashes(preg_replace("/$stripAttrib/i", '', $tagSource));
}

/** Convert html to plain text
 */
function htmlToPlainText($res)
{
    $res = trim(html_entity_decode(strip_tags($res, '<div><br><p>')));
    $res = preg_replace("@</?(br|p|div)[^>]*>@i", "\n", $res);
    if (!is_utf8($res)) {
        $res = utf8_encode($res);
    }   
    return $res;
}

/********************************************************************************
 * RICHTEXT STUFF
 */

/** Convert richtext to html
 */
function richtextToHtml($source)
{
    $tags = Array('bold' => 'b',
                  'italic' => 'i',
                  'smaller' => 'small',
                  'bigger' => 'big',
                  'underline' => 'u',
                  'subscript' => 'sub',
                  'superscript' => 'sup',
                  'excerpt' => 'blockquote',
                  'paragraph' => 'p',
                  'nl' => 'br'
            );
            
    // clean unsupported tags
    $protectedTags = '<signature><lt><comment><'.join('><', array_keys($tags)).'>';
    $source = strip_tags($source, $protectedTags);
    
    // convert richtext tags to html
    foreach (array_keys($tags) as $tag) {
        $source = preg_replace('@(</?)'.$tag.'([^>]*>)@i', '\1'.$tags[$tag].'\2', $source);
    }

    // some special cases
    $source = preg_replace('@<signature>@i', '<br>-- <br>', $source);
    $source = preg_replace('@</signature>@i', '', $source);
    $source = preg_replace('@<lt>@i', '&lt;', $source);
    $source = preg_replace('@<comment[^>]*>((?:[^<]|<(?!/comment>))*)</comment>@i', '<!-- \1 -->', $source);
    return removeEvilAttributes($source);
}

/********************************************************************************
 *  HEADER STUFF
 */

function _headerdecode($charset, $c, $str) {
    $s = ($c == 'Q' || $c == 'q') ? quoted_printable_decode($str) : base64_decode($str);
    $s = iconv($charset, 'iso-8859-15', $s);
    return str_replace('_', ' ', $s);
}
 
function headerDecode($value) {
    $val = preg_replace('/(=\?[^?]*\?[BQbq]\?[^?]*\?=) (=\?[^?]*\?[BQbq]\?[^?]*\?=)/', '\1\2', $value);
    return preg_replace('/=\?([^?]*)\?([BQbq])\?([^?]*)\?=/e', '_headerdecode("\1", "\2", "\3")', $val);
}

function headerEncode($value, $trim = 0) {
    if ($trim) {
        if (strlen($value) > $trim) {
            $value = substr($value, 0, $trim) . "[...]";
        }
    }
    return "=?UTF-8?B?".base64_encode($value)."?=";
}

function header_translate($hdr) {
    switch ($hdr) {
        case 'from':            return _b_('De');
        case 'subject':         return _b_('Sujet');
        case 'newsgroups':      return _b_('Forums');
        case 'followup-to':     return _b_('Suivi-�');
        case 'date':            return _b_('Date');
        case 'organization':    return _b_('Organisation');
        case 'references':      return _b_('R�f�rences');
        case 'x-face':          return _b_('Image');
        default:
            if (function_exists('hook_headerTranslate')
                    && $res = hook_headerTranslate($hdr)) {
                return $res;
            }
            return $hdr;
    }
}

function formatDisplayHeader($_header,$_text) {
    global $banana;
    switch ($_header) {
        case "date": 
            return formatDate($_text);
        
        case "followup-to":
            case "newsgroups":
            $res = "";
            $groups = preg_split("/[\t ]*,[\t ]*/",$_text);
            foreach ($groups as $g) {
                $res.="<a href='?group=$g'>$g</a>, ";
            }
            return substr($res,0, -2);

        case "from":
            return formatFrom($_text);
        
        case "references":
            $rsl     = "";
            $ndx     = 1;
            $text    = str_replace("><","> <",$_text);
            $text    = preg_split("/[ \t]/",strtr($text,$banana->spool->ids));
            $parents = preg_grep("/^\d+$/",$text);
            $p       = array_pop($parents);
            $par_ok  = Array();
            
            while ($p) {
                $par_ok[]=$p;
                $p = $banana->spool->overview[$p]->parent;
            }
            foreach (array_reverse($par_ok) as $p) {
                $rsl .= "<a href=\"?group={$banana->spool->group}&amp;artid=$p\">$ndx</a> ";
                $ndx++;
            }
            return $rsl;

        case "x-face":
            return '<img src="xface.php?face='.urlencode(base64_encode($_text)).'"  alt="x-face" />';
        
        default:
            if (function_exists('hook_formatDisplayHeader')
                    && $res = hook_formatDisplayHeader($_header, $_text))
            {
                return $res;
            }
            return htmlentities($_text);
    }
}

/********************************************************************************
 *  FORMATTING STUFF
 */

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

function fancyDate($stamp) {
    $today  = intval(time() / (24*3600));
    $dday   = intval($stamp / (24*3600));

    if ($today == $dday) {
        $format = "%H:%M";
    } elseif ($today == 1 + $dday) {
        $format = _b_('hier')." %H:%M";
    } elseif ($today < 7 + $dday) {
        $format = '%a %H:%M';
    } else {
        $format = '%a %e %b';
    }
    return strftime($format, $stamp);
}

function formatFrom($text) {
#     From: mark@cbosgd.ATT.COM
#     From: mark@cbosgd.ATT.COM (Mark Horton)
#     From: Mark Horton <mark@cbosgd.ATT.COM>
    $mailto = '<a href="&#109;&#97;&#105;&#108;&#116;&#111;&#58;';

    $result = htmlentities($text);
    if (preg_match("/^([^ ]+)@([^ ]+)$/",$text,$regs)) {
        $result="$mailto{$regs[1]}&#64;{$regs[2]}\">".htmlentities($regs[1]."&#64;".$regs[2])."</a>";
    }
    if (preg_match("/^([^ ]+)@([^ ]+) \((.*)\)$/",$text,$regs)) {
        $result="$mailto{$regs[1]}&#64;{$regs[2]}\">".htmlentities($regs[3])."</a>";
    }
    if (preg_match("/^\"?([^<>\"]+)\"? +<(.+)@(.+)>$/",$text,$regs)) {
        $result="$mailto{$regs[2]}&#64;{$regs[3]}\">".htmlentities($regs[1])."</a>";
    }
    return preg_replace("/\\\(\(|\))/","\\1",$result);
}

function displayshortcuts($first = -1) {
    global $banana;
    extract($banana->state);

    $res  = '<div class="banana_scuts">';
    $res .= '[<a href="?">'._b_('Liste des forums').'</a>] ';
    if (is_null($group)) {
        return $res.'[<a href="?subscribe=1">'._b_('Abonnements').'</a>]</div>';
    }
   
    $res .= "[<a href=\"?group=$group\">$group</a>] ";

    if (is_null($artid)) {
        $res .= "[<a href=\"?group=$group&amp;action=new\">"._b_('Nouveau message')."</a>] ";
        if (sizeof($banana->spool->overview)>$banana->tmax) {
            $res .= '<br />';
            $n = intval(log(count($banana->spool->overview), 10))+1;
            for ($ndx=1; $ndx <= sizeof($banana->spool->overview); $ndx += $banana->tmax) {
                if ($first==$ndx) {
                    $fmt = "[%0{$n}u-%0{$n}u] ";
                } else {
                    $fmt = "[<a href=\"?group=$group&amp;first=$ndx\">%0{$n}u-%0{$n}u</a>] ";
                }
                $res .= sprintf($fmt, $ndx, min($ndx+$banana->tmax-1,sizeof($banana->spool->overview)));
            }
        }
    } else {
        $res .= "[<a href=\"?group=$group&amp;artid=$artid&amp;action=new\">"
             ._b_('R�pondre')."</a>] ";
        if ($banana->post && $banana->post->checkcancel()) {
            $res .= "[<a href=\"?group=$group&amp;artid=$artid&amp;action=cancel\">"
                 ._b_('Annuler ce message')."</a>] ";
        }
    }
    return $res.'</div>';
}

/********************************************************************************
 *  FORMATTING STUFF : BODY
 */

function autoformat($text)
{
    global $banana;
    $length = $banana->wrap;
        
    $cmd = "echo ".escapeshellarg($text)." | perl -MText::Autoformat -e 'autoformat {left=>1, right=>$length, all=>1 };'";
    exec($cmd, $result, $ret);
    if ($ret != 0) {
        $result = split("\n", $text);
    }
    return $result;
}                                

function wrap($text, $_prefix="", $_force=false)
{
    $parts = preg_split("/\n-- ?\n/", $text);
    if (count($parts)  >1) {
        $sign = "\n-- \n" . array_pop($parts);
        $text = join("\n-- \n", $parts);
    } else {
        $sign = '';
    }
   
    global $banana;
    $url    = $banana->url_regexp;
    $length = $banana->wrap;
    $max    = $length + ($length/10);
    $splits = split("\n", $text);
    $result = array();
    $next   = array();
    $format = false;
    foreach ($splits as $line) {
        if ($_force || strlen($line) > $max) {
            if (preg_match("!^(.*)($url)(.*)!i", $line, $matches) && strlen($matches[2]) > $length && strlen($matches) < 900) {
                if (strlen($matches[1]) != 0) {
                    array_push($next, rtrim($matches[1]));
                    if (strlen($matches[1]) > $max) {
                        $format = true;
                    }
                }
                    
                if ($format) {
                    $result = array_merge($result, autoformat(join("\n", $next)));
                } else {
                    $result = array_merge($result, $next);
                }
                $format = false;
                $next   = array();
                array_push($result, $matches[2]);
                    
                if (strlen($matches[6]) != 0) {
                    array_push($next, ltrim($matches[6]));
                    if (strlen($matches[6]) > $max) {
                        $format = true;
                    }
                }
            } else {
                $format = true;
                array_push($next, $line);
            }
        } else {
            array_push($next, $line);
        }
    }
    if ($format) {
        $result = array_merge($result, autoformat(join("\n", $next)));
    } else {
        $result = array_merge($result, $next);
    }

    return $_prefix.join("\n$_prefix", $result).($_prefix ? '' : $sign);
}

function cutlink($link)
{
    global $banana;
    
    if (strlen($link) > $banana->wrap) {
        $link = substr($link, 0, $banana->wrap - 3)."...";
    }
    return $link;
}

function cleanurl($url)
{
    $url = str_replace('@', '%40', $url);
    return '<a href="'.$url.'" title="'.$url.'">'.cutlink($url).'</a>';
}

function formatbody($_text, $format='plain', $flowed=false)
{
    if ($format == 'html') {
        $res = '<br/>'.html_entity_decode(to_entities(removeEvilTags($_text))).'<br/>';
    } else if ($format == 'richtext') {
        $res = '<br/>'.html_entity_decode(to_entities(richtextToHtml($_text))).'<br/>';
    } else {
        $res  = "\n\n" . to_entities(wrap($_text, "", $flowed))."\n\n";
    }

    if ($format != 'html') {
        global $banana;
        $url  = $banana->url_regexp;
        $res  = preg_replace("/(&lt;|&gt;|&quot;)/", " \\1 ", $res);
        $res  = preg_replace("!$url!ie", "'\\1'.cleanurl('\\2').'\\3'", $res);
        $res  = preg_replace('/(["\[])?(?:mailto:)?([a-z0-9.\-+_]+@[a-z0-9.\-+_]+)(["\]])?/i', '\1<a href="mailto:\2">\2</a>\3', $res);
        $res  = preg_replace("/ (&lt;|&gt;|&quot;) /", "\\1", $res);

        if ($format == 'richtext') {
            $format = 'html';
        }
    }
 
    if ($format == 'html') {
        $res = preg_replace("@(</p>)\n?-- ?\n?(<p[^>]*>|<br[^>]*>)@", "\\1<br/>-- \\2", $res);
        $res = preg_replace("@<br[^>]*>\n?-- ?\n?(<p[^>]*>)@", "<br/>-- <br/>\\2", $res);
        $res = preg_replace("@(<pre[^>]*>)\n?-- ?\n@", "<br/>-- <br/>\\1", $res);
        $parts = preg_split("@(:?<p[^>]*>\n?-- ?\n?</p>|<br[^>]*>\n?-- ?\n?<br[^>]*>)@", $res);
    } else {
        while (preg_match("@(^|<pre>|\n)&gt;@i", $res)) {
            $res  = preg_replace("@(^|<pre>|\n)((&gt;[^\n]*\n)+)@ie",
                "'\\1</pre><blockquote><pre>'"
    		    .".stripslashes(preg_replace('@(^|<pre>|\n)&gt;[ \\t\\r]*@i', '\\1', '\\2'))"
	    	    .".'</pre></blockquote><pre>'",
	            $res);
        }
	$res = preg_replace("@<pre>-- ?\n@", "<pre>\n-- \n", $res);
        $parts = preg_split("/\n-- ?\n/", $res);
    }

    if (count($parts) > 1) {
        $sign  = array_pop($parts);
        if ($format == 'html') {
            $res  = join('<br/>-- <br/>', $parts);
            $sign = '<hr style="width: 100%; margin: 1em 0em; " />'.$sign.'<br/>';
        } else {
            $res  = join('\n-- \n', $parts);
            $sign = '</pre><hr style="width: 100%; margin: 1em 0em; " /><pre>'.$sign;
        }
        return $res.$sign;
    } else {
        return $res;
    }
}

?>
Commit	Line	Data
78cd27b3	1	<?php
	2	/********************************************************************************
	3	* include/misc.inc.php : Misc functions
	4	* -------------------------
	5	*
	6	* This file is part of the banana distribution
	7	* Copyright: See COPYING files that comes with this distribution
	8	********************************************************************************/
	9
	10	/********************************************************************************
	11	* MISC
	12	*/
	13
	14	function _b_($str) { return utf8_decode(dgettext('banana', utf8_encode($str))); }
	15
	16	function to_entities($str) {
39816f8b	17	require_once dirname(__FILE__).'/utf8.php';
78cd27b3	18	return utf8entities(htmlentities($str, ENT_NOQUOTES, 'UTF-8'));
	19	}
	20
	21	function is_utf8($s) { return iconv('utf-8', 'utf-8', $s) == $s; }
	22
1f75b135	23	function textFormat_translate($format)
	24	{
	25	switch (strtolower($format)) {
	26	case 'plain': return _b_('Texte brut');
	27	case 'richtext': return _b_('Texte enrichi');
	28	case 'html': return _b_('HTML');
	29	default: return $format;
	30	}
	31	}
	32
	33	/********************************************************************************
	34	* HTML STUFF
	35	* Taken from php.net
	36	*/
	37
aef14768	38	/**
1f75b135	39	* @return string
	40	* @param string
	41	* @desc Strip forbidden tags and delegate tag-source check to removeEvilAttributes()
	42	*/
	43	function removeEvilTags($source)
	44	{
f12fdb59	45	$allowedTags = '<h1><b><i><a><ul><li><pre><hr><blockquote><img><br><font><p><small><big><sup><sub><code><em>';
16b17ba5	46	$source = preg_replace('\|</div>\|i', '<br />', $source);
1f75b135	47	$source = strip_tags($source, $allowedTags);
	48	return preg_replace('/<(.*?)>/ie', "'<'.removeEvilAttributes('\\1').'>'", $source);
	49	}
	50
	51	/**
	52	* @return string
	53	* @param string
	54	* @desc Strip forbidden attributes from a tag
	55	*/
	56	function removeEvilAttributes($tagSource)
	57	{
	58	$stripAttrib = 'javascript:\|onclick\|ondblclick\|onmousedown\|onmouseup\|onmouseover\|'.
	59	'onmousemove\|onmouseout\|onkeypress\|onkeydown\|onkeyup';
	60	return stripslashes(preg_replace("/$stripAttrib/i", '', $tagSource));
	61	}
	62
aef14768	63	/** Convert html to plain text
	64	*/
	65	function htmlToPlainText($res)
	66	{
16b17ba5	67	$res = trim(html_entity_decode(strip_tags($res, '<div><br><p>')));
16b17ba5	68	$res = preg_replace("@</?(br\|p\|div)[^>]*>@i", "\n", $res);
4cc80c9a	69	if (!is_utf8($res)) {
	70	$res = utf8_encode($res);
	71	}
aef14768	72	return $res;
	73	}
	74
	75	/********************************************************************************
	76	* RICHTEXT STUFF
	77	*/
	78
	79	/** Convert richtext to html
	80	*/
	81	function richtextToHtml($source)
	82	{
	83	$tags = Array('bold' => 'b',
	84	'italic' => 'i',
	85	'smaller' => 'small',
	86	'bigger' => 'big',
	87	'underline' => 'u',
	88	'subscript' => 'sub',
	89	'superscript' => 'sup',
	90	'excerpt' => 'blockquote',
	91	'paragraph' => 'p',
	92	'nl' => 'br'
	93	);
	94
	95	// clean unsupported tags
	96	$protectedTags = '<signature><lt><comment><'.join('><', array_keys($tags)).'>';
	97	$source = strip_tags($source, $protectedTags);
	98
	99	// convert richtext tags to html
	100	foreach (array_keys($tags) as $tag) {
	101	$source = preg_replace('@(</?)'.$tag.'([^>]*>)@i', '\1'.$tags[$tag].'\2', $source);
	102	}
	103
	104	// some special cases
	105	$source = preg_replace('@<signature>@i', '<br>-- <br>', $source);
	106	$source = preg_replace('@</signature>@i', '', $source);
	107	$source = preg_replace('@<lt>@i', '<', $source);
	108	$source = preg_replace('@<comment[^>]>((?:[^<]\|<(?!/comment>)))</comment>@i', '<!-- \1 -->', $source);
	109	return removeEvilAttributes($source);
	110	}
	111
78cd27b3	112	/********************************************************************************
	113	* HEADER STUFF
	114	*/
	115
	116	function _headerdecode($charset, $c, $str) {
eeae3e3e	117	$s = ($c == 'Q' \|\| $c == 'q') ? quoted_printable_decode($str) : base64_decode($str);
78cd27b3	118	$s = iconv($charset, 'iso-8859-15', $s);
	119	return str_replace('_', ' ', $s);
	120	}
	121
	122	function headerDecode($value) {
eeae3e3e	123	$val = preg_replace('/(=\?[^?]\?[BQbq]\?[^?]\?=) (=\?[^?]\?[BQbq]\?[^?]\?=)/', '\1\2', $value);
eeae3e3e	124	return preg_replace('/=\?([^?])\?([BQbq])\?([^?])\?=/e', '_headerdecode("\1", "\2", "\3")', $val);
78cd27b3	125	}
	126
	127	function headerEncode($value, $trim = 0) {
	128	if ($trim) {
	129	if (strlen($value) > $trim) {
	130	$value = substr($value, 0, $trim) . "[...]";
	131	}
	132	}
	133	return "=?UTF-8?B?".base64_encode($value)."?=";
	134	}
	135
	136	function header_translate($hdr) {
	137	switch ($hdr) {
	138	case 'from': return _b_('De');
	139	case 'subject': return _b_('Sujet');
	140	case 'newsgroups': return _b_('Forums');
	141	case 'followup-to': return _b_('Suivi-�');
	142	case 'date': return _b_('Date');
	143	case 'organization': return _b_('Organisation');
	144	case 'references': return _b_('R�f�rences');
	145	case 'x-face': return _b_('Image');
	146	default:
	147	if (function_exists('hook_headerTranslate')
	148	&& $res = hook_headerTranslate($hdr)) {
	149	return $res;
	150	}
	151	return $hdr;
	152	}
	153	}
	154
	155	function formatDisplayHeader($_header,$_text) {
	156	global $banana;
	157	switch ($_header) {
	158	case "date":
	159	return formatDate($_text);
	160
	161	case "followup-to":
	162	case "newsgroups":
	163	$res = "";
	164	$groups = preg_split("/[\t ],[\t ]/",$_text);
	165	foreach ($groups as $g) {
	166	$res.="<a href='?group=$g'>$g</a>, ";
	167	}
	168	return substr($res,0, -2);
	169
	170	case "from":
	171	return formatFrom($_text);
	172
	173	case "references":
	174	$rsl = "";
	175	$ndx = 1;
	176	$text = str_replace("><","> <",$_text);
	177	$text = preg_split("/[ \t]/",strtr($text,$banana->spool->ids));
	178	$parents = preg_grep("/^\d+$/",$text);
	179	$p = array_pop($parents);
	180	$par_ok = Array();
	181
	182	while ($p) {
	183	$par_ok[]=$p;
	184	$p = $banana->spool->overview[$p]->parent;
	185	}
	186	foreach (array_reverse($par_ok) as $p) {
	187	$rsl .= "<a href=\"?group={$banana->spool->group}&artid=$p\">$ndx</a> ";
	188	$ndx++;
189	}
190	return $rsl;
191
192	case "x-face":
9d9dfb4d	193	return '<img src="xface.php?face='.urlencode(base64_encode($_text)).'" alt="x-face" />';
78cd27b3	194
	195	default:
	196	if (function_exists('hook_formatDisplayHeader')
	197	&& $res = hook_formatDisplayHeader($_header, $_text))
	198	{
	199	return $res;
	200	}
	201	return htmlentities($_text);
	202	}
	203	}
	204
	205	/********************************************************************************
	206	* FORMATTING STUFF
	207	*/
	208
	209	function formatDate($_text) {
	210	return strftime("%A %d %B %Y, %H:%M (fuseau serveur)", strtotime($_text));
	211	}
	212
	213	function fancyDate($stamp) {
	214	$today = intval(time() / (24*3600));
	215	$dday = intval($stamp / (24*3600));
	216
	217	if ($today == $dday) {
	218	$format = "%H:%M";
	219	} elseif ($today == 1 + $dday) {
	220	$format = _b_('hier')." %H:%M";
	221	} elseif ($today < 7 + $dday) {
	222	$format = '%a %H:%M';
	223	} else {
	224	$format = '%a %e %b';
	225	}
	226	return strftime($format, $stamp);
	227	}
	228
	229	function formatFrom($text) {
	230	# From: mark@cbosgd.ATT.COM
	231	# From: mark@cbosgd.ATT.COM (Mark Horton)
	232	# From: Mark Horton <mark@cbosgd.ATT.COM>
	233	$mailto = '<a href="mailto:';
	234
	235	$result = htmlentities($text);
	236	if (preg_match("/^([^ ]+)@([^ ]+)$/",$text,$regs)) {
	237	$result="$mailto{$regs[1]}@{$regs[2]}\">".htmlentities($regs[1]."@".$regs[2])."</a>";
	238	}
	239	if (preg_match("/^([^ ]+)@([^ ]+) \((.*)\)$/",$text,$regs)) {
	240	$result="$mailto{$regs[1]}@{$regs[2]}\">".htmlentities($regs[3])."</a>";
	241	}
	242	if (preg_match("/^\"?([^<>\"]+)\"? +<(.+)@(.+)>$/",$text,$regs)) {
	243	$result="$mailto{$regs[2]}@{$regs[3]}\">".htmlentities($regs[1])."</a>";
	244	}
	245	return preg_replace("/\\\(\(\|\))/","\\1",$result);
	246	}
	247
	248	function displayshortcuts($first = -1) {
	249	global $banana;
	250	extract($banana->state);
	251
	252	$res = '<div class="banana_scuts">';
	253	$res .= '[<a href="?">'._b_('Liste des forums').'</a>] ';
	254	if (is_null($group)) {
	255	return $res.'[<a href="?subscribe=1">'._b_('Abonnements').'</a>]</div>';
	256	}
	257
258	$res .= "[<a href=\"?group=$group\">$group</a>] ";
259
260	if (is_null($artid)) {
261	$res .= "[<a href=\"?group=$group&action=new\">"._b_('Nouveau message')."</a>] ";
262	if (sizeof($banana->spool->overview)>$banana->tmax) {
263	$res .= '<br />';
264	$n = intval(log(count($banana->spool->overview), 10))+1;
265	for ($ndx=1; $ndx <= sizeof($banana->spool->overview); $ndx += $banana->tmax) {
266	if ($first==$ndx) {
267	$fmt = "[%0{$n}u-%0{$n}u] ";
268	} else {
269	$fmt = "[<a href=\"?group=$group&first=$ndx\">%0{$n}u-%0{$n}u</a>] ";
270	}
271	$res .= sprintf($fmt, $ndx, min($ndx+$banana->tmax-1,sizeof($banana->spool->overview)));
272	}
273	}
274	} else {
275	$res .= "[<a href=\"?group=$group&artid=$artid&action=new\">"
cfaab21d	276	._b_('R�pondre')."</a>] ";
f2dab64a	277	if ($banana->post && $banana->post->checkcancel()) {
78cd27b3	278	$res .= "[<a href=\"?group=$group&artid=$artid&action=cancel\">"
cfaab21d	279	._b_('Annuler ce message')."</a>] ";
78cd27b3	280	}
	281	}
	282	return $res.'</div>';
	283	}
	284
	285	/********************************************************************************
	286	* FORMATTING STUFF : BODY
	287	*/
	288
9bd35988	289	function autoformat($text)
	290	{
	291	global $banana;
	292	$length = $banana->wrap;
	293
	294	$cmd = "echo ".escapeshellarg($text)." \| perl -MText::Autoformat -e 'autoformat {left=>1, right=>$length, all=>1 };'";
	295	exec($cmd, $result, $ret);
	296	if ($ret != 0) {
ebd93a2d	297	$result = split("\n", $text);
9bd35988	298	}
	299	return $result;
	300	}
	301
87514711	302	function wrap($text, $_prefix="", $_force=false)
78cd27b3	303	{
	304	$parts = preg_split("/\n-- ?\n/", $text);
	305	if (count($parts) >1) {
	306	$sign = "\n-- \n" . array_pop($parts);
	307	$text = join("\n-- \n", $parts);
	308	} else {
	309	$sign = '';
78cd27b3	310	}
	311
	312	global $banana;
87514711	313	$url = $banana->url_regexp;
78cd27b3	314	$length = $banana->wrap;
87514711	315	$max = $length + ($length/10);
87514711	316	$splits = split("\n", $text);
9bd35988	317	$result = array();
	318	$next = array();
	319	$format = false;
87514711	320	foreach ($splits as $line) {
87514711	321	if ($_force \|\| strlen($line) > $max) {
9bd35988	322	if (preg_match("!^(.)($url)(.)!i", $line, $matches) && strlen($matches[2]) > $length && strlen($matches) < 900) {
	323	if (strlen($matches[1]) != 0) {
	324	array_push($next, rtrim($matches[1]));
	325	if (strlen($matches[1]) > $max) {
	326	$format = true;
	327	}
	328	}
	329
	330	if ($format) {
	331	$result = array_merge($result, autoformat(join("\n", $next)));
	332	} else {
	333	$result = array_merge($result, $next);
	334	}
	335	$format = false;
	336	$next = array();
	337	array_push($result, $matches[2]);
	338
	339	if (strlen($matches[6]) != 0) {
	340	array_push($next, ltrim($matches[6]));
	341	if (strlen($matches[6]) > $max) {
	342	$format = true;
	343	}
	344	}
	345	} else {
	346	$format = true;
	347	array_push($next, $line);
87514711	348	}
9bd35988	349	} else {
9bd35988	350	array_push($next, $line);
87514711	351	}
87514711	352	}
9bd35988	353	if ($format) {
	354	$result = array_merge($result, autoformat(join("\n", $next)));
	355	} else {
	356	$result = array_merge($result, $next);
a4c1ad46	357	}
78cd27b3	358
	359	return $_prefix.join("\n$_prefix", $result).($_prefix ? '' : $sign);
	360	}
	361
87514711	362	function cutlink($link)
	363	{
	364	global $banana;
	365
	366	if (strlen($link) > $banana->wrap) {
	367	$link = substr($link, 0, $banana->wrap - 3)."...";
	368	}
	369	return $link;
	370	}
	371
e7241984	372	function cleanurl($url)
	373	{
	374	$url = str_replace('@', '%40', $url);
	375	return '<a href="'.$url.'" title="'.$url.'">'.cutlink($url).'</a>';
	376	}
	377
87514711	378	function formatbody($_text, $format='plain', $flowed=false)
1f75b135	379	{
1f75b135	380	if ($format == 'html') {
16b17ba5	381	$res = '<br/>'.html_entity_decode(to_entities(removeEvilTags($_text))).'<br/>';
aef14768	382	} else if ($format == 'richtext') {
d67abd9d	383	$res = '<br/>'.html_entity_decode(to_entities(richtextToHtml($_text))).'<br/>';
1f75b135	384	} else {
87514711	385	$res = "\n\n" . to_entities(wrap($_text, "", $flowed))."\n\n";
1f75b135	386	}
1f75b135	387
d67abd9d	388	if ($format != 'html') {
	389	global $banana;
	390	$url = $banana->url_regexp;
	391	$res = preg_replace("/(<\|>\|")/", " \\1 ", $res);
e7241984	392	$res = preg_replace("!$url!ie", "'\\1'.cleanurl('\\2').'\\3'", $res);
d67abd9d	393	$res = preg_replace('/(["\[])?(?:mailto:)?([a-z0-9.\-+_]+@[a-z0-9.\-+_]+)(["\]])?/i', '\1<a href="mailto:\2">\2</a>\3', $res);
	394	$res = preg_replace("/ (<\|>\|") /", "\\1", $res);
	395
	396	if ($format == 'richtext') {
	397	$format = 'html';
	398	}
	399	}
87514711	400
1f75b135	401	if ($format == 'html') {
19e26ef7	402	$res = preg_replace("@(</p>)\n?-- ?\n?(<p[^>]>\|<br[^>]>)@", "\\1<br/>-- \\2", $res);
	403	$res = preg_replace("@<br[^>]>\n?-- ?\n?(<p[^>]>)@", "<br/>-- <br/>\\2", $res);
	404	$res = preg_replace("@(<pre[^>]*>)\n?-- ?\n@", "<br/>-- <br/>\\1", $res);
	405	$parts = preg_split("@(:?<p[^>]>\n?-- ?\n?</p>\|<br[^>]>\n?-- ?\n?<br[^>]*>)@", $res);
11102461	406	} else {
ebd93a2d	407	while (preg_match("@(^\|<pre>\|\n)>@i", $res)) {
6c7c1730	408	$res = preg_replace("@(^\|<pre>\|\n)((>[^\n]*\n)+)@ie",
ebd93a2d	409	"'\\1</pre><blockquote><pre>'"
48a6ffa3	410	.".stripslashes(preg_replace('@(^\|<pre>\|\n)>[ \\t\\r]*@i', '\\1', '\\2'))"
	411	.".'</pre></blockquote><pre>'",
	412	$res);
cfaab21d	413	}
6c7c1730	414	$res = preg_replace("@<pre>-- ?\n@", "<pre>\n-- \n", $res);
11102461	415	$parts = preg_split("/\n-- ?\n/", $res);
1f75b135	416	}
1f75b135	417
78cd27b3	418	if (count($parts) > 1) {
11102461	419	$sign = array_pop($parts);
	420	if ($format == 'html') {
	421	$res = join('<br/>-- <br/>', $parts);
cfaab21d	422	$sign = '<hr style="width: 100%; margin: 1em 0em; " />'.$sign.'<br/>';
11102461	423	} else {
	424	$res = join('\n-- \n', $parts);
	425	$sign = '</pre><hr style="width: 100%; margin: 1em 0em; " /><pre>'.$sign;
	426	}
	427	return $res.$sign;
78cd27b3	428	} else {
	429	return $res;
	430	}
	431	}
	432
	433	?>