Handle " and ' in comments

https://sourceforge.net/tracker/?func=detail&atid=117457&aid=3426769&group_id=17457

diff --git a/firewall/firewall-lib.pl b/firewall/firewall-lib.pl
index b5b9cec..8be8dbe 100755 (executable)
--- a/firewall/firewall-lib.pl
+++ b/firewall/firewall-lib.pl
@@ -98,6 +98,8 @@ while(<FILE>) {
                        local @vl;
                        while($rule->{'args'} =~
                               s/\s+(!?)\s*($a)\s+(!?)\s*("[^"]*")(\s+|$)/ / ||
+                             $rule->{'args'} =~
+                               s/\s+(!?)\s*($a)\s+(!?)\s*('[^']*')(\s+|$)/ / ||
                              $rule->{'args'} =~
                               s/\s+(!?)\s*($a)\s+(!?)\s*(([^ \-!]\S*(\s+|$))+)/ / ||
                              $rule->{'args'} =~
@@ -160,7 +162,9 @@ foreach $r (@{$_[0]->{'rules'}}) {
                        foreach $ag (@al) {
                                local $n = shift(@$ag);
                                local @w = ( $n ? ( $n ) : (), $a, @$ag );
-                               @w = map { $_ =~ /\s/ ? "\"$_\"" : $_ } @w;
+                               @w = map { $_ =~ /'/ ? "\"$_\"" :
+                                          $_ =~ /"/ ? "'".$_."'" :
+                                          $_ =~ /\s/ ? "\"$_\"" : $_ } @w;
                                $line .= " ".join(" ", @w);
                                }
                        }