# $Header: /home/cvsroot/tcldb/wisql/Tlib/logMsg,v 1.1.1.1 1996/10/12 02:26:27 de Exp $
# tcl procs saved on Tue Sep 05 09:33:02 PDT 1995

proc logMsg msg {

	set rundate [fmtclock [getclock] "%h %d %Y %H:%M"]


	if {[termCheck]} {
		set err [catch {set out [open wisql.log a]}]
		if {$err} {
			set out [open wisql.log w]
		}
		set logsize [file size wisql.log]
		if {$logsize > 500000} {
			set warning "ATTENTION PLEASE:  your wisql.log file is now larger than a half-megabyte."
      			.m.o.out insert end "$warning"
		}
		set msg [format "%s\t%s" $rundate $msg]
		puts $out "$msg"
		close $out
	} else {

		puts stdout "$msg"
	}
}

