From 8e96d1f6674c3649aa2c8266352f9909ed011b81 Mon Sep 17 00:00:00 2001 From: Stephen Hemminger Date: Wed, 30 Jan 2008 14:28:27 -0800 Subject: fix typos in management of match rules the code here still doesn't work but fix obvious stuff. --- scripts/VyattaQosMatch.pm | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/scripts/VyattaQosMatch.pm b/scripts/VyattaQosMatch.pm index 72f7a36..59e0477 100644 --- a/scripts/VyattaQosMatch.pm +++ b/scripts/VyattaQosMatch.pm @@ -27,14 +27,14 @@ sub new { return $self; } -sub _tos { - my $tos = shift; +sub _dsfield { + my $dsfield = shift; my $ret = undef; - if ( defined $tos ) { - $ret = VyattaQosUtil::getDsfield($tos); + if ( defined $dsfield ) { + $ret = VyattaQosUtil::getDsfield($dsfield); if ( !defined $ret ) { - $tos = hex($tos); + $dsfield = hex($dsfield); } } return $ret; @@ -48,12 +48,13 @@ sub _define { $self->{_vlan} = $config->returnValue("vif"); $self->{_dev} = $config->returnValue("interface"); - $self->{_ip}->{_tos} = _tos( $config->returnValue("ip tos") ); + $self->{_ip}->{_dsfield} = _dsfield( $config->returnValue("ip dsfield") ); $self->{_ip}->{_protocol} = $config->returnValue("ip protocol"); $self->{_ip}->{_src} = $config->returnValue("ip source address"); $self->{_ip}->{_dst} = $config->returnValue("ip destination address"); + $self->{_ip}->{_sport} = $config->returnValue("ip source port"); - $self->{_ip}->{_dport} = $config->returnValue("ip source dport"); + $self->{_ip}->{_dport} = $config->returnValue("ip destination port"); } sub filter { @@ -64,9 +65,9 @@ sub filter { # TODO match on vlan, device, ... if (defined $self->{_ip}) { print {$out} " u32"; - print {$out} " match ip tos $self->{_ip}->{_tos} 0xff" - if defined $self->{_ip}->{_tos}; - print {$out} " match ip protocol $self->{_ip}->{_protcol} 0xff" + print {$out} " match ip dsfield $self->{_ip}->{_dsfield} 0xff" + if defined $self->{_ip}->{_dsfield}; + print {$out} " match ip protocol $self->{_ip}->{_protocol} 0xff" if defined $self->{_ip}->{_protocol}; print {$out} " match ip src $self->{_ip}->{_src}" if defined $self->{_ip}->{_src}; -- cgit v1.2.3