home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / unixc.scr < prev    next >
Encoding:
Text File  |  1988-02-26  |  3.0 KB  |  64 lines
  1. ***************************************************************************
  2. *        U N I X C. S C R --- Script for connecting to UNIX system        *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  UnixC.Scr                                                   *
  6. *                                                                         *
  7. *    Purpose: Connects to Unix system with "C" shell.                     *
  8. *    Designed for use attached script in dialing directory.               *
  9. *                                                                         *
  10. *    Invocation:                                                          *
  11. *                                                                         *
  12. *       Execute "UnixC"                                                   *
  13. *                                                                         *
  14. *    Remarks:                                                             *
  15. *                                                                         *
  16. *       Change the values of "username" and "password" to those of        *
  17. *       your own Unix account.                                            *
  18. *                                                                         *
  19. ***************************************************************************
  20. *
  21. *                                  Wake up Unix autobaud.
  22.  Repeat
  23. *
  24.     SText "|"
  25. *                                  Wait for "login" prompt.
  26.     WaitString "login:" 2
  27. *
  28.  UNTIL ( WaitFound OR ( NOT Connected ) )
  29. *
  30. *                                  Quit if carrier dropped.
  31.  IF ( NOT Connected ) THEN
  32.     Exit
  33.  ENDIF
  34. *                                  Send user name -- PUT YOURS HERE.
  35.  SText "username|"
  36. *                                  Wait for password prompt.
  37.  WaitString "Password:"
  38. *                                  Send password -- PUT YOURS HERE.
  39.  SText "password|"
  40. *
  41. *                                  Set VT100 emulation in PibTerm.
  42.  SetParam 'VC' '0'
  43.  SetParam 'AK' '0'
  44. *                                  Wait for shell character.
  45. *                                  You will need to change this if
  46. *                                  your shell uses a different prompt.
  47. *                                  The standard "C" shell prompt is '%'.
  48. *                                  If you get a "$", you've probably
  49. *                                  got a Bourne shell system, in which
  50. *                                  case you should use script "UnixB.Scr".
  51.  WaitString "% "
  52.  SText "setenv TERM vt100|"
  53. *                                  Load Vax/VMS style function keys.
  54. *                                  These are useful for Unix too.
  55.  IF ( EnhKeybd = 1 ) THEN
  56.     Key 'decvaxe.fnc'
  57.  ELSE
  58.     Key 'decvax.fnc'
  59.  ENDIF
  60. *                                  Set backspace if not already set.
  61.  SetParam 'DE' '^H'
  62.  SetParam 'BS' ''
  63. *
  64.