pro sumer_config_def, dummy ;+ ; NAME: SUMER_CONFIG_DEF ; PURPOSE: ; Define the default SUMER configurations ; Modified, 1-Dec-1998, Zarro (SM&A) -- added path to SOHO-ARCHIVE ;- cd, current=work_dir defsysv, '!sumer_config', exist=exist if exist eq 1 then s=execute('a=!sumer_config') $ else a={work_dir:'', $ data_dir:'', $ aux_dir:'', $ access:'', $ ftp_node:'', $ ftp_os:'', $ ftp_user:'', $ ftp_passwd:''} a.work_dir = work_dir a.data_dir = work_dir def_aux_dir= '/home/filament/chae/sumer' aux_dir=trim(getenv('SUMER_DBASE')) if aux_dir eq '' then aux_dir=def_aux_dir a.aux_dir = aux_dir a.access = 'AUTO-FTP' a.ftp_node = '' a.ftp_os = 'unix' a.ftp_user = strlowcase(getenv('USER')) if exist ne 1 then defsysv, '!sumer_config', a else s=execute('!sumer_config=a') end