michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-05-04 22:30:33 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Handle " and ' in comments

Browse Source 
https://sourceforge.net/tracker/?func=detail&atid=117457&aid=3426769&group_id=17457
This commit is contained in:
Jamie Cameron
2011-10-21 15:42:11 -07:00
parent 40a9d55899
commit b076700e32
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
firewall/firewall-lib.pl
View File

@@ -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);
}
}