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

Fix a couple of bugs involving '-' in config file columns

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5682 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-03-25 16:53:33 +00:00
parent 47f2811b68
commit 40eaf6f671
3 changed files with 25 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
New/Shorewall/Hosts.pm
View File

@ -77,7 +77,7 @@ sub validate_hosts_file()
my $optionsref;
if ( $options && $options ne '-' ) {
if ( $options ne '-' ) {
my @options = split ',', $options;
my %options;

2
New/Shorewall/Tc.pm
View File

@ -323,6 +323,7 @@ sub validate_tc_class( $$$$$$ ) {
$tcref->{ceiling} = convert_rate $full, $ceil;
$tcref->{priority} = defined $prio ? $prio : 1;
unless ( $options eq '-' ) {
for my $option ( split /,/, "\L$options" ) {
my $optval = $tosoptions{$option};
@ -343,6 +344,7 @@ sub validate_tc_class( $$$$$$ ) {
fatal_error "Unknown option ( $option ) for tcclass \"$line\"";
}
}
}
push @tcclasses, "$device:$markval";
}

4
New/Shorewall/Zones.pm
View File

@ -227,6 +227,10 @@ sub determine_zones()
my %zone_hash;
$options = '' if $options eq '-';
$in_options = '' if $in_options eq '-';
$out_options = '' if $out_options eq '-';
$zone_hash{in_out} = parse_zone_option_list( $options || '');
$zone_hash{in} = parse_zone_option_list( $in_options || '');
$zone_hash{out} = parse_zone_option_list( $out_options || '');