#!/usr/bin/csh

;################################################################
;
;  Setup
;
;################################################################
#source ~/.login
source ~/.cshrc
echo "start of mk_atlas_cron_all script"
;setenv DISPLAY cds5.bnsc.rl.ac.uk:0
printenv DISPLAY

;################################################################
;
;  Start CIDL
;
;################################################################
cidl<<done

;################################################################
;
;  Add ~/atlas/IDL_prog folder to the !PATH
;
;################################################################
add_path,'/home/master/atlas/IDL_prog'

;################################################################
;
;  Reset the following environment variable to a null string.
;  Not sure why yet.
;
;################################################################
setenv,"CDS_FITS_DATA_W=" 

;################################################################
;
;  Print some useful info
;
;################################################################
print,'Starting....'
print,systime()

;################################################################
;
;  We need an IDL plot window
;
;################################################################
set_plot,'X'
window,0,xs=600,ys=650

;################################################################
;
;  Use EOF cat and data
;
;################################################################
use_eof_cat
use_eof_data

;################################################################
;
;  Update the atlas - new FITS files are listed in the
;  /cs/lrg_data/headcat/newfits text file. Read this list
;  and pass it into (the IDL procedure) mk_atlas
;
;################################################################
get_utc,utc
print,'Updating atlas...'
newfits_fullname = concat_dir('CDS_HEAD_CAT','newfits')
f = rd_ascii(newfits_fullname)

    ;
    ;    Modified by JAR 3-Sep-2007. Added code to copy "newfits"
    ;    to directory
    ;    "/usr/local/html_docs/software/cron_jobs/newfits_dir"
    ;    with a dated/timed name (like "newfits_20070903_150617").
    ;    Then create a listing of this directory in "index.html"
    ;
      new_pathname  = '/usr/local/html_docs/software/cron_jobs/newfits_dir'
      now_time      = anytim2cal(systim(),form=8,/time)
      now_date      = anytim2cal(systim(),form=8,/date)
      new_basename  = STRJOIN(['newfits',now_date,now_time],'_',/SINGLE)
      new_filename  = CONCAT_DIR(new_pathname,new_basename)
      FILE_COPY , newfits_fullname , new_filename , /OVERWRITE
    ;
      newfits_files = FILE_SEARCH(new_pathname,'newfits_*')
      mk_newfits_html , newfits_files 
    ;
    ; Normal service resumes
    ;

mk_atlas,f,/all
print,systime()
retall

;################################################################
;
;  Make sure comments are up to date
;
;################################################################
update_gif_comm
print,systime()
retall

;################################################################
;
;  Update the synoptic atlas
;
;################################################################
mk_syn_atlas, /new
print,systime()
retall

;################################################################
;
;  Update the atlas html files for last year and this
;
;################################################################
thisyear = fix(strmid(anytim2cal(utc,form=11),0,4))

headcat,cat,y=(thisyear-1)
for i=1,12 do mk_atlas_html_new,(thisyear-1),i,cat
print,systime()
retall

get_utc,utc
d = anytim2cal(utc,f=8)
mon = fix(strmid(d,4,2))
headcat,cat,y=thisyear
for i=1,mon do mk_atlas_html_new,thisyear,i,cat

print,systime()
retall

;################################################################
;
;  Write latest image details
;
;################################################################
wr_latest_image
retall

;################################################################
;
;  Create nisat html code
;
;################################################################
create_nisat_html,(thisyear-1)
retall

create_nisat_html,thisyear
retall

;################################################################
;
;  Add the SYNOP OV velocity maps
;
;################################################################
add_vel_map
;
get_utc,utc
doy = utc2doy(utc)
if doy eq 1 then check_4_velmap,(thisyear-1),/all
check_4_velmap,thisyear
retall

;################################################################
;
;  The following lines were commented out
;
;################################################################
;
;  add softlinks
;
;atlas_slink
;retall
;
;  update the QL logo
;
;ql = rd_ascii(concat_dir('CDS_HEAD_CAT','newfits'))
;add_ql_logo, ql
;retall
;
; Now login to solar and run a job that updates Nisat web atlas ifo from solg2'
;
; spawn,'ssh solar /home/master/rsync/update_cds_atlas_nisats exit'
;

;################################################################
;
;  Kill the CIDL session
;
;################################################################
done

rm /home/master/work/*.fits

echo "end of script"