Changeset 0b5168d for perl

Timestamp:

Aug 20, 2009, 2:14:42 AM (15 years ago)

Author:

Anders Kaseorg <andersk@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:

744769e

Parents:

fc92e6e2

git-author:

Anders Kaseorg <andersk@mit.edu> (08/20/09 01:28:58)

git-committer:

Anders Kaseorg <andersk@mit.edu> (08/20/09 02:14:42)

Message:

Fix quoting for filterappend, filterand, filteror.

Signed-off-by: Anders Kaseorg <andersk@mit.edu>

File:

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

perl/lib/BarnOwl.pm

@@ -362 +362 @@
     my $oldfilter = BarnOwl::getfilter($filter);
     chomp $oldfilter;
-    my $newfilter = join(' ', $oldfilter, $sep, @_);
-    my $msgtext = "To filter '$filter' $action\n'".join(' ', @append)."' to get\n'$newfilter'";
+    my $newfilter = "$oldfilter $sep " . quote(@append);
+    my $msgtext = "To filter " . quote($filter) . " $action\n" . quote(@append) . "\nto get\n$newfilter";
     if (BarnOwl::getvar('showfilterchange') eq 'on') {
         BarnOwl::admin_message("Filter", $msgtext);