#!/opt/tcl831/bin/sytcl
#
# package require Tclx
# package require Sybtcl
#
loadlibindex /opt/share/tcl/lib/ucodb/ucodb.tlib
set server YAKUZA
set err [catch {set dbpipe1 [sybOpen metabase zorro SecretPassword $server]} res]
if $err {
        puts stderr "OUCH can't get sybase pipe"
        puts stderr "ERR  $res"
        exit 1
}
set blutbl metabase.dbo.MaskBlu
set msktbl metabase.dbo.Mask
#
puts stderr "\n***---------processUpdates reconciles YAKUZA w/WAIAHA----------***"
puts stderr "***---------[clock format [clock seconds]]----------***"
#
# this sets the Change array
source Notify.MaskBlu.tcl
source Notify.Mask.tcl
#
# twiddle status flag
foreach e [array names Change $blutbl,*] {
	lassign [split $e ,] fqt kv
	set sqt $fqt
	set sqlcmd $Change($e)
	puts stderr "SQL : $sqlcmd"
	doSQL 1
}
#
# add new scans
foreach e [array names Change $msktbl,*] {
	lassign [split $e ,] fqt kv
	set sqt $fqt
	set sqlcmd "select count(*) from $msktbl where maskid=$kv"
	doSQL 1
	set ct [sybNext 1]
	if {$ct} {
		puts stderr "Mask barcode $kv already exists.  REPLACING it."
		set sqlcmd "delete from $msktbl where maskid = $kv"
		puts stderr "SQL : $sqlcmd"
		doSQL 1
	}
	set sqlcmd  $Change($e)
	puts stderr "SQL : $sqlcmd"
	doSQL 1
}
#
# and bob's yer uncle
puts stderr "DONE with update from waiaha"
#