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

Correct patch for > 9 interfaces with tcfilters

Browse Source
This commit is contained in:
Tom Eastep 2011-05-02 09:52:31 -07:00
parent 46e2a02fe4
commit 453eba2f54
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Shorewall/Perl/Shorewall/Config.pm
View File

@ -61,6 +61,7 @@ our %EXPORT_TAGS = ( internal => [ qw( create_temp_script
disable_script
numeric_value
numeric_value1
normalize_hex
hex_value
in_hex
in_hex2
@ -811,6 +812,14 @@ sub numeric_value1 ( $ ) {
use warnings;
}
sub normalize_hex( $ ) {
my $val = shift;
$val =~ s/^0x//;
$val =~ s/^0// while length $val > 1;
$val;
}
sub hex_value( $ ) {
my $val = lc $_[0];
$val =~ s/^0x//;

2
Shorewall/Perl/Shorewall/Tc.pm
View File

@ -981,7 +981,7 @@ sub process_tc_filter() {
( $device , my $devref ) = dev_by_number( $device );
my $devnum = in_hex $devref->{number};
my $devnum = in_hexp $devref->{number};
my $tcref = $tcclasses{$device};