#!/usr/bin/perl
# $Id: editbfifo,v 1.1 2001/02/16 19:49:12 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/) {
    /limit ([\w\d]+)/;$vfifolimit=$1;
  }
}
close(PIPE);

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

formfifo($form,"dev $dev root bfifo");

print "open $form\n";

