[PHP]tag in YaBBSE[/php]

[Aeon]

I think this thing was discussed before but I couldn't find it ..
anyway I was on hotscripts.com forums and I saw it .. I think this great thing will be greater if it was in YabbSE

[[Unknown]]

To note, he means...

<?php phpifo();?>

Should parse to something like

PHP

Code Select Expand

<?php phpinfo();?>

Except it would be color coded...

-[Unknown]

[Aeon]

To note, he means...

<?php phpifo();?>

Should parse to something like

PHPCode:

Code Select Expand

<?php phpinfo();?>


Except it would be color coded...

exactly

[Ben_S]

I'm sure someones done this mod before, may have dreamed that though

[Anguz]

that'd be very nice  

[[Unknown]]

Subs.php, find:

Code Select Expand

function doUBBC($message,$enableSmilies = 1)
{
//echo $message;
   global $settings, $text, $txt;

   $parts = split('\[\/?code\]', ' ' . $message);

   for ($i = 0; $i < count($parts); $i++)
   {
      if ($i % 2 == 0)
      {
         $parts[$i] = str_replace(array('$', '[[', ']]'), array('&#36;', '{<{', '}>}'), $parts[$i]);
         if ($i > 0)
            $parts[$i] = '</font></td></tr></table></td></tr></table>' . $parts[$i];
         $parts[$i] = preg_replace("/([\n >\(])([\w\-_]+?):\/\/([\w\-_@:]+)((\.[\w\-_]+)+(:[\d]+)?((\/[\w\-_%]+(\.[\w\-_%]+)*)|(\/[~]?[\w\-_%]*))*(\/?(\?[&;=\w\+%]+)*)?(#[\w\-_]*)?)/", "\\1[url=\\2://\\3\\4]\\2://\\3\\4[/url]", $parts[$i]);
         $parts[$i] = preg_replace("/([\n >\(])www((\.[\w\-_]+)+(:[\d]+)?((\/[\w\-_%]+(\.[\w\-_%]+)*)|(\/[~]?[\w\-_%]*))*(\/?(\?[&;=\w\+%]+)*)?(#[\w\-_]*)?)/", "\\1[url=http://www\\2]www\\2[/url]", $parts[$i]);
         $parts[$i] = doparsecodesmilies($parts[$i], $enableSmilies);
      }
      elseif ($i <= count($parts) - 1)
         $parts[$i] = '<table border="0" cellpadding="0" cellspacing="0"><tr><td><font size="1"><b>' . $txt['yse238'] . ':</b></font></td></tr></table><table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000"><tr><td><table border="0" cellspacing="1" cellpadding="2" width="100%"><tr><td class="code"><font face="Courier new">' . $parts[$i];
   }
   $message = substr(implode('', $parts), 1);
   $message = str_replace(
      array('{<{', '}>}', '  ', "\t", "\n\r", "\r", "\n"),
      array('[', ']', '&nbsp; ', '&nbsp; &nbsp; ', '<br />', '<br />', '<br />'), $message);
/*   $message = str_replace('{<{','[',$message);
   $message = str_replace('}>}',']',$message);
   // $message = stripslashes($message); // Maybe you'll have to uncomment this
   $message = str_replace("  ","&nbsp; ",$message);
   $message = str_replace("\t","&nbsp; &nbsp; ",$message);
   $message = str_replace("\n\r","<br>",$message);
   $message = str_replace("\r","<br>",$message);
   $message = str_replace("\n","<br>",$message);*/

   return $message;

}

Replace:

Code Select Expand

