mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
25 lines
336 B
Perl
Executable File
25 lines
336 B
Perl
Executable File
# help-lib.pl
|
|
|
|
do '../web-lib.pl';
|
|
&init_config();
|
|
do '../ui-lib.pl';
|
|
|
|
sub list_modules
|
|
{
|
|
local ($m, @rv);
|
|
opendir(DIR, "..");
|
|
foreach $m (readdir(DIR)) {
|
|
local %minfo;
|
|
if ((%minfo = &get_module_info($m)) && &check_os_support(\%minfo) &&
|
|
-d "../$m/help") {
|
|
push(@rv, [ $m, \%minfo ]);
|
|
}
|
|
}
|
|
closedir(DIR);
|
|
return @rv;
|
|
}
|
|
|
|
1;
|
|
|
|
|