#!/usr/bin/perl
# $Id: forminaccept,v 1.1 2001/02/07 12:15:24 stes Exp $

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

$flag=$ARGV[0];
$chain=$ARGV[1];
$num=$ARGV[2];

$form="$TMP/Form.$$";

formselect($form,'acceptrule',$flag,$chain,$num,'Accept on Incoming Interface',1,0);

print "open $form\n";

