[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') ? quoted_printable_decode($str) : base64_decode($str);
    $s = iconv($charset, 'iso-8859-15', $s);
    return str_replace('_', ' ', $s);
}
 
function headerDecode($value) {
    $val = preg_replace('/(=\?[^?]*\?[BQ]\?[^?]*\?=) (=\?[^?]*\?[BQ]\?[^?]*\?=)/', '\1\2', $value);
    return preg_replace('/=\?([^?]*)\?([BQ])\?([^?]*)\?=/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='.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 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);
    $ret    = -1;
    foreach ($splits as $line) {
        if ($_force || strlen($line) > $max) {
            if (!preg_match("!^\\s*$url\\s*$!i", $line)) {
                $cmd = "echo ".escapeshellarg($text)." | perl -MText::Autoformat -e 'autoformat {left=>1, right=>$length, all=>1 };'";
                exec($cmd, $result, $ret);
                break;
            }
        }
    }
    if ($ret != 0) {
        $result = $splits;
    }

    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 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/>'.createlinks(html_entity_decode(to_entities(richtextToHtml($_text)))).'<br/>';
        $format = 'html';
    } else {
        $res  = "\n\n" . to_entities(wrap($_text, "", $flowed))."\n\n";
    }

    global $banana;
    $url  = $banana->url_regexp;
    $res  = preg_replace("/(&lt;|&gt;|&quot;)/", " \\1 ", $res);
    $res  = preg_replace("!$url!ie", "'\\1<a href=\"\\2\" title=\"\\2\">'.cutlink('\\2').'</a>\\3'", $res);
    $res  = preg_replace("/ (&lt;|&gt;|&quot;) /", "\\1", $res);
 
    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);
        $parts = preg_split("@(:?<p[^>]*>\n?-- \n?</p>|<br[^>]*>\n?-- \n?<br[^>]*>)@", $res);
    } else {
        for ($i = 1 ; preg_match("@(^|<pre>|\n)&gt;@i", $res) ; $i++) {
            $res  = preg_replace("@(^|<pre>|\n)((&gt;[^\n]*\n)+)@ie",
                "'\\1</pre><blockquote class=\'level$i\'><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) {
	117	$s = ($c == 'Q') ? quoted_printable_decode($str) : base64_decode($str);
	118	$s = iconv($charset, 'iso-8859-15', $s);
	119	return str_replace('_', ' ', $s);
	120	}
	121
	122	function headerDecode($value) {
	123	$val = preg_replace('/(=\?[^?]\?[BQ]\?[^?]\?=) (=\?[^?]\?[BQ]\?[^?]\?=)/', '\1\2', $value);
	124	return preg_replace('/=\?([^?])\?([BQ])\?([^?])\?=/e', '_headerdecode("\1", "\2", "\3")', $val);
	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":
193	return '<img src="xface.php?face='.base64_encode($_text).'" alt="x-face" />';
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
87514711	289	function wrap($text, $_prefix="", $_force=false)
78cd27b3	290	{
	291	$parts = preg_split("/\n-- ?\n/", $text);
	292	if (count($parts) >1) {
	293	$sign = "\n-- \n" . array_pop($parts);
	294	$text = join("\n-- \n", $parts);
	295	} else {
	296	$sign = '';
78cd27b3	297	}
	298
	299	global $banana;
87514711	300	$url = $banana->url_regexp;
78cd27b3	301	$length = $banana->wrap;
87514711	302	$max = $length + ($length/10);
	303	$splits = split("\n", $text);
	304	$ret = -1;
	305	foreach ($splits as $line) {
	306	if ($_force \|\| strlen($line) > $max) {
	307	if (!preg_match("!^\\s$url\\s$!i", $line)) {
	308	$cmd = "echo ".escapeshellarg($text)." \| perl -MText::Autoformat -e 'autoformat {left=>1, right=>$length, all=>1 };'";
	309	exec($cmd, $result, $ret);
	310	break;
	311	}
	312	}
	313	}
a4c1ad46	314	if ($ret != 0) {
87514711	315	$result = $splits;
a4c1ad46	316	}
78cd27b3	317
	318	return $_prefix.join("\n$_prefix", $result).($_prefix ? '' : $sign);
	319	}
	320
87514711	321	function cutlink($link)
	322	{
	323	global $banana;
	324
	325	if (strlen($link) > $banana->wrap) {
	326	$link = substr($link, 0, $banana->wrap - 3)."...";
	327	}
	328	return $link;
	329	}
	330
	331	function formatbody($_text, $format='plain', $flowed=false)
1f75b135	332	{
1f75b135	333	if ($format == 'html') {
16b17ba5	334	$res = '<br/>'.html_entity_decode(to_entities(removeEvilTags($_text))).'<br/>';
aef14768	335	} else if ($format == 'richtext') {
87514711	336	$res = '<br/>'.createlinks(html_entity_decode(to_entities(richtextToHtml($_text)))).'<br/>';
aef14768	337	$format = 'html';
1f75b135	338	} else {
87514711	339	$res = "\n\n" . to_entities(wrap($_text, "", $flowed))."\n\n";
1f75b135	340	}
1f75b135	341
87514711	342	global $banana;
87514711	343	$url = $banana->url_regexp;
046410f4	344	$res = preg_replace("/(<\|>\|")/", " \\1 ", $res);
87514711	345	$res = preg_replace("!$url!ie", "'\\1<a href=\"\\2\" title=\"\\2\">'.cutlink('\\2').'</a>\\3'", $res);
	346	$res = preg_replace("/ (<\|>\|") /", "\\1", $res);
	347
1f75b135	348	if ($format == 'html') {
cfaab21d	349	$res = preg_replace("@(</p>)\n?-- \n?(<p[^>]>\|<br[^>]>)@", "\\1<br/>-- \\2", $res);
	350	$res = preg_replace("@<br[^>]>\n?-- \n?(<p[^>]>)@", "<br/>-- <br/>\\2", $res);
	351	$parts = preg_split("@(:?<p[^>]>\n?-- \n?</p>\|<br[^>]>\n?-- \n?<br[^>]*>)@", $res);
11102461	352	} else {
48a6ffa3	353	for ($i = 1 ; preg_match("@(^\|<pre>\|\n)>@i", $res) ; $i++) {
6c7c1730	354	$res = preg_replace("@(^\|<pre>\|\n)((>[^\n]*\n)+)@ie",
48a6ffa3	355	"'\\1</pre><blockquote class=\'level$i\'><pre>'"
	356	.".stripslashes(preg_replace('@(^\|<pre>\|\n)>[ \\t\\r]*@i', '\\1', '\\2'))"
	357	.".'</pre></blockquote><pre>'",
	358	$res);
cfaab21d	359	}
6c7c1730	360	$res = preg_replace("@<pre>-- ?\n@", "<pre>\n-- \n", $res);
11102461	361	$parts = preg_split("/\n-- ?\n/", $res);
1f75b135	362	}
1f75b135	363
78cd27b3	364	if (count($parts) > 1) {
11102461	365	$sign = array_pop($parts);
	366	if ($format == 'html') {
	367	$res = join('<br/>-- <br/>', $parts);
cfaab21d	368	$sign = '<hr style="width: 100%; margin: 1em 0em; " />'.$sign.'<br/>';
11102461	369	} else {
	370	$res = join('\n-- \n', $parts);
	371	$sign = '</pre><hr style="width: 100%; margin: 1em 0em; " /><pre>'.$sign;
	372	}
	373	return $res.$sign;
78cd27b3	374	} else {
	375	return $res;
	376	}
	377	}
	378
	379	?>