home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 April / PCWorld_2005-04_cd.bin / akce / web / phpnuke / PHP-Nuke-7.5.exe / html / includes / bbcode.php < prev    next >
PHP Script  |  2004-07-12  |  26KB  |  785 lines
  1. <?php
  2. /***************************************************************************
  3.  *                              bbcode.php
  4.  *                            -------------------
  5.  *   begin                : Saturday, Feb 13, 2001
  6.  *   copyright            : (C) 2001 The phpBB Group
  7.  *   email                : support@phpbb.com
  8.  *
  9.  *   $Id: bbcode.php,v 1.36.2.32 2004/07/11 16:46:19 acydburn Exp $
  10.  *
  11.  ***************************************************************************/
  12.  
  13. /***************************************************************************
  14.  *
  15.  *   This program is free software; you can redistribute it and/or modify
  16.  *   it under the terms of the GNU General Public License as published by
  17.  *   the Free Software Foundation; either version 2 of the License, or
  18.  *   (at your option) any later version.
  19.  *
  20.  ***************************************************************************/
  21.  
  22. if ( !defined('IN_PHPBB') )
  23. {
  24.     die("Hacking attempt");
  25. }
  26.  
  27. define("BBCODE_UID_LEN", 10);
  28.  
  29. // global that holds loaded-and-prepared bbcode templates, so we only have to do
  30. // that stuff once.
  31.  
  32. $bbcode_tpl = null;
  33.  
  34. /**
  35.  * Loads bbcode templates from the bbcode.tpl file of the current template set.
  36.  * Creates an array, keys are bbcode names like "b_open" or "url", values
  37.  * are the associated template.
  38.  * Probably pukes all over the place if there's something really screwed
  39.  * with the bbcode.tpl file.
  40.  *
  41.  * Nathan Codding, Sept 26 2001.
  42.  */
  43. function load_bbcode_template()
  44. {
  45.     global $template;
  46.     $tpl_filename = $template->make_filename('bbcode.tpl');
  47.     $tpl = fread(fopen($tpl_filename, 'r'), filesize($tpl_filename));
  48.  
  49.     // replace \ with \\ and then ' with \'.
  50.     $tpl = str_replace('\\', '\\\\', $tpl);
  51.     $tpl  = str_replace('\'', '\\\'', $tpl);
  52.  
  53.     // strip newlines.
  54.     $tpl  = str_replace("\n", '', $tpl);
  55.  
  56.     // Turn template blocks into PHP assignment statements for the values of $bbcode_tpls..
  57.     $tpl = preg_replace('#<!-- BEGIN (.*?) -->(.*?)<!-- END (.*?) -->#', "\n" . '$bbcode_tpls[\'\\1\'] = \'\\2\';', $tpl);
  58.  
  59.     $bbcode_tpls = array();
  60.  
  61.     eval($tpl);
  62.  
  63.     return $bbcode_tpls;
  64. }
  65.  
  66.  
  67. /**
  68.  * Prepares the loaded bbcode templates for insertion into preg_replace()
  69.  * or str_replace() calls in the bbencode_second_pass functions. This
  70.  * means replacing template placeholders with the appropriate preg backrefs
  71.  * or with language vars. NOTE: If you change how the regexps work in
  72.  * bbencode_second_pass(), you MUST change this function.
  73.  *
  74.  * Nathan Codding, Sept 26 2001
  75.  *
  76.  */
  77. function prepare_bbcode_template($bbcode_tpl)
  78. {
  79.     global $lang;
  80.  
  81.     $bbcode_tpl['olist_open'] = str_replace('{LIST_TYPE}', '\\1', $bbcode_tpl['olist_open']);
  82.  
  83.     $bbcode_tpl['color_open'] = str_replace('{COLOR}', '\\1', $bbcode_tpl['color_open']);
  84.  
  85.     $bbcode_tpl['size_open'] = str_replace('{SIZE}', '\\1', $bbcode_tpl['size_open']);
  86.  
  87.     $bbcode_tpl['quote_open'] = str_replace('{L_QUOTE}', $lang['Quote'], $bbcode_tpl['quote_open']);
  88.  
  89.     $bbcode_tpl['quote_username_open'] = str_replace('{L_QUOTE}', $lang['Quote'], $bbcode_tpl['quote_username_open']);
  90.     $bbcode_tpl['quote_username_open'] = str_replace('{L_WROTE}', $lang['wrote'], $bbcode_tpl['quote_username_open']);
  91.     $bbcode_tpl['quote_username_open'] = str_replace('{USERNAME}', '\\1', $bbcode_tpl['quote_username_open']);
  92.  
  93.     $bbcode_tpl['code_open'] = str_replace('{L_CODE}', $lang['Code'], $bbcode_tpl['code_open']);
  94.  
  95.     $bbcode_tpl['img'] = str_replace('{URL}', '\\1', $bbcode_tpl['img']);
  96.  
  97.     // We do URLs in several different ways..
  98.     $bbcode_tpl['url1'] = str_replace('{URL}', '\\1', $bbcode_tpl['url']);
  99.     $bbcode_tpl['url1'] = str_replace('{DESCRIPTION}', '\\1', $bbcode_tpl['url1']);
  100.  
  101.     $bbcode_tpl['url2'] = str_replace('{URL}', 'http://\\1', $bbcode_tpl['url']);
  102.     $bbcode_tpl['url2'] = str_replace('{DESCRIPTION}', '\\1', $bbcode_tpl['url2']);
  103.  
  104.     $bbcode_tpl['url3'] = str_replace('{URL}', '\\1', $bbcode_tpl['url']);
  105.     $bbcode_tpl['url3'] = str_replace('{DESCRIPTION}', '\\2', $bbcode_tpl['url3']);
  106.  
  107.     $bbcode_tpl['url4'] = str_replace('{URL}', 'http://\\1', $bbcode_tpl['url']);
  108.     $bbcode_tpl['url4'] = str_replace('{DESCRIPTION}', '\\3', $bbcode_tpl['url4']);
  109.  
  110.     $bbcode_tpl['email'] = str_replace('{EMAIL}', '\\1', $bbcode_tpl['email']);
  111.  
  112.     define("BBCODE_TPL_READY", true);
  113.  
  114.     return $bbcode_tpl;
  115. }
  116.  
  117.  
  118. /**
  119.  * Does second-pass bbencoding. This should be used before displaying the message in
  120.  * a thread. Assumes the message is already first-pass encoded, and we are given the
  121.  * correct UID as used in first-pass encoding.
  122.  */
  123. function bbencode_second_pass($text, $uid)
  124. {
  125.     global $lang, $bbcode_tpl;
  126.  
  127.     // pad it with a space so we can distinguish between FALSE and matching the 1st char (index 0).
  128.     // This is important; bbencode_quote(), bbencode_list(), and bbencode_code() all depend on it.
  129.     $text = " " . $text;
  130.  
  131.     // First: If there isn't a "[" and a "]" in the message, don't bother.
  132.     if (! (strpos($text, "[") && strpos($text, "]")) )
  133.     {
  134.         // Remove padding, return.
  135.         $text = substr($text, 1);
  136.         return $text;
  137.     }
  138.  
  139.     // Only load the templates ONCE..
  140.     if (!defined("BBCODE_TPL_READY"))
  141.     {
  142.         // load templates from file into array.
  143.         $bbcode_tpl = load_bbcode_template();
  144.  
  145.         // prepare array for use in regexps.
  146.         $bbcode_tpl = prepare_bbcode_template($bbcode_tpl);
  147.     }
  148.  
  149.     // [CODE] and [/CODE] for posting code (HTML, PHP, C etc etc) in your posts.
  150.     $text = bbencode_second_pass_code($text, $uid, $bbcode_tpl);
  151.  
  152.     // [QUOTE] and [/QUOTE] for posting replies with quote, or just for quoting stuff.
  153.     $text = str_replace("[quote:$uid]", $bbcode_tpl['quote_open'], $text);
  154.     $text = str_replace("[/quote:$uid]", $bbcode_tpl['quote_close'], $text);
  155.  
  156.     // New one liner to deal with opening quotes with usernames...
  157.     // replaces the two line version that I had here before..
  158.     $text = preg_replace("/\[quote:$uid=\"(.*?)\"\]/si", $bbcode_tpl['quote_username_open'], $text);
  159.  
  160.     // [list] and [list=x] for (un)ordered lists.
  161.     // unordered lists
  162.     $text = str_replace("[list:$uid]", $bbcode_tpl['ulist_open'], $text);
  163.     // li tags
  164.     $text = str_replace("[*:$uid]", $bbcode_tpl['listitem'], $text);
  165.     // ending tags
  166.     $text = str_replace("[/list:u:$uid]", $bbcode_tpl['ulist_close'], $text);
  167.     $text = str_replace("[/list:o:$uid]", $bbcode_tpl['olist_close'], $text);
  168.     // Ordered lists
  169.     $text = preg_replace("/\[list=([a1]):$uid\]/si", $bbcode_tpl['olist_open'], $text);
  170.  
  171.     // colours
  172.     $text = preg_replace("/\[color=(\#[0-9A-F]{6}|[a-z]+):$uid\]/si", $bbcode_tpl['color_open'], $text);
  173.     $text = str_replace("[/color:$uid]", $bbcode_tpl['color_close'], $text);
  174.  
  175.     // size
  176.     $text = preg_replace("/\[size=([1-2]?[0-9]):$uid\]/si", $bbcode_tpl['size_open'], $text);
  177.     $text = str_replace("[/size:$uid]", $bbcode_tpl['size_close'], $text);
  178.  
  179.     // [b] and [/b] for bolding text.
  180.     $text = str_replace("[b:$uid]", $bbcode_tpl['b_open'], $text);
  181.     $text = str_replace("[/b:$uid]", $bbcode_tpl['b_close'], $text);
  182.  
  183.     // [u] and [/u] for underlining text.
  184.     $text = str_replace("[u:$uid]", $bbcode_tpl['u_open'], $text);
  185.     $text = str_replace("[/u:$uid]", $bbcode_tpl['u_close'], $text);
  186.  
  187.     // [i] and [/i] for italicizing text.
  188.     $text = str_replace("[i:$uid]", $bbcode_tpl['i_open'], $text);
  189.     $text = str_replace("[/i:$uid]", $bbcode_tpl['i_close'], $text);
  190.  
  191.     // Patterns and replacements for URL and email tags..
  192.     $patterns = array();
  193.     $replacements = array();
  194.  
  195.     // [img]image_url_here[/img] code..
  196.     // This one gets first-passed..
  197.     $patterns[] = "#\[img:$uid\](.*?)\[/img:$uid\]#si";
  198.     $replacements[] = $bbcode_tpl['img'];
  199.  
  200.     // matches a [url]xxxx://www.phpbb.com[/url] code..
  201.     $patterns[] = "#\[url\]([\w]+?://[^ \"\n\r\t<]*?)\[/url\]#is";
  202.     $replacements[] = $bbcode_tpl['url1'];
  203.  
  204.     // [url]www.phpbb.com[/url] code.. (no xxxx:// prefix).
  205.     $patterns[] = "#\[url\]((www|ftp)\.[^ \"\n\r\t<]*?)\[/url\]#is";
  206.     $replacements[] = $bbcode_tpl['url2'];
  207.  
  208.     // [url=xxxx://www.phpbb.com]phpBB[/url] code..
  209.     $patterns[] = "#\[url=([\w]+?://[^ \"\n\r\t<]*?)\](.*?)\[/url\]#is";
  210.     $replacements[] = $bbcode_tpl['url3'];
  211.  
  212.     // [url=www.phpbb.com]phpBB[/url] code.. (no xxxx:// prefix).
  213.     $patterns[] = "#\[url=((www|ftp)\.[^ \"\n\r\t<]*?)\](.*?)\[/url\]#is";
  214.     $replacements[] = $bbcode_tpl['url4'];
  215.  
  216.     // [email]user@domain.tld[/email] code..
  217.     $patterns[] = "#\[email\]([a-z0-9&\-_.]+?@[\w\-]+\.([\w\-\.]+\.)?[\w]+)\[/email\]#si";
  218.     $replacements[] = $bbcode_tpl['email'];
  219.  
  220.     $text = preg_replace($patterns, $replacements, $text);
  221.  
  222.     // Remove our padding from the string..
  223.     $text = substr($text, 1);
  224.  
  225.     return $text;
  226.  
  227. } // bbencode_second_pass()
  228.  
  229. // Need to initialize the random numbers only ONCE
  230. mt_srand( (double) microtime() * 1000000);
  231.  
  232. function make_bbcode_uid()
  233. {
  234.     // Unique ID for this message..
  235.  
  236.     $uid = md5(mt_rand());
  237.     $uid = substr($uid, 0, BBCODE_UID_LEN);
  238.  
  239.     return $uid;
  240. }
  241.  
  242. function bbencode_first_pass($text, $uid)
  243. {
  244.     // pad it with a space so we can distinguish between FALSE and matching the 1st char (index 0).
  245.     // This is important; bbencode_quote(), bbencode_list(), and bbencode_code() all depend on it.
  246.     $text = " " . $text;
  247.  
  248.     // [CODE] and [/CODE] for posting code (HTML, PHP, C etc etc) in your posts.
  249.     $text = bbencode_first_pass_pda($text, $uid, '[code]', '[/code]', '', true, '');
  250.  
  251.     // [QUOTE] and [/QUOTE] for posting replies with quote, or just for quoting stuff.
  252.     $text = bbencode_first_pass_pda($text, $uid, '[quote]', '[/quote]', '', false, '');
  253.     $text = bbencode_first_pass_pda($text, $uid, '/\[quote=(\\\".*?\\\")\]/is', '[/quote]', '', false, '', "[quote:$uid=\\1]");
  254.  
  255.     // [list] and [list=x] for (un)ordered lists.
  256.     $open_tag = array();
  257.     $open_tag[0] = "[list]";
  258.  
  259.     // unordered..
  260.     $text = bbencode_first_pass_pda($text, $uid, $open_tag, "[/list]", "[/list:u]", false, 'replace_listitems');
  261.  
  262.     $open_tag[0] = "[list=1]";
  263.     $open_tag[1] = "[list=a]";
  264.  
  265.     // ordered.
  266.     $text = bbencode_first_pass_pda($text, $uid, $open_tag, "[/list]", "[/list:o]",  false, 'replace_listitems');
  267.  
  268.     // [color] and [/color] for setting text color
  269.     $text = preg_replace("#\[color=(\#[0-9A-F]{6}|[a-z\-]+)\](.*?)\[/color\]#si", "[color=\\1:$uid]\\2[/color:$uid]", $text);
  270.  
  271.     // [size] and [/size] for setting text size
  272.     $text = preg_replace("#\[size=([1-2]?[0-9])\](.*?)\[/size\]#si", "[size=\\1:$uid]\\2[/size:$uid]", $text);
  273.  
  274.     // [b] and [/b] for bolding text.
  275.     $text = preg_replace("#\[b\](.*?)\[/b\]#si", "[b:$uid]\\1[/b:$uid]", $text);
  276.  
  277.     // [u] and [/u] for underlining text.
  278.     $text = preg_replace("#\[u\](.*?)\[/u\]#si", "[u:$uid]\\1[/u:$uid]", $text);
  279.  
  280.     // [i] and [/i] for italicizing text.
  281.     $text = preg_replace("#\[i\](.*?)\[/i\]#si", "[i:$uid]\\1[/i:$uid]", $text);
  282.  
  283.     // [img]image_url_here[/img] code..
  284.     $text = preg_replace("#\[img\]((http|ftp|https|ftps)://)([^ \?&=\#\"\n\r\t<]*?(\.(jpg|jpeg|gif|png)))\[/img\]#sie", "'[img:$uid]\\1' . str_replace(' ', '%20', '\\3') . '[/img:$uid]'", $text);
  285.  
  286.     // Remove our padding from the string..
  287.     return substr($text, 1);;
  288.  
  289. } // bbencode_first_pass()
  290.  
  291. /**
  292.  * $text - The text to operate on.
  293.  * $uid - The UID to add to matching tags.
  294.  * $open_tag - The opening tag to match. Can be an array of opening tags.
  295.  * $close_tag - The closing tag to match.
  296.  * $close_tag_new - The closing tag to replace with.
  297.  * $mark_lowest_level - boolean - should we specially mark the tags that occur
  298.  *                     at the lowest level of nesting? (useful for [code], because
  299.  *                        we need to match these tags first and transform HTML tags
  300.  *                        in their contents..
  301.  * $func - This variable should contain a string that is the name of a function.
  302.  *                That function will be called when a match is found, and passed 2
  303.  *                parameters: ($text, $uid). The function should return a string.
  304.  *                This is used when some transformation needs to be applied to the
  305.  *                text INSIDE a pair of matching tags. If this variable is FALSE or the
  306.  *                empty string, it will not be executed.
  307.  * If open_tag is an array, then the pda will try to match pairs consisting of
  308.  * any element of open_tag followed by close_tag. This allows us to match things
  309.  * like [list=A]...[/list] and [list=1]...[/list] in one pass of the PDA.
  310.  *
  311.  * NOTES:    - this function assumes the first character of $text is a space.
  312.  *                - every opening tag and closing tag must be of the [...] format.
  313.  */
  314. function bbencode_first_pass_pda($text, $uid, $open_tag, $close_tag, $close_tag_new, $mark_lowest_level, $func, $open_regexp_replace = false)
  315. {
  316.     $open_tag_count = 0;
  317.  
  318.     if (!$close_tag_new || ($close_tag_new == ''))
  319.     {
  320.         $close_tag_new = $close_tag;
  321.     }
  322.  
  323.     $close_tag_length = strlen($close_tag);
  324.     $close_tag_new_length = strlen($close_tag_new);
  325.     $uid_length = strlen($uid);
  326.  
  327.     $use_function_pointer = ($func && ($func != ''));
  328.  
  329.     $stack = array();
  330.  
  331.     if (is_array($open_tag))
  332.     {
  333.         if (0 == count($open_tag))
  334.         {
  335.             // No opening tags to match, so return.
  336.             return $text;
  337.         }
  338.         $open_tag_count = count($open_tag);
  339.     }
  340.     else
  341.     {
  342.         // only one opening tag. make it into a 1-element array.
  343.         $open_tag_temp = $open_tag;
  344.         $open_tag = array();
  345.         $open_tag[0] = $open_tag_temp;
  346.         $open_tag_count = 1;
  347.     }
  348.  
  349.     $open_is_regexp = false;
  350.  
  351.     if ($open_regexp_replace)
  352.     {
  353.         $open_is_regexp = true;
  354.         if (!is_array($open_regexp_replace))
  355.         {
  356.             $open_regexp_temp = $open_regexp_replace;
  357.             $open_regexp_replace = array();
  358.             $open_regexp_replace[0] = $open_regexp_temp;
  359.         }
  360.     }
  361.  
  362.     if ($mark_lowest_level && $open_is_regexp)
  363.     {
  364.         message_die(GENERAL_ERROR, "Unsupported operation for bbcode_first_pass_pda().");
  365.     }
  366.  
  367.     // Start at the 2nd char of the string, looking for opening tags.
  368.     $curr_pos = 1;
  369.     while ($curr_pos && ($curr_pos < strlen($text)))
  370.     {
  371.         $curr_pos = strpos($text, "[", $curr_pos);
  372.  
  373.         // If not found, $curr_pos will be 0, and the loop will end.
  374.         if ($curr_pos)
  375.         {
  376.             // We found a [. It starts at $curr_pos.
  377.             // check if it's a starting or ending tag.
  378.             $found_start = false;
  379.             $which_start_tag = "";
  380.             $start_tag_index = -1;
  381.  
  382.             for ($i = 0; $i < $open_tag_count; $i++)
  383.             {
  384.                 // Grab everything until the first "]"...
  385.                 $possible_start = substr($text, $curr_pos, strpos($text, ']', $curr_pos + 1) - $curr_pos + 1);
  386.  
  387.                 //
  388.                 // We're going to try and catch usernames with "[' characters.
  389.                 //
  390.                 if( preg_match('#\[quote=\\\"#si', $possible_start, $match) && !preg_match('#\[quote=\\\"(.*?)\\\"\]#si', $possible_start) )
  391.                 {
  392.                     // OK we are in a quote tag that probably contains a ] bracket.
  393.                     // Grab a bit more of the string to hopefully get all of it..
  394.                     if ($close_pos = strpos($text, '"]', $curr_pos + 9))
  395.                     {
  396.                         if (strpos(substr($text, $curr_pos + 9, $close_pos - ($curr_pos + 9)), '[quote') === false)
  397.                         {
  398.                             $possible_start = substr($text, $curr_pos, $close_pos - $curr_pos + 2);
  399.                         }
  400.                     }
  401.                 }
  402.  
  403.                 // Now compare, either using regexp or not.
  404.                 if ($open_is_regexp)
  405.                 {
  406.                     $match_result = array();
  407.                     if (preg_match($open_tag[$i], $possible_start, $match_result))
  408.                     {
  409.                         $found_start = true;
  410.                         $which_start_tag = $match_result[0];
  411.                         $start_tag_index = $i;
  412.                         break;
  413.                     }
  414.                 }
  415.                 else
  416.                 {
  417.                     // straightforward string comparison.
  418.                     if (0 == strcasecmp($open_tag[$i], $possible_start))
  419.                     {
  420.                         $found_start = true;
  421.                         $which_start_tag = $open_tag[$i];
  422.                         $start_tag_index = $i;
  423.                         break;
  424.                     }
  425.                 }
  426.             }
  427.  
  428.             if ($found_start)
  429.             {
  430.                 // We have an opening tag.
  431.                 // Push its position, the text we matched, and its index in the open_tag array on to the stack, and then keep going to the right.
  432.                 $match = array("pos" => $curr_pos, "tag" => $which_start_tag, "index" => $start_tag_index);
  433.                 bbcode_array_push($stack, $match);
  434.                 //
  435.                 // Rather than just increment $curr_pos
  436.                 // Set it to the ending of the tag we just found
  437.                 // Keeps error in nested tag from breaking out
  438.                 // of table structure..
  439.                 //
  440.                 $curr_pos += strlen($possible_start);
  441.             }
  442.             else
  443.             {
  444.                 // check for a closing tag..
  445.                 $possible_end = substr($text, $curr_pos, $close_tag_length);
  446.                 if (0 == strcasecmp($close_tag, $possible_end))
  447.                 {
  448.                     // We have an ending tag.
  449.                     // Check if we've already found a matching starting tag.
  450.                     if (sizeof($stack) > 0)
  451.                     {
  452.                         // There exists a starting tag.
  453.                         $curr_nesting_depth = sizeof($stack);
  454.                         // We need to do 2 replacements now.
  455.                         $match = bbcode_array_pop($stack);
  456.                         $start_index = $match['pos'];
  457.                         $start_tag = $match['tag'];
  458.                         $start_length = strlen($start_tag);
  459.                         $start_tag_index = $match['index'];
  460.  
  461.                         if ($open_is_regexp)
  462.                         {
  463.                             $start_tag = preg_replace($open_tag[$start_tag_index], $open_regexp_replace[$start_tag_index], $start_tag);
  464.                         }
  465.  
  466.                         // everything before the opening tag.
  467.                         $before_start_tag = substr($text, 0, $start_index);
  468.  
  469.                         // everything after the opening tag, but before the closing tag.
  470.                         $between_tags = substr($text, $start_index + $start_length, $curr_pos - $start_index - $start_length);
  471.  
  472.                         // Run the given function on the text between the tags..
  473.                         if ($use_function_pointer)
  474.                         {
  475.                             $between_tags = $func($between_tags, $uid);
  476.                         }
  477.  
  478.                         // everything after the closing tag.
  479.                         $after_end_tag = substr($text, $curr_pos + $close_tag_length);
  480.  
  481.                         // Mark the lowest nesting level if needed.
  482.                         if ($mark_lowest_level && ($curr_nesting_depth == 1))
  483.                         {
  484.                             if ($open_tag[0] == '[code]')
  485.                             {
  486.                                 $code_entities_match = array('#<#', '#>#', '#"#', '#:#', '#\[#', '#\]#', '#\(#', '#\)#', '#\{#', '#\}#');
  487.                                 $code_entities_replace = array('<', '>', '"', ':', '[', ']', '(', ')', '{', '}');
  488.                                 $between_tags = preg_replace($code_entities_match, $code_entities_replace, $between_tags);
  489.                             }
  490.                             $text = $before_start_tag . substr($start_tag, 0, $start_length - 1) . ":$curr_nesting_depth:$uid]";
  491.                             $text .= $between_tags . substr($close_tag_new, 0, $close_tag_new_length - 1) . ":$curr_nesting_depth:$uid]";
  492.                         }
  493.                         else
  494.                         {
  495.                             if ($open_tag[0] == '[code]')
  496.                             {
  497.                                 $text = $before_start_tag . '[code]';
  498.                                 $text .= $between_tags . '[/code]';
  499.                             }
  500.                             else
  501.                             {
  502.                                 if ($open_is_regexp)
  503.                                 {
  504.                                     $text = $before_start_tag . $start_tag;
  505.                                 }
  506.                                 else
  507.                                 {
  508.                                     $text = $before_start_tag . substr($start_tag, 0, $start_length - 1) . ":$uid]";
  509.                                 }
  510.                                 $text .= $between_tags . substr($close_tag_new, 0, $close_tag_new_length - 1) . ":$uid]";
  511.                             }
  512.                         }
  513.  
  514.                         $text .= $after_end_tag;
  515.  
  516.                         // Now.. we've screwed up the indices by changing the length of the string.
  517.                         // So, if there's anything in the stack, we want to resume searching just after it.
  518.                         // otherwise, we go back to the start.
  519.                         if (sizeof($stack) > 0)
  520.                         {
  521.                             $match = bbcode_array_pop($stack);
  522.                             $curr_pos = $match['pos'];
  523. //                            bbcode_array_push($stack, $match);
  524. //                            ++$curr_pos;
  525.                         }
  526.                         else
  527.                         {
  528.                             $curr_pos = 1;
  529.                         }
  530.                     }
  531.                     else
  532.                     {
  533.                         // No matching start tag found. Increment pos, keep going.
  534.                         ++$curr_pos;
  535.                     }
  536.                 }
  537.                 else
  538.                 {
  539.                     // No starting tag or ending tag.. Increment pos, keep looping.,
  540.                     ++$curr_pos;
  541.                 }
  542.             }
  543.         }
  544.     } // while
  545.  
  546.     return $text;
  547.  
  548. } // bbencode_first_pass_pda()
  549.  
  550. /**
  551.  * Does second-pass bbencoding of the [code] tags. This includes
  552.  * running htmlspecialchars() over the text contained between
  553.  * any pair of [code] tags that are at the first level of
  554.  * nesting. Tags at the first level of nesting are indicated
  555.  * by this format: [code:1:$uid] ... [/code:1:$uid]
  556.  * Other tags are in this format: [code:$uid] ... [/code:$uid]
  557.  */
  558. function bbencode_second_pass_code($text, $uid, $bbcode_tpl)
  559. {
  560.     global $lang;
  561.  
  562.     $code_start_html = $bbcode_tpl['code_open'];
  563.     $code_end_html =  $bbcode_tpl['code_close'];
  564.  
  565.     // First, do all the 1st-level matches. These need an htmlspecialchars() run,
  566.     // so they have to be handled differently.
  567.     $match_count = preg_match_all("#\[code:1:$uid\](.*?)\[/code:1:$uid\]#si", $text, $matches);
  568.  
  569.     for ($i = 0; $i < $match_count; $i++)
  570.     {
  571.         $before_replace = $matches[1][$i];
  572.         $after_replace = $matches[1][$i];
  573.  
  574.         // Replace 2 spaces with "  " so non-tabbed code indents without making huge long lines.
  575.         $after_replace = str_replace("  ", "  ", $after_replace);
  576.         // now Replace 2 spaces with "  " to catch odd #s of spaces.
  577.         $after_replace = str_replace("  ", "  ", $after_replace);
  578.  
  579.         // Replace tabs with "   " so tabbed code indents sorta right without making huge long lines.
  580.         $after_replace = str_replace("\t", "   ", $after_replace);
  581.  
  582.         // now Replace space occurring at the beginning of a line
  583.         $after_replace = preg_replace("/^ {1}/m", ' ', $after_replace);
  584.  
  585.         $str_to_match = "[code:1:$uid]" . $before_replace . "[/code:1:$uid]";
  586.  
  587.         $replacement = $code_start_html;
  588.         $replacement .= $after_replace;
  589.         $replacement .= $code_end_html;
  590.  
  591.         $text = str_replace($str_to_match, $replacement, $text);
  592.     }
  593.  
  594.     // Now, do all the non-first-level matches. These are simple.
  595.     $text = str_replace("[code:$uid]", $code_start_html, $text);
  596.     $text = str_replace("[/code:$uid]", $code_end_html, $text);
  597.  
  598.     return $text;
  599.  
  600. } // bbencode_second_pass_code()
  601.  
  602. /**
  603.  * Rewritten by Nathan Codding - Feb 6, 2001.
  604.  * - Goes through the given string, and replaces xxxx://yyyy with an HTML <a> tag linking
  605.  *     to that URL
  606.  * - Goes through the given string, and replaces www.xxxx.yyyy[zzzz] with an HTML <a> tag linking
  607.  *     to http://www.xxxx.yyyy[/zzzz]
  608.  * - Goes through the given string, and replaces xxxx@yyyy with an HTML mailto: tag linking
  609.  *        to that email address
  610.  * - Only matches these 2 patterns either after a space, or at the beginning of a line
  611.  *
  612.  * Notes: the email one might get annoying - it's easy to make it more restrictive, though.. maybe
  613.  * have it require something like xxxx@yyyy.zzzz or such. We'll see.
  614.  */
  615. function make_clickable($text)
  616. {
  617.  
  618.     // pad it with a space so we can match things at the start of the 1st line.
  619.     $ret = ' ' . $text;
  620.  
  621.     // matches an "xxxx://yyyy" URL at the start of a line, or after a space.
  622.     // xxxx can only be alpha characters.
  623.     // yyyy is anything up to the first space, newline, comma, double quote or <
  624.     $ret = preg_replace("#(^|[\n ])([\w]+?://[^ \"\n\r\t<]*)#is", "\\1<a href=\"\\2\" target=\"_blank\">\\2</a>", $ret);
  625.  
  626.     // matches a "www|ftp.xxxx.yyyy[/zzzz]" kinda lazy URL thing
  627.     // Must contain at least 2 dots. xxxx contains either alphanum, or "-"
  628.     // zzzz is optional.. will contain everything up to the first space, newline, 
  629.     // comma, double quote or <.
  630.     $ret = preg_replace("#(^|[\n ])((www|ftp)\.[^ \"\t\n\r<]*)#is", "\\1<a href=\"http://\\2\" target=\"_blank\">\\2</a>", $ret);
  631.  
  632.     // matches an email@domain type address at the start of a line, or after a space.
  633.     // Note: Only the followed chars are valid; alphanums, "-", "_" and or ".".
  634.     $ret = preg_replace("#(^|[\n ])([a-z0-9&\-_.]+?)@([\w\-]+\.([\w\-\.]+\.)*[\w]+)#i", "\\1<a href=\"mailto:\\2@\\3\">\\2@\\3</a>", $ret);
  635.  
  636.     // Remove our padding..
  637.     $ret = substr($ret, 1);
  638.  
  639.     return($ret);
  640. }
  641.  
  642. /**
  643.  * Nathan Codding - Feb 6, 2001
  644.  * Reverses the effects of make_clickable(), for use in editpost.
  645.  * - Does not distinguish between "www.xxxx.yyyy" and "http://aaaa.bbbb" type URLs.
  646.  *
  647.  */
  648. function undo_make_clickable($text)
  649. {
  650.     $text = preg_replace("#<!-- BBCode auto-link start --><a href=\"(.*?)\" target=\"_blank\">.*?</a><!-- BBCode auto-link end -->#i", "\\1", $text);
  651.     $text = preg_replace("#<!-- BBcode auto-mailto start --><a href=\"mailto:(.*?)\">.*?</a><!-- BBCode auto-mailto end -->#i", "\\1", $text);
  652.  
  653.     return $text;
  654.  
  655. }
  656.  
  657. /**
  658.  * Nathan Codding - August 24, 2000.
  659.  * Takes a string, and does the reverse of the PHP standard function
  660.  * htmlspecialchars().
  661.  */
  662. function undo_htmlspecialchars($input)
  663. {
  664.     $input = preg_replace("/>/i", ">", $input);
  665.     $input = preg_replace("/</i", "<", $input);
  666.     $input = preg_replace("/"/i", "\"", $input);
  667.     $input = preg_replace("/&/i", "&", $input);
  668.  
  669.     return $input;
  670. }
  671.  
  672. /**
  673.  * This is used to change a [*] tag into a [*:$uid] tag as part
  674.  * of the first-pass bbencoding of [list] tags. It fits the
  675.  * standard required in order to be passed as a variable
  676.  * function into bbencode_first_pass_pda().
  677.  */
  678. function replace_listitems($text, $uid)
  679. {
  680.     $text = str_replace("[*]", "[*:$uid]", $text);
  681.  
  682.     return $text;
  683. }
  684.  
  685. /**
  686.  * Escapes the "/" character with "\/". This is useful when you need
  687.  * to stick a runtime string into a PREG regexp that is being delimited
  688.  * with slashes.
  689.  */
  690. function escape_slashes($input)
  691. {
  692.     $output = str_replace('/', '\/', $input);
  693.     return $output;
  694. }
  695.  
  696. /**
  697.  * This function does exactly what the PHP4 function array_push() does
  698.  * however, to keep phpBB compatable with PHP 3 we had to come up with our own
  699.  * method of doing it.
  700.  */
  701. function bbcode_array_push(&$stack, $value)
  702. {
  703.    $stack[] = $value;
  704.    return(sizeof($stack));
  705. }
  706.  
  707. /**
  708.  * This function does exactly what the PHP4 function array_pop() does
  709.  * however, to keep phpBB compatable with PHP 3 we had to come up with our own
  710.  * method of doing it.
  711.  */
  712. function bbcode_array_pop(&$stack)
  713. {
  714.    $arrSize = count($stack);
  715.    $x = 1;
  716.  
  717.    while(list($key, $val) = each($stack))
  718.    {
  719.       if($x < count($stack))
  720.       {
  721.              $tmpArr[] = $val;
  722.       }
  723.       else
  724.       {
  725.              $return_val = $val;
  726.       }
  727.       $x++;
  728.    }
  729.    $stack = $tmpArr;
  730.  
  731.    return($return_val);
  732. }
  733.  
  734. //
  735. // Smilies code ... would this be better tagged on to the end of bbcode.php?
  736. // Probably so and I'll move it before B2
  737. //
  738. function smilies_pass($message)
  739. {
  740.     static $orig, $repl;
  741.  
  742.     if (!isset($orig))
  743.     {
  744.         global $db, $board_config;
  745.         $orig = $repl = array();
  746.  
  747.         $sql = 'SELECT * FROM ' . SMILIES_TABLE;
  748.         if( !$result = $db->sql_query($sql) )
  749.         {
  750.             message_die(GENERAL_ERROR, "Couldn't obtain smilies data", "", __LINE__, __FILE__, $sql);
  751.         }
  752.         $smilies = $db->sql_fetchrowset($result);
  753.  
  754.         if (count($smilies))
  755.         {
  756.             usort($smilies, 'smiley_sort');
  757.         }
  758.  
  759.         for ($i = 0; $i < count($smilies); $i++)
  760.         {
  761.             $orig[] = "/(?<=.\W|\W.|^\W)" . phpbb_preg_quote($smilies[$i]['code'], "/") . "(?=.\W|\W.|\W$)/";
  762.             $repl[] = '<img src="'. $board_config['smilies_path'] . '/' . $smilies[$i]['smile_url'] . '" alt="' . $smilies[$i]['emoticon'] . '" border="0" />';
  763.         }
  764.     }
  765.  
  766.     if (count($orig))
  767.     {
  768.         $message = preg_replace($orig, $repl, ' ' . $message . ' ');
  769.         $message = substr($message, 1, -1);
  770.     }
  771.     
  772.     return $message;
  773. }
  774.  
  775. function smiley_sort($a, $b)
  776. {
  777.     if ( strlen($a['code']) == strlen($b['code']) )
  778.     {
  779.         return 0;
  780.     }
  781.  
  782.     return ( strlen($a['code']) > strlen($b['code']) ) ? -1 : 1;
  783. }
  784.  
  785. ?>