webmin/refresh_modules.cgi

   1 #!/usr/local/bin/perl
   2 # Refresh the list of visible modules
   3
   4 require 'webmin-lib.pl';
   5 &ReadParse();
   6
   7 &ui_print_unbuffered_header(undef, $text{'refreshmods_title'}, "", undef, 0, 1);
   8
   9 # Re-run install checks
  10 &flush_webmin_caches();
  11 print $text{'refreshmods_installed'},"<br>\n";
  12 ($installed, $changed) = &build_installed_modules(1);
  13 @not = grep { $installed->{$_} eq '0' } (keys %$installed);
  14 @got = grep { $installed->{$_} ne '0' } (keys %$installed);
  15 print &text('refeshmods_counts', scalar(@not), scalar(@got)),"<p>\n";
  16
  17 # Refresh left frame, if possible
  18 if (@$changed && defined(&theme_post_change_modules)) {
  19         &theme_post_change_modules();
  20         }
  21
  22 &ui_print_footer();