proc PGgetDB {} {

	global base server mode

  set sqlcmd "select * from pg_database"
  set sqt "pg_database"
  lassign [pgSQL 1] ct han res

  if {[lindex $res 0] == "ERROR"} {
        echo "Serious problem here"
        echo "$sqlcmd"
        echo "$res"
        exit 1
  }

  set res ""
  loop i 1 [expr {$ct + 1}] {

  	set row [pgNext $han]
  	if {$row == ""} {break}
        if {[string first TUPLES $row] >= 0} {continue}

  	if {[crange $row 0 4] == "ERROR"} {
		puts stderr "ERROR getting DB: $row"
		break
	}

  	lassign $row dbname dbownid dbdir

	case $dbname {
	{template1 regression} {
		if {$mode} {
		lappend res $dbname
		}
	}
	{default} {
		lappend res $dbname
	}
	}

  }

  return "$res"
}

