#!/usr/bin/perl
# $Id: addred,v 1.1 2001/02/17 19:41:08 stes Exp $

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

$dev=$ARGV[0];

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

formred($form,"$dev");

print "open $form\n";

