1 fc6f6474 2002-09-09 alex # $Id: check-idle.e,v 1.1 2002/09/09 22:56:07 alex Exp $
 2 fc6f6474 2002-09-09 alex 
 3 fc6f6474 2002-09-09 alex spawn telnet localhost 6789
 4 fc6f6474 2002-09-09 alex expect {
 5 fc6f6474 2002-09-09 alex 	timeout { exit 1 }
 6 fc6f6474 2002-09-09 alex 	"Connected"
 7 fc6f6474 2002-09-09 alex }
 8 fc6f6474 2002-09-09 alex 
 9 fc6f6474 2002-09-09 alex send "nick IdleTest\r"
10 fc6f6474 2002-09-09 alex send "user idle . . :Idle-Test\r"
11 fc6f6474 2002-09-09 alex expect {
12 fc6f6474 2002-09-09 alex 	timeout { exit 1 }
13 fc6f6474 2002-09-09 alex 	"376"
14 fc6f6474 2002-09-09 alex }
15 fc6f6474 2002-09-09 alex 
16 fc6f6474 2002-09-09 alex send "lusers\r"
17 fc6f6474 2002-09-09 alex expect {
18 fc6f6474 2002-09-09 alex 	timeout { exit 1 }
19 fc6f6474 2002-09-09 alex 	"251 IdleTest :There are 1 users and 0 services on 1 servers" { set r 0 }
20 fc6f6474 2002-09-09 alex 	"251 IdleTest :There are" { set r 99 }
21 fc6f6474 2002-09-09 alex }
22 fc6f6474 2002-09-09 alex 
23 fc6f6474 2002-09-09 alex send "quit\r"
24 fc6f6474 2002-09-09 alex expect {
25 fc6f6474 2002-09-09 alex 	timeout { exit 1 }
26 fc6f6474 2002-09-09 alex 	"Connection closed"
27 fc6f6474 2002-09-09 alex }
28 fc6f6474 2002-09-09 alex 
29 fc6f6474 2002-09-09 alex exit $r
30 fc6f6474 2002-09-09 alex 
31 fc6f6474 2002-09-09 alex # -eof-