path = str2arr(!path, delim=':')
ss = where(strpos(path, 'mdisw') ne -1)
path = path(ss)
outfil = '/mdisw/dbase/maint/doc1liners.txt'
file_delete, outfil
doc1liners, path, outfil
;
end