#!/usr/bin/perl
# $Id: addcbq,v 1.1 2001/02/19 19:13:53 stes Exp $

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

$dev=$ARGV[0];

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

formcbq($form,"$dev");

print "open $form\n";

