|\n)$regexp@i", '\1', $text)); } // }}} function banana_catchQuotes($res, $strict = true) { if ($strict) { $regexp = ">"; } else { $regexp = "> *"; } while (preg_match("/(^|
|\n)$regexp/i", $res)) {
        $res  = preg_replace("/(^||\n)(($regexp.*(?:\n|$))+)/ie",
            "'\\1
'"
            ." . banana__replaceQuotes('\\2', '$regexp')"
            ." . '
'",
            $res);
    }
    return $res;
}

function banana_catchSignature($res)
{
    $res = preg_replace("@-- ?\n@", "\n-- \n", $res);
    $parts = preg_split("/\n-- ?\n/", $res);
    $sign  = '
';
    return join($sign, $parts);
}

function banana_plainTextToHtml($text, $strict = true)
{
    $text = banana_htmlentities($text);
    $text = banana_catchFormats($text);
    $text = banana_catchURLs($text);
    $text = banana_catchQuotes($text, $strict);
    $text = banana_catchSignature($text);
    return banana_cleanHtml('' . $text . '');
}

function banana_wrap($text, $base_level = 0, $strict = true)
{
    $lines  = explode("\n", $text);
    $text   = '';
    $buffer = array();
    $level  = 0;
    while (!is_null($line = array_shift($lines))) {
        $lvl = 0;
        $line = banana_removeQuotes($line, $lvl, $strict);
        if($lvl != $level) {
            if (!empty($buffer)) {
                $text  .= banana_wordwrap(implode("\n", $buffer), $level + $base_level) . "\n";
                $buffer = array();
            }    
            $level  = $lvl;
        }
        $buffer[] = $line;
    }
    if (!empty($buffer)) {
        $text .= banana_wordwrap(implode("\n", $buffer), $level + $base_level);
    }
    return $text;
}

function banana_formatPlainText(BananaMimePart &$part, $base_level = 0)
{
    $text = $part->getText();
    if ($part->isFlowed()) {
        $text = banana_unflowed($text);
    }
    $text = banana_wrap($text, $base_level, $part->isFlowed());
    return banana_plainTextToHtml($text, $part->isFlowed());
}

function banana_quotePlainText(BananaMimePart &$part)
{
    $text = $part->getText();
    if ($part->isFlowed()) {
        $text = banana_unflowed($text);
    }
    return banana_wrap($text, 1);
}

// }}}
// {{{ HTML Functions

function banana_htmlentities($text, $quote = ENT_COMPAT)
{
    return htmlentities($text, $quote, 'UTF-8');
}

function banana_html_entity_decode($text, $quote = ENT_COMPAT)
{
    return html_entity_decode($text, $quote, 'UTF-8');
}

function banana_removeEvilAttributes($tagSource)
{
    $stripAttrib = 'javascript:|onclick|ondblclick|onmousedown|onmouseup|onmouseover|'.
                   'onmousemove|onmouseout|onkeypress|onkeydown|onkeyup';
    return stripslashes(preg_replace("/$stripAttrib/i", '', $tagSource));
}   
    
/**
 * @return string
 * @param string
 * @desc Strip forbidden tags and delegate tag-source check to removeEvilAttributes()
 */
function banana_cleanHtml($source)
{
    $allowedTags = '

'
                 . '^{_{';
    $source = strip_tags($source, $allowedTags);
    $source = preg_replace('/<(.*?)>/ie', "'<'.banana_removeEvilAttributes('\\1').'>'", $source);
        
    if (function_exists('tidy_repair_string')) {
        $tidy_on = Array(
            'drop-empty-paras', 'drop-proprietary-attributes',
            'hide-comments', 'logical-emphasis', 'output-xhtml',
            'replace-color', 'show-body-only'
        );
        $tidy_off = Array('join-classes', 'clean'); // 'clean' may be a good idea, but it is too aggressive

        foreach($tidy_on as $opt) {
            tidy_setopt($opt, true);
        }
        foreach($tidy_off as $opt) {
            tidy_setopt($opt, false);
        }
        tidy_setopt('alt-text', '[ inserted by TIDY ]');
        tidy_setopt('wrap', '120');
        tidy_set_encoding('utf8');
        return tidy_repair_string($source);
    }
    return $source;
}

