oridir=curdir()

indir00='/sasstore2/dat1/syashir1/www_cdaw/www4/meetings/2020_Kodaikanal/events/'

todir00='/sasstore2/dat1/syashir1/www_cdaw/www_nobackup/meetings/2020_Kodaikanal/events/'

evdirs=yfile_list(indir00)


for j=1, n_elements(evdirs)-1 do begin
;for j=0, 0 do begin

   indir01=indir00+evdirs[j]
   todir01=todir00+evdirs[j]

   inst=['aia','hmi','lasco','stereo_a','stereo_b']

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

      indir02=indir01+'/'+inst[i]
      todir02=indir01+'/'+inst[i]
      
      if file_exist(indir02) then begin

         if not file_exist(todir01) then yspawn,'mkdir -p '+todir01

         cmd='mv '+indir02+' '+todir01+'/'
         print, cmd
         yspawn,cmd

         cd, indir01

         cmd='ln -s ../../../../../www_nobackup/meetings/2020_Kodaikanal/events/'+evdirs[j]+'/'+inst[i]

         print, cmd
         yspawn,cmd

      endif

   endfor


endfor;j

cd,oridir

end