#!/usr/bin/perl
# $Id: addsfq,v 1.1 2001/02/17 15:32:39 stes Exp $

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

$dev=$ARGV[0];

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

formsfq($form,"$dev");

print "open $form\n";

