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