home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / ip / ppp / dp-2.3 / script / ppp-login < prev    next >
Encoding:
Text File  |  1992-05-26  |  1.8 KB  |  108 lines
  1. ##
  2. ##  Login to a Unix machine as username $1 with password $2.
  3. {
  4.   alternate
  5.     recv "ogin:" 10
  6.   alternate
  7.     log "Sending return to get first login prompt"
  8.     xmit "\r"
  9.     recv "ogin:" 5
  10.   alternate
  11.     log "Sending return to get first login prompt"
  12.     xmit "\r"
  13.     recv "ogin:" 5
  14.   alternate
  15.     log "Sending break to get first login prompt"
  16.     xmit "\#\r"
  17.     recv "ogin:" 5
  18.   alternate
  19.     log "Sending break to get first login prompt"
  20.     xmit "\#"
  21.     recv "ogin:" 5
  22.   alternate
  23.     log "Sending break to get first login prompt"
  24.     xmit "\#\r"
  25.     recv "ogin:" 5
  26. }
  27. mark
  28. xmit "$1\r"
  29. {
  30.   alternate
  31.     recv "assword:" 35
  32.   alternate
  33.         xmit "\r"
  34.     recv "ogin:" 10
  35.     mark
  36.     xmit "$1\r"
  37.     recv "assword:" 10
  38.   alternate
  39.     log "Sending break to get second login prompt"
  40.     xmit "\#"
  41.     {
  42.       alternate
  43.         recv "ogin:" 10
  44.       alternate
  45.         log "Sending break to get second login prompt"
  46.         xmit "\#"
  47.         recv "ogin:" 10
  48.     }
  49.     mark
  50.     xmit "$1\r"
  51.         {
  52.           alternate
  53.             recv "assword:" 10
  54.           alternate
  55.         log "Sending break to get third login prompt"
  56.             xmit "\#"
  57.             {
  58.               alternate
  59.                 recv "ogin:" 10
  60.               alternate
  61.             log "Sending break to get third login prompt"
  62.                 xmit "\#"
  63.                 recv "ogin:" 10
  64.             }
  65.         mark
  66.             xmit "$1\r"
  67.             recv "assword:" 10
  68.         }
  69. }
  70. mark
  71. xmit "$2\r"
  72. {
  73.   alternate
  74.         recv "PPP start" 60
  75.         go
  76.   alternate
  77.     replay
  78.     recv "ogin: " 5
  79.   alternate
  80.     log "Sending break to get login prompt after failed login"
  81.     xmit "\#"
  82.     recv "ogin:" 15
  83. }
  84. mark
  85. xmit "$1\r"
  86. {
  87.   alternate
  88.     recv "assword:" 10
  89.   alternate
  90.     log "Sending break to get second login prompt after failed login"
  91.     xmit "\#"
  92.     {
  93.       alternate
  94.         recv "ogin:" 10
  95.       alternate
  96.         log "Sending break to get second login prompt after failed login"
  97.         xmit "\#"
  98.         recv "ogin:" 10
  99.     }
  100.     mark
  101.     xmit "$1\r"
  102.     recv "assword:" 10
  103. }
  104. mark
  105. xmit "$2\r"
  106. recv "PPP start" 20
  107. go
  108.