PRO eae_to_web
; 
; IDL script to update the eae web material...
;

; Where things are:
;  web files go to ...
; Ultimate destination: '/nfs/space/web/data/HETG/eae/'
web_dir = '/spectra/d0/temp_to_web/'
;  eae results are in ...
eae_dir = !DDHETGCAL+'/cmp/eae/'
; some key data files used:
key_dir = !DDIDL+'/xrcf/'

; make sure we can over write previous versions:
SPAWN, 'chmod a+w '+web_dir+'*'

; copy some of the data to web
SPAWN, 'cp '+key_dir+'eae_no_grats_meas.rdb ' + web_dir
SPAWN, 'cp '+key_dir+'eae_trw_mod.rdb ' + web_dir
SPAWN, 'cp '+key_dir+'eae_ref_meas.rdb ' + web_dir

; Put the specific CIP files used by eae_flux_anal.pro
SPAWN, 'cp '+!DDXRCFCAL+'/cip/fpc_x2.fitQe_N19980902.rdb ' + web_dir
SPAWN, 'cp '+!DDXRCFCAL+'/cip/fpc_5.fitQe_N19980902.rdb ' + web_dir
SPAWN, 'cp '+!DDXRCFCAL+'/cip/fpc_hn.fitQe_N19980902.rdb ' + web_dir
SPAWN, 'cp '+!DDXRCFCAL+'/cip/ssd_5_qe_N19990208.rdb ' + web_dir
SPAWN, 'cp '+!DDXRCFCAL+'/cip/ssd_x_qe_N19990208.rdb ' + web_dir

; copy some of the useful routines too
SPAWN, 'cp '+!DDIDL+'/cmdb/cmdb_load.pro ' + web_dir
SPAWN, 'cp '+!DDIDL+'/useful/rdb_read.pro ' + web_dir
SPAWN, 'cp '+!DDIDL+'/useful/rdb_param.pro ' + web_dir
SPAWN, 'cp '+!DDIDL+'/useful/rdb_write.pro ' + web_dir

;rdb format and empty table
SPAWN, 'cp '+!DDIDL+'/xrcf/xrcf_data.fmt '+web_dir
SPAWN, 'cp '+!DDIDL+'/xrcf/xrcf_data.default '+web_dir

; CMDB Summary of select eae measurements
SPAWN, 'cp '+eae_dir+'eae_from_cmdb.summary ' + $
	web_dir+'eae_summary.html'
; and summary of the rdb file from it...
SPAWN, 'cp '+eae_dir+'eae_wids.summary ' + $
	web_dir+'eae_wids.summary'

; Summary of final eae table:
SPAWN, 'cp '+eae_dir+'eae_weffics.summary ' + $
	web_dir
SPAWN, 'cp '+eae_dir+'eae_wfracs.summary ' + $
	web_dir
SPAWN, 'cp '+eae_dir+'eae_wfracs.html ' + $
	web_dir
; and the actual rdb file...
SPAWN, 'cp '+eae_dir+'eae_wfracs.rdb ' + $
	web_dir
; and fractions file...
SPAWN, 'cp '+eae_dir+'feature_fractions.rdb ' + $
	web_dir

; Copy code there too
SPAWN, 'cp /nfs/wiwaxia/h1/dd/idl/xrcf/eae_*.pro '+web_dir
SPAWN, 'cp /nfs/wiwaxia/h1/dd/idl/marx/eae_*.pro '+web_dir
SPAWN, 'cp /nfs/wiwaxia/h1/dd/idl/marx/xrcf_sim.pro '+web_dir
SPAWN, 'cp /nfs/wiwaxia/h1/dd/idl/marx/feat_frac*.pro '+web_dir

; Make the web plots...

; read in the fraction-corrected results
eae = rdb_read(eae_dir+'eae_wfracs.rdb')

; Do not include the HIREF measurements...
eaenh = eae(where(STRPOS(eae.source,'HIREF') EQ -1))

plot_numbers = [0,1,2,3,4,5,6,7,12,13,14,15,16,17]
plot_names = ['bnd_plots', 'hrma_area', $
		'meg1_area', 'heg1_area', 'meg0_area', 'heg0_area', $
		'leg1_area', 'leg0_area', $
		'meg1_effic', 'heg1_effic', 'meg0_effic', 'heg0_effic', $
		'leg1_effic', 'leg0_effic' ]

for ip = 0, n_elements(plot_numbers)-1 do begin
  pre_print_sqr
  !p.multi = 0
  eae_plots, eaenh, plot_numbers(ip)
  device,/close
  SPAWN, 'cp idl.ps '+web_dir+plot_names(ip)+'.ps'
end

; Cute pairs plots...
!p.multi=0
SPAWN, 'rm idl.ps'

pre_print_portrait
!p.multi = [0,1,2]
eae_plots, eaenh, [12,14]
device,/close
SPAWN, 'cp idl.ps '+web_dir+'effic_pairs_meg.ps'

!p.multi=0
SPAWN, 'rm idl.ps'

pre_print_portrait
!p.multi = [0,1,2]
eae_plots, eaenh, [13,15]
device,/close
SPAWN, 'cp idl.ps '+web_dir+'effic_pairs_heg.ps'

!p.multi=0
SPAWN, 'rm idl.ps'

pre_print_portrait
!p.multi = [0,1,2]
eae_plots, eaenh, [16,17]
device,/close
SPAWN, 'cp idl.ps '+web_dir+'effic_pairs_leg.ps'


; And efficiency residual plots
plot_numbers = [12,13,14,15,16,17]
plot_names = ['meg1_resids', 'heg1_resids', 'meg0_resids', 'heg0_resids', $
		'leg1_resids', 'leg0_resids' ]

for ip = 0, n_elements(plot_numbers)-1 do begin
  pre_print_sqr
  !p.multi = 0
  eae_plot_resids, eaenh, plot_numbers(ip)
  device,/close
  SPAWN, 'cp idl.ps '+web_dir+plot_names(ip)+'.ps'
end


; Now the comparison plots...
; eae_jdkp.pro
pre_print_rect
!p.multi = 0
eae_jdkp
device,/close
SPAWN, 'cp idl.ps '+web_dir+'jdkp_Aeff.ps'

pre_print_rect
!p.multi = 0
eae_jdkp, /L_CORR
device,/close
SPAWN, 'cp idl.ps '+web_dir+'jdkp_Aeff_corr.ps'

pre_print_rect
!p.multi = 0
eae_jdkp, /L_CORR, /PLTRUNID
device,/close
SPAWN, 'cp idl.ps '+web_dir+'jdkp_Aeff_corr_runids.ps'

; jdkp_first_orders.pro
pre_print_portrait
jdkp_first_orders, gselect=0
device,/close
SPAWN, 'cp idl.ps '+web_dir+'jdkp_pairs_leg.ps'

pre_print_portrait
jdkp_first_orders, gselect=1
device,/close
SPAWN, 'cp idl.ps '+web_dir+'jdkp_pairs_meg.ps'

pre_print_portrait
jdkp_first_orders, gselect=2
device,/close
SPAWN, 'cp idl.ps '+web_dir+'jdkp_pairs_heg.ps'


; - - - -
; all done
!p.multi = 0
set_plot, 'X'
SPAWN, 'rm idl.ps idl.gif'

RETURN
END