# $Header: /home/cvsroot/tcldb/ucodb/Tlib/oraStart,v 1.1.1.1 1996/10/12 01:08:26 de Exp $

proc oraStart {user pass dbid} {

	set id "$user/$pass@$dbid"

	set err [catch {set oracon [oralogon $id]}]

	if {$err} {
		puts stderr "sorry, there was an error opening Oracle connection to $dbid"
		return -1
	}

#	echo "connected to Oracle server $dbid as $user"
	return $oracon
}

