Changeset caac19d for perl

Timestamp:

Jun 25, 2011, 10:01:27 AM (14 years ago)

Author:

Jason Gross <jgross@mit.edu>

Children:

fe7ece2

Parents:

67b959c

git-author:

Jason Gross <jgross@mit.edu> (05/23/11 19:23:05)

git-committer:

Jason Gross <jgross@mit.edu> (06/25/11 10:01:27)

Message:

Improved ability to delete messages from perl

BarnOwl::Message now has a delete_and_expunge command, and
BarnOwl::queue_message returns the queued message, so that deletion
actually works; there used to be no way to get the id of a queued
message, and so ->delete() didn't actually do anything...

Location:

perl/lib

Files:

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

perl/lib/BarnOwl.pm

@@ -105 +105 @@
 Enqueue a message in the BarnOwl message list, logging it and
 processing it appropriately. C<MESSAGE> should be an instance of
-BarnOwl::Message or a subclass.
+BarnOwl::Message or a subclass.  Returns the queued message.  This
+is useful for, e.g., deleting a message from the message list.
 
 =head2 admin_message HEADER BODY

perl/lib/BarnOwl/Message.pm

@@ -81 +81 @@
 sub short_personal_context { return ""; }
 
+sub delete_and_expunge {
+    my ($m) = @_;
+    &BarnOwl::command("delete-and-expunge --quiet --id " . $m->id);
+}
+
 sub delete {
     my ($m) = @_;