Changeset 9bfab40 for perl

Timestamp:

Aug 16, 2017, 12:53:41 PM (7 years ago)

Author:

Jason Gross <jasongross9@gmail.com>

Branches:

master

Children:

5093c6f

Parents:

ff528e6

git-author:

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

git-committer:

Jason Gross <jasongross9@gmail.com> (08/16/17 12:53:41)

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";
 }