PRO MKTRANSFER,day=day

;read mirror.txt and find out folder

IF NOT KEYWORD_SET(day) THEN day = ['961008']	; result from mirror.txt

day = STRING(day)

path = '/home/lasco2/lasco/img_hdr/c1/'
mkquery,inst='C1',day=day,img_hdr=path + 'img_hdr.txt'

mirror = rd_asc('/home/lasco2/lasco/img_hdr/mirror.list')
files  = rd_asc(path+day(0)+'.lst')

index = WHERE( mirror EQ '#get_patt')
index = index(0) + 1

mirror = mirror(0:index-1)
mirror = [mirror, 'get_patt=']

for i=0,n_elements(files)-1 do begin

 mirror(index) = mirror(index) + "|" + STRMID(files(i),0,12)       

endfor

wrt_asc,'/home/lasco2/lasco/img_hdr/mirror.list',mirror

RETURN
END