#!/usr/bin/perl
# $Id: menudelcustom,v 1.1 2001/02/07 18:46:21 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";

@targets = customtargets();

$i=1;
map {
  $target = $_;
  print MENU "name=$i. $target\n";
  print MENU "action=`iptables -X $target`close\n";
  $i++;
} @targets;

close(MENU);
if ($i == 1) {
  print "nop\n";
} else {
  print "open $menu\n";
}

