pro aqefigs_runemall

; this idl script will re-run the aqefigs 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/AbsoluteQE.13May03'
aqefigs

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



; *** SB304-008-5.0mu (homerun) ***********************************************************
cd,'/data/skunk3/idtl/data/SB304-008-5.0mu/cold2/AbsoluteQE.23Apr03'
spawn,'rm aqe_data.txt'
spawn,'cp aqe_data_evenrows.txt aqe_data.txt'
aqefigs
spawn,'mv -f SB304-008-5.0mu_30K_aqe_data.gif SB304-008-5.0mu_30K_aqe_data_evenrows.gif'
spawn,'mv -f SB304-008-5.0mu_30K_aqe_data.ps SB304-008-5.0mu_30K_aqe_data_evenrows.ps'
spawn,'rm aqe_data.txt'
spawn,'cp aqe_data_oddrows.txt aqe_data.txt'
aqefigs
spawn,'mv -f SB304-008-5.0mu_30K_aqe_data.gif SB304-008-5.0mu_30K_aqe_data_oddrows.gif'
spawn,'mv -f SB304-008-5.0mu_30K_aqe_data.ps SB304-008-5.0mu_30K_aqe_data_oddrows.ps'

cd,wd
printf,u,'	lcd /data/skunk3/idtl/data/SB304-008-5.0mu/cold2/AbsoluteQE.23Apr03'
printf,u,'	cd /idtl/raytheon2/SB304-008-5.0mu/cold2/AbsoluteQE.23Apr03'
printf,u,'	binary'
printf,u,'	put SB304-008-5.0mu_30K_aqe_data_evenrows.gif'
printf,u,'	put SB304-008-5.0mu_30K_aqe_data_oddrows.gif'
printf,u,'	ascii'
printf,u,'	put SB304-008-5.0mu_30K_aqe_data_evenrows.ps'
printf,u,'	put SB304-008-5.0mu_30K_aqe_data_oddrows.ps'
printf,u,'	put aqe_data_aqe_data_evenrows.txt'
printf,u,'	put aqe_data_aqe_data_oddrows.txt'
; *****************************************************************************************



; *** H2RG-006-5.0mu **********************************************************************
cd,'/data/skunk3/idtl/data/H2RG-006-5.0mu/cold1/AbsoluteQE.8Apr03'
aqefigs

cd,wd
printf,u,'	lcd /data/skunk3/idtl/data/H2RG-006-5.0mu/cold1/AbsoluteQE.8Apr03'
printf,u,'	cd /idtl/rockwell3/H2RG-006-5.0mu/cold1/AbsoluteQE.8Apr03'
printf,u,'	binary'
printf,u,'	put H2RG-006-5.0mu_37K_aqe_data.gif'
printf,u,'	ascii'
printf,u,'	put H2RG-006-5.0mu_37K_aqe_data.ps'
printf,u,'	put aqe_data.txt'
; *****************************************************************************************



; *** H2RG-003-4.8mu **********************************************************************
cd,'/data/skunk2/idtl/data/H2RG-003-4.8mu/cold1/AbsoluteQE.6Mar03'
aqefigs

cd,wd
printf,u,'	lcd /data/skunk2/idtl/data/H2RG-003-4.8mu/cold1/AbsoluteQE.6Mar03'
printf,u,'	cd /idtl/rockwell3/H2RG-003-4.8mu/cold1/AbsoluteQE.6Mar03'
printf,u,'	binary'
printf,u,'	put H2RG-003-4.8mu_37K_aqe_data.gif'
printf,u,'	ascii'
printf,u,'	put H2RG-003-4.8mu_37K_aqe_data.ps'
printf,u,'	put aqe_data.txt'
; *****************************************************************************************



; *** SB304-008-5.0mu *********************************************************************
cd,'/data/skunk2/idtl/data/SB304-008-5.0mu/cold1/AbsoluteQE.21Mar03'
spawn,'rm aqe_data.txt'
spawn,'cp aqe_data_evenrows.txt aqe_data.txt'
aqefigs
spawn,'mv -f SB304-008-5.0mu_31K_aqe_data.gif SB304-008-5.0mu_31K_aqe_data_evenrows.gif'
spawn,'mv -f SB304-008-5.0mu_31K_aqe_data.ps SB304-008-5.0mu_31K_aqe_data_evenrows.ps'
spawn,'rm aqe_data.txt'
spawn,'cp aqe_data_oddrows.txt aqe_data.txt'
aqefigs
spawn,'mv -f SB304-008-5.0mu_31K_aqe_data.gif SB304-008-5.0mu_31K_aqe_data_oddrows.gif'
spawn,'mv -f SB304-008-5.0mu_31K_aqe_data.ps SB304-008-5.0mu_31K_aqe_data_oddrows.ps'

cd,wd
printf,u,'	lcd /data/skunk2/idtl/data/SB304-008-5.0mu/cold1/AbsoluteQE.21Mar03'
printf,u,'	cd /idtl/raytheon/SB304-008-5.0mu/cold1/AbsoluteQE.21Mar03'
printf,u,'	binary'
printf,u,'	put SB304-008-5.0mu_31K_aqe_data_evenrows.gif'
printf,u,'	put SB304-008-5.0mu_31K_aqe_data_oddrows.gif'
printf,u,'	ascii'
printf,u,'	put SB304-008-5.0mu_31K_aqe_data_evenrows.ps'
printf,u,'	put SB304-008-5.0mu_31K_aqe_data_oddrows.ps'
printf,u,'	put aqe_data_aqe_data_evenrows.txt'
printf,u,'	put aqe_data_aqe_data_oddrows.txt'
; *****************************************************************************************



; 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