Changeset 6e764aa for perl/lib/BarnOwl/Message.pm

Timestamp:

Jan 7, 2014, 6:02:20 PM (8 years ago)

Author:

Jason Gross <jgross@mit.edu>

Children:

bf61c61

Parents:

f511c1e

git-author:

Jason Gross <jgross@mit.edu> (07/12/11 16:19:57)

git-committer:

Jason Gross <jgross@mit.edu> (01/07/14 18:02:20)

Message:

Moved the checking of whether or not to log messages to perl

File:

• perl/lib/BarnOwl/Message.pm (modified) (1 diff)

perl/lib/BarnOwl/Message.pm

@@ -225 +225 @@
     chomp $body;
     return "ERROR (BarnOwl): $recipient\n$body\n\n";
+}
+
+=head2 should_log MESSAGE
+
+Returns true if we should log C<MESSAGE>.  This does not override
+user settings; if the BarnOwl variable C<loggingdirection> is in,
+and C<MESSAGE> is outgoing and does not match the C<logfilter>, it
+will not get logged regardless of what this method returns.
+
+Note that this method I<does> override the BarnOwl C<logging>
+variable; if a derived class overrides this method and does not
+provide an alternative BarnOwl variable (such as C<classlogging>),
+the overriding method should check the BarnOwl C<logging> variable.
+
+Defaults to returning the value of the BarnOwl variable C<logging>.
+
+=cut
+
+sub should_log {
+    return BarnOwl::getvar('logging') eq 'on';
 }