openslp/edit_dacfg.cgi

   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
  15 require './slp-lib.pl';
  16 &ui_print_header(undef, $text{'dacfg_title'}, "");
  17
  18 local $dacfg = &get_dacfg_config();
  19 print "<form action=save_dacfg.cgi>\n";
  20 print "<table border width=100%>\n";
  21 print "<tr $tb> <td><b>$text{'dacfg_title'}</b></td> </tr>\n";
  22 print "<tr $cb> <td><table width=100%>\n";
  23
  24 local $true=""; local $false="";
  25 if ($dacfg->{'isDA'} !~ /^true$/i || $dacfg->{'isDADisabled'}) {
  26         $false = " checked";
  27 } else {
  28         $true = " checked";
  29 }
  30 print "<tr><td><b>$text{'dacfg_isDA'}</b></td><td nowrap>\n";
  31 print "<table><tr><td nowrap>\n";
  32 print "<input type=radio name=isDA value=1$true>\n";
  33 print "True&nbsp;<BR>\n";
  34 print "<input type=radio name=isDA value=0$false>\n";
  35 print "False&nbsp;(default)&nbsp;";
  36 print "</td></tr></table></td></tr>\n";
  37
  38 print "</table></td></tr></table>\n";
  39 print "<input type=submit value=\"$text{'save'}\"></form>\n";
  40
  41 &ui_print_footer("", $text{'index_return'});
  42