;docformat='rst'
;+
;   Get the necessary database information so that the
;     AIM CIPS processing can write to a database
;   Note that if the database does not match a known one,
;     that nothing will be returned in the user, password,
;     and server variables.
;
; :Author:
;    Chris Jeppesen
;    updated for unit test usage by Bill Barrett
;
;-
;+
; :Params:
;   database: in, required, type=string
;     The name of a Sybase database which is used to select user,
;     password, and server
;   
; :Keywords:
;   user: in, required, type=String
;     The user name for a database connection
;   password: in, required, type=String
;     The password for a database connection
;   url: in, required, type=String
;     The url for an Oracle database connection 
;-
;+
; :Examples:
;     get_database_login_write, 'AIM_CIPS_SCIENCE', user=user, password=password, url=url
;-
pro get_database_login_write, database, user=user, password=password, url=url

   if database eq 'AIM_CIPS_SCIENCE' then begin
      user = 'aimsds'
      password = 'a1m3d3'
      url = 'jdbc:oracle:thin:@aim-oracle-db.lasp.colorado.edu:1521/aimprod'
   endif 
      
   if database eq 'AIM_CIPS_L1S' then begin
      user = 'aimmgr'
      password = 'Xuq203'
      url = 'jdbc:oracle:thin:@aim-oracle-db.lasp.colorado.edu:1521/aimprod'
   endif  
   
end