# $Header: /home/cvsroot/tcldb/wisql/Tlib/SYBtryConnect,v 1.3 1997/08/25 03:14:36 de Exp ${DB}tryConnect,v 1.1.1.1 1996/10/12 02:26:27 de Exp $
# tcl procs saved on Tue Sep 05 09:33:17 PDT 1995

proc SYBtryConnect {id pw ser} {

  global sybmsg
  global dbpipe1 dbpipe2  DB
  global server
  global metabase
  global uname
  global pass
  global base
  global syb

  set server $ser
  set pass $pw
  set uname $id

  if {[info exists metabase($ser)]} {
	set base metabase($ser)
   } else {
	set base ""
   }

  set retcode [catch {set dbpipe1 [sybconnect $id $pw $ser]} error]

#  echo "retcode from sybconnect was $retcode"
#  echo "dbpipe1 is $dbpipe1"

  if $retcode==0 {
    destroy .s
    setMeta $ser
    set retcode [catch {set dbpipe2 [sybconnect $id $pw $ser]} error]
    set base master
    createMain
  } else  {
    .s.err configure -text $error
    focus .s.p.pw
  }
}

