usermin/list_configs.cgi

   1 #!/usr/local/bin/perl
   2 # lists_configs.cgi
   3 # List all usermin modules that can be configured
   4
   5 require './usermin-lib.pl';
   6 $access{'configs'} || &error($text{'acl_ecannot'});
   7 &ReadParse();
   8 &ui_print_header(undef, $text{'configs_title'}, "");
   9
  10 @mods = &list_modules();
  11 &get_usermin_miniserv_config(\%miniserv);
  12 print "$text{'configs_desc'}<p>\n";
  13 @grid = ( );
  14
  15 foreach $m (@mods) {
  16         if ((-r "$miniserv{'root'}/$m->{'dir'}/config.info" ||
  17             -r "$miniserv{'root'}/$m->{'dir'}/uconfig.info") &&
  18             &can_use_module($m->{'dir'})) {
  19                 push(@grid, "<a href='edit_configs.cgi?mod=$m->{'dir'}'>".
  20                             "$m->{'desc'}</a>");
  21                 }
  22         }
  23 print &ui_grid_table(\@grid, 4, 100,
  24         [ "width=25%", "width=25%", "width=25%", "width=25%" ],
  25         undef, $text{'configs_header'});
  26
  27 &ui_print_footer("", $text{'index_return'});