#!/usr/bin/perl
# $Id: formoutdrop,v 1.2 2001/02/07 14:10:29 stes Exp $

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

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

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

formselect($form,'droprule',$flag,$chain,$num,'Drop on Outgoing Interface',0,1);

print "open $form\n";

