#!/usr/bin/perl
# $Id: repltbf,v 1.1 2001/02/16 17:07:21 stes Exp $

$IPLOG=$ENV{'IPLOG'};

$i=0;
$dev=$ARGV[$i++];
$limit=$ARGV[$i++];
$burst=$ARGV[$i++];
$rate=$ARGV[$i++];
$mtu=$ARGV[$i++];
$peakrate=$ARGV[$i++];
$latency=$ARGV[$i++];

$cmd="tc qdisc replace $dev tbf";

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

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

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

if ("x$mtu" ne "xUnused" and "x$mtu" ne "x") {
  $cmd="$cmd mtu $mtu";
}

if ("x$peakrate" ne "xUnused" and "x$peakrate" ne "x") {
  $cmd="$cmd peakrate $peakrate";
}

if ("x$latency" ne "x" and "x$latency" ne "xUnused") { 
  $cmd="$cmd latency $latency";
}

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

