[calc]
my $data = q{[version extended=1 modules=1 joiner=""]};
$dbstatus = q{[version extended=1 modtest="GDBM_File"][version extended=1 modtest="DB_File"]};
return unless $data =~ /IMPORTANT/ or $dbstatus < 1;
my @lines = grep /not\s+found/, split '
', $data;
my @important = grep /IMPORTANT/, @lines;
my @minor = grep $_ !~ /IMPORTANT/, @lines;
my $imp = join '
', @important;
my $minor = join '
', @minor;
my $out = '';
$out .= <
Admin interface will not work properly.
Please install needed Perl modules:
$imp
$minor
The easiest way to do this is to use the CPAN module and do:
perl -MCPAN -e 'install Bundle::Interchange'
|
EOF
if($dbstatus < 1) {
$out .= <
You need either GDBM_File or DB_File for Interchange to work as documented.
Contact your system administrator about rebuilding Perl with GDBM or Berkeley DB.
|
EOF
}
return $out;
[/calc]
[loop
prefix=am
search="
fi=icmenu
st=db
co=yes
sf=mgroup
se=Top
op=eq
tf=msort
rf=*
"
lr=1]
[if-am-param !inactive]
[if-mm advanced [am-param depends_on]]
[if-am-param img_icon]
[/if-am-param]
|
[loc][am-param name][/loc]
|
[loc][am-param special][/loc]
|
[/if-mm]
[/if-am-param]
[/loop]