F*EX
FAQ
Meta
User
Admin
Misc
<< sub faq { my $faq = shift; my ($var,$env,$q,$a); local $/ = "Q:"; local $_; open $faq,"$faq.faq" or return; $_ = <$faq>; while (<$faq>) { chomp; while (/\$([\w_]+)\$/) { $var = $1; $env = $ENV{$var} || ''; #s/\$$var\$/
$env<\/tt>/g; s/\$$var\$/$env/g; }; ($q,$a) = split /A:s*/; $a =~ s/([^>\n])\n/$1
\n/g; $a =~ s/([^\s<>]+\@[^\s<>]+)/
<$1><\/a>/g; $a =~ s/(https?:[^\s<>]+)/
[$1]<\/a>/g; print qq(
Q:
\n); print qq(
$q
\n); print qq(
A:
\n); print qq(
$a
\n); } } >>
Questions générales
<
>
Questions utilisateurs
<
>
Questions administrateur
<
>
Questions diverses
<
>