1#!/usr/local/bin/perl
2#
3# An OpenSLP webmin module
4# by Monty Charlton <monty@caldera.com>,
5#
6# Copyright (c) 2000 Caldera Systems
7#
8# Permission to use, copy, modify, and distribute this software and its
9# documentation under the terms of the GNU General Public License is hereby
10# granted. No representations are made about the suitability of this software
11# for any purpose. It is provided "as is" without express or implied warranty.
12# See the GNU General Public License for more details.
13#
14
15require './slp-lib.pl';
16&ui_print_header(undef, $text{'dacfg_title'}, "");
17
18local $dacfg = &get_dacfg_config();
19print "<form action=save_dacfg.cgi>\n";
20print "<table border width=100%>\n";
21print "<tr $tb> <td><b>$text{'dacfg_title'}</b></td> </tr>\n";
22print "<tr $cb> <td><table width=100%>\n";
23
24local $true=""; local $false="";
25if ($dacfg->{'isDA'} !~ /^true$/i || $dacfg->{'isDADisabled'}) {
26        $false = " checked";
27} else {
28        $true = " checked";
29}
30print "<tr><td><b>$text{'dacfg_isDA'}</b></td><td nowrap>\n";
31print "<table><tr><td nowrap>\n";
32print "<input type=radio name=isDA value=1$true>\n";
33print "True&nbsp;<BR>\n";
34print "<input type=radio name=isDA value=0$false>\n";
35print "False&nbsp;(default)&nbsp;";
36print "</td></tr></table></td></tr>\n";
37
38print "</table></td></tr></table>\n";
39print "<input type=submit value=\"$text{'save'}\"></form>\n";
40
41&ui_print_footer("", $text{'index_return'});
42
43