#!/usr/bin/expect -f

# aehm, yes. it checks if the port is open or not, but not more. if anyone
# knows of a way to make a notes server say something, let me know.

set env(TERM) vt100
set timeout 10
match_max 100000

spawn telnet $argv 1352
expect "Escape character is '^\]'.\r\r" {
     exit 0
}
exit 1
