QoS-Update - Komplette grafische Ueberarbeitung

[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 0a25a359784e145e596e4aae3d29504a3a985e2e..bd0560c25a0695b033717cb072f476a9ee224012 100644 (file)
--- a/config/qos/parse-func.pl
+++ b/config/qos/parse-func.pl
@@ -131,7 +131,7 @@ sub parse_class($) {
        my $line=$tc_output[$i];
        # Parsing HTB:
        # ------------
-       if ( $line =~ m/class htb (\d+):(\d+)( root| parent )?(\d+:\d?)?( leaf )?(\d+)?:?( prio )?(\d+)? rate (.*) ceil (.*) burst (.*) cburst (.*)/ ) {
+       if ( $line =~ m/class htb (\d+):(\d+)( root| parent )?(\d+:\d+)?( leaf )?(\d+)?:?( prio )?(\d+)? rate (.*) ceil (.*) burst (.*) cburst (.*)/ ) {
            my $type  = "htb";
            my $major = $1;
            my $minor = $2;
@@ -157,8 +157,8 @@ sub parse_class($) {
 #              print "bytes: $bytes\n"."pkts: $pkts\n";
 #              print "dropped: $dropped\n"."overlimits: $overlimits\n";
            } else { 
-               print "$timestamp: ERROR(+1) - Unable to parse (class ${class}_$device): ";
-               print "\"$tc_output[$i + 1]\"\n";
+#              print "$timestamp: ERROR(+1) - Unable to parse (class ${class}_$device): ";
+#              print "\"$tc_output[$i + 1]\"\n";
                $return_val="";
                next;
            }