##
##  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
        }
}
mark
xmit "$2\r"
{
  alternate
        recv "PPP start" 60
        go
  alternate
	replay
	recv "ogin: " 5
  alternate
	log "Sending break to get login prompt after failed login"
	xmit "\#"
	recv "ogin:" 15
}
mark
xmit "$1\r"
{
  alternate
	recv "assword:" 10
  alternate
	log "Sending break to get second login prompt after failed login"
	xmit "\#"
	{
	  alternate
		recv "ogin:" 10
	  alternate
		log "Sending break to get second login prompt after failed login"
		xmit "\#"
		recv "ogin:" 10
	}
	mark
	xmit "$1\r"
	recv "assword:" 10
}
mark
xmit "$2\r"
recv "PPP start" 20
go
