# configuration for postscanner
%TagsBlocked = (
    perl => {
        -start => qq~<br><b>PERL:</b>
	     <table border="0" width="95%" cellpadding="8"><tr><td bgcolor="dddddd">
	     <font face="Courier New, Courier, mono">~,
        -end    => qq~</font></td></tr></table>~,
        -string => \&PBoard::MessageHandler::HighlightPerlCode,
    },
    code => {
        -start => qq~<br><b>CODE:</b>
	     <table border="0" width="95%" cellpadding="4"><tr><td bgcolor="dddddd">
	     <font face="Courier New, Courier, mono"><pre>~,
        -end    => qq~</pre></font></td></tr></table>~,
        -string => sub { $_[0] },
    },
    perldoc => {
        -start  => "",
        -end    => "",
        -string => sub {
            qq~ <a href="http://url/$_[0]" target="_blank">perldoc $_[0]</a> ~;
        },
    },
    cpan => {
        -start  => "",
        -end    => "",
        -string => sub {
qq~ <a href="http://search.cpan.org/search?query=$_[0]&mode=all" target="_blank">CPAN: $_[0]</a> ~;
        },
    },
    img => {
        -start  => '',
        -end    => '',
        -string => sub { qq~ <img src="$_[0]" alt="$_[0]" border="0" /> ~; },
    },
    nop => {
        -start  => '',
        -end    => '',
        -string => sub { $_[0] },
    },

);


# tags to be replaced on the fly
%TagsFastReplace = (
    b => {
        -start  => "<b>",
        -end    => "</b>",
        -string => sub { $_[0] },
    },
    i => {
        -start  => "<i>",
        -end    => "</i>",
        -string => sub { $_[0] },
    },
    u => {
        -start  => "<u>",
        -end    => "</u>",
        -string => sub { $_[0] },
    },
    s => {
        -start  => '<s>',
        -end    => '</s>',
        -string => sub { $_[0] },
    },
    small => {
        -start  => "<small>",
        -end    => "</small>",
        -string => sub { $_[0] },
    },
    tt => {
        -start  => "<small>",
        -end    => "</small>",
        -string =>
          sub { qq~<font face="Courier New, Courier, mono">$_[0]</font>~ },
    },
);

# tags that may be recursive or containing other tags
%TagsLastReplace = (
    quote => {
        -start =>
          qq~<div align="center"><table border="1" width="95%"><tr><td>~,
        -end    => qq~</td></tr></table></div>~,
        -string => sub { return $_[0] },
    },
);