#!/usr/bin/perl
# $Id: editprio,v 1.2 2001/02/17 14:48:22 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/) {
    /bands[ ]+([\w\d]+)/;$vpriobands=$1;
    /priomap[ ]+([\d ]+)/;$vpriomap=$1;
  }
}
close(PIPE);

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

formprio($form,"dev $dev root prio");

print "open $form\n";

