# $Header: /home/cvsroot/tcldb/wisql/Tlib/doPrint,v 1.4 1998/08/03 18:30:44 de Exp $
# tcl procs saved on Tue Sep 05 09:32:38 PDT 1995

proc doPrint {} {

global exedir
global uname
  global MsgW
  
  set output [.m.o.out get 1.0 end]
  if {$output == ""}  {
    setMsg $MsgW "No output to print"
    return
  }

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

  set datetime [clock format [clock seconds] ]

  set banner "WISQL output: $datetime run by [id user] as Sybase user $uname\n\n
"
  set output "$banner\n\n$output"

#	DC hack for local smart printing
#
  if [file exists $exedir/anyprint] {
  setMsg $MsgW [exec $exedir/anyprint << $output] 
  } else {
  setMsg $MsgW [exec lp << $output]
  }
}

