#!/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 Path and Base Name of UDF Database" }
   1  {  puts stderr "Must Supply Path and Base Name of UDF Database" }
   2  {  set Path [lindex $argv 0]; 
         set ToDo [lindex $argv 1];
         UpdateDb $Path $ToDo }
   default  {  puts stderr "To many arguments" }
}

exit 
