home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / scripts / ckermit / logserial < prev    next >
Text File  |  2009-12-06  |  4KB  |  88 lines
  1. #!./wermit
  2. #
  3. # logserial
  4. # 
  5. # C-Kermit Script to copy a local shell session out the serial port in real
  6. # time; for example to feed it to a speaking device or serial printer; in this
  7. # case, the RC Systems DoubleTalk LT, which needs each line to be terminated
  8. # by an ASCII NUL character.
  9. # 
  10. # Replace "./wermit" in the first line with the full path of your C-Kermit 9.0
  11. # program and give this script file execute permission with chmod +x.
  12. # 
  13. # C-Kermit 9.0 or later is required, and it must be a version built with
  14. # -DNOUUCP, as the Mac OS X versions are, by default, in this C-Kermit
  15. # release.  SET SESSION-LOG NULL-PADDED is new to C-Kermit 9.0, as is the
  16. # ability to send a log file (session, debug, packets...) to a serial port.
  17. # 
  18. # The device on the other end should be connected with a null modem cable or
  19. # modem eliminator and it should be turned on before this script is executed,
  20. # otherwise the script is likely to hang when it tries to open the serial
  21. # port, because many versions of Unix will not open a serial port unless or
  22. # until certain modem signals such as CD, DSR, and/or CTS are presented.
  23. # 
  24. # Frank da Cruz, Columbia University, October 2009
  25. # 
  26. # Last update: Tue Oct 27 10:59:35 2009
  27.  
  28. if < \v(version) 900299 exit 1 "FATAL - C-Kermit 9.0 required"
  29.  
  30. # Change port parameters as appropriate:
  31.  
  32. .portname = /dev/tty.KeySerial1        # Tested on a Keyspan USB adapter 
  33. .speed = 9600
  34. .flow = rts/cts
  35.  
  36. # Set up the serial port 
  37.  
  38. set carrier-watch off            # Don't require carrier 
  39. set line \m(portname)            # Try to open the serial port
  40. if fail exit 1 "FATAL - \m(portname): \v(setlinemsg)" # Stop here on error
  41. set speed \m(speed)            # Set the required transmission speed 
  42. if fail exit 1 FATAL - "set speed \m(speed)" rejected for \m(portname)
  43. set flow \m(flow)            # Set the appropriate flow control 
  44. if fail exit 1 FATAL - "set flow \m(flow)" unsupported for \m(portname)
  45. output \13                # Send it a Carriage Return 
  46. output \{1}4S                # Set the desired speaking speed 
  47.  
  48. # The two output commands are specific to the DoubleTalk device.  The carriage
  49. # return (\13) activates the speaking function, and "\{1}4S" (Ctrl-A, 4, S) is
  50. # a command to set the speaking rate.  5 is average, use a lower digit to slow
  51. # it down, a higher digit (up to 9) to speed it up.
  52. #
  53. # Since Kermit can't have two terminal connections open at the same time,
  54. # the serial port has to be closed.  We just have to hope the settings stick
  55. # (in Mac OS X they do).
  56.  
  57. close connection            # Close the port
  58.  
  59. # In the following section we open a new connection to a pseudoterminal (pty).
  60. # "set session-log null-padded" is also specific to the DoubleTalk device.
  61.  
  62. set session-log binary            # text might also work
  63. set session-log null-padded             # Put ^@ after every ^J
  64. log session \m(portname)        # Log session to serial port
  65. if fail {
  66.     echo "---------------------------------------------------"
  67.     echo ERROR: SERIAL PORT \m(portname) CAN'T BE OPENED FOR
  68.     echo LOGGING.  EITHER THE DEVICE IS NOT ACCESSIBLE OR IT
  69.     echo IS IN USE BY ANOTHER PROCESS.
  70.     echo "---------------------------------------------------"
  71.     exit 1
  72. }
  73. set host /pty \$(SHELL)            # Start new shell in a pseudoterminal 
  74. if fail exit 1 "FATAL - Can't spawn a new shell"
  75.  
  76. echo "---------------------------------------------------"
  77. echo STARTING NEW SHELL SESSION LOGGING TO \m(portname)...
  78. echo GIVE AN 'exit' COMMAND TO THE SHELL TO STOP LOGGING.
  79. echo "---------------------------------------------------"
  80.  
  81. connect
  82.  
  83. echo "---------------------------------------------------"
  84. echo SESSION TERMINATED, LOGGING STOPPED.
  85. echo "---------------------------------------------------"
  86. close session
  87. exit 0
  88.