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