webmin/standard_chooser.cgi

   1 #!/usr/local/bin/perl
   2 # standard_chooser.cgi
   3 # Display a list of standard modules for installation
   4
   5 require './webmin-lib.pl';
   6 &ui_print_header(undef, );
   7 $mods = &list_standard_modules();
   8 if (!ref($mods)) {
   9         print "<b>",&text('standard_failed', $mods),"</b><p>\n";
  10         }
  11 else {
  12         print "<b>$text{'standard_header'}</b><br>\n";
  13         if ($mods->[0]->[1] > &get_webmin_version()) {
  14                 print &text('standard_warn', $mods->[0]->[1]),"<br>\n";
  15                 }
  16         print "<script>\n";
  17         print "function select(f)\n";
  18         print "{\n";
  19         print "opener.ifield.value = f;\n";
  20         print "close();\n";
  21         print "return false;\n";
  22         print "}\n";
  23         print "</script>\n";
  24         @table = ( );
  25         foreach $m (@$mods) {
  26                 my $minfo = { 'os_support' => $m->[3] };
  27                 next if (!&check_os_support($minfo));
  28                 push(@table, [
  29                  "<a href='' onClick='return select(\"$m->[0]\")'>$m->[0]</a>",
  30                  &html_escape($m->[4]),
  31                  ]);
  32                 }
  33         print &ui_columns_table(undef, 100, \@table);
  34         }
  35 &ui_print_footer();
  36