webmin/edit_categories.cgi

   1 #!/usr/local/bin/perl
   2 # Show a form for editing custom category names
   3
   4 require './webmin-lib.pl';
   5 ReadParse();
   6 ui_print_header(undef, $text{'categories_title'}, undef);
   7
   8 # Show language selector
   9 print ui_form_start("edit_categories.cgi");
  10 print "<b>$text{'categories_lang'}</b>\n";
  11 print ui_select("lang", $in{'lang'},
  12         [ [ "", "&lt;$text{'default'}&gt;" ],
  13           map { [ $_->{'lang'}, "$_->{'desc'} (".uc($_->{'lang'}).")" ] }
  14               list_languages() ]),"\n";
  15 print ui_submit($text{'categories_langok'}),"\n";
  16 print ui_form_end();
  17
  18 print "$text{'categories_desc'}<p>\n";
  19 print ui_form_start("save_categories.cgi");
  20 print ui_hidden("lang", $in{'lang'});
  21 print ui_table_start($text{'categories_header'});
  22
  23 # Show the existing categories
  24 $file = "$config_directory/webmin.catnames";
  25 $file .= ".".$in{'lang'} if ($in{'lang'});
  26 read_file($file, \%catnames);
  27 foreach $t (keys %text) {
  28         $t =~ s/^category_// || next;
  29         print "<tr> <td><b>",$t ? $t : "<i>other</i>","</b></td>\n";
  30         printf "<td><input type=radio name=def_$t value=1 %s> %s (%s)</td>\n",
  31                 $catnames{$t} ? '' : 'checked', $text{'default'},
  32                 $text{"category_$t"};
  33         printf "<td><input type=radio name=def_$t value=0 %s> %s\n",
  34                 $catnames{$t} ? 'checked' : '';
  35         printf "<input name=desc_$t size=30 value='%s'></td> </tr>\n",
  36                 $catnames{$t};
  37         $realcat{$t}++;
  38         }
  39 print "<tr> <td colspan=3><hr></td> </tr>\n";
  40
  41 # Show new categories
  42 print "<tr> <td><b>$text{'categories_code'}</b></td> ",
  43       "<td colspan=2><b>$text{'categories_name'}</b></td> </tr>\n";
  44 $i = 0;
  45 foreach $c (keys %catnames) {
  46         if (!$realcat{$c}) {
  47                 print "<tr> <td><input name=cat_$i size=10 value='$c'></td>\n";
  48                 print "<td colspan=2><input name=desc_$i size=30 ",
  49                       "value='$catnames{$c}'></td> </tr>\n";
  50                 $i++;
  51                 }
  52         }
  53 print "<tr> <td><input name=cat_$i size=10></td>\n";
  54 print "<td colspan=2><input name=desc_$i size=30></td> </tr>\n";
  55
  56 print ui_table_end();
  57 print ui_form_end([ [ "ok", $text{'categories_ok'} ] ]);
  58 ui_print_footer("", $text{'index_return'});
  59