home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / k95source / login.ksc < prev    next >
Text File  |  2020-01-01  |  3KB  |  72 lines
  1. ; LOGIN.KSC
  2. ; V4.3 - January 2000
  3. ; 
  4. ; This is a general-purpose login script for use with Kermit 95.  It should
  5. ; work with any computer or service that gives a "login:" or "Username:" or
  6. ; "User ID:" prompt, and then a password prompt, and then, if you have logged
  7. ; in successfully, eventually a system prompt such as $ or % or ) on the left
  8. ; margin.  Typical examples include UNIX, VMS, and AOS/VS.  Usage:
  9. ;
  10. ;   SET LOGIN USERID <your-user-id>    (required)
  11. ;   SET LOGIN PASSWORD <your-password> (optional)
  12. ;   SET LOGIN PROMPT <system-prompt>   (optional)
  13. ;
  14. ; or:
  15. ;
  16. ;   autologin <your-user-id> [ <your-password> [ <optional-system-prompt> ] ]
  17. ;
  18. ; If the prompt is specified as NONE, the script CONNECTs immediately
  19. ; after sending the password, without waiting for a system prompt.
  20. ; If no prompt is specified, the script tries a selection of commonly
  21. ; used prompts.
  22. ;
  23. ; If no password is specified AND the prompt is NONE, the script exits
  24. ; immediately after supplying the user ID, so you can type the password
  25. ; yourself.
  26. ;
  27. ; V2:   Block structure, allowance for password-only prompt.
  28. ; V3:   ???
  29. ; V4:   Rename to AUTOLOGIN to avoid clash with new LOGIN command.
  30. ; V4.1: output of password to be compatible with K95 dialer
  31. ; V4.2: check for password afer issuance of user name
  32. ; V4.3: support telnet daemons that issue login prompt with username filled
  33. ;       by telnet environment option
  34. ; V4.4: small typo \m(password) instead of \m(passwd)
  35.  
  36.  
  37. if not defined AUTOLOGIN {
  38.     define AUTOLOGIN {
  39.     local passwd \%i
  40.     if not def \%1 assign \%1 \v(user)
  41.     if not def \%1 end 1 \%0: ERROR - A user ID is required
  42.     asg passwd \%2
  43.     if not def \%3 assign \%3 \v(prompt)
  44.     if not def \%3 assign \%3 NONE
  45.     for \%i 1 5 1 {    
  46.         minput 5 login: Username: {User ID:} {User Name:} {ssword:}
  47.         if success break
  48.         output \13
  49.     }
  50.     if ( > \%i 5 ) end 1 {No response from host}
  51.     if ( < \v(minput) 5 ) {        ; Have username prompt
  52.             input 0 {ssword:}
  53.             if failure {
  54.               lineout \fcont(\%1)        ; Send username
  55.               if not def passwd if eq "" "\v(password)" end 0
  56.           minput 5 {ssword:} {Name?}    ; Wait for password prompt
  57.           if fail end 1 {No password prompt}
  58.             }
  59.     }
  60.     msleep 100              ; Pause for safety
  61.         if def passwd lineout \m(passwd)  ; Send password
  62.         else lineout \v(password)
  63.     if eq "\%3" "NONE" end 0      ; Wait for prompt
  64.     if def \%3 input 20 \%3
  65.     else minput 20 {\13\10$ } {\13\10%\32} {\10\13$\32}  {\13\10)\32}
  66.     if fail end 1 {No system prompt}
  67.     end 0
  68.     }
  69. }
  70. autologin \%1 \%2 \%3
  71. end \v(status)
  72.