#!/opt/tcl803/bin/sytcl
#
# we run at 11 am HST
#
# run lightweight MetaMaint first.
#
loadlibindex /opt/share/tcl/lib/ucodb/ucodb.tlib
global env
global sybmsg
#
set base metabase
set server KSUMMIT
set uname guest
set pass harmless
#
set err [catch {set dbpipe1 [sybOpen $base $uname $pass $server]} res]
if {!$err} {
set dbpipe2 [sybOpen $base $uname $pass $server]
} else {
        puts stderr "NO SYBASE CONNECTION $res"
	exit
}
#
set lfp [open /u/de/UpdateMe.log a]
#
set now [clock seconds]
set datestr [clock format $now]
#
puts $lfp "********************** RUN ************************"
puts $lfp "DATE STR $datestr, TOY $now"
lassign $datestr wday mon day time zone year
puts $lfp "wday\t$wday\nday\t$day\nmon\t$mon\ntime\t$time\nzone\t$zone\nyear\t$year"
#
# we are now called from MetaMaint variant MetaStomp
# this stuff is unnecssary
# exec /u/sybase/MetaMaint
# exec /u/sybase/GetLatest
#
#
#	we have just done cvs update and commit
	cd /u/de/cvs/metabase
	puts $lfp "Moving cvs data to xerox dir"
	system "/bin/cp *.dat /u/de/data/xerox"
	system "/bin/cp YAKUZA/*.sql /u/de/data/xerox"
	system "/bin/cp YAKUZA/Reload.metabase.csh /u/de/data/xerox"
#
	set then [clock seconds]
	puts $lfp "DO UPDATE"
	cd /u/de/data/xerox
	set err [catch {exec /u/de/data/xerox/UpdateSelf2.csh >! UpdateSelf.log 2>&1 } res]
	set now [clock seconds]
	puts $lfp "exec /u/de/data/xerox/UpdateSelf2.csh : [expr $now - $then] sec"
	if {$err} {
		puts $lfp "ERROR on UpdateSelf2 exec, $res"
	}
	set sqlcmd "update metabase.dbo.LastXerox set stamp = getdate() where server = 'KSUMMIT'"
	doSQL 1
	puts $lfp "wrote stamp into LastXerox for later reference"

set datestr [clock format [clock seconds]]
write_file /u/de/LastUpdate.waiaha $datestr

close $lfp