@@ -150,6 +150,19 @@ sub match_criteria {
}
return 1;
}
+sub set_log_level {
+ my $new_level_str = shift;
+
+ if ($new_level_str eq 'errors' or $new_level_str eq '0') {
+ $log_level = 0;
+ } elsif ($new_level_str eq 'info' or $new_level_str eq '1') {
+ $log_level = 1;
+ } elsif ($new_level_str eq 'debug' or $new_level_str eq '2') {
+ $log_level = 2;
+ } else { # don't change log level
+ log_msg 0, "unrecognized log level: $new_level_str";
+ }
+}
sub parse_conf_line {
my $line = shift;
@@ -159,6 +172,11 @@ sub parse_conf_line {
}
my ($criteria_str, $opts_str) = $line =~ $conf_split_re;
+ if ($criteria_str eq 'log_level') {
+ log_msg 1, "setting log level '$opts_str'";
+ set_log_level $opts_str;
+ return;
+ }
if ($criteria_str eq 'default' or $criteria_str eq 'defaults') {
%upcall_opts = (); # clear defaults
log_msg 1, "setting default options '$opts_str'";
If 'log_level' is specified in the conf file, adjust the log level as specified. Signed-off-by: Frank Sorenson <sorenson@redhat.com> --- contrib/upcall-helper/cifs-upcall-helper | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+)