Readonly::Hash %TagsBlocked => (

    # [code] doesn't use the external program, so we have to do everything
    code => {    # toCheck

#              -start => qq~<div class="stdDiv"><b>Code:</b><div class="showCode">~,
        -start  => qq~<div class="stdDiv"><div class="showCode">~,
        -string => sub {
            my $code = &CGI::escapeHTML( $_[0] );
            $code =~ s~\r?\n~<br />\n~g;
            $code =~ s~^(\s+)~'&nbsp;' x length($1)~gem;
            $code =~ s/ /&nbsp;/g;
            $code =~ s~\r?\n~<br/>\n~g;
            return $code;
        },
        -end => qq~</div></div>~,
-description => 'Dumme Code-Tags',
    },

    # the following tags use $SourceHighlightBin to color code
    perl => {
        -start  => qq~<div class="stdDiv">Perl:<div class="showCode">~,
        -end    => qq~</div></div>~,
        -string => sub {
            my $code = &PBoard::Posting::HighlightPerlCode( $_[0] );
            $code =~ s~\r?\n~<br/>\n~g;
            return $code;
        },
-description => 'Code-Tags mit Syntax highlightning fuer perl',
    },
    java => {
        -start  => qq~<div class="stdDiv">Java:<div class="showCode">~,
        -end    => qq~</div></div>~,
        -string => sub {
            my $code = &PBoard::Posting::HighlightJavaCode( $_[0] );
            $code =~ s~\r?\n~<br/>\n~g;
            return $code;
        },
-description => 'Code-Tags mit Syntax highlightning fuer Java',
    },
...