pro mk_opsdb_list, outdir=outdir
;+
;NAME:
;	mk_opsdb_list
;PURPOSE:
;	To dump the current status of the database into a text file.
;	The job is intended to run as a cron job every hour
;HISTORY:
;	Written 15-Oct-99 by R.Bush
;	Converted the go_mk_opsdb_list batch job into a standalone procedure.
;-
;
if(n_elements(outdir) eq 0) then outdir = getenv('MDI_CAL_INFO')

print, outdir

setenv, 'MDI_OPSDB_TYPE=PREP'

opsdb_print, /cam, /sort_lab, /quiet,		outfil=concat_dir(outdir, 'opsdb_all.cam')
opsdb_print, /obs, /sort_lab, /quiet,		outfil=concat_dir(outdir, 'opsdb_all.obs')

opsdb_print, /cam, /sort_id, /quiet,		outfil=concat_dir(outdir, 'opsdb_all_id.cam')
opsdb_print, /obs, /sort_id, /quiet,		outfil=concat_dir(outdir, 'opsdb_all_id.obs')

opsdb_print, /cam, /active, /sort_lab, /quiet,	outfil=concat_dir(outdir, 'opsdb_active.cam')
opsdb_print, /obs, /active, /sort_lab, /quiet,	outfil=concat_dir(outdir, 'opsdb_active.obs')

opsdb_print, /cam, /active, /sort_id, /quiet,	outfil=concat_dir(outdir, 'opsdb_active_id.cam')
opsdb_print, /obs, /active, /sort_id, /quiet,	outfil=concat_dir(outdir, 'opsdb_active_id.obs')

opsdb_print, /ipreg, /active, /sort_addr, /quiet, outfil=concat_dir(outdir, 'opsdb_active.ipreg')
opsdb_print, /qadr, /active, /sort_addr, /quiet,  outfil=concat_dir(outdir, 'opsdb_active.qadr')

opsdb_print, /all, /quiet,			outfil=concat_dir(outdir, 'opsdb_all.everything')

opsdb_print, xx, 20, /cam, /noheader, /quiet,	outfil=concat_dir(outdir, 'opsdb_cam_files.rdb')
opsdb_print, xx, 20, /obs, /noheader, /quiet,	outfil=concat_dir(outdir, 'opsdb_obs_files.rdb')

end