#!/usr/bin/perl
# $Id: menuedit,v 1.3 2001/02/08 13:45:56 stes Exp $

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

$table=$ARGV[0];
$chain=$ARGV[1];

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

print MENU "menu=Edit\n";
print MENU "close=`rm -f $menu`nop\n";
print MENU "lifetime=shortterm\n";

open(PIPE,"iptables -t $table -L $chain -v --line-numbers |");
while (<PIPE>) {
  ($num,$pkts,$bytes,$target,$prot,$opt,$idev,$odev,$source,$dst) = split(/[ \t]+/);
  if ($num =~ /[\d]+/) {
   print MENU "name=$num. $target $prot $source $dst\n";
   print MENU "action=`$IPMENU/formedit $table $chain $num`\n";
  }
}
close(PIPE);

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

