;
; unfinished and a basic copy of hv_cor1_auto.pro
;
PRO HV_COR1_AUTO,date_start = ds, $ ; date the automated processing starts
                 ndaysBack = ndaysBack, $   ; date to end automated processing starts
                 details_file = details_file,$                           ; call to an explicit details file
                 alternate_backgrounds = alternate_backgrounds,$         ; location of the alternate backgrounds
                 copy2outgoing = copy2outgoing,$                         ; copy to the outgoing directory
                 once_only = once_only,$                                 ;  if set, the time range is passed through once only
                 writtenby = writtenby
;
  progname = 'hv_cor1_auto'
  count = 0
;
  repeat begin
;
; Get today's date in UT
;
     if not(keyword_set(ds)) then begin
        get_utc,date_start
     endif
;
     for i = 0,ndaysback do begin

        this_date = date_start
        this_date.mjd = this_date.mjd - i
        date = utc2str(this_date,/date_only,/ecs)

        print,' '
        print,progname + ': Processing all files on ' + date

        HV_COR1_BY_DATE,date, copy2outgoing = copy2outgoing

     endfor
;
; Wait 15 minutes before looking for more data
;
     count = count + 1
     HV_REPEAT_MESSAGE,progname,count,timestart, more = ['examined ' + ds + '.',report],/web
     HV_WAIT,progname,15,/minutes,/web


  endrep until  1 eq keyword_set(once_only)

     return
end