function banana_catchHtmlSignature($res)
{
    $res = preg_replace("@(
)\n?-- ?\n?(]*>|]*>)@", "\\1
-- \\2", $res);
    $res = preg_replace("@]*>\n?-- ?\n?(]*>)@", "
-- 
\\2", $res);
    $res = preg_replace("@(]*>)\n?-- ?\n@", "
-- 
\\1", $res);
    $parts = preg_split("@(:?]*>\n?-- ?\n?
|]*>\n?-- ?\n?]*>)@", $res);
    $sign  = '';
    return join($sign, $parts);
}

// {{{ Link to part catcher tools

function banana__linkAttachment($cid)
{
    return banana_htmlentities(
        Banana::$page->makeUrl(Array('group' => Banana::$group,
                                     'artid' => Banana::$artid,
                                     'part'  => $cid)));
}

// }}}

function banana_hideExternalImages($text)
{
    return preg_replace("/]*?src=['\"](?!cid).*?>/i",
                        Banana::$page->makeImg(array('img' => 'invalid')),
                        $text);
}

function banana_catchPartLinks($text)
{
    return preg_replace('/cid:([^\'" ]+)/e', "banana__linkAttachment('\\1')", $text);
}

// {{{ HTML to Plain Text tools

function banana__convertFormats($res)
{
    $table = array('em|i'     => '/',
                   'strong|b' => '*',
                   'u'        => '_');
    foreach ($table as $tags=>$format) {
        $res = preg_replace("!!is", $format, $res);
    }
    return $res;
}

function banana__convertQuotes($res)
{
    return preg_replace('!([^<]*)!ies',
                        "\"\n\" . banana_quote(banana__convertQuotes('\\1' . \"\n\"), 1, '>')",
                        $res);
}

// }}}

function banana_htmlToPlainText($res)
{
    $res = str_replace("\n", '', $res);
    $res = banana__convertFormats($res);
    $res = trim(strip_tags($res, '
'));
    $res = preg_replace("@@si", "\n", $res);
    $res = banana__convertQuotes($res);
    return banana_html_entity_decode($res);    
}

function banana_formatHtml(BananaMimePart &$part)
{
    $text = $part->getText();
    $text = banana_catchHtmlSignature($text);
    $text = banana_hideExternalImages($text);
    $text = banana_catchPartLinks($text);
    return banana_cleanHtml($text);
}

function banana_quoteHtml(BananaMimePart &$part)
{
    $text = $part->getText();
    $text = banana_htmlToPlainText($text);
    return banana_wrap($text, 1);
}

// }}}
// {{{ Richtext Functions

/** Convert richtext to html
 */
function banana_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 = '<'.join('><', array_keys($tags)).'>';
    $source = strip_tags($source, $protectedTags);

    // convert richtext tags to html
    foreach (array_keys($tags) as $tag) {
        $source = preg_replace('@(]*>)@i', '\1'.$tags[$tag].'\2', $source);
    }

    // some special cases
    $source = preg_replace('@@i', '
-- 
', $source);
    $source = preg_replace('@@i', '', $source);
    $source = preg_replace('@@i', '<', $source);
    $source = preg_replace('@]*>((?:[^<]|<(?!/comment>))*)@i', '', $source);
    return banana_cleanHtml($source);
}

function banana_formatRichText(BananaMimePart &$part)
{
    $text = $part->getText();
    $text = banana_richtextToHtml($text);
    $text = banana_catchHtmlSignature($text);
    return banana_cleanHtml($text);
}

function banana_quoteRichtText(BananaMimePart &$part)
{
    $text = $part->getText();
    $text = banana_richtextToHtml($text);
    $text = banana_htmlToPlainText($text);
    return banana_wrap($text, 1);
}

// }}}

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