[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]
[menu
name=Top
inactive=inactive
localize=name,description
ui_security=depends_on
lr=1]
{IMG_ICON?}
{/IMG_ICON?}
|
{NAME}
|
{DESCRIPTION}
|
[/menu]