# $Header: /home/cvsroot/tcldb/wisql/Tlib/PGtryConnect,v 1.2 1997/08/25 03:14:30 de Exp ${DB}tryConnect,v 2.2 1996/05/21 22:02:50 de Exp $
# tcl procs saved on Tue Sep 05 09:33:17 PDT 1995

proc PGtryConnect {db ser} {

  global pgmsg
  global dbpipe1 dbpipe2 DB
  global server
  global metabase
  global base

  set server $ser
  set base $db
  set uname [id user]

  set retcode [catch {set dbpipe1 [pg_connect $base -host $ser]} error]

  if {$retcode} {
    puts stderr "retcode from pgconnect was $retcode"
    puts stderr "Failed to open pipe to server $ser : $error"
    .s.err configure -text $error
    focus .s.p.pw
  } else {
    puts stderr "CONNECT $ser: dbpipe1 is $dbpipe1"
    destroy .s
    set retcode [catch {set dbpipe2 [pg_connect $base -host $ser]} error]
    PGglobals
    createMain
  } 

}

