phpBB2_old/includes/bbcode.php

   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('&lt;', '&gt;', '&quot;', '&#58;', '&#91;', '&#93;', '&#40;', '&#41;', '&#123;', '&#125;');
 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 . '&#91;code&#93;';
 498                                                                 $text .= $between_tags . '&#91;/code&#93;';
 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 "&nbsp; " so non-tabbed code indents without making huge long lines.
 575                 $after_replace = str_replace("  ", "&nbsp; ", $after_replace);
 576                 // now Replace 2 spaces with " &nbsp;" to catch odd #s of spaces.
 577                 $after_replace = str_replace("  ", " &nbsp;", $after_replace);
 578
 579                 // Replace tabs with "&nbsp; &nbsp;" so tabbed code indents sorta right without making huge long lines.
 580                 $after_replace = str_replace("\t", "&nbsp; &nbsp;", $after_replace);
 581
 582                 // now Replace space occurring at the beginning of a line
 583                 $after_replace = preg_replace("/^ {1}/m", '&nbsp;', $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("/&gt;/i", ">", $input);
 665         $input = preg_replace("/&lt;/i", "<", $input);
 666         $input = preg_replace("/&quot;/i", "\"", $input);
 667         $input = preg_replace("/&amp;/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 ?>