#!/usr/bin/perl
# $Id: editsfq,v 1.1 2001/02/17 15:32:39 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/) {
    if (/quantum[ ]+([\w\d]+)/) { $vsfqquantum=$1; }
    if (/perturb[ ]+([\d ]+)/) { $vsfqperturb=$1; }
  }
}
close(PIPE);

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

formsfq($form,"dev $dev root sfq");

print "open $form\n";

