#!/usr/local/bin/expectjp
#
spawn ssh rtoloza@aragorn.elo.utfsm.cl

expect "password: "
send "miclave\r"

expect "rtoloza@aragorn:~$ "
send "cd OO\r"
expect "rtoloza@aragorn:~/OO$ "
send "top -n 1 > top.txt\r"
expect "rtoloza@aragorn:~/OO$ "
send "who > who.txt\r"
expect "rtoloza@aragorn:~/OO$ "

send "exit\r"

expect "#"
spawn scp rtoloza@aragorn.elo.utfsm.cl:/home/tel2003/rtoloza/OO/top.txt top.txt
expect "password: "
send "miclave\r"
expect eof
spawn scp rtoloza@aragorn.elo.utfsm.cl:/home/tel2003/rtoloza/OO/who.txt who.txt
expect "password: "
send "miclave\r"
expect eof

exit