#!/usr/local/bin/perl # # An OpenSLP webmin module # by Monty Charlton , # # Copyright (c) 2000 Caldera Systems # # Permission to use, copy, modify, and distribute this software and its # documentation under the terms of the GNU General Public License is hereby # granted. No representations are made about the suitability of this software # for any purpose. It is provided "as is" without express or implied warranty. # See the GNU General Public License for more details. # require './slp-lib.pl'; &ui_print_header(undef, $text{'log_title'}, ""); local $log = &get_log_config(); print "
\n"; print "\n"; print "\n"; print "
$text{'log_title'}
\n"; if ($log->{'traceDATraffic'} !~ /^true$/i || $log->{'traceDATrafficDisabled'}) { $false = " checked"; } else { $true = " checked"; } print "\n"; print "\n"; local $true=""; local $false=""; if ($log->{'traceMsg'} !~ /^true$/i || $log->{'traceMsgDisabled'}) { $false = " checked"; } else { $true = " checked"; } print "\n"; print ""; $true=""; $false=""; if ($log->{'traceDrop'} !~ /^true$/i || $log->{'traceDropDisabled'}) { $false = " checked"; } else { $true = " checked"; } print "\n"; print "\n"; $true=""; $false=""; if ($log->{'traceReg'} !~ /^true$/i || $log->{'traceRegDisabled'}) { $false = " checked"; } else { $true = " checked"; } print "\n"; print "
$text{'log_traceDATraffic'}\n"; print "\n"; print "True  
"; print "\n"; print "False (default)"; print "
      $text{'log_traceMsg'}\n"; print "\n"; print "True 
"; print "\n"; print "False (default) "; print "

$text{'log_traceDrop'}\n"; print "\n"; print "True 
"; print "\n"; print "False (default) "; print "
      $text{'log_traceReg'}\n"; print "\n"; print "True 
"; print "\n"; print "False (default) "; print "
\n"; print "
\n"; &ui_print_footer("", $text{'index_return'});