# $Header: /home/cvsroot/tcldb/ucodb/Tlib/sybOpen,v 1.4 1999/12/10 22:06:24 de Exp $
# tcl procs saved on Sun Sep 03 16:18:10 PDT 1995

proc sybOpen {base user pass server} {

        global sybmsg argv0

        set err [catch {set dbpipe [sybconnect $user $pass $server]} res]

#	This hack was put in right after cutover to ASE11 linux,
#	to catch orphan scripts

	set str ""
	if $err {
		append str "ERROR opening Sybase connection to $server as $user\n"
		append str "who:   [id user] \nwhat:  $argv0 \nwhere: [id host]\n"
		append str "when:  [clock format [clock seconds]]"
		set mf /tmp/mail.[clock seconds]
		write_file $mf "$str"
		puts stderr "$str"
		set err [catch {system "/usr/ucb/Mail -s SYBASE_ERROR ksa de < $mf"} res]
		if $err {
		puts stderr "OOPS can't use /usr/ucb/Mail"
		set err [catch {system "/usr/bin/Mail -s SYBASE_ERROR ksa de < $mf"} res]
		}
		unlink $mf
	}

#       echo "Opened database connection $dbpipe"

        sybuse $dbpipe $base

        return $dbpipe

}

