pro rqefigs_runemall

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

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/rqe.15May03'
rqefigs

cd,wd
printf,u,'	lcd /data/skunk3/idtl/data/H2RG-015-5.0mu/cold1/rqe.15May03'
printf,u,'	cd /idtl/rockwell4/H2RG-015-5.0mu/cold1/rqe.15May03'
printf,u,'	binary'
printf,u,'	mput *.gif'
printf,u,'	ascii'
printf,u,'	mput *.ps'
; *****************************************************************************************



; *** SB304-008-5.0mu (homerun) ***********************************************************
cd,'/data/skunk3/idtl/data/SB304-008-5.0mu/cold2/rqe.30Apr03'
rqefigs,temps=[28,30,35,37,45]

cd,wd
printf,u,'	lcd /data/skunk3/idtl/data/SB304-008-5.0mu/cold2/rqe.30Apr03'
printf,u,'	cd /idtl/raytheon2/SB304-008-5.0mu/cold2/rqe.30Apr03'
printf,u,'	binary'
printf,u,'	mput *.gif'
printf,u,'	ascii'
printf,u,'	mput *.ps'
; *****************************************************************************************



; *** H2RG-006-5.0mu **********************************************************************
cd,'/data/skunk3/idtl/data/H2RG-006-5.0mu/cold1/rqe.10Apr03'
rqefigs

cd,wd
printf,u,'	lcd /data/skunk3/idtl/data/H2RG-006-5.0mu/cold1/rqe.10Apr03'
printf,u,'	cd /idtl/rockwell4/H2RG-006-5.0mu/cold1/rqe.10Apr03'
printf,u,'	binary'
printf,u,'	mput *.gif'
printf,u,'	ascii'
printf,u,'	mput *.ps'
; *****************************************************************************************



; *** H2RG-006-5.0mu **********************************************************************
cd,'/data/skunk2/idtl/data/H2RG-006-5.0mu/cold1/rqe.7Apr03'
rqefigs

cd,wd
printf,u,'	lcd /data/skunk2/idtl/data/H2RG-006-5.0mu/cold1/rqe.7Apr03'
printf,u,'	cd /idtl/rockwell3/H2RG-006-5.0mu/cold1/rqe.7Apr03'
printf,u,'	binary'
printf,u,'	mput *.gif'
printf,u,'	ascii'
printf,u,'	mput *.ps'
; *****************************************************************************************



; *** SB304-008-5.0mu *********************************************************************
cd,'/data/skunk2/idtl/data/SB304-008-5.0mu/cold1/rqe.22Mar03'
rqefigs

cd,wd
printf,u,'	lcd /data/skunk2/idtl/data/SB304-008-5.0mu/cold1/rqe.22Mar03'
printf,u,'	cd /idtl/raytheon2/SB304-008-5.0mu/cold1/rqe.22Mar03'
printf,u,'	binary'
printf,u,'	mput *.gif'
printf,u,'	ascii'
printf,u,'	mput *.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