Mercurial pull from all subdirectories

hgpullall.sh

#!/bin/bash

basedir=$(pwd -P)

for subdir in $(find . -maxdepth 1 -type d ); 
do
	dir="$basedir"/$(basename "$subdir")
    # Check if sub-directory is a Mercurial repository
    if [ -n "$(hg --cwd $dir root)" ];
    then
        cd "$dir"
        pwd
/usr/bin/expect<<EOF
spawn hg pull
expect "user:"
send "username\n"
expect "password:"
send "password\n"
interact
expect eof
EOF
    fi
done