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}

}