Automate login to multiple CVS repositories

cvs-login.exp

#!/usr/bin/env expect

# Automates CVS login to ocr, hwr, and rcr.
# Prompts user for password a single time.

# Turn off timeout
set timeout -1

# Ask user for password
stty -echo;  # make sure password isn't echo'ed
send "Please input your CVS login password: "
expect -re "(.*)\n"
send "\n"

# Set username and password
set username $env(USER)
set password $expect_out(1,string)

# First logout of all three
foreach directory [list ocr hwr rcr] {
    spawn -noecho cvs -d ":pserver:$username@cvs:/export/cvs/$directory" logout
    expect eof
}

# Now login to all three
foreach directory [list ocr hwr rcr] {
    spawn -noecho cvs -d ":pserver:$username@cvs:/export/cvs/$directory" login
    expect "CVS password: "
    send "$password\r"
    expect eof
}