Subversion Repositories Applications.papyrus

<?php

if(!defined("PHORUM")) return;

// BB Code Phorum Mod

function phorum_bb_code($data)

{

    $PHORUM = $GLOBALS["PHORUM"];

    $search = array(

        "/\[img\]((http|https|ftp):\/\/[a-z0-9;\/\?:@=\&\$\-_\.\+!*'\(\),~%# ]+?)\[\/img\]/is",

        "/\[url\]((http|https|ftp|mailto):\/\/([a-z0-9\.\-@:]+)[a-z0-9;\/\?:@=\&\$\-_\.\+!*'\(\),\#%~ ]*?)\[\/url\]/is",

        "/\[url=((http|https|ftp|mailto):\/\/[a-z0-9;\/\?:@=\&\$\-_\.\+!*'\(\),~%# ]+?)\](.+?)\[\/url\]/is",

        "/\[email\]([a-z0-9\-_\.\+]+@[a-z0-9\-]+\.[a-z0-9\-\.]+?)\[\/email\]/ies",

        "/\[color=([\#a-z0-9]+?)\](.+?)\[\/color\]/is",

        "/\[size=([+\-\da-z]+?)\](.+?)\[\/size\]/is",

        "/\[b\](.+?)\[\/b\]/is",

        "/\[u\](.+?)\[\/u\]/is",

        "/\[i\](.+?)\[\/i\]/is",

        "/\[s\](.+?)\[\/s\]/is",

        "/\[center\](.+?)\[\/center\]/is",

        "/\[hr\]/i",

        "/\[code\](.+?)\[\/code\]/is",

        "/\[sub\](.+?)\[\/sub\]/is",

        "/\[sup\](.+?)\[\/sup\]/is",

    );

    // add extra tags to links, if enabled in the admin settings page

    $extra_link_tags = "";

    if(isset($PHORUM["mod_bb_code"])){ // check for settings file before using settings-dependent variables

        if ($PHORUM["mod_bb_code"]["links_in_new_window"]){

            $extra_link_tags .= "target=\"_blank\" ";

        }

        if ($PHORUM["mod_bb_code"]["rel_no_follow"]){

            $extra_link_tags .= "rel=\"nofollow\" ";

        }

    }

    $replace = array(

        "<img src=\"$1\" />",

        "[<a $extra_link_tags href=\"$1\">$3</a>]",

        "<a $extra_link_tags href=\"$1\">$3</a>",

        "'<a $extra_link_tags href=\"'.phorum_html_encode('mailto:$1').'\">'.phorum_html_encode('$1').'</a>'",

        "<span style=\"color: $1\">$2</span>",

        "<span style=\"font-size: $1\">$2</span>",

        "<strong>$1</strong>",

        "<u>$1</u>",

        "<i>$1</i>",

        "<s>$1</s>",

        "<center class=\"bbcode\">$1</center>",

        "<hr class=\"bbcode\" />",

        "<pre class=\"bbcode\">$1</pre>",

        "<sub class=\"bbcode\">$1</sub>",

        "<sup class=\"bbcode\">$1</sup>",

    );

    $quote_search = array(

        "/\[quote\]/is",

        "/\[quote ([^\]]+?)\]/is",

        "/\[quote=([^\]]+?)\]/is",

        "/\[\/quote\]/is"

    );

    $quote_replace = array(

        "<blockquote class=\"bbcode\">".$PHORUM["DATA"]["LANG"]["Quote"] . ":<div>",

        "<blockquote class=\"bbcode\">".$PHORUM["DATA"]["LANG"]["Quote"] . ":<div><strong>$1</strong><br />",

        "<blockquote class=\"bbcode\">".$PHORUM["DATA"]["LANG"]["Quote"] . ":<div><strong>$1</strong><br />",

        "</div></blockquote>"

    );

    foreach($data as $message_id => $message){

        if(isset($message["body"])){

            // do BB Code here

            $body = $message["body"];

            $rnd=substr(md5($body.time()), 0, 4);

            // convert bare urls into bbcode tags as best we can

            // the haystack has to have a space in front of it for the preg to work.

            $body = preg_replace("/([^='\"(\[url\]|\[img\])])((http|https|ftp):\/\/[a-z0-9;\/\?:@=\&\$\-_\.\+!*'\(\),~%#]+)/i", "$1:$rnd:$2:/$rnd:", " $body");

            // stip puncuation from urls

            if(preg_match_all("!:$rnd:(.+?):/$rnd:!i", $body, $match)){

                $urls = array_unique($match[1]);

                foreach($urls as $key => $url){

                    // stip puncuation from urls

                    if(preg_match("|[^a-z0-9=&/\+_]+$|i", $url, $match)){

                        $extra = $match[0];

                        $true_url = substr($url, 0, -1 * (strlen($match[0])));

                        $body = str_replace("$url:/$rnd:", "$true_url:/$rnd:$extra", $body);

                        $url = $true_url;

                    }

                    $body = str_replace(":$rnd:$url:/$rnd:", "[url]{$url}[/url]", $body);

                }

            }

            // no sense doing any of this if there is no [ in the body

            if(strstr($body, "[")){

                // convert bare email addresses into bbcode tags as best we can.

                $body = preg_replace("/([a-z0-9][a-z0-9\-_\.\+]+@[a-z0-9\-]+\.[a-z0-9\-\.]+[a-z0-9])/i", "[email]$1[/email]", $body);

                // clean up any BB code we stepped on.

                $body = str_replace("[email][email]", "[email]", $body);

                $body = str_replace("[/email][/email]", "[/email]", $body);

                // fiddle with white space around quote and code tags.

                $body=preg_replace("/\s*(\[\/*(code|quote)\])\s*/", "$1", $body);

                // run the pregs defined above

                $body = preg_replace($search, $replace, $body);

                // quote has to be handled differently because they can be embedded.

                // we only do quote replacement if we have matching start and end tags

                if(strstr($body, "[quote") && substr_count($body, "[quote")==substr_count($body, "[/quote]")){

                    $body = preg_replace($quote_search, $quote_replace, $body);

                }

            }

            $data[$message_id]["body"] = $body;

        }

    }

    return $data;

}

function phorum_bb_code_quote ($array)

{

    $PHORUM = $GLOBALS["PHORUM"];

    if(isset($PHORUM["mod_bb_code"]) && $PHORUM["mod_bb_code"]["quote_hook"]){

        return "[quote $array[0]]$array[1][/quote]";

    }

}

?>