Changeset cd6521f for perl/lib/BarnOwl/Message.pm

Timestamp:

Aug 5, 2017, 11:23:04 PM (7 years ago)

Author:

Jason Gross <jgross@mit.edu>

Children:

18c1925

Parents:

7a240b5

git-author:

Jason Gross <jgross@mit.edu> (07/12/11 15:23:27)

git-committer:

Jason Gross <jgross@mit.edu> (08/05/17 23:23:04)

Message:

Moved outgoing zephyr error logging to perl

File:

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

perl/lib/BarnOwl/Message.pm

@@ -210 +210 @@
 sub log_base_path {
     return BarnOwl::getvar('logpath');
+}
+
+=head2 log_outgoing_error MESSAGE
+
+Returns the string that should be logged if there is an error sending
+an outgoing message.
+
+=cut
+
+sub log_outgoing_error {
+    my ($m) = @_;
+    my $recipient = $m->pretty_recipient;
+    my $body = $m->body;
+    chomp $body;
+    return "ERROR (BarnOwl): $recipient\n$body\n\n";
 }