Changeset 1b9a163 for perl/lib/BarnOwl.pm

Timestamp:

Nov 20, 2009, 3:28:54 AM (14 years ago)

Author:

Alex Dehnert <adehnert@mit.edu>

Branches:

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

Children:

dab89e28

Parents:

f63a681

git-author:

Alex Dehnert <adehnert@mit.edu> (10/25/09 21:30:48)

git-committer:

Alex Dehnert <adehnert@mit.edu> (11/20/09 03:28:54)

Message:

Fix filter*

Recent tokenization changes broke the filter*
family of commands. This switches them to use
BarnOwl::command and build a new string to be
tokenized.

File:

• perl/lib/BarnOwl.pm (modified) (2 diffs)

perl/lib/BarnOwl.pm

@@ -445 +445 @@
         BarnOwl::admin_message("Filter", $msgtext);
     }
-    BarnOwl::filter($filter, $newfilter);
+    set_filter($filter, $newfilter);
     return;
 }
@@ -451 +451 @@
                            { default => 1,
                              summary => 'Show modifications to filters by filterappend and friends.'});
+
+sub set_filter
+{
+    my $filtername = shift;
+    my $filtertext = shift;
+    my $cmd = 'filter ' . BarnOwl::quote($filtername) . ' ' . $filtertext;
+    BarnOwl::command($cmd);
+}
 
 =head3 time_format FORMAT