DIR=$1
mydate=$(jhead $DIR/"$(ls -1 $DIR|head -1)"|grep Date )

mystring=$(echo $mydate |sed 's/.*\([0-9][0-9][0-9][0-9]\):\([0-9][0-9]\):\([0-9][0-9]\).*/\1-\2-\3/')

if [ ! -z $mystring ];

then 
   mv "$DIR" "$mystring $DIR"
fi