Vanilla Porter Version

' == $matches[1] )
		$text = "\n$text\n";
	return "`$text`";
}
?> columns */
   protected $SourceTables = array(
      'boards' => array(),
      'messages' => array(),
      'instant_messages' => array(),
	  'im_recipients' => array(),
	  'categories' => array('ID_CAT', 'name', 'catOrder'),
	  'membergroups' => array(),
      'members' => array('ID_MEMBER', 'memberName', 'passwd', 'emailAddress', 'dateRegistered')
   );
   
   /**
    * Forum-specific export format.
    * @param ExportModel $Ex
    */
   protected function ForumExport($Ex) {
      // Begin
      $Ex->BeginExport('', 'SMF 1.*', array('HashMethod' => 'reset'));

      // Users
      $User_Map = array(
         'ID_MEMBER'=>'UserID',
         'memberName'=>'Name',
         'password'=>'Password', // concat(`passwd`, `passwordSalt`) as `password`
         'emailAddress'=>'Email',
         'DateInserted'=>'DateInserted',
		 'timeOffset'=>'HourOffset',
         'posts'=>'CountComments',
         'avatar'=>'Photo',
         'birthdate'=>'DateOfBirth',
         'DateFirstVisit'=>'DateFirstVisit',
         'DateLastActive'=>'DateLastActive',
         'DateUpdated'=>'DateUpdated'
      );
      $Ex->ExportTable('User', "
	  select *,
             from_unixtime(dateRegistered) as DateInserted,
			 from_unixtime(dateRegistered) as DateFirstVisit,
			 from_unixtime(lastLogin) as DateLastActive,
			 from_unixtime(lastLogin) as DateUpdated,
			 concat(`passwd`, `passwordSalt`) as `password`
	  from :_members", $User_Map);

      // Roles
      $Role_Map = array(
         'ID_GROUP'=>'RoleID',
         'groupName'=>'Name'
      );
      $Ex->ExportTable('Role', "select * from :_membergroups", $Role_Map);

      // UserRoles
      $UserRole_Map = array(
         'ID_MEMBER'=>'UserID',
		 'ID_GROUP'=>'RoleID'
      );
      $Ex->ExportTable('UserRole', "select * from :_members", $UserRole_Map);
	  
      // Categories
      $Ex->ExportTable('Category',
	  "
	  
      select
        (`ID_CAT` + 1000000) as `CategoryID`,
        `name` as `Name`,
		'' as `Description`,
		null as `ParentCategoryID`,
        `catOrder` as `Sort`
      from :_categories
	  
	  union
	  
      select
        `ID_BOARD` as `CategoryID`,
        `name` as `Name`,
		`description` as `Description`,
		(CASE WHEN `ID_PARENT` = 0 THEN (`ID_CAT` + 1000000) ELSE `ID_PARENT` END) as `ParentCategoryID`,
        `boardOrder` as `Sort`
      from :_boards
	  
	  ");
	  
      // Discussions
      $Discussion_Map = array(
         'ID_TOPIC' => 'DiscussionID', 
         'subject' => array('Column'=>'Name','Filter'=>'bb2html'),
		 'body' => array('Column'=>'Body','Filter'=>'bb2html'),
		 'Format'=>'Format',
         'ID_BOARD'=> 'CategoryID',
         'DateInserted'=>'DateInserted',
         'DateUpdated'=>'DateUpdated',
         'ID_MEMBER'=>'InsertUserID',
         'DateLastComment'=>'DateLastComment',
         'UpdateUserID'=>'UpdateUserID',
         'locked'=>'Closed',
         'isSticky'=>'Announce',
         'CountComments'=>'CountComments',
		 'numViews'=>'CountViews',
         'LastCommentUserID'=>'LastCommentUserID',
		 'ID_LAST_MSG'=>'LastCommentID'
      );
      $Ex->ExportTable('Discussion', "
	  select t.*,
	     (t.numReplies + 1) as CountComments,
	         m.subject,
			 m.body,
			 from_unixtime(m.posterTime) as DateInserted,
			 from_unixtime(m.modifiedTime) as DateUpdated,
			 m.ID_MEMBER,
			 from_unixtime(m_end.posterTime) AS DateLastComment,
			 m_end.ID_MEMBER AS UpdateUserID,
			 m_end.ID_MEMBER AS LastCommentUserID,
			 'Html' as Format
         from :_topics t
		 join :_messages as m on t.ID_FIRST_MSG = m.ID_MSG
		 join :_messages as m_end on t.ID_LAST_MSG = m_end.ID_MSG
		 
		 -- where t.spam = 0 AND m.spam = 0;
		 
		 ", $Discussion_Map);

      // Comments
      $Comment_Map = array(
         'ID_MSG' => 'CommentID',
         'ID_TOPIC' => 'DiscussionID',
		 'Format' => 'Format',
         'body' => array('Column'=>'Body','Filter'=>'bb2html'),
         'ID_MEMBER' => 'InsertUserID',
         'DateInserted' => 'DateInserted'
      );
      $Ex->ExportTable('Comment', "select m.*, from_unixtime(m.posterTime) AS DateInserted,
				'Html' as Format
         from :_messages m
		 join :_topics t on m.ID_TOPIC = t.ID_TOPIC
		 where m.ID_MSG <> t.ID_FIRST_MSG;
         ", $Comment_Map);

	 // Conversation.
	 $Conv_Map = array(
		'ID_PM' => 'ConversationID',
		'ID_MEMBER_FROM' => 'InsertUserID',
		'DateInserted' => 'DateInserted'
	 );
	 $Ex->ExportTable('Conversation',
		"select *, from_unixtime(msgtime) as DateInserted
		from :_personal_messages
		where deletedBySender = 0", $Conv_Map);

	 // ConversationMessage.
	 $ConvMessage_Map = array(
		'MessageID' => 'MessageID',
		'ConversationID' => 'ConversationID',
		'DateInserted' => 'DateInserted',
		'ID_MEMBER_FROM' => 'InsertUserID',
		'body' => array('Column'=>'Body','Filter'=>'bb2html')
	 );
	 $Ex->ExportTable('ConversationMessage',
		"select *, ID_PM AS MessageID, ID_PM AS ConversationID, from_unixtime(msgtime) as DateInserted
		from :_personal_messages
		where deletedBySender = 0", $ConvMessage_Map);

	 // UserConversation.
	 $UserConv_Map = array(
		'ID_MEMBER' => 'UserID',
		'ConversationID' => 'ConversationID',
		'LastMessageID' => 'LastMessageID'
	 );
	 $Ex->ExportTable('UserConversation',
		"select *, ID_PM AS LastMessageID, ID_PM AS ConversationID
		from :_pm_recipients
		where deletedBySender = 0", $UserConv_Map);

      // End
      $Ex->EndExport();
   }
}

function bb2html($text)
{
  global $txt, $scripturl, $context, $modSettings, $user_info;

  $user_info['time_format'] = '%Y-%m-%d';

  // A bit of language stuff used by the parser
  $txt['lang_character_set'] = 'utf8';
  $txt['smf238'] = 'Code';
  $txt['smf239'] = 'Quote from';
  $txt['smf240'] = 'Quote';
  $txt[176] = 'on';
  $txt['lang_locale'] = 'en';
  $txt[287] = 'Smiley';
  $txt[288] = 'Angry';
  $txt[289] = 'Cheesy';
  $txt[290] = 'Laugh';
  $txt[291] = 'Sad';
  $txt[292] = 'Wink';
  $txt[293] = 'Grin';
  $txt[294] = 'Shocked';
  $txt[295] = 'Cool';
  $txt[296] = 'Huh';
  $txt[450] = 'Roll Eyes';
  $txt[451] = 'Tongue';
  $txt[526] = 'Embarrassed';
  $txt[527] = 'Lips sealed';
  $txt[528] = 'Undecided';
  $txt[529] = 'Kiss';
  $txt[530] = 'Cry';

  // URL stuff
  $scripturl = dirname($_SERVER['REQUEST_URI']); // TODO: make sure this is right
  
  // some settings
  $modSettings['enableBBC'] = true;
  $modSettings['enablePostHTML'] = true;
  $modSettings['max_image_width'] = 500;
  $modSettings['max_image_height'] = 500;
  $modSettings['autoLinkUrls'] = false;
  $modSettings['fixLongWords'] = false;

  return parse_bbc($text, false);
}

// Format a time to make it look purdy.
function timeformat($logTime, $show_today = true)
{
  global $user_info, $txt, $db_prefix, $modSettings, $func;

  // Offset the time.
  $time = $logTime + ($user_info['time_offset'] + $modSettings['time_offset']) * 3600;

  // We can't have a negative date (on Windows, at least.)
  if ($time < 0)
    $time = 0;

  // Today and Yesterday?
  if ($modSettings['todayMod'] >= 1 && $show_today === true)
  {
    // Get the current time.
    $nowtime = forum_time();

    $then = @getdate($time);
    $now = @getdate($nowtime);

    // Try to make something of a time format string...
    $s = strpos($user_info['time_format'], '%S') === false ? '' : ':%S';
    if (strpos($user_info['time_format'], '%H') === false && strpos($user_info['time_format'], '%T') === false)
      $today_fmt = '%I:%M' . $s . ' %p';
    else
      $today_fmt = '%H:%M' . $s;

    // Same day of the year, same year.... Today!
    if ($then['yday'] == $now['yday'] && $then['year'] == $now['year'])
      return $txt['smf10'] . timeformat($logTime, $today_fmt);

    // Day-of-year is one less and same year, or it's the first of the year and that's the last of the year...
    if ($modSettings['todayMod'] == '2' && (($then['yday'] == $now['yday'] - 1 && $then['year'] == $now['year']) || ($now['yday'] == 0 && $then['year'] == $now['year'] - 1) && $then['mon'] == 12 && $then['mday'] == 31))
      return $txt['smf10b'] . timeformat($logTime, $today_fmt);
  }

  $str = !is_bool($show_today) ? $show_today : $user_info['time_format'];

  if (setlocale(LC_TIME, $txt['lang_locale']))
  {
    foreach (array('%a', '%A', '%b', '%B') as $token)
      if (strpos($str, $token) !== false)
        $str = str_replace($token, $func['ucwords'](strftime($token, $time)), $str);
  }
  else
  {
    // Do-it-yourself time localization.  Fun.
    foreach (array('%a' => 'days_short', '%A' => 'days', '%b' => 'months_short', '%B' => 'months') as $token => $text_label)
      if (strpos($str, $token) !== false)
        $str = str_replace($token, $txt[$text_label][(int) strftime($token === '%a' || $token === '%A' ? '%w' : '%m', $time)], $str);
    if (strpos($str, '%p'))
      $str = str_replace('%p', (strftime('%H', $time) < 12 ? 'am' : 'pm'), $str);
  }

  // Format any other characters..
  return strftime($str, $time);
}

// Removes special entities from strings.  Compatibility...
function un_htmlspecialchars($string)
{
  return strtr($string, array_flip(get_html_translation_table(HTML_SPECIALCHARS, ENT_QUOTES)) + array(''' => '\'', ' ' => ' '));
}

// This gets all possible permutations of an array.
function permute($array)
{
  $orders = array($array);

  $n = count($array);
  $p = range(0, $n);
  for ($i = 1; $i < $n; null)
  {
    $p[$i]--;
    $j = $i % 2 != 0 ? $p[$i] : 0;

    $temp = $array[$i];
    $array[$i] = $array[$j];
    $array[$j] = $temp;

    for ($i = 1; $p[$i] == 0; $i++)
      $p[$i] = 1;

    $orders[] = $array;
  }

  return $orders;
}

// Parse bulletin board code in a string, as well as smileys optionally.
function parse_bbc($message, $smileys = true, $cache_id = '')
{
  global $txt, $scripturl, $context, $modSettings, $user_info;
  static $bbc_codes = array(), $itemcodes = array(), $no_autolink_tags = array();
  static $disabled;

  // Never show smileys for wireless clients.  More bytes, can't see it anyway :P.
  if (WIRELESS)
    $smileys = false;
  elseif ($smileys !== null && ($smileys == '1' || $smileys == '0'))
    $smileys = (bool) $smileys;

  if (empty($modSettings['enableBBC']) && $message !== false)
  {
    if ($smileys === true)
      parsesmileys($message);

    return $message;
  }

  // Just in case it wasn't determined yet whether UTF-8 is enabled.
  if (!isset($context['utf8']))
    $context['utf8'] = (empty($modSettings['global_character_set']) ? $txt['lang_character_set'] : $modSettings['global_character_set']) === 'UTF-8';

  // Sift out the bbc for a performance improvement.
  if (empty($bbc_codes) || $message === false)
  {
    if (!empty($modSettings['disabledBBC']))
    {
      $temp = explode(',', strtolower($modSettings['disabledBBC']));

      foreach ($temp as $tag)
        $disabled[trim($tag)] = true;
    }

    if (empty($modSettings['enableEmbeddedFlash']))
      $disabled['flash'] = true;

    /* The following bbc are formatted as an array, with keys as follows:

      tag: the tag's name - should be lowercase!

      type: one of...
        - (missing): [tag]parsed content[/tag]
        - unparsed_equals: [tag=xyz]parsed content[/tag]
        - parsed_equals: [tag=parsed data]parsed content[/tag]
        - unparsed_content: [tag]unparsed content[/tag]
        - closed: [tag], [tag/], [tag /]
        - unparsed_commas: [tag=1,2,3]parsed content[/tag]
        - unparsed_commas_content: [tag=1,2,3]unparsed content[/tag]
        - unparsed_equals_content: [tag=...]unparsed content[/tag]

      parameters: an optional array of parameters, for the form
        [tag abc=123]content[/tag].  The array is an associative array
        where the keys are the parameter names, and the values are an
        array which may contain the following:
        - match: a regular expression to validate and match the value.
        - quoted: true if the value should be quoted.
        - validate: callback to evaluate on the data, which is $data.
        - value: a string in which to replace $1 with the data.
          either it or validate may be used, not both.
        - optional: true if the parameter is optional.

      test: a regular expression to test immediately after the tag's
        '=', ' ' or ']'.  Typically, should have a \] at the end.
        Optional.

      content: only available for unparsed_content, closed,
        unparsed_commas_content, and unparsed_equals_content.
        $1 is replaced with the content of  the tag.  Parameters
        are repalced in the form {param}.  For unparsed_commas_content,
        $2, $3, ..., $n are replaced.

      before: only when content is not used, to go before any
        content.  For unparsed_equals, $1 is replaced with the value.
        For unparsed_commas, $1, $2, ..., $n are replaced.

      after: similar to before in every way, except that it is used
        when the tag is closed.

      disabled_content: used in place of content when the tag is
        disabled.  For closed, default is '', otherwise it is '$1' if
        block_level is false, '
$1
' elsewise.

      disabled_before: used in place of before when disabled.  Defaults
        to '
' if block_level, '' if not.

      disabled_after: used in place of after when disabled.  Defaults
        to '
' if block_level, '' if not.

      block_level: set to true the tag is a "block level" tag, similar
        to HTML.  Block level tags cannot be nested inside tags that are
        not block level, and will not be implicitly closed as easily.
        One break following a block level tag may also be removed.

      trim: if set, and 'inside' whitespace after the begin tag will be
        removed.  If set to 'outside', whitespace after the end tag will
        meet the same fate.

      validate: except when type is missing or 'closed', a callback to
        validate the data as $data.  Depending on the tag's type, $data
        may be a string or an array of strings (corresponding to the
        replacement.)

      quoted: when type is 'unparsed_equals' or 'parsed_equals' only,
        may be not set, 'optional', or 'required' corresponding to if
        the content may be quoted.  This allows the parser to read
        [tag="abc]def[esdf]"] properly.

      require_parents: an array of tag names, or not set.  If set, the
        enclosing tag *must* be one of the listed tags, or parsing won't
        occur.

      require_children: similar to require_parents, if set children
        won't be parsed if they are not in the list.

      disallow_children: similar to, but very different from,
        require_children, if it is set the listed tags will not be
        parsed inside the tag.
    */

    $codes = array(
      array(
        'tag' => 'abbr',
        'type' => 'unparsed_equals',
        'before' => '',
        'after' => '',
        'quoted' => 'optional',
        'disabled_after' => ' ($1)',
      ),
      array(
        'tag' => 'acronym',
        'type' => 'unparsed_equals',
        'before' => '',
        'after' => '',
        'quoted' => 'optional',
        'disabled_after' => ' ($1)',
      ),
      array(
        'tag' => 'anchor',
        'type' => 'unparsed_equals',
        'test' => '[#]?([A-Za-z][A-Za-z0-9_\-]*)\]',
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'b',
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'black',
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'blue',
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'br',
        'type' => 'closed',
        'content' => '
',
      ),
      array(
        'tag' => 'code',
        'type' => 'unparsed_content',
        'content' => '
' . $txt['smf238'] . ':
' . ($context['browser']['is_gecko'] ? '
$1
' : '$1') . '
',
        // !!! Maybe this can be simplified?
        'validate' => isset($disabled['code']) ? null : create_function('&$tag, &$data, $disabled', '
          global $context;

          if (!isset($disabled[\'code\']))
          {
            $php_parts = preg_split(\'~(<\?php|\?>)~\', $data, -1, PREG_SPLIT_DELIM_CAPTURE);

            for ($php_i = 0, $php_n = count($php_parts); $php_i < $php_n; $php_i++)
            {
              // Do PHP code coloring?
              if ($php_parts[$php_i] != \'<?php\')
                continue;

              $php_string = \'\';
              while ($php_i + 1 < count($php_parts) && $php_parts[$php_i] != \'?>\')
              {
                $php_string .= $php_parts[$php_i];
                $php_parts[$php_i++] = \'\';
              }
              $php_parts[$php_i] = highlight_php_code($php_string . $php_parts[$php_i]);
            }

            // Fix the PHP code stuff...
            $data = str_replace("
\t
", "\t", implode(\'\', $php_parts));

            // Older browsers are annoying, aren\'t they?
            if ($context[\'browser\'][\'is_ie4\'] || $context[\'browser\'][\'is_ie5\'] || $context[\'browser\'][\'is_ie5.5\'])
              $data = str_replace("\t", "
\t
", $data);
            elseif (!$context[\'browser\'][\'is_gecko\'])
              $data = str_replace("\t", "\t", $data);
          }'),
        'block_level' => true,
      ),
      array(
        'tag' => 'code',
        'type' => 'unparsed_equals_content',
        'content' => '
' . $txt['smf238'] . ': ($2)
' . ($context['browser']['is_gecko'] ? '
$1
' : '$1') . '
',
        // !!! Maybe this can be simplified?
        'validate' => isset($disabled['code']) ? null : create_function('&$tag, &$data, $disabled', '
          global $context;

          if (!isset($disabled[\'code\']))
          {
            $php_parts = preg_split(\'~(<\?php|\?>)~\', $data[0], -1, PREG_SPLIT_DELIM_CAPTURE);

            for ($php_i = 0, $php_n = count($php_parts); $php_i < $php_n; $php_i++)
            {
              // Do PHP code coloring?
              if ($php_parts[$php_i] != \'<?php\')
                continue;

              $php_string = \'\';
              while ($php_i + 1 < count($php_parts) && $php_parts[$php_i] != \'?>\')
              {
                $php_string .= $php_parts[$php_i];
                $php_parts[$php_i++] = \'\';
              }
              $php_parts[$php_i] = highlight_php_code($php_string . $php_parts[$php_i]);
            }

            // Fix the PHP code stuff...
            $data[0] = str_replace("
\t
", "\t", implode(\'\', $php_parts));

            // Older browsers are annoying, aren\'t they?
            if ($context[\'browser\'][\'is_ie4\'] || $context[\'browser\'][\'is_ie5\'] || $context[\'browser\'][\'is_ie5.5\'])
              $data = str_replace("\t", "
\t
", $data);
            elseif (!$context[\'browser\'][\'is_gecko\'])
              $data = str_replace("\t", "\t", $data);
          }'),
        'block_level' => true,
      ),
      array(
        'tag' => 'center',
        'before' => '
',
        'after' => '
',
        'block_level' => true,
      ),
      array(
        'tag' => 'color',
        'type' => 'unparsed_equals',
        'test' => '(#[\da-fA-F]{3}|#[\da-fA-F]{6}|[A-Za-z]{1,12})\]',
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'email',
        'type' => 'unparsed_content',
        'content' => '$1',
        // !!! Should this respect guest_hideContacts?
        'validate' => create_function('&$tag, &$data, $disabled', '$data = strtr($data, array(\'
\' => \'\'));'),
      ),
      array(
        'tag' => 'email',
        'type' => 'unparsed_equals',
        'before' => '',
        'after' => '',
        // !!! Should this respect guest_hideContacts?
        'disallow_children' => array('email', 'ftp', 'url', 'iurl'),
        'disabled_after' => ' ($1)',
      ),
      array(
        'tag' => 'ftp',
        'type' => 'unparsed_content',
        'content' => '$1',
        'validate' => create_function('&$tag, &$data, $disabled', '$data = strtr($data, array(\'
\' => \'\'));'),
      ),
      array(
        'tag' => 'ftp',
        'type' => 'unparsed_equals',
        'before' => '',
        'after' => '',
        'disallow_children' => array('email', 'ftp', 'url', 'iurl'),
        'disabled_after' => ' ($1)',
      ),
      array(
        'tag' => 'font',
        'type' => 'unparsed_equals',
        'test' => '[A-Za-z0-9_,\-\s]+?\]',
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'flash',
        'type' => 'unparsed_commas_content',
        'test' => '\d+,\d+\]',
        'content' => ($context['browser']['is_ie'] && !$context['browser']['is_mac_ie'] ? '' : '<a href="$1" target="_blank">$1</a>'),
        'validate' => create_function('&$tag, &$data, $disabled', '
          if (isset($disabled[\'url\']))
            $tag[\'content\'] = \'$1\';'),
        'disabled_content' => '$1',
      ),
      array(
        'tag' => 'green',
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'glow',
        'type' => 'unparsed_commas',
        'test' => '[#0-9a-zA-Z\-]{3,12},([012]\d{1,2}|\d{1,2})(,[^]]+)?\]',
        'before' => $context['browser']['is_ie'] ? '
' : '',
        'after' => $context['browser']['is_ie'] ? '
 ' : '',
      ),
      array(
        'tag' => 'hr',
        'type' => 'closed',
        'content' => '
',
        'block_level' => true,
      ),
      array(
        'tag' => 'html',
        'type' => 'unparsed_content',
        'content' => '$1',
        'block_level' => true,
        'disabled_content' => '$1',
      ),
      array(
        'tag' => 'img',
        'type' => 'unparsed_content',
        'parameters' => array(
          'alt' => array('optional' => true),
          'width' => array('optional' => true, 'value' => ' width="$1"', 'match' => '(\d+)'),
          'height' => array('optional' => true, 'value' => ' height="$1"', 'match' => '(\d+)'),
        ),
        'content' => '',
        'validate' => create_function('&$tag, &$data, $disabled', '$data = strtr($data, array(\'
\' => \'\'));'),
        'disabled_content' => '($1)',
      ),
      array(
        'tag' => 'img',
        'type' => 'unparsed_content',
        'content' => '',
        'validate' => create_function('&$tag, &$data, $disabled', '$data = strtr($data, array(\'
\' => \'\'));'),
        'disabled_content' => '($1)',
      ),
      array(
        'tag' => 'i',
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'iurl',
        'type' => 'unparsed_content',
        'content' => '$1',
        'validate' => create_function('&$tag, &$data, $disabled', '$data = strtr($data, array(\'
\' => \'\'));'),
      ),
      array(
        'tag' => 'iurl',
        'type' => 'unparsed_equals',
        'before' => '',
        'after' => '',
        'validate' => create_function('&$tag, &$data, $disabled', '
          if (substr($data, 0, 1) == \'#\')
            $data = \'#post_\' . substr($data, 1);'),
        'disallow_children' => array('email', 'ftp', 'url', 'iurl'),
        'disabled_after' => ' ($1)',
      ),
      array(
        'tag' => 'li',
        'before' => '
',
        'after' => '
',
        'trim' => 'outside',
        'require_parents' => array('list'),
        'block_level' => true,
        'disabled_before' => '',
        'disabled_after' => '
',
      ),
      array(
        'tag' => 'list',
        'before' => '
',
        'after' => '
',
        'trim' => 'inside',
        'require_children' => array('li'),
        'block_level' => true,
      ),
      array(
        'tag' => 'list',
        'parameters' => array(
          'type' => array('match' => '(none|disc|circle|square|decimal|decimal-leading-zero|lower-roman|upper-roman|lower-alpha|upper-alpha|lower-greek|lower-latin|upper-latin|hebrew|armenian|georgian|cjk-ideographic|hiragana|katakana|hiragana-iroha|katakana-iroha)'),
        ),
        'before' => '
',
        'after' => '
',
        'trim' => 'inside',
        'require_children' => array('li'),
        'block_level' => true,
      ),
      array(
        'tag' => 'left',
        'before' => '
',
        'after' => '
',
        'block_level' => true,
      ),
      array(
        'tag' => 'ltr',
        'before' => '
',
        'after' => '
',
        'block_level' => true,
      ),
      array(
        'tag' => 'me',
        'type' => 'unparsed_equals',
        'before' => '
* $1 ',
        'after' => '
',
        'quoted' => 'optional',
        'block_level' => true,
        'disabled_before' => '/me ',
        'disabled_after' => '
',
      ),
      array(
        'tag' => 'move',
        'before' => '',
        'after' => '',
        'block_level' => true,
      ),
      array(
        'tag' => 'nobbc',
        'type' => 'unparsed_content',
        'content' => '$1',
      ),
      array(
        'tag' => 'pre',
        'before' => '
',
        'after' => '
',
      ),
      array(
        'tag' => 'php',
        'type' => 'unparsed_content',
        'content' => '
$1
',
        'validate' => isset($disabled['php']) ? null : create_function('&$tag, &$data, $disabled', '
          if (!isset($disabled[\'php\']))
          {
            $add_begin = substr(trim($data), 0, 5) != \'<?\';
            $data = highlight_php_code($add_begin ? \'<?php \' . $data . \'?>\' : $data);
            if ($add_begin)
              $data = preg_replace(array(\'~^(.+?)<\?.{0,40}?php( |\s)~\', \'~\?>((?:)*)$~\'), \'$1\', $data, 2);
          }'),
        'block_level' => true,
        'disabled_content' => '$1',
      ),
      array(
        'tag' => 'quote',
        'before' => '
' . $txt['smf240'] . '
',
        'after' => '
',
        'block_level' => true,
      ),
      array(
        'tag' => 'quote',
        'parameters' => array(
          'author' => array('match' => '(.{1,192}?)', 'quoted' => true, 'validate' => 'parse_bbc'),
        ),
        'before' => '
' . $txt['smf239'] . ': {author}
',
        'after' => '
',
        'block_level' => true,
      ),
      array(
        'tag' => 'quote',
        'type' => 'parsed_equals',
        'before' => '
' . $txt['smf239'] . ': $1
',
        'after' => '
',
        'quoted' => 'optional',
        'block_level' => true,
      ),
      array(
        'tag' => 'quote',
        'parameters' => array(
          'author' => array('match' => '([^<>]{1,192}?)'),
          'link' => array('match' => '(?:board=\d+;)?((?:topic|threadid)=[\dmsg#\./]{1,40}(?:;start=[\dmsg#\./]{1,40})?|action=profile;u=\d+)'),
          'date' => array('match' => '(\d+)', 'validate' => 'timeformat'),
        ),
        'before' => '
' . $txt['smf239'] . ': {author} ' . $txt[176] . ' {date}
',
        'after' => '
',
        'block_level' => true,
      ),
      array(
        'tag' => 'quote',
        'parameters' => array(
          'author' => array('match' => '(.{1,192}?)', 'validate' => 'parse_bbc'),
        ),
        'before' => '
' . $txt['smf239'] . ': {author}
',
        'after' => '
',
        'block_level' => true,
      ),
      array(
        'tag' => 'right',
        'before' => '
',
        'after' => '
',
        'block_level' => true,
      ),
      array(
        'tag' => 'red',
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'rtl',
        'before' => '
',
        'after' => '
',
        'block_level' => true,
      ),
      array(
        'tag' => 's',
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'size',
        'type' => 'unparsed_equals',
        'test' => '([1-9][\d]?p[xt]|(?:x-)?small(?:er)?|(?:x-)?large[r]?)\]',
        // !!! line-height
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'size',
        'type' => 'unparsed_equals',
        'test' => '[1-9]\]',
        // !!! line-height
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'sub',
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'sup',
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'shadow',
        'type' => 'unparsed_commas',
        'test' => '[#0-9a-zA-Z\-]{3,12},(left|right|top|bottom|[0123]\d{0,2})\]',
        'before' => $context['browser']['is_ie'] ? '' : '',
        'after' => '',
        'validate' => $context['browser']['is_ie'] ? create_function('&$tag, &$data, $disabled', '
          if ($data[1] == \'left\')
            $data[1] = 270;
          elseif ($data[1] == \'right\')
            $data[1] = 90;
          elseif ($data[1] == \'top\')
            $data[1] = 0;
          elseif ($data[1] == \'bottom\')
            $data[1] = 180;
          else
            $data[1] = (int) $data[1];') : create_function('&$tag, &$data, $disabled', '
          if ($data[1] == \'top\' || (is_numeric($data[1]) && $data[1] < 50))
            return \'0 -2px\';
          elseif ($data[1] == \'right\' || (is_numeric($data[1]) && $data[1] < 100))
            return \'2px 0\';
          elseif ($data[1] == \'bottom\' || (is_numeric($data[1]) && $data[1] < 190))
            return \'0 2px\';
          elseif ($data[1] == \'left\' || (is_numeric($data[1]) && $data[1] < 280))
            return \'-2px 0\';
          else
            return \'0 0\';'),
      ),
      array(
        'tag' => 'time',
        'type' => 'unparsed_content',
        'content' => '$1',
        'validate' => create_function('&$tag, &$data, $disabled', '
          if (is_numeric($data))
            $data = timeformat($data);
          else
            $tag[\'content\'] = \'[time]$1[/time]\';'),
      ),
      array(
        'tag' => 'tt',
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'table',
        'before' => '',
        'after' => '',
        'trim' => 'inside',
        'require_children' => array('tr'),
        'block_level' => true,
      ),
      array(
        'tag' => 'tr',
        'before' => '',
        'after' => '',
        'require_parents' => array('table'),
        'require_children' => array('td'),
        'trim' => 'both',
        'block_level' => true,
        'disabled_before' => '',
        'disabled_after' => '',
      ),
      array(
        'tag' => 'td',
        'before' => '',
        'after' => '',
        'require_parents' => array('tr'),
        'trim' => 'outside',
        'block_level' => true,
        'disabled_before' => '',
        'disabled_after' => '',
      ),
      array(
        'tag' => 'url',
        'type' => 'unparsed_content',
        'content' => '$1',
        'validate' => create_function('&$tag, &$data, $disabled', '$data = strtr($data, array(\'
\' => \'\'));'),
      ),
      array(
        'tag' => 'url',
        'type' => 'unparsed_equals',
        'before' => '',
        'after' => '',
        'disallow_children' => array('email', 'ftp', 'url', 'iurl'),
        'disabled_after' => ' ($1)',
      ),
      array(
        'tag' => 'u',
        'before' => '',
        'after' => '',
      ),
      array(
        'tag' => 'white',
        'before' => '',
        'after' => '',
      ),
    );

    // This is mainly for the bbc manager, so it's easy to add tags above.  Custom BBC should be added above this line.
    if ($message === false)
      return $codes;

    // So the parser won't skip them.
    $itemcodes = array(
      '*' => '',
      '@' => 'disc',
      '+' => 'square',
      'x' => 'square',
      '#' => 'square',
      'o' => 'circle',
      'O' => 'circle',
      '0' => 'circle',
    );
    if (!isset($disabled['li']) && !isset($disabled['list']))
    {
      foreach ($itemcodes as $c => $dummy)
        $bbc_codes[$c] = array();
    }

    // Inside these tags autolink is not recommendable.
    $no_autolink_tags = array(
      'url',
      'iurl',
      'ftp',
      'email',
    );

    // Shhhh!
    if (!isset($disabled['color']))
    {
      $codes[] = array(
        'tag' => 'chrissy',
        'before' => '',
        'after' => ' :-*',
      );
      $codes[] = array(
        'tag' => 'kissy',
        'before' => '',
        'after' => ' :-*',
      );
    }

    foreach ($codes as $c)
      $bbc_codes[substr($c['tag'], 0, 1)][] = $c;
    $codes = null;
  }

  // Shall we take the time to cache this?
  if ($cache_id != '' && !empty($modSettings['cache_enable']) && (($modSettings['cache_enable'] >= 2 && strlen($message) > 1000) || strlen($message) > 2400))
  {
    // It's likely this will change if the message is modified.
    $cache_key = 'parse:' . $cache_id . '-' . md5(md5($message) . '-' . $smileys . (empty($disabled) ? '' : implode(',', array_keys($disabled))) . serialize($context['browser']) . $txt['lang_locale'] . $user_info['time_offset'] . $user_info['time_format']);

    if (($temp = cache_get_data($cache_key, 240)) != null)
      return $temp;

    $cache_t = microtime();
  }

  if ($smileys === 'print')
  {
    // [glow], [shadow], and [move] can't really be printed.
    $disabled['glow'] = true;
    $disabled['shadow'] = true;
    $disabled['move'] = true;

    // Colors can't well be displayed... supposed to be black and white.
    $disabled['color'] = true;
    $disabled['black'] = true;
    $disabled['blue'] = true;
    $disabled['white'] = true;
    $disabled['red'] = true;
    $disabled['green'] = true;
    $disabled['me'] = true;

    // Color coding doesn't make sense.
    $disabled['php'] = true;

    // Links are useless on paper... just show the link.
    $disabled['ftp'] = true;
    $disabled['url'] = true;
    $disabled['iurl'] = true;
    $disabled['email'] = true;
    $disabled['flash'] = true;

    // !!! Change maybe?
    if (!isset($_GET['images']))
      $disabled['img'] = true;

    // !!! Interface/setting to add more?
  }

  $open_tags = array();
  $message = strtr($message, array("\n" => '
'));

  // The non-breaking-space looks a bit different each time.
  $non_breaking_space = $context['utf8'] ? ($context['server']['complex_preg_chars'] ? '\x{C2A0}' : chr(0xC2) . chr(0xA0)) : '\xA0';

  $pos = -1;
  while ($pos !== false)
  {
    $last_pos = isset($last_pos) ? max($pos, $last_pos) : $pos;
    $pos = strpos($message, '[', $pos + 1);

    // Failsafe.
    if ($pos === false || $last_pos > $pos)
      $pos = strlen($message) + 1;

    // Can't have a one letter smiley, URL, or email! (sorry.)
    if ($last_pos < $pos - 1)
    {
      // We want to eat one less, and one more, character (for smileys.)
      $last_pos = max($last_pos - 1, 0);
      $data = substr($message, $last_pos, $pos - $last_pos + 1);

      // Take care of some HTML!
      if (!empty($modSettings['enablePostHTML']) && strpos($data, '<') !== false)
      {
        $data = preg_replace('~<a\s+href=(?:")?((?:http://|ftp://|https://|ftps://|mailto:).+?)(?:")?>~i', '[url=$1]', $data);
        $data = preg_replace('~</a>~i', '[/url]', $data);

        // 
 should be empty.
        $empty_tags = array('br', 'hr');
        foreach ($empty_tags as $tag)
          $data = str_replace(array('<' . $tag . '>', '<' . $tag . '/>', '<' . $tag . ' />'), '[' . $tag . ' /]', $data);

        // b, u, i, s, pre... basic tags.
        $closable_tags = array('b', 'u', 'i', 's', 'em', 'ins', 'del', 'pre', 'blockquote');
        foreach ($closable_tags as $tag)
        {
          $diff = substr_count($data, '<' . $tag . '>') - substr_count($data, '</' . $tag . '>');
          $data = strtr($data, array('<' . $tag . '>' => '<' . $tag . '>', '</' . $tag . '>' => ''));

          if ($diff > 0)
            $data .= str_repeat('', $diff);
        }

        // Do  - with security... action= -> action-.
        preg_match_all('~<img\s+src=(?:")?((?:http://|ftp://|https://|ftps://).+?)(?:")?(?:\s+alt=(?:")?(.*?)(?:")?)?(?:\s?/)?>~i', $data, $matches, PREG_PATTERN_ORDER);
        if (!empty($matches[0]))
        {
          $replaces = array();
          foreach ($matches[1] as $match => $imgtag)
          {
            // No alt?
            if (!isset($matches[2][$match]))
              $matches[2][$match] = '';

            // Remove action= from the URL - no funny business, now.
            if (preg_match('~action(=|%3d)(?!dlattach)~i', $imgtag) != 0)
              $imgtag = preg_replace('~action(=|%3d)(?!dlattach)~i', 'action-', $imgtag);

            // Check if the image is larger than allowed.
            if (!empty($modSettings['max_image_width']) && !empty($modSettings['max_image_height']))
            {
              list ($width, $height) = url_image_size($imgtag);

              if (!empty($modSettings['max_image_width']) && $width > $modSettings['max_image_width'])
              {
                $height = (int) (($modSettings['max_image_width'] * $height) / $width);
                $width = $modSettings['max_image_width'];
              }

              if (!empty($modSettings['max_image_height']) && $height > $modSettings['max_image_height'])
              {
                $width = (int) (($modSettings['max_image_height'] * $width) / $height);
                $height = $modSettings['max_image_height'];
              }

              // Set the new image tag.
              $replaces[$matches[0][$match]] = '';
            }
            else
              $replaces[$matches[0][$match]] = '';
          }

          $data = strtr($data, $replaces);
        }
      }

      if (!empty($modSettings['autoLinkUrls']))
      {
        // Are we inside tags that should be auto linked?
        $no_autolink_area = false;
        if (!empty($open_tags))
        {
          foreach ($open_tags as $open_tag)
            if (in_array($open_tag['tag'], $no_autolink_tags))
              $no_autolink_area = true;
        }

        // Don't go backwards.
        //!!! Don't think is the real solution....
        $lastAutoPos = isset($lastAutoPos) ? $lastAutoPos : 0;
        if ($pos < $lastAutoPos)
          $no_autolink_area = true;
        $lastAutoPos = $pos;

        if (!$no_autolink_area)
        {
          // Parse any URLs.... have to get rid of the @ problems some things cause... stupid email addresses.
          if (!isset($disabled['url']) && (strpos($data, '://') !== false || strpos($data, 'www.') !== false))
          {
            // Switch out quotes really quick because they can cause problems.
            $data = strtr($data, array(''' => '\'', ' ' => $context['utf8'] ? "\xC2\xA0" : "\xA0", '"' => '>">', '"' => '<"<', '<' => '\.(;\'"]|^)((?:http|https|ftp|ftps)://[\w\-_%@:|]+(?:\.[\w\-_%]+)*(?::\d+)?(?:/[\w\-_\~%\.@,\?&;=#+:\'\\\\]*|[\(\{][\w\-_\~%\.@,\?&;=#(){}+:\'\\\\]*)*[/\w\-_\~%@\?;=#}\\\\])~i', '~(?<=[\s>(\'<]|^)(www(?:\.[\w\-_]+)+(?::\d+)?(?:/[\w\-_\~%\.@,\?&;=#+:\'\\\\]*|[\(\{][\w\-_\~%\.@,\?&;=#(){}+:\'\\\\]*)*[/\w\-_\~%@\?;=#}\\\\])~i'), array('[url]$1[/url]', '[url=http://$1]$1[/url]'), $data);
            $data = strtr($data, array('\'' => ''', $context['utf8'] ? "\xC2\xA0" : "\xA0" => ' ', '>">' => '"', '<"<' => '"', ' '<'));
          }

          // Next, emails...
          if (!isset($disabled['email']) && strpos($data, '@') !== false)
          {
            $data = preg_replace('~(?<=[\?\s' . $non_breaking_space . '\[\]()*\\\;>]|^)([\w\-\.]{1,80}@[\w\-]+\.[\w\-\.]+[\w\-])(?=[?,\s' . $non_breaking_space . '\[\]()*\\\]|$|
| |>|<|"|'|\.(?:\.|;| |\s|$|
))~' . ($context['utf8'] ? 'u' : ''), '[email]$1[/email]', $data);
            $data = preg_replace('~(?<=
)([\w\-\.]{1,80}@[\w\-]+\.[\w\-\.]+[\w\-])(?=[?\.,;\s' . $non_breaking_space . '\[\]()*\\\]|$|
| |>|<|"|')~' . ($context['utf8'] ? 'u' : ''), '[email]$1[/email]', $data);
          }
        }
      }

      $data = strtr($data, array("\t" => '   '));

      if (!empty($modSettings['fixLongWords']) && $modSettings['fixLongWords'] > 5)
      {
        // This is SADLY and INCREDIBLY browser dependent.
        if ($context['browser']['is_gecko'] || $context['browser']['is_konqueror'])
          $breaker = ' ';
        // Opera...
        elseif ($context['browser']['is_opera'])
          $breaker = ' ';
        // Internet Explorer...
        else
          $breaker = ' ';

        // PCRE will not be happy if we don't give it a short.
        $modSettings['fixLongWords'] = (int) min(65535, $modSettings['fixLongWords']);

        // The idea is, find words xx long, and then replace them with xx + space + more.
        if (strlen($data) > $modSettings['fixLongWords'])
        {
          // This is done in a roundabout way because $breaker has "long words" :P.
          $data = strtr($data, array($breaker => '< >', ' ' => $context['utf8'] ? "\xC2\xA0" : "\xA0"));
          $data = preg_replace(
            '~(?<=[>;:!? ' . $non_breaking_space . '\]()]|^)([\w\.]{' . $modSettings['fixLongWords'] . ',})~e' . ($context['utf8'] ? 'u' : ''),
            "preg_replace('/(.{" . ($modSettings['fixLongWords'] - 1) . '})/' . ($context['utf8'] ? 'u' : '') . "', '\\\$1< >', '\$1')",
            $data);
          $data = strtr($data, array('< >' => $breaker, $context['utf8'] ? "\xC2\xA0" : "\xA0" => ' '));
        }
      }

      // Do any smileys!
      if ($smileys === true)
        parsesmileys($data);

      // If it wasn't changed, no copying or other boring stuff has to happen!
      if ($data != substr($message, $last_pos, $pos - $last_pos + 1))
      {
        $message = substr($message, 0, $last_pos) . $data . substr($message, $pos + 1);

        // Since we changed it, look again incase we added or removed a tag.  But we don't want to skip any.
        $old_pos = strlen($data) + $last_pos - 1;
        $pos = strpos($message, '[', $last_pos);
        $pos = $pos === false ? $old_pos : min($pos, $old_pos);
      }
    }

    // Are we there yet?  Are we there yet?
    if ($pos >= strlen($message) - 1)
      break;

    $tags = strtolower(substr($message, $pos + 1, 1));

    if ($tags == '/' && !empty($open_tags))
    {
      $pos2 = strpos($message, ']', $pos + 1);
      if ($pos2 == $pos + 2)
        continue;
      $look_for = strtolower(substr($message, $pos + 2, $pos2 - $pos - 2));

      $to_close = array();
      $block_level = null;
      do
      {
        $tag = array_pop($open_tags);
        if (!$tag)
          break;

        if (!empty($tag['block_level']))
        {
          // Only find out if we need to.
          if ($block_level === false)
          {
            array_push($open_tags, $tag);
            break;
          }

          // The idea is, if we are LOOKING for a block level tag, we can close them on the way.
          if (strlen($look_for) > 0 && isset($bbc_codes[$look_for{0}]))
          {
            foreach ($bbc_codes[$look_for{0}] as $temp)
              if ($temp['tag'] == $look_for)
              {
                $block_level = !empty($temp['block_level']);
                break;
              }
          }

          if ($block_level !== true)
          {
            $block_level = false;
            array_push($open_tags, $tag);
            break;
          }
        }

        $to_close[] = $tag;
      }
      while ($tag['tag'] != $look_for);

      // Did we just eat through everything and not find it?
      if ((empty($open_tags) && (empty($tag) || $tag['tag'] != $look_for)))
      {
        $open_tags = $to_close;
        continue;
      }
      elseif (!empty($to_close) && $tag['tag'] != $look_for)
      {
        if ($block_level === null && isset($look_for{0}, $bbc_codes[$look_for{0}]))
        {
          foreach ($bbc_codes[$look_for{0}] as $temp)
            if ($temp['tag'] == $look_for)
            {
              $block_level = !empty($temp['block_level']);
              break;
            }
        }

        // We're not looking for a block level tag (or maybe even a tag that exists...)
        if (!$block_level)
        {
          foreach ($to_close as $tag)
            array_push($open_tags, $tag);
          continue;
        }
      }

      foreach ($to_close as $tag)
      {
        $message = substr($message, 0, $pos) . $tag['after'] . substr($message, $pos2 + 1);
        $pos += strlen($tag['after']);
        $pos2 = $pos - 1;

        // See the comment at the end of the big loop - just eating whitespace ;).
        if (!empty($tag['block_level']) && substr($message, $pos, 6) == '
')
          $message = substr($message, 0, $pos) . substr($message, $pos + 6);
        if (!empty($tag['trim']) && $tag['trim'] != 'inside' && preg_match('~(
| |\s)*~', substr($message, $pos), $matches) != 0)
          $message = substr($message, 0, $pos) . substr($message, $pos + strlen($matches[0]));
      }

      if (!empty($to_close))
      {
        $to_close = array();
        $pos--;
      }

      continue;
    }

    // No tags for this character, so just keep going (fastest possible course.)
    if (!isset($bbc_codes[$tags]))
      continue;

    $inside = empty($open_tags) ? null : $open_tags[count($open_tags) - 1];
    $tag = null;
    foreach ($bbc_codes[$tags] as $possible)
    {
      // Not a match?
      if (strtolower(substr($message, $pos + 1, strlen($possible['tag']))) != $possible['tag'])
        continue;

      $next_c = substr($message, $pos + 1 + strlen($possible['tag']), 1);

      // A test validation?
      if (isset($possible['test']) && preg_match('~^' . $possible['test'] . '~', substr($message, $pos + 1 + strlen($possible['tag']) + 1)) == 0)
        continue;
      // Do we want parameters?
      elseif (!empty($possible['parameters']))
      {
        if ($next_c != ' ')
          continue;
      }
      elseif (isset($possible['type']))
      {
        // Do we need an equal sign?
        if (in_array($possible['type'], array('unparsed_equals', 'unparsed_commas', 'unparsed_commas_content', 'unparsed_equals_content', 'parsed_equals')) && $next_c != '=')
          continue;
        // Maybe we just want a /...
        if ($possible['type'] == 'closed' && $next_c != ']' && substr($message, $pos + 1 + strlen($possible['tag']), 2) != '/]' && substr($message, $pos + 1 + strlen($possible['tag']), 3) != ' /]')
          continue;
        // An immediate ]?
        if ($possible['type'] == 'unparsed_content' && $next_c != ']')
          continue;
      }
      // No type means 'parsed_content', which demands an immediate ] without parameters!
      elseif ($next_c != ']')
        continue;

      // Check allowed tree?
      if (isset($possible['require_parents']) && ($inside === null || !in_array($inside['tag'], $possible['require_parents'])))
        continue;
      elseif (isset($inside['require_children']) && !in_array($possible['tag'], $inside['require_children']))
        continue;
      // If this is in the list of disallowed child tags, don't parse it.
      elseif (isset($inside['disallow_children']) && in_array($possible['tag'], $inside['disallow_children']))
        continue;

      $pos1 = $pos + 1 + strlen($possible['tag']) + 1;

      // This is long, but it makes things much easier and cleaner.
      if (!empty($possible['parameters']))
      {
        $preg = array();
        foreach ($possible['parameters'] as $p => $info)
          $preg[] = '(\s+' . $p . '=' . (empty($info['quoted']) ? '' : '"') . (isset($info['match']) ? $info['match'] : '(.+?)') . (empty($info['quoted']) ? '' : '"') . ')' . (empty($info['optional']) ? '' : '?');

        // Okay, this may look ugly and it is, but it's not going to happen much and it is the best way of allowing any order of parameters but still parsing them right.
        $match = false;
        $orders = permute($preg);
        foreach ($orders as $p)
          if (preg_match('~^' . implode('', $p) . '\]~i', substr($message, $pos1 - 1), $matches) != 0)
          {
            $match = true;
            break;
          }

        // Didn't match our parameter list, try the next possible.
        if (!$match)
          continue;

        $params = array();
        for ($i = 1, $n = count($matches); $i < $n; $i += 2)
        {
          $key = strtok(ltrim($matches[$i]), '=');
          if (isset($possible['parameters'][$key]['value']))
            $params['{' . $key . '}'] = strtr($possible['parameters'][$key]['value'], array('$1' => $matches[$i + 1]));
          elseif (isset($possible['parameters'][$key]['validate']))
            $params['{' . $key . '}'] = $possible['parameters'][$key]['validate']($matches[$i + 1]);
          else
            $params['{' . $key . '}'] = $matches[$i + 1];

          // Just to make sure: replace any $ or { so they can't interpolate wrongly.
          $params['{' . $key . '}'] = strtr($params['{' . $key . '}'], array('$' => '$', '{' => '{'));
        }

        foreach ($possible['parameters'] as $p => $info)
        {
          if (!isset($params['{' . $p . '}']))
            $params['{' . $p . '}'] = '';
        }

        $tag = $possible;

        // Put the parameters into the string.
        if (isset($tag['before']))
          $tag['before'] = strtr($tag['before'], $params);
        if (isset($tag['after']))
          $tag['after'] = strtr($tag['after'], $params);
        if (isset($tag['content']))
          $tag['content'] = strtr($tag['content'], $params);

        $pos1 += strlen($matches[0]) - 1;
      }
      else
        $tag = $possible;
      break;
    }

    // Item codes are complicated buggers... they are implicit [li]s and can make [list]s!
    if ($smileys !== false && $tag === null && isset($itemcodes[substr($message, $pos + 1, 1)]) && substr($message, $pos + 2, 1) == ']' && !isset($disabled['list']) && !isset($disabled['li']))
    {
      if (substr($message, $pos + 1, 1) == '0' && !in_array(substr($message, $pos - 1, 1), array(';', ' ', "\t", '>')))
        continue;
      $tag = $itemcodes[substr($message, $pos + 1, 1)];

      // First let's set up the tree: it needs to be in a list, or after an li.
      if ($inside === null || ($inside['tag'] != 'list' && $inside['tag'] != 'li'))
      {
        $open_tags[] = array(
          'tag' => 'list',
          'after' => '',
          'block_level' => true,
          'require_children' => array('li'),
          'disallow_children' => isset($inside['disallow_children']) ? $inside['disallow_children'] : null,
        );
        $code = '
';
      }
      // We're in a list item already: another itemcode?  Close it first.
      elseif ($inside['tag'] == 'li')
      {
        array_pop($open_tags);
        $code = '';
      }
      else
        $code = '';

      // Now we open a new tag.
      $open_tags[] = array(
        'tag' => 'li',
        'after' => '',
        'trim' => 'outside',
        'block_level' => true,
        'disallow_children' => isset($inside['disallow_children']) ? $inside['disallow_children'] : null,
      );

      // First, open the tag...
      $code .= '';
      $message = substr($message, 0, $pos) . $code . substr($message, $pos + 3);
      $pos += strlen($code) - 1;

      // Next, find the next break (if any.)  If there's more itemcode after it, keep it going - otherwise close!
      $pos2 = strpos($message, '
', $pos);
      $pos3 = strpos($message, '[/', $pos);
      if ($pos2 !== false && ($pos2 <= $pos3 || $pos3 === false))
      {
        preg_match('~^(
| |\s|\[)+~', substr($message, $pos2 + 6), $matches);
        $message = substr($message, 0, $pos2) . (!empty($matches[0]) && substr($matches[0], -1) == '[' ? '[/li]' : '[/li][/list]') . substr($message, $pos2);

        $open_tags[count($open_tags) - 2]['after'] = '
';
      }
      // Tell the [list] that it needs to close specially.
      else
      {
        // Move the li over, because we're not sure what we'll hit.
        $open_tags[count($open_tags) - 1]['after'] = '';
        $open_tags[count($open_tags) - 2]['after'] = '';
      }

      continue;
    }

    // Implicitly close lists and tables if something other than what's required is in them.  This is needed for itemcode.
    if ($tag === null && $inside !== null && !empty($inside['require_children']))
    {
      array_pop($open_tags);

      $message = substr($message, 0, $pos) . $inside['after'] . substr($message, $pos);
      $pos += strlen($inside['after']) - 1;
    }

    // No tag?  Keep looking, then.  Silly people using brackets without actual tags.
    if ($tag === null)
      continue;

    // Propagate the list to the child (so wrapping the disallowed tag won't work either.)
    if (isset($inside['disallow_children']))
      $tag['disallow_children'] = isset($tag['disallow_children']) ? array_unique(array_merge($tag['disallow_children'], $inside['disallow_children'])) : $inside['disallow_children'];

    // Is this tag disabled?
    if (isset($disabled[$tag['tag']]))
    {
      if (!isset($tag['disabled_before']) && !isset($tag['disabled_after']) && !isset($tag['disabled_content']))
      {
        $tag['before'] = !empty($tag['block_level']) ? '
' : '';
        $tag['after'] = !empty($tag['block_level']) ? '
' : '';
        $tag['content'] = isset($tag['type']) && $tag['type'] == 'closed' ? '' : (!empty($tag['block_level']) ? '
$1
' : '$1');
      }
      elseif (isset($tag['disabled_before']) || isset($tag['disabled_after']))
      {
        $tag['before'] = isset($tag['disabled_before']) ? $tag['disabled_before'] : (!empty($tag['block_level']) ? '
' : '');
        $tag['after'] = isset($tag['disabled_after']) ? $tag['disabled_after'] : (!empty($tag['block_level']) ? '
' : '');
      }
      else
        $tag['content'] = $tag['disabled_content'];
    }

    // The only special case is 'html', which doesn't need to close things.
    if (!empty($tag['block_level']) && $tag['tag'] != 'html' && empty($inside['block_level']))
    {
      $n = count($open_tags) - 1;
      while (empty($open_tags[$n]['block_level']) && $n >= 0)
        $n--;

      // Close all the non block level tags so this tag isn't surrounded by them.
      for ($i = count($open_tags) - 1; $i > $n; $i--)
      {
        $message = substr($message, 0, $pos) . $open_tags[$i]['after'] . substr($message, $pos);
        $pos += strlen($open_tags[$i]['after']);
        $pos1 += strlen($open_tags[$i]['after']);

        // Trim or eat trailing stuff... see comment at the end of the big loop.
        if (!empty($open_tags[$i]['block_level']) && substr($message, $pos, 6) == '
')
          $message = substr($message, 0, $pos) . substr($message, $pos + 6);
        if (!empty($open_tags[$i]['trim']) && $tag['trim'] != 'inside' && preg_match('~(
| |\s)*~', substr($message, $pos), $matches) != 0)
          $message = substr($message, 0, $pos) . substr($message, $pos + strlen($matches[0]));

        array_pop($open_tags);
      }
    }

    // No type means 'parsed_content'.
    if (!isset($tag['type']))
    {
      // !!! Check for end tag first, so people can say "I like that [i] tag"?
      $open_tags[] = $tag;
      $message = substr($message, 0, $pos) . $tag['before'] . substr($message, $pos1);
      $pos += strlen($tag['before']) - 1;
    }
    // Don't parse the content, just skip it.
    elseif ($tag['type'] == 'unparsed_content')
    {
      $pos2 = stripos($message, '[/' . substr($message, $pos + 1, strlen($tag['tag'])) . ']', $pos1);
      if ($pos2 === false)
        continue;

      $data = substr($message, $pos1, $pos2 - $pos1);

      if (!empty($tag['block_level']) && substr($data, 0, 6) == '
')
        $data = substr($data, 6);

      if (isset($tag['validate']))
        $tag['validate']($tag, $data, $disabled);

      $code = strtr($tag['content'], array('$1' => $data));
      $message = substr($message, 0, $pos) . $code . substr($message, $pos2 + 3 + strlen($tag['tag']));
      $pos += strlen($code) - 1;
    }
    // Don't parse the content, just skip it.
    elseif ($tag['type'] == 'unparsed_equals_content')
    {
      // The value may be quoted for some tags - check.
      if (isset($tag['quoted']))
      {
        $quoted = substr($message, $pos1, 6) == '"';
        if ($tag['quoted'] != 'optional' && !$quoted)
          continue;

        if ($quoted)
          $pos1 += 6;
      }
      else
        $quoted = false;

      $pos2 = strpos($message, $quoted == false ? ']' : '"]', $pos1);
      if ($pos2 === false)
        continue;
      $pos3 = stripos($message, '[/' . substr($message, $pos + 1, strlen($tag['tag'])) . ']', $pos2);
      if ($pos3 === false)
        continue;

      $data = array(
        substr($message, $pos2 + ($quoted == false ? 1 : 7), $pos3 - ($pos2 + ($quoted == false ? 1 : 7))),
        substr($message, $pos1, $pos2 - $pos1)
      );

      if (!empty($tag['block_level']) && substr($data[0], 0, 6) == '
')
        $data[0] = substr($data[0], 6);

      // Validation for my parking, please!
      if (isset($tag['validate']))
        $tag['validate']($tag, $data, $disabled);

      $code = strtr($tag['content'], array('$1' => $data[0], '$2' => $data[1]));
      $message = substr($message, 0, $pos) . $code . substr($message, $pos3 + 3 + strlen($tag['tag']));
      $pos += strlen($code) - 1;
    }
    // A closed tag, with no content or value.
    elseif ($tag['type'] == 'closed')
    {
      $pos2 = strpos($message, ']', $pos);
      $message = substr($message, 0, $pos) . $tag['content'] . substr($message, $pos2 + 1);
      $pos += strlen($tag['content']) - 1;
    }
    // This one is sorta ugly... :/.  Unforunately, it's needed for flash.
    elseif ($tag['type'] == 'unparsed_commas_content')
    {
      $pos2 = strpos($message, ']', $pos1);
      if ($pos2 === false)
        continue;
      $pos3 = stripos($message, '[/' . substr($message, $pos + 1, strlen($tag['tag'])) . ']', $pos2);
      if ($pos3 === false)
        continue;

      // We want $1 to be the content, and the rest to be csv.
      $data = explode(',', ',' . substr($message, $pos1, $pos2 - $pos1));
      $data[0] = substr($message, $pos2 + 1, $pos3 - $pos2 - 1);

      if (isset($tag['validate']))
        $tag['validate']($tag, $data, $disabled);

      $code = $tag['content'];
      foreach ($data as $k => $d)
        $code = strtr($code, array('$' . ($k + 1) => trim($d)));
      $message = substr($message, 0, $pos) . $code . substr($message, $pos3 + 3 + strlen($tag['tag']));
      $pos += strlen($code) - 1;
    }
    // This has parsed content, and a csv value which is unparsed.
    elseif ($tag['type'] == 'unparsed_commas')
    {
      $pos2 = strpos($message, ']', $pos1);
      if ($pos2 === false)
        continue;

      $data = explode(',', substr($message, $pos1, $pos2 - $pos1));

      if (isset($tag['validate']))
        $tag['validate']($tag, $data, $disabled);

      // Fix after, for disabled code mainly.
      foreach ($data as $k => $d)
        $tag['after'] = strtr($tag['after'], array('$' . ($k + 1) => trim($d)));

      $open_tags[] = $tag;

      // Replace them out, $1, $2, $3, $4, etc.
      $code = $tag['before'];
      foreach ($data as $k => $d)
        $code = strtr($code, array('$' . ($k + 1) => trim($d)));
      $message = substr($message, 0, $pos) . $code . substr($message, $pos2 + 1);
      $pos += strlen($code) - 1;
    }
    // A tag set to a value, parsed or not.
    elseif ($tag['type'] == 'unparsed_equals' || $tag['type'] == 'parsed_equals')
    {
      // The value may be quoted for some tags - check.
      if (isset($tag['quoted']))
      {
        $quoted = substr($message, $pos1, 6) == '"';
        if ($tag['quoted'] != 'optional' && !$quoted)
          continue;

        if ($quoted)
          $pos1 += 6;
      }
      else
        $quoted = false;

      $pos2 = strpos($message, $quoted == false ? ']' : '"]', $pos1);
      if ($pos2 === false)
        continue;

      $data = substr($message, $pos1, $pos2 - $pos1);

      // Validation for my parking, please!
      if (isset($tag['validate']))
        $tag['validate']($tag, $data, $disabled);

      // For parsed content, we must recurse to avoid security problems.
      if ($tag['type'] != 'unparsed_equals')
        $data = parse_bbc($data);

      $tag['after'] = strtr($tag['after'], array('$1' => $data));

      $open_tags[] = $tag;

      $code = strtr($tag['before'], array('$1' => $data));
      $message = substr($message, 0, $pos) . $code . substr($message, $pos2 + ($quoted == false ? 1 : 7));
      $pos += strlen($code) - 1;
    }

    // If this is block level, eat any breaks after it.
    if (!empty($tag['block_level']) && substr($message, $pos + 1, 6) == '
')
      $message = substr($message, 0, $pos + 1) . substr($message, $pos + 7);

    // Are we trimming outside this tag?
    if (!empty($tag['trim']) && $tag['trim'] != 'outside' && preg_match('~(
| |\s)*~', substr($message, $pos + 1), $matches) != 0)
      $message = substr($message, 0, $pos + 1) . substr($message, $pos + 1 + strlen($matches[0]));
  }

  // Close any remaining tags.
  while ($tag = array_pop($open_tags))
    $message .= $tag['after'];

  if (substr($message, 0, 1) == ' ')
    $message = ' ' . substr($message, 1);

  // Cleanup whitespace.
  $message = strtr($message, array('  ' => '  ', "\r" => '', "\n" => '
', '
 ' => '
 ', '
' => "\n"));

  // Cache the output if it took some time...
  if (isset($cache_key, $cache_t) && array_sum(explode(' ', microtime())) - array_sum(explode(' ', $cache_t)) > 0.05)
    cache_put_data($cache_key, $message, 240);

  return $message;
}

// Parse smileys in the passed message.
function parsesmileys(&$message)
{
  global $modSettings, $db_prefix, $txt, $user_info, $context;
  static $smileyfromcache = array(), $smileytocache = array();

  // No smiley set at all?!
  if ($user_info['smiley_set'] == 'none')
    return;

  // If the smiley array hasn't been set, do it now.
  if (empty($smileyfromcache))
  {
    // Use the default smileys if it is disabled. (better for "portability" of smileys.)
    if (empty($modSettings['smiley_enable']))
    {
      $smileysfrom = array('>:D', ':D', '::)', '>:(', ':)', ';)', ';D', ':(', ':o', '8)', ':P', '???', ':-[', ':-X', ':-*', ':\'(', ':-\\', '^-^', 'O0', 'C:-)', '0:)');
      $smileysto = array('evil.gif', 'cheesy.gif', 'rolleyes.gif', 'angry.gif', 'smiley.gif', 'wink.gif', 'grin.gif', 'sad.gif', 'shocked.gif', 'cool.gif', 'tongue.gif', 'huh.gif', 'embarrassed.gif', 'lipsrsealed.gif', 'kiss.gif', 'cry.gif', 'undecided.gif', 'azn.gif', 'afro.gif', 'police.gif', 'angel.gif');
      $smileysdescs = array('', $txt[289], $txt[450], $txt[288], $txt[287], $txt[292], $txt[293], $txt[291], $txt[294], $txt[295], $txt[451], $txt[296], $txt[526], $txt[527], $txt[529], $txt[530], $txt[528], '', '', '', '');
    }
    else
    {
      // Load the smileys in reverse order by length so they don't get parsed wrong.
      if (($temp = cache_get_data('parsing_smileys', 480)) == null)
      {
        $result = db_query("
          SELECT code, filename, description
          FROM {$db_prefix}smileys", __FILE__, __LINE__);
        $smileysfrom = array();
        $smileysto = array();
        $smileysdescs = array();
        while ($row = mysql_fetch_assoc($result))
        {
          $smileysfrom[] = $row['code'];
          $smileysto[] = $row['filename'];
          $smileysdescs[] = $row['description'];
        }
        mysql_free_result($result);

        cache_put_data('parsing_smileys', array($smileysfrom, $smileysto, $smileysdescs), 480);
      }
      else
        list ($smileysfrom, $smileysto, $smileysdescs) = $temp;
    }

    // The non-breaking-space is a complex thing...
    $non_breaking_space = $context['utf8'] ? ($context['server']['complex_preg_chars'] ? '\x{A0}' : pack('C*', 0xC2, 0xA0)) : '\xA0';

    // This smiley regex makes sure it doesn't parse smileys within code tags (so [url=mailto:David@bla.com] doesn't parse the :D smiley)
    for ($i = 0, $n = count($smileysfrom); $i < $n; $i++)
    {
      $smileyfromcache[] = '/(?<=[>:\?\.\s' . $non_breaking_space . '[\]()*\\\;]|^)(' . preg_quote($smileysfrom[$i], '/') . '|' . preg_quote(htmlspecialchars($smileysfrom[$i], ENT_QUOTES), '/') . ')(?=[^[:alpha:]0-9]|$)/' . ($context['utf8'] ? 'u' : '');
      // Escape a bunch of smiley-related characters in the description so it doesn't get a double dose :P.
      $smileytocache[] = '';
    }
  }

  // Replace away!
  // !!! There must be a way to speed this up.
  $message = preg_replace($smileyfromcache, $smileytocache, $message);
}

// Highlight any code...
function highlight_php_code($code)
{
  global $context;

  // Remove special characters.
  $code = un_htmlspecialchars(strtr($code, array('
' => "\n", "\t" => 'SMF_TAB();', '[' => '[')));

  $oldlevel = error_reporting(0);

  // It's easier in 4.2.x+.
  if (@version_compare(PHP_VERSION, '4.2.0') == -1)
  {
    ob_start();
    @highlight_string($code);
    $buffer = str_replace(array("\n", "\r"), '', ob_get_contents());
    ob_end_clean();
  }
  else
    $buffer = str_replace(array("\n", "\r"), '', @highlight_string($code, true));

  error_reporting($oldlevel);

  // Yes, I know this is kludging it, but this is the best way to preserve tabs from PHP :P.
  $buffer = preg_replace('~SMF_TAB(<(font color|span style)="[^"]*?">)?\(\);~', "
\t
", $buffer);

  return strtr($buffer, array('\'' => ''', '' => '', '' => ''));
}


?>DoExport();
}
else {
   $CanWrite = TestWrite();
   ViewForm(array('Supported' => $Supported, 'CanWrite' => $CanWrite));
}

/**
 * Write out a value passed as bytes to its most readable format.
 */
function FormatMemorySize($Bytes, $Precision = 1) {
   $Units = array('B', 'K', 'M', 'G', 'T');

   $Bytes = max((int)$Bytes, 0);
   $Pow = floor(($Bytes ? log($Bytes) : 0) / log(1024));
   $Pow = min($Pow, count($Units) - 1);

   $Bytes /= pow(1024, $Pow);

   $Result = round($Bytes, $Precision).$Units[$Pow];
   return $Result;
}

/** 
 * Test filesystem permissions 
 */  
function TestWrite() {
   // Create file
   $file = 'vanilla2test.txt';
   @touch($file);
   if(is_writable($file)) {
      @unlink($file);
      return true;
   }
   else return false;
}
?>