openslp/edit_log.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{'log_title'}, "");
  17
  18 local $log = &get_log_config();
  19 print "<form action=save_log.cgi>\n";
  20 print "<table border width=100%>\n";
  21 print "<tr $tb> <td><b>$text{'log_title'}</b></td> </tr>\n";
  22 print "<tr $cb> <td><table width=100%>\n";
  23
  24 if ($log->{'traceDATraffic'} !~ /^true$/i || $log->{'traceDATrafficDisabled'}) {
  25         $false = " checked";
  26 } else {
  27         $true = " checked";
  28 }
  29 print "<tr><td><b>$text{'log_traceDATraffic'}</b></td><td nowrap>\n";
  30 print "<input type=radio name=traceDATraffic value=1$true>\n";
  31 print "True&nbsp;&nbsp;<BR>";
  32 print "<input type=radio name=traceDATraffic value=0$false>\n";
  33 print "False&nbsp;(default)";
  34 print "</td>\n";
  35 print "<td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>\n";
  36
  37 local $true=""; local $false="";
  38 if ($log->{'traceMsg'} !~ /^true$/i || $log->{'traceMsgDisabled'}) {
  39         $false = " checked";
  40 } else {
  41         $true = " checked";
  42 }
  43 print "<td><b>$text{'log_traceMsg'}</b></td><td nowrap>\n";
  44 print "<input type=radio name=traceMsg value=1$true>\n";
  45 print "True&nbsp;<BR>";
  46 print "<input type=radio name=traceMsg value=0$false>\n";
  47 print "False&nbsp;(default)&nbsp;";
  48 print "</td></tr>\n";
  49
  50 print "<tr><td colspan=6><HR></td></tr>";
  51
  52 $true=""; $false="";
  53 if ($log->{'traceDrop'} !~ /^true$/i || $log->{'traceDropDisabled'}) {
  54         $false = " checked";
  55 } else {
  56         $true = " checked";
  57 }
  58 print "<tr><td><b>$text{'log_traceDrop'}</b></td><td nowrap>\n";
  59 print "<input type=radio name=traceDrop value=1$true>\n";
  60 print "True&nbsp;<BR>";
  61 print "<input type=radio name=traceDrop value=0$false>\n";
  62 print "False&nbsp;(default)&nbsp;";
  63 print "</td>\n";
  64 print "<td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>\n";
  65
  66 $true=""; $false="";
  67 if ($log->{'traceReg'} !~ /^true$/i || $log->{'traceRegDisabled'}) {
  68         $false = " checked";
  69 } else {
  70         $true = " checked";
  71 }
  72 print "<td><b>$text{'log_traceReg'}</b></td><td nowrap>\n";
  73 print "<input type=radio name=traceReg value=1$true>\n";
  74 print "True&nbsp;<BR>";
  75 print "<input type=radio name=traceReg value=0$false>\n";
  76 print "False&nbsp;(default)&nbsp;";
  77 print "</td>\n";
  78
  79 print "</table></td></tr></table>\n";
  80 print "<input type=submit value=\"$text{'save'}\"></form>\n";
  81
  82 &ui_print_footer("", $text{'index_return'});
  83