#!/usr/bin/perl
# $Id: editclass,v 1.4 2001/02/22 19:51:43 stes Exp $

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

$dev=$ARGV[0];
$handle=$ARGV[1];
$classid=$ARGV[2];
$parentid=$ARGV[3];

$vclassbounded='NO';
$vclassisolated='NO';

open(PIPE,"tc -d class show dev $dev |");
while (<PIPE>) {
  if (/class [\w]+ ([\d\w:]+)/) {
    $curid=$1;
  }

  if ($curid eq "$handle:$classid") {
    if (/rate[ ]+([\w\d]+)/) { $vclassrate=$1; }
    if (/bounded/) { $vclassbounded='YES'; }
    if (/isolated/) { $vclassisolated='YES'; }
    if (/prio[ ]+([\d]+)/) { $vclassprio=$1; }
    if (/avpkt[ ]+([\d\w]+)/) { $vclassavpkt=$1; }
    if (/allot[ ]+([\d\w]+)/) { $vclassallot=$1; }
    if (/weight[ ]+([\d\w]+)/) { $vclassweight=$1; }
  }
}
close(PIPE);

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

formclass($form,$dev,"$handle:$classid","$handle:$parentid");

print "open $form\n";

