#!/usr/bin/perl
# $Id: addprio,v 1.1 2001/02/17 14:34:31 stes Exp $

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

$dev=$ARGV[0];

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

formprio($form,"$dev");

print "open $form\n";

