# 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] },
},
);