#!/bin/sh
# the next line restarts using wish \
exec tclsh "$0" "$@"

source $env(UDF_HOME)/bin/Procs.tcl

switch -exact -- $argc {
   0  {  puts stderr "Must Supply Base Name of UDF Database" }
   1  {  set ToDo [lindex $argv 0] ; Db_Create $ToDo }
   default  {  puts stderr "To many arguments" }
}

exit 
