#!/bin/sh
#
# lowercase: lowercase all uppercase names in a directory

UpLS=`ls [A-Z]*`
lols=`ls [A-Z]* | tr '[A-Z]' '[a-z]'`

for i in $UpLS; do
  set - $UpLS
  U=$1; shift; UpLS="$@"
  set - $lols
  mv $U $1; shift; lols="$@"
done
#
# $Source: /mit/consult/inbsdbin/RCS/lowercase,v $
# $Author: jhawk $