pro do_adsftp, nodelete=nodelete
;
;+
;   Name: do_adsftp
;
;   Purpose: driver to handle ads online ads file queue on workstation
;	     non-existant, required files are ftped from mainframe
;
;   Optional Keyword Parameters:
;	nodelete - if set, old queue data is not deleted
;   
;   History: slf, 27-oct-92
;	     slf, 18-May-93  removed /nopnt switch in do_ads call
;	     mdm, 21-May-93  Added /nopnt switch to do_ads call
;	     mdm, 17-Aug-93  Removed /nopnt switch to do_ads call
;-
;
nodel=keyword_set(nodelete)	;default is to delete old
;
; get a list of on-line directories in queue - create new directory if it
; is time (these functions handled by call to adsdirs.pro)
adsdirsi=adsdirs(/doq,/actual,nodel=nodel)		; 
;
break_file, adsdirsi, log, path, dirname
;
; ASSUMPTIONs: directory names are equal length and end with weekid (yy_ww)
dirlen=strlen(dirname(0))
weekids=strmid(dirname,dirlen-5,5)
;
; for each directory in queue, call do_ads 
for i=0, n_elements(adsdirsi)-1 do begin
   message,/info,'do_ads, week= ' + weekids(i) + $
	', outftp=' +  adsdirsi(i) + ',noindex=' + strtrim(i,2)
;
;  switches - no ads_into_pnt, retry on failure, only  copy directory once
   do_ads, week=weekids(i), outftp=adsdirsi(i),  /retry, $
	noindex=i
endfor
;
return
end