usermin/edit_descs.cgi

   1 #!/usr/local/bin/perl
   2 # Show module description overrides
   3
   4 require './usermin-lib.pl';
   5 &ui_print_header(undef, $text{'descs_title'}, undef);
   6 print "$text{'descs_info'}<p>\n";
   7
   8 &read_file("$config{'usermin_dir'}/webmin.descs", \%descs);
   9 print &ui_form_start("save_descs.cgi");
  10 print &ui_columns_start([ $text{'descs_mod'},
  11                           $text{'descs_desc'} ]);
  12 $i = 0;
  13 @mods = sort { $a->{'realdesc'} cmp $b->{'realdesc'} } &list_modules();
  14 foreach $d ((sort { $a cmp $b } (keys %descs)), undef, undef, undef) {
  15         next if ($d =~ /^(\S+)\s+(\S+)$/);
  16         print &ui_columns_row([
  17                 &ui_select("mod_$i", $d,
  18                    [ [ "", "&nbsp;" ],
  19                      map { [ $_->{'dir'}, $_->{'realdesc'} ] } @mods ]),
  20                 &ui_textbox("desc_$i", $descs{$d}, 40) ]);
  21         $i++;
  22         }
  23 print &ui_columns_end();
  24 print &ui_form_end([ [ "save", $text{'save'} ] ]);
  25
  26 &ui_print_footer("", $text{'index_return'});
  27