Merge branch 'hollywood' of suva.vyatta.com:/git/vyatta-cfg-qos into hollywood

1 files changed, 18 insertions, 0 deletions

diff --git a/scripts/VyattaQosTrafficShaper.pm b/scripts/VyattaQosTrafficShaper.pm
index 5ba60dd..f321e9b 100644
--- a/scripts/VyattaQosTrafficShaper.pm
+++ b/scripts/VyattaQosTrafficShaper.pm
@@ -253,9 +253,27 @@ sub new {
     bless $self, $class;
     $self->_define($config);
 
+    $self->_validate($config);
+
     return $self;
 }
 
+sub _validate {
+    my $self = shift;
+
+    if ( $self->{_rate} ne "auto" ) {
+	my $classes = $self->{_classes};
+	my $default = shift @$classes;
+	my $rate = VyattaQosUtil::getRate($self->{_rate});
+
+	$default->rateCheck($rate, "$self->{_level} default");
+
+	foreach my $class (@$classes) {
+	    $class->rateCheck($rate, "$self->{_level} class $class->{id}");
+	}
+    }
+}
+
 # Rate can be something like "auto" or "10.2mbit"
 sub _getAutoRate {
     my ($rate, $dev) = @_;