1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80

<?php
/**
* @version $Id: moscode.php 2411 2006-02-16 17:23:32Z stingrey $
* @package Joomla
* @copyright Copyright (C) 2005 Open Source Matters. All rights reserved.
* @license http://www.gnu.org/copyleft/gpl.html GNU/GPL, see LICENSE.php
* Joomla! is free software. This version may have been modified pursuant
* to the GNU General Public License, and as distributed it includes or
* is derivative of works licensed under the GNU General Public License or
* other free or open source software licenses.
* See COPYRIGHT.php for copyright notices and details.
*/

// no direct access
defined( '_VALID_MOS' ) or die( 'Restricted access' );

$_MAMBOTS->registerFunction( 'onPrepareContent', 'botMosCode' );

/**
* Code Highlighting Mambot
*
* <b>Usage:</b>
* <code>{moscode}...some code...{/moscode}</code>
*/
function botMosCode( $published, &$row, &$params, $page=0 ) {
    // simple performance check to determine whether bot should process further
    if ( strpos( $row->text, 'moscode' ) === false ) {
        return true;
    }
    
    // define the regular expression for the bot
    $regex = "#{moscode}(.*?){/moscode}#s";

    // check whether mambot has been unpublished
    if ( !$published ) {
        $row->text = preg_replace( $regex, '', $row->text );
        return true;
    }
    
    // perform the replacement
    $row->text = preg_replace_callback( $regex, 'botMosCode_replacer', $row->text );

    return true;
}
/**
* Replaces the matched tags an image
* @param array An array of matches (see preg_match_all)
* @return string
*/
function botMosCode_replacer( &$matches ) {
    $html_entities_match = array("#<#", "#>#");
    $html_entities_replace = array("&lt;", "&gt;");

    $text = $matches[1];

    $text = preg_replace($html_entities_match, $html_entities_replace, $text );

    // Replace 2 spaces with "&nbsp; " so non-tabbed code indents without making huge long lines.
    $text = str_replace("  ", "&nbsp; ", $text);
    // now Replace 2 spaces with " &nbsp;" to catch odd #s of spaces.
    $text = str_replace("  ", " &nbsp;", $text);

    // Replace tabs with "&nbsp; &nbsp;" so tabbed code indents sorta right without making huge long lines.
    $text = str_replace("\t", "&nbsp; &nbsp;", $text);

    $text = str_replace('&lt;', '<', $text);
    $text = str_replace('&gt;', '>', $text);

    $text = highlight_string( $text, 1 );

    $text = str_replace('&amp;nbsp;', '&nbsp;', $text);
    $text = str_replace('&lt;br/&gt;', '<br />', $text);
    $text = str_replace('<font color="#007700">&lt;</font><font color="#0000BB">br</font><font color="#007700">/&gt;','<br />', $text);
    $text = str_replace('&amp;</font><font color="#0000CC">nbsp</font><font color="#006600">;', '&nbsp;', $text);
    $text = str_replace('&amp;</font><font color="#0000BB">nbsp</font><font color="#007700">;', '&nbsp;', $text);
    $text = str_replace('<font color="#007700">;&lt;</font><font color="#0000BB">br</font><font color="#007700">/&gt;','<br />', $text);

    return $text;
}
?>