home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ckscripts / logport < prev    next >
Text File  |  2020-01-01  |  2KB  |  40 lines
  1. #!/usr/local/bin/kermit +
  2. #
  3. # l o g p o r t
  4. #
  5. # Logs incoming material from a serial port.
  6. # Typical uses: Logging PBX call records, logging messages from a
  7. # router control port, etc.
  8. #
  9. # Usage: logport [ logfilename ]
  10. #
  11. # F. da Cruz, Columbia University, 17 Apr 2004
  12. #
  13. .port := /dev/ttyS1            # Serial port to use (change as needed)
  14. if >= \v(argc) 2 {             # Take log file name from command line
  15.     .file := \fcontents(\%1)   # Eval one level deep in case of backslashes
  16. } else while not def file {    # Prompt for it if not given
  17.     ask file " Log file name: "
  18. }
  19. if not writeable \m(file) {    # Check write access to the log file
  20.     exit 1 "\m(file): Not writeable"
  21. }
  22. set modem type none            # No modem is involved
  23. set port /dev/ttyS1            # Or whatever port you are using
  24. if fail {                      # Check that port was obtained
  25.     exit 1 \m(port): \v(setlinemsg)
  26. }
  27. set speed 9600                 # Or whatever speed is needed
  28. set flow rts/cts               # Or Xon/Xoff, or None
  29. set parity none                # Or Even, Mark, Space, or Odd as needed
  30. # set carrier-watch off        # Uncomment if there is no Carrier signal
  31. set session-log text           # (or binary, or timestamped-text, etc)
  32. log session \m(file)           # Start the session log
  33. if fail exit 1                 # Make sure log was opened
  34. input /nomatch 23:59:59        # Log until midnight (requires 8.0.211)
  35. if fail {                      # Catch i/o errors
  36.     exit 1 "\m(port): I/O error"
  37. }
  38. close session                  # Close the log
  39. exit 0
  40.