function doUBBC($message,$enableSmilies = 1)
{
   global $settings, $text, $txt;

   $parts = split('\[\/?code\]', ' ' . $message);

   for ($i = 0; $i < count($parts); $i++)
   {
      if ($i % 2 == 0)
      {
         if (strpos($parts[$i], '[php]') !== false)
         {
            $phpparts = split('\[\/?php\]', ' ' . $parts[$i]);
            for ($phpi = 0; $phpi < count($phpparts); $phpi++)
            {
               if ($phpi % 2 == 0)
               {
                  $phpparts[$i] = str_replace(array('$', '[[', ']]'), array('&#36;', '{<{', '}>}'), $phpparts[$i]);
                  if ($i > 0 && $phplasti != $i)
                  {
                     $phpparts[$i] = '</font></td></tr></table></td></tr></table>' . $phpparts[$i];
                     $phplasti = $i;
                  }
                  $phpparts[$i] = preg_replace("/([\n >\(])([\w\-_]+?):\/\/([\w\-_@:]+)((\.[\w\-_]+)+(:[\d]+)?((\/[\w\-_%]+(\.[\w\-_%]+)*)|(\/[~]?[\w\-_%]*))*(\/?(\?[&;=\w\+%]+)*)?(#[\w\-_]*)?)/", "\\1[url=\\2://\\3\\4]\\2://\\3\\4[/url]", $phpparts[$i]);
                  $phpparts[$i] = preg_replace("/([\n >\(])www((\.[\w\-_]+)+(:[\d]+)?((\/[\w\-_%]+(\.[\w\-_%]+)*)|(\/[~]?[\w\-_%]*))*(\/?(\?[&;=\w\+%]+)*)?(#[\w\-_]*)?)/", "\\1[url=http://www\\2]www\\2[/url]", $phpparts[$i]);
                  $phpparts[$i] = doparsecodesmilies($phpparts[$i], $enableSmilies);
               }
               elseif ($phpi < count($phpparts))
               {
                  $phpparts[$phpi] = phphighlight($phpparts[$phpi]);
               }
            }
            $parts[$i] = substr(implode('', $phpparts), 1);
         }
      }
      elseif ($i <= count($parts) - 1)
         $parts[$i] = '<table border="0" cellpadding="0" cellspacing="0"><tr><td><font size="1"><b>' . $txt['yse238'] . ':</b></font></td></tr></table><table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000"><tr><td><table border="0" cellspacing="1" cellpadding="2" width="100%"><tr><td class="code"><font face="Courier new">' . $parts[$i];
   }

   $message = substr(implode('', $parts), 1);

   $message = str_replace(
      array('{<{', '}>}', '  ', "\t", "\n\r", "\r", "\n"),
      array('[', ']', '&nbsp; ', '&nbsp; &nbsp; ', '<br />', '<br />', '<br />'), $message);

   return $message;
}

Find:

Code Select Expand

function phphighlight($code)
{
   if (floor(phpversion()) < 4)
      $buffer=$code;
   else
   {
      $code = stripslashes($code);
      $code = stripslashes($code);
      $code = str_replace(array('&gt;', '&lt;', '&#36;', '&quot;'), array('>', '<', '$', '"'), $code);

      if (!strstr($code, '<?'))
      {
         $code="<?php\n".trim($code)."\n?" .'>';
         $addedtags = 1;
      }
      ob_start();
      $oldlevel = error_reporting(0);
      highlight_string($code);
      error_reporting($oldlevel);
      $buffer = ob_get_contents();
      ob_end_clean();
      $buffer = str_replace('&quot;', '"', $buffer);
   }
   return '<table border="0" cellpadding="0" cellspacing="0"><tr><td><font size="1"><b>PHP:</b></font></td></tr><table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000"><tr><td><table border="0" cellspacing="1" cellpadding="2" width="100%"><tr><td class="quote">' . addslashes(addslashes($buffer)) . '</td></tr></table></td></tr></table>';
}

Replace:

Code Select Expand

function phphighlight($code)
{
   $code = str_replace('<br />', "\n", un_html_entities($code));

   if (!strstr($code, '<?'))
   {
      $code = "<?php\n" . trim($code) . "\n?" . '>';
      $addedtags = true;
   }
   else
      $addedtags = false;

   if ((float) PHP_VERSION < 4.2)
   {
      ob_start();
      $oldlevel = error_reporting(0);
      highlight_string($code);
      error_reporting($oldlevel);
      $buffer = str_replace("\n", '', ob_get_contents());
      ob_end_clean();
   }
   else
      $buffer = str_replace("\n", '', highlight_string($code, true));

   if ($addedtags)
      $buffer = preg_replace(array('~^<code><font color="[^"]+">(<font color="[^"]+">)&lt;\?php<br />~i', '~<font color="[^"]+">\?&gt;</font></font></code>~i'), array('\\1', ''), $buffer);

   return '<table border="0" cellpadding="0" cellspacing="0"><tr><td><font size="1"><b>PHP:</b></font></td></tr><table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000"><tr><td><table border="0" cellspacing="1" cellpadding="2" width="100%"><tr><td class="code">' . str_replace("'", '&#039;', $buffer) . '</td></tr></table></td></tr></table>';
}

.

-[Unknown]

[Aeon]

a new bug appeared !!? the [img] tag is now not working ?!
also how can I change the background color and the font for it ?
I tried changing the font in doUBBC(); but nothing changed ...
thanks in advance .. and thanks for the fast mod making

[[Unknown]]

Very odd..

PHP is coloring it, you can't change the colors.

-[Unknown]