How To read a Serial Port data in to a Log file?

[JohnLynn]

I have a Caller-ID box that puts out serial information with out flow control.

I would like to log this information to a file.

I have not seen a script solution that will allow me to read a standart /dev/ttySx on RedHat Linux.

Any ideas?

Thanks in advance.
John

 

[raider2001]

Here's a Perl script that does what you want:

http://pcunix.com/Unix/logger.html

 

[marsd]

If you don't like perl, tcl has a very nice
interface to channels and serial ports and has a very
cool event loop which is good for diagnostics,traces,
garbage collection and other event happy stuff

proc poll {chan} {
if {![eof $chan]} {
puts "No eof detected on serial channel $chan at [exec date]"
after 15000 [list poll $chan]
} else {
puts "Detected eof , serial connection closed."
return 1;
}
}

proc loggit {filename chan} {
set myopen [open $filename "a+"]
while {[gets $chan line] > 0} {
puts $myopen $line
}
catch {close $myopen}
return
}


if {![catch {set myhandle [open /dev/ttyS? "r"]}]} {
fconfigure $myhandle -mode ?baud,parity,data,stop?
fileevent $myhandle readable [list loggit logfile $myhandle]
after 15000 [poll $myhandle]
}