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