holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Outlaw backslash characters in config files

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6312 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-05-09 21:17:37 +00:00
parent 79972e028d
commit 5a52ee2f90
2 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Shorewall-perl/Shorewall/Chains.pm
View File

@ -264,7 +264,6 @@ my $chainseq;
sub process_comment() { sub process_comment() {
if ( $capabilities{COMMENTS} ) { if ( $capabilities{COMMENTS} ) {
( $comment = $line ) =~ s/^\s*COMMENT\s*//; ( $comment = $line ) =~ s/^\s*COMMENT\s*//;
fatal_error "Invalid COMMENT line" if length $line >= 2 && substr( $line, -1) eq '\\';
} else { } else {
warning_message "COMMENT ignored -- requires comment support in iptables/Netfilter"; warning_message "COMMENT ignored -- requires comment support in iptables/Netfilter";
} }

1
Shorewall-perl/Shorewall/Config.pm
View File

@ -310,6 +310,7 @@ sub split_line( $$$ ) {
my ( $mincolumns, $maxcolumns, $description ) = @_; my ( $mincolumns, $maxcolumns, $description ) = @_;
fatal_error "Shorewall Configuration file entries may not contain double quotes" if $line =~ /"/; fatal_error "Shorewall Configuration file entries may not contain double quotes" if $line =~ /"/;
fatal_error "Shorewall Configuration file entries may not contain backslash characters" if $line =~ /\\/;
my @line = split /\s+/, $line; my @line = split /\s+/, $line;