#!/usr/bin/perl
# $Id: delrtkey,v 1.3 2001/02/10 21:17:00 stes Exp $

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

$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 rule show |");

while (<PIPE>) {
   if (/lookup ([\w\d]+)/) {
   $name=$1;
   print MENU "name=$num. $name\n";
   print MENU "action=`$IPMENU/rmrtkey $name`close\n";
   }
   $num++;
}

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

