Changeset 77
- Timestamp:
- 01.12.2006 22:43:37 (2 years ago)
- Files:
-
- trunk/devel/FuzzyOcr/Logging.pm (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/devel/FuzzyOcr/Logging.pm
r75 r77 26 26 } 27 27 28 sub _not_debug { 29 return $Mail::SpamAssassin::Logger::LOG_SA{level} != 3; 30 } 28 31 sub _log { 29 32 my $conf = FuzzyOcr::Config::get_config(); … … 43 46 sub warnlog { 44 47 my $conf = FuzzyOcr::Config::get_config(); 45 return if ($conf->{focr_verbose} < 1 );48 return if ($conf->{focr_verbose} < 1 and _not_debug()); 46 49 _log("warn",$_[0]) if $conf->{focr_log_stderr}; 47 50 if (defined $conf->{focr_logfile}) { … … 52 55 sub infolog { 53 56 my $conf = FuzzyOcr::Config::get_config(); 54 return if ($conf->{focr_verbose} < 2 );57 return if ($conf->{focr_verbose} < 2 and _not_debug()); 55 58 _log("info",$_[0]) if $conf->{focr_log_stderr}; 56 59 if (defined $conf->{focr_logfile}) { … … 61 64 sub debuglog { 62 65 my $conf = FuzzyOcr::Config::get_config(); 63 return if ($conf->{focr_verbose} < 3 );66 return if ($conf->{focr_verbose} < 3 and _not_debug()); 64 67 _log("dbg",$_[0]) if $conf->{focr_log_stderr}; 65 68 if (defined $conf->{focr_logfile}) {
