informis/textfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
278a90f7ce
textfiles/phreak/callerid2.txt

527 lines
17 KiB
Plaintext
Raw Normal View History

Initial commit
2021-04-15 11:31:59 -07:00
--NOTE!:
-- The original file for this text disappeared. All of the text below
--was scanned from the printouts on hand. Please check for subtle
--errors in code listing (eg. l instead of 1).
--
--===========================================================
Information on CALLID.PNT, the Caller*Id to RS-232 interface MacPaint file
in this forum: [Converted to gif for IBM users]
Several states now offer Caller*Id services. Caller*Id is an extra price option,
available from your local telephone company, that provides the telephone number
of the person calling you. The telephone number is delivered to a separate unit,
the Caller*Id interface. This interface is available from several dealers
(Sears, AT&T Phone Stores, etc), and must be purchased separately.
The current model is the 125C, priced at about $60 from Sears.
All the interface units (125, 125A, 125B and the current 125C) have the same
drawback: they only display the telephone number of the caller, not the caller's
name. That can make it difficult to "filter" people you don't want to talk to
(like that annoying magazine subscription person).
The circuit in CALLID.PNT provides a method of obtaining that information.
Inside all of the Caller*Id interfaces is an XR2211 integrated circuit. This
"chip" has as it's output the data stream containing the information sent over
the telephone line (for you techies, it's a Bell 202 data stream, sent between
the first and second ring).
All that is necessary to connect the Caller*Id unit to your RS-232 port are:
an MC1488 integrated circuit (available from Radio Shack, for about $l) and
a resistor (lOOK Ohm 1/4 watt, also available from Radio Shack).
The MC1488 "boosts" the output voltage to the level expected by the RS-232 port
on your computer, and the resistor provides some isolation and reduces the
voltage drop on the output of the MC1488.
The MC1488 needs a +/- 12volt power supply. If you have one, you're all set.
If not, Radio Shack sells small 9 volt power supplies for S5-6 each; you can
put two back-to-back to get a +/- 9 volt supply, which is close enough.
You could use a couple of 9volt batteries, too.
Everything, excluding the power supplies, fits into the Caller*id interface case.
I used a little hot-melt glue to place the MC1488 in an unused circuit board
area (watch out for the plastic standoffs on the case!). Small gauge wire
(or wire-wrap wire) connects the components together. If you're uncomfortable
soldering to the integrated circuits, you can pick up IC jumper clips at Radio
Shack as well (that way you can easily remove the "modification").
I bring the RS-232 pin 3 and pin 7 connections to a 1/8 inch mini-phone jack,
which I mounted on the case near the existing telephone jacks.
Once the circuit is built, what do you do with it? I use a Hypercard Stack
built on the EXCELLENT Portfolio Hyper System (PHS), by Bob Davis 70625,717,
to look up the phone number, announce the caller (using Macintalk) and provide
filtering (based on time of day and flags on the caller's record). I log all
incoming calls, both to a separate file and to the record of the caller.
My stack also contains records for telephone exchanges, so if the specific
number is not found, it will announce where (what town) the call is coming from.
In addition, since I have two Macintosh computers, I broadcast the information
over Appletalk, so both machines can announce the caller.
That should give you enough ideas! Following is an extract of the major portion
of the Hypercard script I use. I can't upload the entire stack, since it's part
of PHS. It should give you enough of the logic needed to build your own
application.
By the way, all of this is PUBLIC DOMAIN, for NON-COMERCIAL USE.
If you want to sell something with this, send me an EMAIL and we can discuss it.
Mace Moneta
CIS 73167,1546
-- CallerID Support Code - COPYRIGHT 1989, 1990 BY Mace Moneta
--===========================================================
-- ALL RIGHTS RESERVED.
-- FOR MORE INFORMATION CONTACT THE AUTHOR DIRECTLY.
-------------------------------------------------------------
--
-- Put the IDLE handler to sleep while editing a field
--
on openField
global editingField
put true into editingField
end openField
--
-- Wakeup the IDLE handler when finished field editing
--
on closeField
global editingField
put false into editingField
end closeField
--
-- OPEN STACK
--
on openStack
--
-- Cache the stack in memory for fastest access
--
set cursor to watch
set lockScreen to true
show all cards
set lockScreen to false
set cursor to none
--
-- Initialize Variables
--
global editingField,lastLookup
global globalATPData, globalResponseData
global globalReceiveData, myEntityName
global globalSKTData, globalNBPData
global modemData,myName,serverName,EotDC2,EotHT
global soundList,soundCount,serialBuffer
put false into editingField
put sndList() into soundList
put the number of lines in soundList into soundCount
put empty into globalResponseData
put empty into globalAppleTalkData
put empty into modemData
put empty into serverName
put numToChar(4) & numToChar(18) into EotDC2
put numToChar(4) & numToChar(9) into EotHT
put the seconds into lastLookup
--
-- Before we can become an entity on the network, we must first
-- open up access to the network. ATPOPEN performs this function
-- and relies on the variable "globalAppleTalkDATA".
-- Since ATPOPEN is not given a parameter, it will open both a client
-- and a server side allowing us to both issue requests and respond
-- to requests.
--
ATPOpen
if the result is empty then
--
-- If ATPOPEN was successful we can go ahead and register our name
-- with the network.
--
NBPOpen
--
-- We'll use the number of elapsed 1/60's of a second since IPL
--
-- as our unique "name".
--
put the ticks into myName
put "CallerID" into myType
NBPRegisterName myName,myType
if the result is not empty then
--
-- We had a problem connecting!
--
answer "Error connecting to AppleTalk!" with "Ok"
end if
end if
--
-- Initialize the serial port to 1200bps, 1 stop, 8 data bits,
-- no parity.
--
put serialHandler("open","A",1200,8,"none",1,"CTS",1024) B
into serialBuffer
end openStack
on goingElsewhere
--
-- If we are leaving this stack (quiting or opening another stack)
-- terminate our session on Appletalk and close the serial port.
--
global serialBuffer
put empty into globalResponseData
put empty into globalAppleTalkData
NBPClose
ATPClose
get serialHandler("close","A",serialBuffer)
end goingElsewhere
--
-- CLOSE STACK
--
on closeStack
goingElsewhere
end closeStack
--
-- IDLE
--
on idle
global editingField,lastLookup
global talkName,talkKeyword,EotDC2,EotHT
global globalResponseData,globalReceiveData
global modemData,myName,serverName,dataSource
global soundList,soundCount,serialBuffer
if editingField then exit idle
--
-- Initialize variables
--
put empty into modemData
put empty into talkName
put empty into talkKeyword
put false into outOfArea
set cursor to hand
--
-- Check for activity on the serial port
--
put serialHandler("get","A",3) into modemData
--
-- If we got something, remember where it came from.
--
if modemData is not empty then put "fromComm" into dataSource
--
-- If nothing came in over the serial port, check the other Mac,
-- to see it it got anything
--
-- First, check to see if a "CallerID" server is on the network
-- (a copy of this Hypercard stack, running on another machine)
--
put the seconds into it
if serverName is empty and it > lastLookup then
set cursor to watch
put the seconds + 30 into lastLookup
put NBPLookupNames("CallerID","*","20","2","8") into entityNames
repeat with x=l to the number of lines in entityNames
put line x of entityNames into it
if "CallerID" is in item 2 of it and myName is not in item 1 of it then
put item 1 of it into serverName
exit repeat
end if
end repeat
end if
--
-- Now ask the network for data
--
if modemData is empty and serverName is not empty then
ATPReceive "HandleReceive"
--
-- If we got something, remember where it came from.
--
if modemData is not empty then put "fromAT" into dataSource
end if
--
-- Scan the data for EOT DC2 sequence (header for known number)
-- or EOT HT (header for Out of Area call or Private - Blocked)
--
if modemData is not empty then
repeat with i = 1 to the length of modemData
if char i to i+1 of modemData is EotHT then put true into outOfArea
if char i to i+1 of modemData is EotDC2 or outOfArea then
--
-- Header found. Extract the phone number of the caller
--
if outOfArea then
if char i+6 of modemData is "P" then
--
-- We've got a blocked call! Announce as such by
-- looking up the record with pseudo phone number
-- CAL-LER<45>IDBL.
--
put "CAL" into areaCode
put "LER" into exchange
put "IDBL" into number
put "CAL-LER-IDBL" into phone
else
--
-- Just an out of area call. Look up the record
-- with pseudo phone number ???-???-???? and announce.
--
put "???" into areaCode
put "???" into exchange
put "????" into number
put "???-???-????" into phone
end if
else
--
-- We have an actual phone number!
--
put char i+10 to i+20 of modemData into phone
put char 1 to 3 of phone into areaCode
put char 4 to 6 of phone into exchange
put char 7 to 10 of phone into number
put areaCode & "-" & exchange & "-" & number into phone
end if
--
-- If we obtained data from the serial port,
-- see if anyone on the network wants our data
--
if dataSource contains "fromComm" then
ATPSendRequest serverName,modemData, B
"HandleSend", 2, 2 0
--
-- If we got an error, the server went bye-bye. Clear
-- the serverName, so that we will re-issue the Lookup
-- for a server.
--
if the result is not empty then put empty into serverName
put empty into modemData
end if
--
-- Define a "trunk" number to search for, incase the full
-- number is not found.
--
put areaCode & "-" & exchange & "-" & "????" into trunk
--
-- Search the directory for the phone number.
-- In this stack, each record can contain up to 3 phone
-- numbers. They are kept in the background field variables
-- (bg fld) "Phone1", "Phone2" and "Phone3".
--
get the short name of this card
if it is "Index" then go to next card
find phone in bg fld "Phone1"
if the result is "not found" then
find phone in bg fld "Phone2"
if the result is "not found" then
find phone in bg fld "Phone3"
end if
end i f
--
-- If the number was not found, see if we have a trunk line
--
if the result is "not found" then
find trunk in bg fld "Phone1"
if the result is "not found" then
find trunk in bg fld "Phone2"
if the result is "not found" then
find trunk in bg fld "Phone3"
end if
end if
end if
--
-- If we found the entry, extract the callers name and
-- invoke the announceCaller routine
--
if the result is empty then
put bg fld "Name" into talkName
put bg fld "Keywords" into talkKeyword
announceCaller
--
-- Annotate the entry so we know the last call date and time
--
get line 1 of bg fld "Note"
if it is "NOTE PAD" or word 1 to 2 of it is "Last Call: " then
set locktext of bg fld "Note" to false
put "Last Call: " && the long date && the time B
into line 1 of bg fld "Note"
set locktext of bg fld "Note" to true
else
set locktext of bg fld "Note" to false
put "Last Call:" && the long date && the time & return B
before line 1 of bg fld "Note"
set locktext of bg fld "Note" to true
end if
--
-- An unknown caller; just announce that there is a call
--
if talkName is empty then
put "Unknown Caller NOSUFFIX" into talkKeyword
put "Telephone Call" into talkName
announceCaller
end if
--
-- Log the call to file "CallerID Log", if on main machine
--
if dataSource contains "fromComm" then
put "CallerID Log" && word 2 of the long date && B
word 4 of the long date into logFile
open file logFile
--
-- Position at EOF
--
repeat
read from file logFile for 16834
if it is empty then exit repeat
end repeat
--
-- Place the data in the log
--
put the time into timeStamp
if the length of timeStamp < 8 Then B
put "O" & timeStamp into timeStamp
put the long date into dateStamp
put word 1 of dateStamp & tab & B
word 2 to 4 of dateStamp into dateStamp
write dateStamp & tab & timeStamp & tab & phone & tab & B
talkName && "(" & talkKeyword & ")" & return B
to file logFile
close file logFile
end if
exit repeat
end if
end if
end repeat
end if
end idle
--
-- This routine is invoked when someone is requesting our data.
-- Return the last caller info, and clear it.
--
on HandleSend
global globalResponseData
put empty into globalResponseData
end HandleSend
--
-- A server is responding to our request for the caller information.
-- Place it in modemData, for normal processing.
--
on HandleReceive
global globalReceiveData,modemData
if globalReceiveData is not empty then B
put globalReceiveData into modemData
end HandleReceive
--
-- Dummy handler to provide NOP response. This is automatically
-- invoked by the Appletalk routines, when there is no data to transfer.
--
on okay
end okay
--
-- Here we vocalize the name of the caller using MacinTalk, or if a
-- digitized sound is available with the same name, we play the sound.
--
-- Special values may be passed in the Keyword entry of the directory
-- as follows:
--
-- 24HR - This caller will be announced no matter what time it is.
-- Normally, calls between lOPM and 5AM are not announced.
-- IGNORE - This caller will never be announced (call screening).
-- NOSUFFIX - This caller will not have the "Calling" word appended
-- to his/her name when being announced. Normally, callers
-- are announced as "name Calling" (eg. Joe Shmoe Calling).
--
on announceCaller
--
-- Get the callers name and the keywords defined for him/her
--
global talkName,talkKeyword,soundList,soundCount
--
-- Get the current hour, in 24 hour format
--
put the time into timeCheck
convert timeCheck to dateitems
-- If it is after 1OPM and before 5AM, don't announce the caller.
-- If the caller has the special "IGNORE" keyword, never announce
-- the caller (call screening).
put true into sayingIt
if item 4 of timeCheck > 22 or B
item 4 of timeCheck < 5 or B
talkKeyword contains "IGNORE" then put false into sayingIt
--
-- If the caller has the special "24HR" keyword, announce the caller
-- no matter what time it is.
--
if talkKeyword contains "24HR" then put true into sayingIt
--
-- If we should announce this caller, do it three times
--
if sayingIt then
put true into soundNotFound
repeat with soundName = 1 to soundCount
if line soundName of soundList is talkname then B
put false into soundNotFound
end repeat
put getPVolume() into saveVolume
setPVolume(7)
if soundNotFound then
if "NOSUFFIX" is not in talkKeyword then B
put talkName && "Calling" into talkName
talk talkName,140,120
wait 1 seconds
talk talkName,140,120
wait 1 seconds
talk talkName,140,120
else
play talkname
wait until the sound is "done"
wait 1 seconds
play talkname
wait until the sound is "done"
wait 1 seconds
play talkname
wait until the sound is "done"
end if
setPVolume(saveVolume)
end if
end announceCaller
-----------------------------------------------------------
-- CallerID Support Code - COPYRIGHT 1989, 1990 BY Mace Moneta
-- ALL RIGHTS RESERVED.
-- FOR MORE INFORMATION CONTACT THE AUTHOR DIRECTLY.
-----------------------------------------------------------
/\ /\
/ \ / \
/ /
/ L&F DataSEC
\ 914-HAK-VMBS
\ / 3/12/24 MNP5
\ / PHALCON/SKISM
\/ GHQ
Downloaded From P-80 Systems 304-744-2253<35>
Downloaded From P-80 International Information Systems 304-744-2253
Reference in New Issue Copy Permalink