#!/usr/bin/expect --

set host [lindex $argv 0]
set user [lindex $argv 1]
set file [lindex $argv 2]
set dest [lindex $argv 3]
set pass [read stdin]


spawn /usr/bin/scp -o "StrictHostKeyChecking no" $user@$host:$file $dest
set timeout 90
expect "*assword:" {
	sleep 1;
        send "$pass\r"
}
expect -timeout 7200 "100:"