Move getAutoRate into Util

The getAutoRate function is needed by WRED as well

1 files changed, 20 insertions, 1 deletions

diff --git a/lib/Vyatta/Qos/Util.pm b/lib/Vyatta/Qos/Util.pm
index c78e762..3aefbd8 100644
--- a/lib/Vyatta/Qos/Util.pm
+++ b/lib/Vyatta/Qos/Util.pm
@@ -20,7 +20,7 @@ use strict;
 use warnings;
 
 our @EXPORT =
-  qw(getRate getPercent getBurstSize getProtocol getDsfield getTime);
+  qw(getRate getPercent getBurstSize getProtocol getDsfield getTime getAutoRate);
 our @EXPORT_OK = qw(interfaceRate getIfIndex);
 use base qw(Exporter);
 
@@ -65,6 +65,25 @@ my %rates = (
     'tbps'  => 8000000000000.,
 );
 
+# Rate can be something like "auto" or "10.2mbit"
+sub getAutoRate {
+    my ( $rate, $dev ) = @_;
+
+    if ( $rate eq "auto" ) {
+        $rate = interfaceRate($dev);
+        if ( !defined $rate ) {
+            print STDERR
+              "Interface $dev speed cannot be determined (assuming 10mbit)\n";
+            $rate = 10000000;
+        }
+    }
+    else {
+        $rate = getRate($rate);
+    }
+
+    return $rate;
+}
+
 sub getRate {
     my $rate = shift;
     my ( $num, $suffix ) = get_num($rate);