Subversion Repositories or1k

#!../expect -f

# archie

# Log in to the archie ftp-catalog at McGill University, and mail back results
# Brian P. Fitzgerald
# Department of Mechanical Engineering
# Rensselaer Polytechnic Institute

set CINTR \003  ;# ^C
set CSUSP \032  ;# ^Z

set timeout -1
spawn telnet quiche.cs.mcgill.ca

expect_after eof exit   ;# archie logs us out if too many people are logged in

expect {
        login:          {send archie\r}
        "unknown"       {exit 1}
        "unreachable"   {exit 1}
}

expect  "archie>" {send "set pager\r"}
expect  "archie>" {send "set maxhits 20\r"}
expect  "archie>" {send "set term vt100\r"}
expect  "archie>" {send "set sortby time\r"}
expect  "archie>" {
        send "set mailto [exec whoami]@[exec hostname].[exec domainname]\r"
}

send_user "type ^C to exit, ^Z to suspend\n"
interact {
        -reset  $CSUSP  {exec kill -STOP [pid]}
                $CINTR  {exit 0}
}