#!/usr/bin/perl
# $Id: editroute,v 1.2 2001/02/10 23:51:17 stes Exp $

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

$tab=$ARGV[0];

$menu="$TMP/Menu.$$";
if (!open(MENU,">$menu")) {
  print "`message \"Problem writing to $menu\"`nop\n";exit 0;
}

print MENU "menu=Delete\n";
print MENU "close=`rm -f $menu`nop\n";

$num=1;
open(PIPE,"ip -o route show table $tab |");

while (<PIPE>) {
   if (/^([\w])+[ ]+(default|[\d\.\/]+)/) { 
     $type=$1;$dst=$2;
   } else {
     if (/^(default|[\d\w\.\/]+)/) { 
       $dst=$1;
     } else {
       next;
     }
   }
   print MENU "name=$num. $dst\n";
   print MENU "action=`$IPMENU/editrt $tab $dst`\n";
   $num++;
}

close(MENU);
close(PIPE);
print "open $menu\n";

