#!/usr/bin/expect --
# (find-angg ".zshrc" "autopasswd")
# (find-expcommand "interact")
# (find-expcommand "interact" "-nobuffer")
# The authenticity of host '127.0.0.1 (127.0.0.1)' can't be established.
# RSA key fingerprint is fe:91:96:a9:eb:9b:d5:5f:50:36:7d:9e:68:3a:26:cd.
# Are you sure you want to continue connecting (yes/no)? yes
# edrx@127.0.0.1's password:

source ~/.passwds.tcl
proc sendpasswd {passwd} { sleep 0.5; send $passwd\n }
set SUCURI sucuri.mat.puc-rio.br
set TWU    angg.twu.net
eval spawn $argv
interact {
  -o -nobuffer "edrx@${SUCURI}'s password: " { sendpasswd $passwd(puc) }
     -nobuffer "edrx@${TWU}'s password: "    { sendpasswd $passwd(twu) }
     "\033\[H\033\[JConnection to sucuri.mat.puc-rio.br closed." {}
     "\033\[H\033\[JConnection to angg.twu.net closed." {}
}