if [ "$1" = "" ]; then exit; fi
for x; do {
  ls -l "$x"
  listattr "$x"
  if listattr "$x"|grep -q BEOS:TYPE ; then
	echo -e "It is of type:\n   " `catattr BEOS:TYPE "$x"|cut -d : -f 3`
  fi
  echo -en "\nREALLY FORCE A mimeset ON $x ?"
  read
  case $REPLY in
	y*)	rmattr BEOS:TYPE "$x"
		/bin/mimeset -f "$x"
	### ^^^ need to avoid possible recursion!
	    echo "after mimeset..."
  	    listattr "$x"
	    echo -e "Now of type:\n   " `catattr BEOS:TYPE "$x"|cut -d : -f 3`
	;;
	*) continue
	;;
  esac
  echo -e "=====================\n\n"
} ;done
read
