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

Fix a couple of issues with Simple TC

Browse Source
This commit is contained in:
Tom Eastep 2010-06-12 13:50:11 -07:00
parent 625f254d02
commit 9acec39898
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -492,9 +492,10 @@ sub process_simple_device() {
$command .= " burst $burst"; $command .= " burst $burst";
} else { } else {
fatal_error "Missing OUT-BANDWIDTH Burst ($out_part)"; fatal_error "Missing OUT-BANDWIDTH Burst ($out_part)";
}
if ( defined $latency && $latency ne '' ) { if ( defined $latency && $latency ne '' ) {
fatal_error "Invalid latency ($latency)" unless $latency =~ /\d+(s|sec|secs|ms|msec|msecs|us|usec|usecs)$?/ fatal_error "Invalid latency ($latency)" unless $latency =~ /\d+(s|sec|secs|ms|msec|msecs|us|usec|usecs)$?/;
$command .= " latency $latency" $command .= " latency $latency"
} else { } else {
fatal_error "Missing OUT-BANDWIDTH Latency ($out_part)"; fatal_error "Missing OUT-BANDWIDTH Latency ($out_part)";