@tr_decode_head
;HISTORY:
;	WRitten 1997 by M.Morrison
;	28-Mar-97 (MDM) - Added ssw upgrading nightly
;	14-Apr-97 (MDM) - Added /ssw and /tsw backups (weekly/monthly)
;	21-May-97 (MDM) - Removed mirror of /ssw (do it by go_update_ssw)
;	11-Jun-97 (MDM) - Added /mdisw backups
;
;---------------- HK Listing Updates -----------------
;
pr_hk_info, '$MDI_CAL_INFO/xhkplot_mnem.full_lst', /nohead
pr_hk_info, '$MDI_CAL_INFO/pr_hk_info.txt',/format

;
;---------------- Update directory listing for ANA -------
;
dirs = get_i0_dirs()
prstr, dirs, file='$MDI_CAL_INFO/data_dirs.lst
;
;
;---------------- Weekly/monthly /ssw backup -------
;
do_reg_backup, 'week',  '/ssw', '/data13/backups/ssw', /check
do_reg_backup, 'month', '/ssw', '/data13/backups/ssw', /check
;
do_reg_backup, 'week',  '/tsw', '/data13/backups/tsw', /check, levels=0
do_reg_backup, 'month', '/tsw', '/data13/backups/tsw', /check, levels=0
;
do_reg_backup, 'week',  '/mdisw', '/data13/backups/mdisw', /check
do_reg_backup, 'month', '/mdisw', '/data13/backups/mdisw', /check
;
;---------------- Copy TSTOLs to /tsw ----------
;
spawn, 'cp -p /td10/sunflower/procs/inst/*.proc /tsw/tstol/IandT'

end