proc SYBgetDB {} {

	global mode server base 

  set sqlcmd "sp_helpdb"
  set sqt "NONE"
  set res [doSQL 1]

  set res ""
  while {1} {

	set row [sybNext 1]
	if {$row == ""} {break}

	set dbname [lindex $row 0]

	case $dbname {

	{master tempdb} {
		if {$mode} {
		lappend res $dbname
		}
	}
	{model} {
#		Don't let people look at the model database.
	}
	{default} {
		lappend res $dbname
	}
	}

  }

  return "$res"
}
