put_on_cnes.pro (Kronos IDL library)

;+
; Contains the put_on_cnes procedure
;
; :Author:
;    Gaëlle Boisnard
;
; :History:
;    2006/07/24: Created
;
;    2006/07/24: Last Edit
;-
;
;+
; put_on_cnes is a procedure that <behavior desc here>
;
; :Params:
;    aaaajjj1: in, required, type=sometype
;       A parameter named aaaajjj1
;    h1:       in, required, type=sometype
;       A parameter named h1
;    aaaajjj2: in, required, type=sometype
;       A parameter named aaaajjj2
;    h2:       in, required, type=sometype
;       A parameter named h2
;-
pro put_on_cnes, aaaajjj1, h1, aaaajjj2, h2
openw, 1, getenv('ROOT_RPWS')+'/pro/file_script'
printf, 1, "user rpwsCnes KrOnOs04"
printf, 1, "prompt"
ppdf=make_file_list(aaaajjj1, h1, aaaajjj2, h2, level='pdf')

if (ptr_valid(ppdf) eq 0) then begin
    print, 'There is no pdf file for this period'
endif else begin
    printf, 1, "bin"
    nb=n_elements(*ppdf)
    for i=0, nb-1 do begin
        printf, 1, "lcd "+strmid((*ppdf)[i], 0, strlen((*ppdf)[i])-11)
        printf,  1, "mput "+strmid((*ppdf)[i], 10, 11, /reverse_offset)
    endfor
ptr_free, ppdf
endelse
pn2=make_file_list(aaaajjj1, h1, aaaajjj2, h2, level='n2')
if (ptr_valid(pn2) eq 0) then begin
    print, 'There is no n2 file for this period'
endif else begin
    printf, 1, "bin"
    nb=n_elements(*pn2)
    for i=0, nb-1 do begin
        printf,1, 'lcd '+strmid((*pn2)[i], 0, strlen((*pn2)[i])-11)
        printf,  1, "mput "+strmid((*pn2)[i], 10, 11, /reverse_offset)
    endfor
ptr_free, pn2
endelse
plis=make_file_list(aaaajjj1, h1, aaaajjj2, h2, level='lis')
if (ptr_valid(plis) eq 0) then begin
    print, 'There is no lis file for this period'
endif else begin
    printf, 1, "ascii"
    listext=''
    nb=n_elements(*plis)
    for i=0, nb-1 do begin
        openr, unit1, (*plis)[i], /get_lun        
        openw, unit2, strmid((*plis)[i], 10, 11, /reverse_offset), /get_lun
        while not eof(unit1) do begin
            readf, unit1, listext 
            if (strmid(listext, 0, 1) ne 'K') then print, 'There is a problem in the file '+(*plis)[i]
            listext='P'+strmid(listext, 1, strlen(listext)-1)
            printf, unit2, listext
        endwhile
        close, unit1
        free_lun, unit1
        close, unit2
        free_lun, unit2
        printf, 1, "lcd "+getenv('ROOT_RPWS')+'/pro'
        printf,  1, "mput "+ strmid((*plis)[i], 10, 11, /reverse_offset)
    endfor
ptr_free, plis
endelse
printf, 1, "bye"
close, 1
spawn, "ftp -n sphynx < " + getenv('ROOT_RPWS')+'/pro/file_script'

lis=file_search(getenv('ROOT_RPWS')+'/pro/*.lis', count=found)

if found gt 0 then begin
nb=n_elements(lis)
    for i=0, nb-1 do begin
        file_delete, lis[i]
    endfor
endif
end