pro welldepth_reduce_runemall

; this idl script will re-run the welldepth_reduce script on all IDTL data ever taken,
; and post the new figures to the website.


; get current dir
wd=file_expand_path('')

; first set up the ftp script
get_lun,u
openw,u,'rabbit.netrc'
printf,u,'machine rabbit.stsci.edu login idtl password pixel macdef init'
printf,u,'	binary'
printf,u,'	prompt'



; *** H2RG-015-5.0mu (homerun) ************************************************************
cd,'/data/skunk3/idtl/data/H2RG-015-5.0mu/cold1/welldepth.13May03'
welldepth_reduce

cd,wd
printf,u,'	lcd /data/skunk3/idtl/data/H2RG-015-5.0mu/cold1/welldepth.13May03'
printf,u,'	cd /idtl/rockwell4/H2RG-015-5.0mu/cold1/welldepth.13May03'
printf,u,'	binary'
printf,u,'	put H2RG-015-5.0mu_linsat.gif'
printf,u,'	ascii'
printf,u,'	put H2RG-015-5.0mu_linsat.ps'
; *****************************************************************************************



; *** SB304-008-5.0mu (homerun) ***********************************************************
cd,'/data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.1May03/iteration5'
welldepth_reduce

cd,wd
printf,u,'	lcd /data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.1May03/iteration5'
printf,u,'	cd /idtl/raytheon3/SB304-008-5.0mu/cold2/welldepth.1May03/iteration5'
printf,u,'	binary'
printf,u,'	put SB304-008-5.0mu_linsat.gif'
printf,u,'	ascii'
printf,u,'	put SB304-008-5.0mu_linsat.ps'
; *****************************************************************************************



; *** SB304-008-5.0mu (homerun additional) ************************************************
cd,'/data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.1May03/iteration1'
welldepth_reduce
cd,'/data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.1May03/iteration2'
welldepth_reduce
cd,'/data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.1May03/iteration3'
welldepth_reduce
cd,'/data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.1May03/iteration4'
welldepth_reduce
cd,'/data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.1May03/iteration6'
welldepth_reduce
cd,'/data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.1May03/iteration7'
welldepth_reduce
cd,'/data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.24Apr03'
welldepth_reduce

cd,wd
printf,u,'	lcd /data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.1May03/iteration1'
printf,u,'	cd /idtl/raytheon3/SB304-008-5.0mu/cold2/welldepth.1May03/iteration1'
printf,u,'	binary'
printf,u,'	put SB304-008-5.0mu_linsat.gif'
printf,u,'	ascii'
printf,u,'	put SB304-008-5.0mu_linsat.ps'
printf,u,'	lcd /data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.1May03/iteration2'
printf,u,'	cd /idtl/raytheon3/SB304-008-5.0mu/cold2/welldepth.1May03/iteration2'
printf,u,'	binary'
printf,u,'	put SB304-008-5.0mu_linsat.gif'
printf,u,'	ascii'
printf,u,'	put SB304-008-5.0mu_linsat.ps'
printf,u,'	lcd /data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.1May03/iteration3'
printf,u,'	cd /idtl/raytheon3/SB304-008-5.0mu/cold2/welldepth.1May03/iteration3'
printf,u,'	binary'
printf,u,'	put SB304-008-5.0mu_linsat.gif'
printf,u,'	ascii'
printf,u,'	put SB304-008-5.0mu_linsat.ps'
printf,u,'	lcd /data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.1May03/iteration4'
printf,u,'	cd /idtl/raytheon3/SB304-008-5.0mu/cold2/welldepth.1May03/iteration4'
printf,u,'	binary'
printf,u,'	put SB304-008-5.0mu_linsat.gif'
printf,u,'	ascii'
printf,u,'	put SB304-008-5.0mu_linsat.ps'
printf,u,'	lcd /data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.1May03/iteration6'
printf,u,'	cd /idtl/raytheon3/SB304-008-5.0mu/cold2/welldepth.1May03/iteration6'
printf,u,'	binary'
printf,u,'	put SB304-008-5.0mu_linsat.gif'
printf,u,'	ascii'
printf,u,'	put SB304-008-5.0mu_linsat.ps'
printf,u,'	lcd /data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.1May03/iteration7'
printf,u,'	cd /idtl/raytheon3/SB304-008-5.0mu/cold2/welldepth.1May03/iteration7'
printf,u,'	binary'
printf,u,'	put SB304-008-5.0mu_linsat.gif'
printf,u,'	ascii'
printf,u,'	put SB304-008-5.0mu_linsat.ps'
printf,u,'	lcd /data/skunk3/idtl/data/SB304-008-5.0mu/cold2/welldepth.24Apr03'
printf,u,'	cd /idtl/raytheon2/SB304-008-5.0mu/cold2/welldepth.24Apr03'
printf,u,'	binary'
printf,u,'	put SB304-008-5.0mu_linsat.gif'
printf,u,'	ascii'
printf,u,'	put SB304-008-5.0mu_linsat.ps'
; *****************************************************************************************



