#!/usr/local/bin/perl
# This CGI generates the HTML for choosing a module or list of modules
BEGIN { push(@INC, ".."); };
use WebminCore;
$trust_unknown_referers = 1;
&init_config();
&ReadParse(undef, undef, 2);
%access = &get_module_acl();
if ($in{'multi'}) {
# selecting multiple modules
if ($in{'frame'} == 0) {
# base frame
&PrintHeader();
print "\n";
print "
$text{'modules_title1'}\n";
print "\n";
}
elsif ($in{'frame'} == 1) {
# list of all modules to choose from
&popup_header();
print "\n";
print "$text{'modules_all'}\n";
print "\n";
foreach $m (&get_all_module_infos()) {
if ($in{'module'} eq $m->{'dir'}) { print "\n"; }
else { print "
\n"; }
print "{'desc'}\")'>$m->{'dir'} | \n";
print "$m->{'desc'} |
\n";
}
print "
\n";
&popup_footer();
}
elsif ($in{'frame'} == 2) {
# show chosen modules
&popup_header();
print "$text{'modules_sel'}\n";
print <<'EOF';
EOF
&popup_footer();
}
elsif ($in{'frame'} == 3) {
# output OK and Cancel buttons
&popup_header();
print "\n";
print "\n";
&popup_footer();
}
}
else {
# selecting just one module .. display a list of all modules to
# choose from
&popup_header($text{'modules_title2'});
print "\n";
print "\n";
foreach $m (&get_all_module_infos()) {
if ($in{'user'} eq $m->{'dir'}) { print "\n"; }
else { print "
\n"; }
print "$m->{'dir'} | \n";
print "$m->{'dir'} |
\n";
}
print "
\n";
&popup_footer();
}