#!/usr/bin/perl
# $Id: replred,v 1.1 2001/02/17 19:41:08 stes Exp $

$IPLOG=$ENV{'IPLOG'};

$i=0;
$dev=$ARGV[$i++];
$limit=$ARGV[$i++];
$min=$ARGV[$i++];
$max=$ARGV[$i++];
$avpkt=$ARGV[$i++];
$burst=$ARGV[$i++];
$probability=$ARGV[$i++];
$bandwidth=$ARGV[$i++];

$cmd="tc qdisc replace $dev";

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

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

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

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

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

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

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

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

