Ein Paar Dateien fuer die GPLv3 angepasst.

[people/pmueller/ipfire-2.x.git] / config / qos / parse-func.pl

diff --git a/config/qos/parse-func.pl b/config/qos/parse-func.pl
index 9779315ee012c8f37887c6b570acd5545d7c40ee..bdd0e69f07410ce32ed55342f2ba16305775d976 100644 (file)
--- a/config/qos/parse-func.pl
+++ b/config/qos/parse-func.pl
@@ -24,7 +24,6 @@
 ##   2004-04-15:  Initial version.
 ##   2005-04-18:  Remove some warnings.
 ##
-## $Id: parse-func.pl,v 1.15 2005/04/18 12:37:17 hawk Exp $
 ##########################################
 
 #use Data::Dumper;
@@ -145,17 +144,18 @@ sub parse_class($) {
            my $burst = $11;
            my $cburst= $12;
 
-#          print "class: $class\n"."parent: $parent\n"."leaf: $leaf\n"."prio: $prio\n";
-#          print "rate: $rate\n"."ceil: $ceil\n"."burst: $burst\n"."cburst: $cburst\n";
+           #print "class: $class\n"."parent: $parent\n"."leaf: $leaf\n"."prio: $prio\n";
+           #print "rate: $rate\n"."ceil: $ceil\n"."burst: $burst\n"."cburst: $cburst\n";
            
            my ($bytes, $pkts, $dropped, $overlimits);
-           if ($tc_output[$i + 1] =~ m/Sent (\d+) bytes (\d+) pkts \(dropped (\d+), overlimits (\d+)\)/ ) {
+           if ($tc_output[$i + 1] =~ m/Sent (\d+) bytes (\d+) pkt \(dropped (\d+), overlimits (\d+) requeues (\d+)\)/ ) {
                $bytes      = $1;
                $pkts       = $2;
                $dropped    = $3;
                $overlimits = $4;
-#              print "bytes: $bytes\n"."pkts: $pkts\n";
-#              print "dropped: $dropped\n"."overlimits: $overlimits\n";
+               $requeues   = $5;
+               #print "bytes: $bytes\n"."pkts: $pkts\n";
+               #print "dropped: $dropped\n"."overlimits: $overlimits\n"."requeues: $requeues\n";
            } else { 
                print "$timestamp: ERROR(+1) - Unable to parse (class ${class}_$device): ";
                print "\"$tc_output[$i + 1]\"\n";