Displaying 1 result from an estimated 1 matches for "portobj".
Did you mean:
porto
2004 Jan 31
0
Using an additional modem to get CallerID information
....
Capturing the caller ID details from the modem
I will presume at this stage, that you have a modem that supports caller ID
and it is installed and configured to work with your Linux box.
Here is my first script that reads the details in...
#!/usr/bin/perl
$PortName = "/dev/ttyn00";
$PortObj = open(MODEM,$PortName) || die "Can't open $PortName: $!\n";
while (1==1) {
local $/ = "\n";
while ($line=<MODEM>) {
chomp;
if ($line =~ s/NMBR = //) {
open(OUTFILE, ">/usr/src/myperl/callerid.txt") or die "Can't open
callerid.t...