extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-01-18 03:29:12 +01:00
Code Issues Packages Projects Releases Wiki Activity

Issue progress messages to display the priority of Shorewall-generated filters

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2012-09-15 07:25:16 -07:00
parent 664dc0b71e
commit adc983bccb
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1138,6 +1138,7 @@ sub validate_tc_class( ) {
} else { } else {
fatal_error "Missing mark priority" if $prio eq '-'; fatal_error "Missing mark priority" if $prio eq '-';
$markprio = ( $prio << 8 ) | 20; $markprio = ( $prio << 8 ) | 20;
progress_message2 " Priority of the $device packet mark $mark filter is $markprio";
} }
$markval = numeric_value( $mark ); $markval = numeric_value( $mark );
@ -1246,6 +1247,7 @@ sub validate_tc_class( ) {
} else { } else {
fatal_error "Missing TOS priority" if $prio eq '-'; fatal_error "Missing TOS priority" if $prio eq '-';
$priority = ( $prio << 8 ) | 15; $priority = ( $prio << 8 ) | 15;
progress_message2 " Priority of the $device $option filter is $priority";
} }
$option = "tos=$optval" if $optval; $option = "tos=$optval" if $optval;
@ -1263,7 +1265,8 @@ sub validate_tc_class( ) {
$tcref->{tcp_ack} = validate_filter_priority( $2, 'tcp-ack' ); $tcref->{tcp_ack} = validate_filter_priority( $2, 'tcp-ack' );
} else { } else {
fatal_error "Missing tcp-ack priority" if $prio eq '-'; fatal_error "Missing tcp-ack priority" if $prio eq '-';
$tcref->{tcp_ack} = ( $prio << 8 ) | 10; my $ackpri = $tcref->{tcp_ack} = ( $prio << 8 ) | 10;
progress_message2 " Priority of the $device tcp-ack filter is $ackpri";
} }
} elsif ( $option =~ /^tos=0x[0-9a-f]{2}$/ ) { } elsif ( $option =~ /^tos=0x[0-9a-f]{2}$/ ) {
fatal_error "The $option option is not valid with 'occurs" if $tcref->{occurs} > 1; fatal_error "The $option option is not valid with 'occurs" if $tcref->{occurs} > 1;