##
## << while (($v,$vv) = each %ENV) { print "$v = $vv\n" } >> ##
<< $ENV{PATH_INFO} =~ /(\w+)/ and $ENV{faq} = $faq = $f = $1; $faq =~ s/(\w)/uc($1)/e; $f = lc $f; print qq(
F*EX
FAQ
$faq
\n); print "
"; foreach (qw(Meta User Admin Misc)) { print '
',$_,'
'; } print "
\n"; $ENV{QUERY_STRING} =~ /(\d+)/ and $q = $1; my $n = 0; local $/ = "Q:"; local $_; open $faq,"$f.faq" or return; print "
\n"; $_ = <$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; $n++; if ($q) { if ($q == $n) { print "
Q$n:
$Q
\n"; print "
A$n:
$A
\n"; } } else { print "
Q$n:
$Q
\n"; print "
A$n:
$A
\n"; print "
\n"; } } print "
\n"; >>