#!/opt/tcl803/bin/tcl
#
# package require Tclx
# package require Sybtcl
#
loadlibindex /opt/share/tcl/lib/ucodb/ucodb.tlib
#
#
puts stderr "***--- [clock format [clock seconds]] checkUpdate --- ***"
#
set cfiles [glob -nocomplain .#*]
set conf ""
foreach f $cfiles {
	set fn FAIL
	set ver VFAIL
	regexp {\.\#(.+\..+)\.([0-9]+\.[0-9]+)} $f foo fn ver baz
	puts stderr "CONFLICT file $f : $fn version $ver"
	lappend conf $fn
}
#
foreach fn $conf {

	puts stderr "Get $fn the hard way [clock format [clock seconds]]..."
	system "/bin/rm -f  .#$fn.*"
	unlink $fn
	exec cvs update $fn
	puts stderr "\t... got it [clock format [clock seconds]]"

}