pro eit_mirror, t0, t1, purge=purge, ndays=ndays, $
nospawn=nospawn, nopix=nopix
;+
; Name: eit_mirror
;
; Purpose; make and submit EIT quicklook mirror job
;
; 6-feb-1996 (S.L.Freeland)
;-
if not keyword_set(t0) then t0=reltime(/daybeforeyest)
if not keyword_set(t1) then t1=timegrid(t0,/day,/string) ; default one day
mirjob='/sxt7lib/ssw/gen/mirror/eitquick.mirror'
rparent='/service/soho-arch00/home/soho/private/data/processed/eit/quicklook/
header=[ 'package=eit_software', $
'comment=EIT quicklook SW', $
'remote_user=freeland', $
'remote_password=SxtXrp', $
'compress_patt=', $
'site=penumbra.nascom.nasa.gov', $
'user=software', $
'dir_mode=0775', $
'file_mode=0664', $
'flags_recursive+L', $
'local_dir=' + get_logenv('EIT_QUICKLOOK')]
; collapsing GSFC tree into one directory
grid=timegrid(t0,t1,/string,/day)
days=string(strmid(grid,0,2),2,format='(i2.2)')
months=string(month_id(strmid(grid,3,3)),2,format='(i2.2)')
years=strtrim('19'+strmid(grid,7,2),2)
; ------------------------------------
subdirs=years + '/' + months + '/' + days
remotedirs='remote_dir=' + rparent + subdirs
spawnit = 1-keyword_set(nospawn)
mircmd="/usr/local/bin/mirror " + mirjob + " > " + $
str_replace(mirjob,'.mirror','.mirror.log')
if spawnit then begin
for i=0,n_elements(remotedirs)-1 do begin
file_append,mirjob,[header,remotedirs(i)],/new
message,/info,"Directory: " + subdirs(i)
spawn,mircmd,mirstat
endfor
new=get_eit_info(eit_files(),/header,/generate)
endif
if not keyword_set(nopix) then begin
; update show_pix data
wave=[171,195,284,304]
wcom=['Fe IX/X','Fe XII','Fe XV','He II']
swave=strtrim(wave,2)
sizes=[256,512]
ssizes=strtrim(sizes,2)
for siz=0,n_elements(sizes)-1 do begin
for wav=0,n_elements(wave)-1 do begin
exe=execute("lasteit,/notv,/w"+swave(wav) + ",rebin=sizes(siz),info,data")
spname="EIT_"+swave(wav)+"A_"+ssizes(siz)
text=["SOHO/EIT " + swave(wav) + "A (" + wcom(wav) + ")" + $
strmid(info,0,8) + strmid(info,12,6),"", $
"For EIT instrument description, data rights, etc., please see:", $
"http://umbra.gsfc.nasa.gov/eit/" ]
mk_pix,filename=spname,sub='eit',bytscl(data),text=text,/replace
endfor
endfor
endif
return
end
Last revised: - Wed May 9 21:45:19 2007- F. Auchère