# $Header: /home/cvsroot/tcldb/wisql/Tlib/doSaveOut,v 1.4 1998/03/14 08:17:34 de Exp $
# tcl procs saved on Tue Sep 05 09:32:41 PDT 1995

proc doSaveOut {win filename} {

  global cmdIdx
  global cmdLast
  set cmdIdx $cmdLast
  global uname
  global Sheet CellValues
  global MsgW

  set openrc [catch {set f [open $filename w]}]
  
  if $openrc==1 {
    setMsg $MsgW "Error: $filename could not be opened, not saved"
    return
  }

  set text [.m.o.out get 1.0 end]
  if {$text == ""} {
    setMsg $MsgW "No output to save"
    close $f
    return
  }

# DC hack to get some kind of header into output files

  set datetime ""
  catch {set datetime [exec date]}

  if {$datetime == ""} {
  set banner "WISQL output: Date function not available via exec on this host.\n\n"
  } else {
  set banner "WISQL output: $datetime run by [id user] as Sybase user $uname\n\n"
  }

  puts $f "$banner"
  puts $f "$text"

  close $f
  setMsg $MsgW "Results saved to $filename"
  destroy $win

}

