#!/usr/bin/expect # login_cvs host password set user [lindex $argv 0] set pass [lindex $argv 1] set host [lindex $argv 2] set cvsroot [lindex $argv 3] set module [lindex $argv 4] set dir [lindex $argv 5] set timeout 30 send_user "checkout module $module"; spawn ssh $user@$host expect { "(yes/no)? " { send "yes\r" send_user "Key accepted"; } "assword:" { close send_user "Key accepting dont needed"; } } spawn cvs -d :ext:$user@$host:$cvsroot co -N -d $dir $module expect { "assword:" { send "$pass\r" expect { "assword:" { send_user "