#!/bin/sh
RENAME="rename "
find "$1" -type d | while read d
do
  echo "Entering $d"
  cd "$d"
  find . -maxdepth 1 -type f -name "*[[:upper:]]*" -exec $RENAME 'y/A-Z/a-z/' {} \;
  for f in dscn*
  do
    m=$(exiv2 -pav "$f" 2> /dev/null | grep 'Exif\.Image\.Model' | sed 's/.*E\(..\)00$/\1/')
    $RENAME "s/dscn/c${m}_/" dscn*                    2> /dev/null
  done
#  $RENAME 's/dscn/c22_/' dscn*                    2> /dev/null
#  $RENAME 's/dsc_/d80_/' dsc_*                    2> /dev/null
  $RENAME 's/dsc_/d90_/' dsc_*                    2> /dev/null
#  $RENAME 's/_dsc/rca_/' _dsc*                    2> /dev/null
#  $RENAME 's/dscf/espe/' dscf*                    2> /dev/null
#  $RENAME 's/dscf/fran/' dscf*                    2> /dev/null
#  $RENAME 's/image/n70_/' image*                  2> /dev/null
  $RENAME 's/img_/ixus65_/' img_*                2> /dev/null
  $RENAME 's/^pa([0-9])/m725sw_1$1/' pa[0-9]*     2> /dev/null
  $RENAME 's/^pb([0-9])/m725sw_2$1/' pb[0-9]*     2> /dev/null
  $RENAME 's/^pc([0-9])/m725sw_3$1/' pc[0-9]*     2> /dev/null
  $RENAME 's/^pd([0-9])/m725sw_4$1/' pd[0-9]*     2> /dev/null
  $RENAME 's/^p3([0-9])/m725sw_5$1/' pe[0-9]*     2> /dev/null
  $RENAME 's/^pf([0-9])/m725sw_6$1/' pf[0-9]*     2> /dev/null
  $RENAME 's/^pg([0-9])/m725sw_7$1/' pg[0-9]*     2> /dev/null
  $RENAME 's/^ph([0-9])/m725sw_8$1/' ph[0-9]*     2> /dev/null
  $RENAME 's/^pi([0-9])/m725sw_9$1/' pi[0-9]*     2> /dev/null
  $RENAME 's/^p([0-9])/m725sw_0$1/' p[0-9]*       2> /dev/null
  exif-document-name *.jpg
  chmod 600 *.*
  cd -
done