#!/usr/bin/perl
# $Id: edittbf,v 1.1 2001/02/16 17:07:21 stes Exp $

$IPMENU=$ENV{'IPMENU'};
require "$IPMENU/ipmenu.lib";

$dev=$ARGV[0];
$handle=$ARGV[1];

open(PIPE,"tc -r qdisc show dev $dev |");
while (<PIPE>) {
  if (/$handle/) {
    /rate ([\w\d]+)/;$vtbfrate=$1;
    /burst ([\w\d]+)/;$vtbfburst=$1;
    /limit ([\w\d]+)/;$vtbflimit=$1;
    /lat ([\w\d]+)/;$vtbflatency=$1;
  }
}
close(PIPE);

$form="$TMP/Form.$$";

formtbf($form,"dev $dev root");

print "open $form\n";

