pro ucon_check, newmap=newmap
;
if keyword_set(newmap) then mk_mapfile,/sw  ; newest SW map
outfile=concat_dir(getenv('HOME'),'ucon_check.dat')
file_append,outfile,/new,['% ucon_check run at: ' + systime(),'']

users=dir_list('$ys/ucon/soft',count=count)     ; ucon directories
for i=0, count-1 do begin
   file_append,outfile,'% Checking ucon dir: ' + users(i)
   ufiles=findfile(users(i),count=ufcount)
   split_files,ufiles,paths,modules
   file_append,outfile,'%   Number of files: ' + strtrim(ufcount,2)
   for j=0,ufcount-1 do begin
      pathsw=path_sw(modules(j),rcount,/multi)
      if rcount gt 1 then begin
          message,/info,'Duplicates of : ' + modules(j) + ' online...'
          file_append,outfile, $
        ['Duplicates of : ' + modules(j) + ' online:','    ' + pathsw]
      endif
   endfor
   file_append,outfile,['.......................................','']
endfor

return
end