;docformat='rst'
;+
;    Get the information needed for database connectivity
;
; :Author:
;    Lon Riesberg
;    Bill Barrett -- update for Oracle
;
;-
;+
; :Params:
;   database: in / out, required, type=String
;     The name of an Oracle database which is used to select user,
;     password, and url
;
; :Keywords:
;   user: out, required, type=String
;     The user name for a database connection
;   password: out, required, type=String
;     The password for a database connection
;   url: in, required, type=String
;     The url for an Oracle database connection 
;   write: in, optional, type=boolean
;     if set, get the information about the database to be written to
;-
;+
; :Examples:
;     get_database_login, 'AIM_CT_SC', user=user, password=password, url=url
;-
pro get_database_login, database, user=user, password=password, url=url, write=write

	if KEYWORD_SET(write) then begin
		get_database_login_write, database, user=user, password=password, url=url
	endif else begin
	
		; AIM TLM
		if database eq 'AIM_CT_SC' then begin
			user = 'aim'
			password = 'aimdb'
			url = 'jdbc:oracle:thin:@aim-oracle-db.lasp.colorado.edu:1521/aimprod'
		endif
		if database eq 'AIM_L1A' then begin
			user = 'aim'
			password = 'aimdb'
      url = 'jdbc:oracle:thin:@aim-oracle-db.lasp.colorado.edu:1521/aimprod'
		endif
		if database eq 'AIM_L1' then begin
			user = 'aim'
			password = 'aimdb'
      url = 'jdbc:oracle:thin:@aim-oracle-db.lasp.colorado.edu:1521/aimprod'
		endif
		
		; CIPS
		if database eq 'AIM_CIPS_L1S' then begin
			user = 'aim'
			password = 'aimdb'
      url = 'jdbc:oracle:thin:@aim-oracle-db.lasp.colorado.edu:1521/aimprod'
		endif
		if database eq 'AIM_CIPS_SCIENCE' then begin
			user = 'aim'
			password = 'aimdb'
      url = 'jdbc:oracle:thin:@aim-oracle-db.lasp.colorado.edu:1521/aimprod'
		endif
				
	endelse
end