/* REXX */

filelist = arg(1)
filelistlst = filelist'.txt'

ok = SysFileDelete(filelistlst)

Zeile = linein(filelist)

do until lines(filelist) = 0
    Zeile = linein(filelist)
    parse var Zeile Junk': 'NeuZeile' ('Junk2
    NeuZeile = translate(strip(NeuZeile),'\','/')
    if left(Neuzeile,5) = 'samba' then Neuzeile = substr(Neuzeile,7)
    call lineout filelistlst, NeuZeile
end

ok = stream(filelistlst,'c','close')
ok = stream(filelist,'c','close')
ok = SysFileDelete(filelist)