##
##  Login to a Unix machine as username $1 with password $2.
{
  alternate
	recv "ogin:" 10
  alternate
	log "Sending return to get first login prompt"
	xmit "\r"
	recv "ogin:" 5
  alternate
	log "Sending return to get first login prompt"
	xmit "\r"
	recv "ogin:" 5
  alternate
	log "Sending break to get first login prompt"
	xmit "\#\r"
	recv "ogin:" 5
  alternate
	log "Sending break to get first login prompt"
	xmit "\#"
	recv "ogin:" 5
  alternate
	log "Sending break to get first login prompt"
	xmit "\#\r"
	recv "ogin:" 5
}
mark
xmit "$1\r"
{
  alternate
	recv "assword:" 35
  alternate
        xmit "\r"
	recv "ogin:" 10
	mark
	xmit "$1\r"
	recv "assword:" 10
  alternate
	log "Sending break to get second login prompt"
	xmit "\#"
	{
	  alternate
		recv "ogin:" 10
	  alternate
		log "Sending break to get second login prompt"
		xmit "\#"
		recv "ogin:" 10
	}
	mark
	xmit "$1\r"
        {
          alternate
        	recv "assword:" 10
          alternate
		log "Sending break to get third login prompt"
        	xmit "\#"
        	{
        	  alternate
        		recv "ogin:" 10
        	  alternate
			log "Sending break to get third login prompt"
        		xmit "\#"
        		recv "ogin:" 10
        	}
		mark
        	xmit "$1\r"
        	recv "assword:" 10
        }
}
xmit "$2\r"
mark
{
    alternate
	recv "PPP start" "PPP unavailable" "PPP error" 20
    alternate
	log "Timeout waiting for PPP to start on remote system"
	abort
}
{
    alternate
	replay
	recv "PPP start" 0
    alternate
	replay
	recv "PPP unavailable" 0
	log "PPP unavailable on remote system"
	abort
    alternate
	replay
	recv "PPP error" 0
	log "PPP startup error on remote system"
	abort
    alternate
	log "ppp-login script error"
	abort
}
go
