$type = ord (substr ($entry, 0, 1)) & 191;
# get filetype & remove file lock flag