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 <BR>\n"; 34print "<input type=radio name=isDA value=0$false>\n"; 35print "False (default) "; 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