#!/usr/bin/perl
# $Id: editred,v 1.1 2001/02/17 19:41:08 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 (/limit[ ]+([\w\d]+)/) { $vredlimit=$1; }
    if (/min[ ]+([\d ]+)/) { $vredmin=$1; }
    if (/max[ ]+([\d ]+)/) { $vredmax=$1; }
    if (/bandwidth[ ]+([\d ]+)/) { $vredbandwidth=$1; }
    if (/probability[ ]+([\d ]+)/) { $vredprob=$1; }
    if (/burst[ ]+([\d ]+)/) { $vredburst=$1; }
  }
}
close(PIPE);

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

formred($form,"dev $dev root red");

print "open $form\n";

