fix problem with quoted strings in filter_conv.pl

diff --git a/AUTHORS b/AUTHORS
index 2f21e0105ca933e1aef03134ad1896680b094a5e..65ad55cbb080995391dc33345a358b398018e3b0 100644 (file)
--- a/AUTHORS
+++ b/AUTHORS
@@ -163,3 +163,4 @@ contributors (beside the above; based on Changelog)
        Nicolas Kaiser
        Ivan Francolin Martinez
        Topia
        Nicolas Kaiser
        Ivan Francolin Martinez
        Topia

+       Luke Plant

diff --git a/ChangeLog.claws b/ChangeLog.claws
index 8ec237d82fe67c2137d25f21b83d9addf29f6c8d..c2a074e9b0689e9426c6665dc648a8c8a660160f 100644 (file)
--- a/ChangeLog.claws
+++ b/ChangeLog.claws
@@ -3,6 +3,10 @@
        * po/POTFILES.in
                update to reflect recent changes (thanks
                to Ricardo Mones Lastra)
        * po/POTFILES.in
                update to reflect recent changes (thanks
                to Ricardo Mones Lastra)

+               
+       * tools/filter_conv.pl
+                fix problem with quoted strings. Patch submitted
+                by Luke Plant <lukeplant@softhome.net>

 
 2002-12-03 [paul]      0.8.6claws52
 
 
 2002-12-03 [paul]      0.8.6claws52
 

diff --git a/tools/filter_conv.pl b/tools/filter_conv.pl
index 5ba7ba96d5ea274f3d49282f292323b89f24d978..74ac353b0dc6944b50c84d936dacc426fdb968e6 100644 (file)
--- a/tools/filter_conv.pl
+++ b/tools/filter_conv.pl
@@ -57,6 +57,8 @@ open(FILTERRC, "<filterrc") or die("Can't find your old filter rules ('filterrc'
         $mode_two,
         $action) = split(/\t/);
 
         $mode_two,
         $action) = split(/\t/);
 

+    $value_one =~ s/\"/\\\"/g ;
+    $value_two =~ s/\"/\\\"/g ;

     $action = $action eq "m" ? "move" : "delete";
     $destination = $destination =~ m!^\#mh/! ?
                      $destination :
     $action = $action eq "m" ? "move" : "delete";
     $destination = $destination =~ m!^\#mh/! ?
                      $destination :