#!/bin/sh
# the backslash makes the following line a comment to tcl \
exec /usr/local/tcl/bin/tcl "$0" ${1+"$@"}
#
# Version II beta:  includes logic to use magic sybase tables
# for embedded hrefs
#
# Version IIp, new name plotSQL, a clone of searchSQL.5 which 
# attempts to add a crude plotting capability.  This involves
# potentially large ppm files and could be dangerous.
#
#
# set up the basics
set tclroot /usr/local/tcl
loadlibindex $tclroot/local/ucosyb.tlib
#
# hack to extract data from sybase in TSV under www drive
# args server base user pass datafile sqlcmd
#
set wwdir /usr/local/www/www
#
global env
set env(SYBASE) /usr/local/sybase
global debugs
set debugs {}
#
#
global dbpipe1 sybmsg 
set sybmsg(nullvalue) "NULL"
#
set lfp [open /tmp/esql.log w]
set datamartdir $wwdir/datamart
set server [lvarpop argv]
set base [lvarpop argv]
set user [lvarpop argv]
set pass [lvarpop argv]
set dfile [lvarpop argv]
puts $lfp "original argv was $argv"
set sqlcmd "[stringFix2 $argv in]"
set dbpipe1 [sybOpen $base $user $pass $server]
#
puts $lfp "sybOpen $base $user $pass $server"
puts $lfp "and do $sqlcmd"
flush $lfp
#
set dfp [open $dfile w]
set sqt "Exec'd from plotSQL"
set res [doSQL 1]
if {[lindex $res 0] == "ERROR"} {
	puts $lfp "ERROR $sybmsg(msgtext)"
}
#
while {1} {

	set line [sybNext 1]
	if {$line == ""} {break}

	puts $dfp [join $line \t]
}
close $dfp
#
