set port $env(PIXIL_PORT) spawn -open [open $port w+] exec stty raw ispeed 115200 ospeed 115200 < $port > $port exec rm -f * send_user "Waiting for ogin:\n" send "\030\030\030\030\030\r\n" expect { ogin: { send_user "Found ogin\r" sleep 1 send "root\r" } \# { sleep 1 send_user "logged in\r" } } send "\r\n" expect { \# { send_user "logged in 2\n" send "cd /usr/local/pixil/share/data/\r" send "sz add.dbf not.dbf sched.dbf td.dbf\r" exec $env(PIXIL_BIN)/rz -qby -t 10 < $port > $port # exec rz -qby -t 10 < $port > $port send_user "got files ok\n" } timeout { send_user "Timeout\n"; } }