Add forgotten CGI

This commit is contained in:
Jamie Cameron
2014-07-06 08:32:03 -07:00
parent 9cf786e000
commit 893d48a02a

26
refresh_modules.cgi Executable file
View File

@ -0,0 +1,26 @@
#!/usr/local/bin/perl
# Refresh the list of visible modules
BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();
&ReadParse();
&foreign_require("webmin", "webmin-lib.pl");
&ui_print_unbuffered_header(undef, $text{'refreshmods_title'}, "", undef, 0, 1);
# Re-run install checks
&flush_webmin_caches();
print $text{'refreshmods_installed'},"<br>\n";
$installed = &webmin::build_installed_modules(1);
@not = grep { $installed->{$_} eq '0' } (keys %$installed);
@got = grep { $installed->{$_} ne '0' } (keys %$installed);
print &text('refeshmods_counts', scalar(@not), scalar(@got)),"<p>\n";
# Refresh left frame, if possible
if (defined(&theme_post_change_modules)) {
&theme_post_change_modules();
}
&ui_print_footer();