#!/usr/bin/perl
# $Id: replroute,v 1.4 2001/02/24 21:50:29 stes Exp $

$IPLOG=$ENV{'IPLOG'};

$i=0;
$rtkey=$ARGV[$i++];
$type=$ARGV[$i++];
$dst=$ARGV[$i++];
$dev=$ARGV[$i++];
$via=$ARGV[$i++];
$src=$ARGV[$i++];
$scope=$ARGV[$i++];
$proto=$ARGV[$i++];

$cmd="ip route replace table $rtkey ";

if ("x$type" ne "x" and "$type" ne "unicast") {
  $cmd="$cmd $type";
}

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

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

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

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

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

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

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

