proc pgOpen {base {host {}}} {
# $Header: /home/cvsroot/tcldb/ucodb/Tlib/pgOpen,v 1.3 1996/10/17 05:42:30 de Exp $

        global pgmsg

	if {$host != ""} {
	set dbpipe [pg_connect $base -host $host]
	} else {
	set dbpipe [pg_connect $base]
	} 

        return $dbpipe

}
