webmin/third_chooser.cgi

   1 #!/usr/local/bin/perl
   2 # third_chooser.cgi
   3 # Display a list of third-party modules for installation
   4
   5 $trust_unknown_referers = 1;
   6 require './webmin-lib.pl';
   7 &popup_header($text{'third_title'});
   8 $mods = &list_third_modules();
   9 if (!ref($mods)) {
  10         print "<b>",&text('third_failed', $mods),"</b><p>\n";
  11         }
  12 else {
  13         print "<b>$text{'third_header'}</b><br>\n";
  14         print "<script>\n";
  15         print "function select(f)\n";
  16         print "{\n";
  17         print "opener.ifield.value = f;\n";
  18         print "close();\n";
  19         print "return false;\n";
  20         print "}\n";
  21         print "</script>\n";
  22         @table = ( );
  23         foreach $m (@$mods) {
  24                 push(@table, [
  25                  "<a href='' onClick='return select(\"$m->[2]\")'>$m->[0]</a>",
  26                  $m->[1] eq "NONE" ? "" : &html_escape($m->[1]),
  27                  $m->[3],
  28                  ]);
  29                 }
  30         print &ui_columns_table(undef, 100, \@table);
  31         }
  32 &popup_footer();
  33