1
|
#!/usr/bin/perl
|
2
|
# edit_global.cgi
|
3
|
# Edit global MON paths
|
4
|
|
5
|
require './mon-lib.pl';
|
6
|
$conf = &get_mon_config();
|
7
|
&ui_print_header(undef, $text{'global_title'}, "");
|
8
|
|
9
|
print "<form action=save_global.cgi>\n";
|
10
|
print "<table border>\n";
|
11
|
print "<tr $tb> <td><b>$text{'global_header'}</b></td> </tr>\n";
|
12
|
print "<tr $cb> <td><table width=100%>\n";
|
13
|
|
14
|
$maxprocs = &find_value("maxprocs", $conf);
|
15
|
print "<tr> <td><b>$text{'global_maxprocs'}</b></td> <td>\n";
|
16
|
print "<input name=maxprocs size=6 value='$maxprocs'></td>\n";
|
17
|
|
18
|
$histlength = &find_value("histlength", $conf);
|
19
|
print "<td><b>$text{'global_histlength'}</b></td> <td>\n";
|
20
|
print "<input name=histlength size=6 value='$histlength'></td> </tr>\n";
|
21
|
|
22
|
$authtype = &find_value("authtype", $conf);
|
23
|
print "<tr> <td><b>$text{'global_authtype'}</b></td>\n";
|
24
|
print "<td><select name=authtype>\n";
|
25
|
foreach $t ('', 'getpwnam', 'userfile', 'shadow') {
|
26
|
printf "<option value='%s' %s>%s\n",
|
27
|
$t, $authtype eq $t ? "selected" : "",
|
28
|
$text{"global_authtype_$t"};
|
29
|
}
|
30
|
print "</select></td> </tr>\n";
|
31
|
|
32
|
$userfile = &find_value("userfile", $conf);
|
33
|
print "<tr> <td><b>$text{'global_userfile'}</b></td> <td colspan=3>\n";
|
34
|
printf "<input type=radio name=userfile_def value=1 %s> %s\n",
|
35
|
$userfile ? "" : "checked", $text{'default'};
|
36
|
printf "<input type=radio name=userfile_def value=0 %s>\n",
|
37
|
$userfile ? "checked" : "";
|
38
|
print "<input name=userfile size=40 value='$userfile'> ",
|
39
|
&file_chooser_button("userfile", 0),"</td> </tr>\n";
|
40
|
|
41
|
$alertdir = &find_value("alertdir", $conf);
|
42
|
print "<tr> <td><b>$text{'global_alertdir'}</b></td> <td colspan=3>\n";
|
43
|
print "<input name=alertdir size=40 value='$alertdir'> ",
|
44
|
&file_chooser_button("alertdir", 1),"</td> </tr>\n";
|
45
|
|
46
|
$mondir = &find_value("mondir", $conf);
|
47
|
print "<tr> <td><b>$text{'global_mondir'}</b></td> <td colspan=3>\n";
|
48
|
print "<input name=mondir size=40 value='$mondir'> ",
|
49
|
&file_chooser_button("mondir", 1),"</td> </tr>\n";
|
50
|
|
51
|
print "</table></td></tr></table>\n";
|
52
|
print "<input type=submit value='$text{'save'}'></form>\n";
|
53
|
|
54
|
&ui_print_footer("", $text{'index_return'});
|
55
|
|