I made a simple patch that adds the same functionality as squelchDomains into warning messages (I shamelessly cut/pasted the squelch code from sub message and changed the variable names )
Code: Select all
Index: Log.pm
===================================================================
--- Log.pm (revision 6665)
+++ Log.pm (working copy)
@@ -288,10 +289,13 @@
# Prints a warning message. It warns the user that a possible non-fatal error has occured or will occur.
# See the description for Log.pm for more details about the parameters.
sub warning {
+ my ($message, $domain, $level) = @_;
+ $level = 5 if existsInList($config{squelchWarnings}, $domain);
+ $level = 0 if existsInList($config{verboseWarnings}, $domain);
return processMsg("warning",
- $_[0],
- $_[1],
- $_[2],
+ $message,
+ $domain,
+ $level,
$warningVerbosity,
\%warningConsole,
\%warningFiles);
Code: Select all
squelchWarnings skill