2 # simple test setup script for lasker
3 # Andrew Tridgell <lasker@tridgell.net>
6 send_user "Usage: setup.exp HOSTNAME USERNAME PASSWORD\n"
10 set host [lrange $argv 0 0]
11 set user [lrange $argv 1 1]
12 set pass [lrange $argv 2 2]
17 spawn telnet $host 5000
20 expect "Press return to enter the FICS"
24 send "addplayer admin none The Admin\r"
28 send "asetpass admin $pass\r"
29 expect "has changed your password"
33 spawn telnet $host 5000
42 expect "players displayed"
43 expect "indicates system administrator."
49 send "aconfig SERVER_LOCATION test location\r"
52 send "aconfig SERVER_HOSTNAME test\r"
55 send "aconfig HEAD_ADMIN_EMAIL nobody@samba.org\r"