PRO setDICalConfig, config

;;-----------------------------------------------------------------------------
;; PURPOSE:
;;	Writes the configuration of the program into 'dical.config'. 
;;
;; CALLING SEQUENCE:
;;	setDICalConfig, config
;;
;; REQUIRED INPUTS:
;;	config - A configuration structure with the configuration to save. The
;;		tags are:
;;		calibDir - local directory which is the root of the calibration
;;			files.
;;		sqlServers - array of sqlServer structures specifying the
;;			SQL servers to try and connect to.
;;
;; OUTPUTS:	
;;
;; OPTIONAL INPUT KEYWORDS:
;;
;; EXAMPLE:
;;      IDL> setDICalConfig(config)
;;
;; PROCEDURES USED (i.e. called directly!):
;;
;; MODIFICATION HISTORY:
;;   	2004-08-13  M. Desnoyer - Created
;;
;;-----------------------------------------------------------------------------
fn = getenv('DICAL_PATH')
IF fn NE '' THEN fn = fn + path_sep()
fn = fn+'dical.config'

SAVE, config, filename=fn

END