usermin/edit_categories.cgi

   1 #!/usr/local/bin/perl
   2
   3 require './usermin-lib.pl';
   4 $access{'categories'} || &error($text{'acl_ecannot'});
   5 &get_usermin_miniserv_config(\%miniserv);
   6 &read_file("$miniserv{'root'}/lang/en", \%utext);
   7 &read_file("$miniserv{'root'}/ulang/en", \%utext);
   8
   9 &ui_print_header(undef, $text{'categories_title'}, undef);
  10 print qq(
  11 $text{'categories_desc'}<p>
  12 <form action="save_categories.cgi">
  13 <table border><tr $tb>
  14 <td><b>$text{'categories_header'}</b></td></tr>
  15 <tr $cb><td><table>
  16 );
  17
  18 # Show the existing categories
  19 &read_file("$config{'usermin_dir'}/webmin.catnames", \%catnames);
  20 foreach $t (keys %utext) {
  21         $t =~ s/^category_// || next;
  22         print "<tr> <td><b>",$t ? $t : "<i>other</i>","</b></td>\n";
  23         printf "<td><input type=radio name=def_$t value=1 %s> %s\n",
  24                 $catnames{$t} ? '' : 'checked', $text{'default'};
  25         printf "<input type=radio name=def_$t value=0 %s> %s\n",
  26                 $catnames{$t} ? 'checked' : '';
  27         printf "<input name=desc_$t size=30 value='%s'></td> </tr>\n",
  28                 $catnames{$t};
  29         $realcat{$t}++;
  30         }
  31 print "<tr> <td colspan=2><hr></td> </tr>\n";
  32
  33 # Show new categories
  34 print "<tr> <td><b>$text{'categories_code'}</b></td> ",
  35       "<td colspan=2><b>$text{'categories_name'}</b></td> </tr>\n";
  36 $i = 0;
  37 foreach $c (keys %catnames) {
  38         if (!$realcat{$c}) {
  39                 print "<tr> <td><input name=cat_$i size=10 value='$c'></td>\n";
  40                 print "<td><input name=desc_$i size=30 ",
  41                       "value='$catnames{$c}'></td> </tr>\n";
  42                 $i++;
  43                 }
  44         }
  45 print "<tr> <td><input name=cat_$i size=10></td>\n";
  46 print "<td><input name=desc_$i size=30></td> </tr>\n";
  47
  48 print qq(
  49 </td></tr></table>
  50 </td></tr></table>
  51 <input type=submit value="$text{'categories_ok'}">
  52 </form>
  53 );
  54 &ui_print_footer("", $text{'index_return'});
  55