#!/usr/bin/perl
# $Id: replprio,v 1.1 2001/02/17 14:34:31 stes Exp $

$IPLOG=$ENV{'IPLOG'};

$i=0;
$dev=$ARGV[$i++];
$bands=$ARGV[$i++];
$priomap=$ARGV[$i++];

$cmd="tc qdisc replace $dev";

if ("x$bands" ne "x") {
  $cmd="$cmd bands $bands";
}
if ("x$priomap" ne "x") {
  $cmd="$cmd priomap $priomap";
}

system("$cmd") if "x$cmd" ne "x";
system("echo \"$cmd\" >> $IPLOG");