; *** H2RG-015-5.0mu (homerun additional) *************************************************
cd,'/data/skunk3/idtl/data/H2RG-015-5.0mu/cold1/welldepth.8May03'
welldepth_reduce
cd,'/data/skunk3/idtl/data/H2RG-015-5.0mu/cold1/welldepth.8May03/iteration1'
welldepth_reduce
cd,'/data/skunk3/idtl/data/H2RG-015-5.0mu/cold1/welldepth.9May03'
welldepth_reduce
cd,'/data/skunk3/idtl/data/H2RG-015-5.0mu/cold1/welldepth.9May03/iteration1'
welldepth_reduce

cd,wd
printf,u,'	lcd /data/skunk3/idtl/data/H2RG-015-5.0mu/cold1/welldepth.8May03'
printf,u,'	cd /idtl/rockwell4/H2RG-015-5.0mu/cold1/welldepth.8May03'
printf,u,'	binary'
printf,u,'	put H2RG-015-5.0mu_linsat.gif'
printf,u,'	ascii'
printf,u,'	put H2RG-015-5.0mu_linsat.ps'
printf,u,'	lcd /data/skunk3/idtl/data/H2RG-015-5.0mu/cold1/welldepth.8May03/iteration1'
printf,u,'	cd /idtl/rockwell4/H2RG-015-5.0mu/cold1/welldepth.8May03/iteration1'
printf,u,'	binary'
printf,u,'	put H2RG-015-5.0mu_linsat.gif'
printf,u,'	ascii'
printf,u,'	put H2RG-015-5.0mu_linsat.ps'
printf,u,'	lcd /data/skunk3/idtl/data/H2RG-015-5.0mu/cold1/welldepth.9May03'
printf,u,'	cd /idtl/rockwell4/H2RG-015-5.0mu/cold1/welldepth.9May03'
printf,u,'	binary'
printf,u,'	put H2RG-015-5.0mu_linsat.gif'
printf,u,'	ascii'
printf,u,'	put H2RG-015-5.0mu_linsat.ps'
printf,u,'	lcd /data/skunk3/idtl/data/H2RG-015-5.0mu/cold1/welldepth.9May03/iteration1'
printf,u,'	cd /idtl/rockwell4/H2RG-015-5.0mu/cold1/welldepth.9May03/iteration1'
printf,u,'	binary'
printf,u,'	put H2RG-015-5.0mu_linsat.gif'
printf,u,'	ascii'
printf,u,'	put H2RG-015-5.0mu_linsat.ps'
; *****************************************************************************************




; close up the rabbit.netrc file
cd,wd
printf,u,'	bye'
printf,u,''
close,u
free_lun,u


; now ftp them to rabbit
spawn,'chmod go-xrw rabbit.netrc'    ; this is required for security
spawn,'mv -f ~/.netrc ~/old.netrc'
spawn,'cp rabbit.netrc ~/.netrc'
spawn,'ftp rabbit.stsci.edu'
spawn,'mv -f ~/old.netrc ~/.netrc'
spawn,'rm rabbit.netrc'

end