Changeset cff58b4 for perl/lib/BarnOwl.pm

Timestamp:

Aug 10, 2009, 9:12:10 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

7565f8f, 3b42640

Parents:

0509efc

Message:

Fix the filter<foo> commands.

Registering commands from the top-level in BarnOwl.pm doesn't work,
because the command dictionary isn't set up yet, so delay the
registration until the startup hook.

File:

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

perl/lib/BarnOwl.pm

@@ -314 +314 @@
 =cut
 
-BarnOwl::new_command("filterappend",
-    sub { filter_append_helper('appending', '', @_); },
-    {
-        summary => "append '<text>' to filter",
-        usage => "filterappend <filter> <text>",
-    });
-
-BarnOwl::new_command("filterand",
-    sub { filter_append_helper('and-ing', 'and', @_); },
-    {
-        summary => "append 'and <text>' to filter",
-        usage => "filterand <filter> <text>",
-    });
-
-BarnOwl::new_command("filteror",
-    sub { filter_append_helper('or-ing', 'or', @_); },
-    {
-        summary => "append 'or <text>' to filter",
-        usage => "filteror <filter> <text>",
-    });
+sub register_builtin_commands {
+    BarnOwl::new_command("filterappend",
+                         sub { filter_append_helper('appending', '', @_); },
+                       {
+                           summary => "append '<text>' to filter",
+                           usage => "filterappend <filter> <text>",
+                       });
+
+    BarnOwl::new_command("filterand",
+                         sub { filter_append_helper('and-ing', 'and', @_); },
+                       {
+                           summary => "append 'and <text>' to filter",
+                           usage => "filterand <filter> <text>",
+                       });
+
+    BarnOwl::new_command("filteror",
+                         sub { filter_append_helper('or-ing', 'or', @_); },
+                       {
+                           summary => "append 'or <text>' to filter",
+                           usage => "filteror <filter> <text>",
+                       });
+
+}
+
+$BarnOwl::Hooks::startup->add("BarnOwl::register_builtin_commands");
 
 =head3 filter_append_helper ACTION SEP FUNC FILTER APPEND_TEXT