| 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.35 2005/07/19 20:01:10 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 | $text = preg_replace('#(script|about|applet|activex|chrome):#is', "\\1:", $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\]([^?].*?)\[/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\]#is";
|
|---|
| 204 | $replacements[] = $bbcode_tpl['url1'];
|
|---|
| 205 |
|
|---|
| 206 | // [url]www.phpbb.com[/url] code.. (no xxxx:// prefix).
|
|---|
| 207 | $patterns[] = "#\[url\]((www|ftp)\.[\w\#$%&~/.\-;:=,?@\[\]+]*?)\[/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 = md5(mt_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=(\\\".*?\\\")\]/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=\\\"#si', $possible_start, $match) && !preg_match('#\[quote=\\\"(.*?)\\\"\]#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, '"]', $curr_pos + 9))
|
|---|
| 397 | {
|
|---|
| 398 | if (strpos(substr($text, $curr_pos + 9, $close_pos - ($curr_pos + 9)), '[quote') === false)
|
|---|
| 399 | {
|
|---|
| 400 | $possible_start = substr($text, $curr_pos, $close_pos - $curr_pos + 2);
|
|---|
| 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 | bbcode_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 = bbcode_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('<', '>', '"', ':', '[', ']', '(', ')', '{', '}');
|
|---|
| 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 . '[code]';
|
|---|
| 500 | $text .= $between_tags . '[/code]';
|
|---|
| 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 = bbcode_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 " " so non-tabbed code indents without making huge long lines.
|
|---|
| 577 | $after_replace = str_replace(" ", " ", $after_replace);
|
|---|
| 578 | // now Replace 2 spaces with " " to catch odd #s of spaces.
|
|---|
| 579 | $after_replace = str_replace(" ", " ", $after_replace);
|
|---|
| 580 |
|
|---|
| 581 | // Replace tabs with " " so tabbed code indents sorta right without making huge long lines.
|
|---|
| 582 | $after_replace = str_replace("\t", " ", $after_replace);
|
|---|
| 583 |
|
|---|
| 584 | // now Replace space occurring at the beginning of a line
|
|---|
| 585 | $after_replace = preg_replace("/^ {1}/m", ' ', $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:", $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("/>/i", ">", $input);
|
|---|
| 668 | $input = preg_replace("/</i", "<", $input);
|
|---|
| 669 | $input = preg_replace("/"/i", "\"", $input);
|
|---|
| 670 | $input = preg_replace("/&/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 | */
|
|---|
| 704 | function bbcode_array_push(&$stack, $value)
|
|---|
| 705 | {
|
|---|
| 706 | $stack[] = $value;
|
|---|
| 707 | return(sizeof($stack));
|
|---|
| 708 | }
|
|---|
| 709 |
|
|---|
| 710 | /**
|
|---|
| 711 | * This function does exactly what the PHP4 function array_pop() does
|
|---|
| 712 | * however, to keep phpBB compatable with PHP 3 we had to come up with our own
|
|---|
| 713 | * method of doing it.
|
|---|
| 714 | */
|
|---|
| 715 | function bbcode_array_pop(&$stack)
|
|---|
| 716 | {
|
|---|
| 717 | $arrSize = count($stack);
|
|---|
| 718 | $x = 1;
|
|---|
| 719 |
|
|---|
| 720 | while(list($key, $val) = each($stack))
|
|---|
| 721 | {
|
|---|
| 722 | if($x < count($stack))
|
|---|
| 723 | {
|
|---|
| 724 | $tmpArr[] = $val;
|
|---|
| 725 | }
|
|---|
| 726 | else
|
|---|
| 727 | {
|
|---|
| 728 | $return_val = $val;
|
|---|
| 729 | }
|
|---|
| 730 | $x++;
|
|---|
| 731 | }
|
|---|
| 732 | $stack = $tmpArr;
|
|---|
| 733 |
|
|---|
| 734 | return($return_val);
|
|---|
| 735 | }
|
|---|
| 736 |
|
|---|
| 737 | //
|
|---|
| 738 | // Smilies code ... would this be better tagged on to the end of bbcode.php?
|
|---|
| 739 | // Probably so and I'll move it before B2
|
|---|
| 740 | //
|
|---|
| 741 | function smilies_pass($message)
|
|---|
| 742 | {
|
|---|
| 743 | static $orig, $repl;
|
|---|
| 744 |
|
|---|
| 745 | if (!isset($orig))
|
|---|
| 746 | {
|
|---|
| 747 | global $db, $board_config;
|
|---|
| 748 | $orig = $repl = array();
|
|---|
| 749 |
|
|---|
| 750 | $sql = 'SELECT * FROM ' . SMILIES_TABLE;
|
|---|
| 751 | if( !$result = $db->sql_query($sql) )
|
|---|
| 752 | {
|
|---|
| 753 | message_die(GENERAL_ERROR, "Couldn't obtain smilies data", "", __LINE__, __FILE__, $sql);
|
|---|
| 754 | }
|
|---|
| 755 | $smilies = $db->sql_fetchrowset($result);
|
|---|
| 756 |
|
|---|
| 757 | if (count($smilies))
|
|---|
| 758 | {
|
|---|
| 759 | usort($smilies, 'smiley_sort');
|
|---|
| 760 | }
|
|---|
| 761 |
|
|---|
| 762 | for ($i = 0; $i < count($smilies); $i++)
|
|---|
| 763 | {
|
|---|
| 764 | $orig[] = "/(?<=.\W|\W.|^\W)" . phpbb_preg_quote($smilies[$i]['code'], "/") . "(?=.\W|\W.|\W$)/";
|
|---|
| 765 | $repl[] = '<img src="'. $board_config['smilies_path'] . '/' . $smilies[$i]['smile_url'] . '" alt="' . $smilies[$i]['emoticon'] . '" border="0" />';
|
|---|
| 766 | }
|
|---|
| 767 | }
|
|---|
| 768 |
|
|---|
| 769 | if (count($orig))
|
|---|
| 770 | {
|
|---|
| 771 | $message = preg_replace($orig, $repl, ' ' . $message . ' ');
|
|---|
| 772 | $message = substr($message, 1, -1);
|
|---|
| 773 | }
|
|---|
| 774 |
|
|---|
| 775 | return $message;
|
|---|
| 776 | }
|
|---|
| 777 |
|
|---|
| 778 | function smiley_sort($a, $b)
|
|---|
| 779 | {
|
|---|
| 780 | if ( strlen($a['code']) == strlen($b['code']) )
|
|---|
| 781 | {
|
|---|
| 782 | return 0;
|
|---|
| 783 | }
|
|---|
| 784 |
|
|---|
| 785 | return ( strlen($a['code']) > strlen($b['code']) ) ? -1 : 1;
|
|---|
| 786 | }
|
|---|
| 787 |
|
|---|
| 788 | ?>
|
|---|
