home *** CD-ROM | disk | FTP | other *** search
/ Telecom / 1996-04-telecom-walnutcreek.iso / caller-id / asp.procomm < prev    next >
Internet Message Format  |  1993-07-30  |  11KB
  1. From telecom@delta.eecs.nwu.edu Fri Jul 23 12:37:33 1993
  2. Received: from delta.eecs.nwu.edu by gaak.LCS.MIT.EDU via TCP with SMTP
  3.     id AA03577; Fri, 23 Jul 93 12:37:28 EDT
  4. Received: by delta.eecs.nwu.edu id AA14039
  5.   (5.65c/IDA-1.4.4 for ptownson@gaak.lcs.mit.edu); Fri, 23 Jul 1993 11:37:20 -0500
  6. Date: Fri, 23 Jul 1993 11:37:20 -0500
  7. From: TELECOM Moderator <telecom@delta.eecs.nwu.edu>
  8. Message-Id: <199307231637.AA14039@delta.eecs.nwu.edu>
  9. To: ptownson@gaak.LCS.MIT.EDU
  10. Subject: callid.asp.using.procomm
  11. Status: RO
  12.  
  13.  
  14. >From telecom Fri Jul 23 07:59:30 1993
  15. Received: by delta.eecs.nwu.edu id AA09040
  16.   (5.65c/IDA-1.4.4 for \telecom); Fri, 23 Jul 1993 07:59:24 -0500
  17. Received: from uvs1.orl.mmc.com by delta.eecs.nwu.edu with SMTP id AA29769
  18.   (5.65c/IDA-1.4.4 for <telecom@delta.eecs.nwu.edu>); Fri, 23 Jul 1993 07:58:46 -0500
  19. Received: from TCCSLR.DECnet MAIL11D_V3 by uvs1.orl.mmc.com (5.57/Ultrix3.0-C)
  20.     id AA16314; Fri, 23 Jul 93 09:01:10 -0400
  21. Date: Fri, 23 Jul 93 09:01:09 -0400
  22. Message-Id: <9307231301.AA16314@uvs1.orl.mmc.com>
  23. From: padgett@tccslr.dnet.mmc.com (A. Padgett Peterson, P.E. Information Security)
  24. To: "telecom@delta.eecs.nwu.edu"@UVS1.dnet.mmc.com
  25. Subject: Pat - Caller-ID ASPect file for procomm
  26. Status: R
  27.  
  28. ;**************************************************************
  29. ;        CALLID.ASP (C) 1992 by Padgett Peterson
  30. ;
  31. ;    CALLID.ASP is a PROCOMM Aspect script file that may be
  32. ;       used on those telephone lines returning such information.
  33. ;       This version is being made available as FREEWARE and may
  34. ;       be included/distributed freely so long as 1) This copyright
  35. ;       notice remains intact, 2) No changes are made to this
  36. ;       script, and 3) No charge beyond a minimal distribution
  37. ;       fee is levied.
  38. ;
  39. ;       As such no warranty is made for fitness of any kind and
  40. ;       use is strictly at the recipient's own risk.
  41. ;
  42. ;       The program requires a modem that will return Caller-ID
  43. ;       values when instructed. Use will permit screening of
  44. ;       calls prior to the line being placed off-hook: if the
  45. ;       calling number is blocked or does not appear in the file
  46. ;       CALLID.DAT, the line will not be answered.
  47. ;
  48. ;       One effective use would be on a line having both modem
  49. ;       and FAX service. If the call is not from a known host,
  50. ;       the modem will not pick up and the FAX or voice mail
  51. ;       may connect instead. If this use is selected it will be
  52. ;       necessary to set the FAX not to answer until sufficient
  53. ;       time has elapsed after the first ring for the list of known
  54. ;       numbers to be scanned and a decision made.
  55. ;
  56. ;       CALLID makes use of two files CALLID.DAT, the repository
  57. ;       of numbers to be answered in the format <number>;<text>.
  58. ;       The <number>  must contain all digits returned by the
  59. ;       Caller-ID stream but the format is unimportant since all
  60. ;       non-numeric characters will be stripped. Syntactically,
  61. ;       (407)555-1212 is the same as 407.555.1212, 4075551212, or
  62. ;       407 555 1212. The second file CALLID.LOG is created or
  63. ;       appended when the script executes and contains the information
  64. ;       on calls attempted.   
  65. ;       
  66. ;       For proper use as a PROCOMM "HOST" the HOST SETUP must be set
  67. ;       to EXIT on completion. The only known problem at this time
  68. ;       is the condition if an "approved" number calls the system
  69. ;       and hangs up before a connection is made. In this case PROCOMM
  70. ;       may "hang" in the HOST "waiting" mode and will answer the
  71. ;       next call. This is a problem with the HOST mode that will require
  72. ;       complete HOST emulation in the ASPECT file to correct (in work). 
  73. ;
  74. ;                        Version History
  75. ;
  76. ;       0.71 (beta) 1 November 1992    Southern Bell/Supra FAX/Modem
  77. ;                                      version, 1st issue.
  78. ;
  79. ;       For more information contact the author at (407)352-6007 6-9 pm
  80. ;       EST (no collect calls) or write to POB 1203, Windermere, FLA, 
  81. ;        34786. Please enclose a #10 SASE. 
  82. ;
  83. ;       PROCOMM, PROCOMM+, and ASPECT are registered products of
  84. ;       Datastorm Inc. (800)326-4799
  85. ;
  86. ;       Supra FAX/Modem is a product of the Supra Corp. (800)727-8647
  87. ;
  88. ;*******************************************************************
  89. ;
  90. define atcmd   "AT^M"          ; basic AT command
  91. define cichk   "AT#CID=?^M"    ; these commands are valid for a Supra
  92. define cicmd   "AT#CID=1^M"    ; FAX/Modem with Caller-ID enabled
  93. define noans   "ATS0=0^M"      ; Reset modem to non-answer
  94. define ringmsg "RING"
  95. define okstr   "OK"
  96. define erstr   "ERROR"
  97. define blank   " "
  98. define logfil  "callid.log"    ; Log file for received calls
  99. define datfil  "callid.dat"    ; Data files for "approved" numbers
  100. ;
  101. ; Global Variables
  102. ;
  103.  string idline,strnum,instr,crlf,tmps1,tmps2
  104.  integer idlen,tmpn1,flag,dflag,pos,char,nhi
  105. ;
  106. proc main
  107. ;
  108. ;
  109.  strset crlf 10 1
  110. ;
  111. ;     Setup
  112. ;
  113.  set keys on
  114.  set display off
  115.  vidsave 0
  116.  box 8 21 15 77 00
  117.  box 7 20 14 75 79
  118.  atsay 8 28 79 " Caller-ID Handler (C) 1992 by Padgett "
  119. ;
  120. ;    Make sure modem is turned on
  121. ;
  122.  set rxdata on
  123.  atsay 10 22 79 "Waiting for Modem"
  124.  transmit noans
  125.  call getstr with &instr
  126.  call getstr with &instr
  127.  strcmp instr okstr 2
  128.  if success
  129.    atsay 10 22 79 "Modem Responding    "
  130.   else
  131.    atsay 10 22 79 "Modem not responding   "
  132.    set rxdata off 
  133.    waitquiet 2 2
  134.   goto enditall
  135.  endif
  136. ;
  137. ;    Check for Caller-Id supporting modem
  138. ;
  139.  atsay 10 40 79 "- Caller-ID Initializing"
  140.  set rxdata on
  141.  transmit cicmd
  142.  call getstr with instr    ; flush command echo
  143.  call getstr with &instr   ; get response
  144.  strcmp instr erstr 5      ; IF not "ERROR" assume OK
  145. ;
  146.  if success
  147.     atsay 10 65 79 "- Failed"
  148.     waitquiet 2 2
  149.     goto enditall
  150.  else
  151.     atsay 10 65 79 "- Success"
  152.     call getstr with instr    ; flush OK
  153.  endif
  154. ;
  155. ;    Open the data file
  156. ;
  157.  findfirst datfil
  158.  if found
  159.   atsay 11 22 79 "Data File Present"
  160.   fopen 0 datfil "rt"
  161.    if success
  162.     atsay 11 40 79 "- Opened"
  163.     dflag=1 
  164.    else
  165.     atsay 12 22 79 "Data file could not be opened - terminating"
  166.     waitquiet 2 2
  167.     goto enditall  
  168.    endif
  169.  else
  170.    atsay 11 22 79 "No Data File      - Logging only"
  171.    dflag=0     
  172.  endif
  173. ;
  174. ;     Open the LOG file
  175. ;
  176. openlog:
  177.  findfirst logfil
  178.  if found
  179.   fopen 1 logfil "at"
  180.   fseek 1 0 2
  181.  else
  182.   log open logfil
  183.   log close
  184.   goto openlog
  185.  endif
  186.   if success
  187.     atsay 12 22 79 "Log File          -"
  188.    else
  189.     atsay 12 22 79 "Log file could not be opened - terminating"
  190.     waitquiet 2 2
  191.     goto close0  
  192.   endif
  193. ;
  194. ;    Record Date & Time to Log - monkey motion but allows both
  195. ;                                   screen and file write
  196.    if dflag==0
  197.     fwrite 1 "Logging only, " 14
  198.    endif
  199.    strset tmps1 32 27
  200.    strupdt tmps1 "Opened:" 0 7
  201.    date tmps2
  202.    strupdt tmps1 tmps2 8 8
  203.    time tmps2 1
  204.    strupdt tmps1 tmps2 17 8 
  205.    fatsay 12 42 79 "%.25s" tmps1
  206.    strupdt tmps1 crlf 25 1 
  207.    tmpn1=26
  208.    fwrite 1 tmps1 tmpn1
  209. ;
  210. ;    Create LOG Box
  211. ;
  212.     box 17 21 23 77 00
  213.     box 16 20 22 75 79
  214.     atsay 17 40 79 "- Received Calls -"
  215. ;
  216. ;    Wait For Ring Signal
  217. ;
  218.     when 0 "RING" call numhan
  219. ringlp:
  220.     atsay 13 22 79 "Waiting for Ring  - Press any key to abort"
  221.     set display off
  222.     set rxdata off
  223. ;
  224.     if hitkey == 0
  225.      goto ringlp
  226.     endif
  227.     set keys off
  228.     goto close1
  229. ;
  230. ; End the program
  231. ;
  232. close1:
  233.   fclose 1
  234. close0:
  235.   if dflag == 1
  236.    fclose 0
  237.   endif
  238. enditall:
  239.   cwhen 0
  240.   set rxdata off
  241.   vidrest 0
  242.   set display on
  243.   exit
  244. endproc
  245. ;
  246. ;----------------------------------------------------------------------
  247. ;
  248. ; Procedure to concatenate numbers from a string up to the first blank
  249. ;  and strip out all other characters
  250.  
  251. proc stripnum
  252.  
  253. strparm in1,out1
  254. intparm j1
  255. integer i1,p1,c1
  256. ;
  257. ;    Find the limit of what is to be checked
  258. ;
  259.  
  260.      find in1 ";" p1
  261.      if not found
  262.         strlen in1 p1
  263.      endif
  264. ;
  265. ;     Now concatenate just the numbers
  266. ; 
  267.       j1 = -1
  268.       strset out1 0 40
  269. ;
  270.       for i1 = 0 upto p1
  271.        strpeek in1 i1 c1
  272.        if (c1 > 47) && (c1 < 58) 
  273.          j1= j1 + 1
  274.          strpoke out1 j1 c1
  275.        endif
  276.       endfor
  277. ;
  278. endproc
  279. ;----------------------------------------------------------
  280. ;
  281. ; Procedure to create an input string of characters to <cr>
  282. ; from the COM port. May also be used to flush the port.
  283. ;
  284. proc getstr   
  285. ;
  286.   strparm gss
  287.   integer gsj,gsc
  288. ;
  289.   set rxdata on
  290.   strset gss 0 40
  291.   gsj=0
  292. lp2:
  293.    comgetcd gsc
  294.    if gsc < 32  
  295.     if (gsj != 0) || (gsc == -1) 
  296.      goto endit
  297.     else
  298.       goto lp2
  299.     endif
  300.    endif
  301.    strpoke gss gsj gsc
  302.    gsj = gsj + 1
  303.    goto lp2
  304. ;
  305. endit:
  306. ;
  307. endproc
  308. ;
  309. ;---------------------------------------------------------------------------
  310. ;
  311. ; Call Handling Procedure - Procedure is called by WHEN "RING" command
  312. ;
  313. proc numhan
  314. ;
  315.    cwhen 0
  316.    atsay 13 22 79 "             Checking Number              "
  317. chklp:
  318.    strset instr 0 40 
  319.    strset tmps2 0 41
  320.    call getstr with &instr   ; get date
  321.    strcmp instr "TIME" 4 
  322.    if not success
  323.     strcmp instr "RING"     ; second string will be RING if no Caller-ID
  324.     if not success
  325.         goto chklp
  326.     else
  327.         goto endnh
  328.     endif
  329.    endif
  330. ;
  331.    scroll 1 18 22 21 74 79          ; new entry so scroll the screen
  332. ;
  333.    fatsay 21 22 79 "%.15s" instr
  334.    fwrite 1 instr 15              ; log the time
  335.    call getstr with &tmps1                ; get number
  336.    call stripnum with tmps1 &tmps2 &idlen ; strip it
  337. ;
  338.    if dflag == 0
  339.      atsay 13 22 79 "       Logging Calling Number           "
  340.      goto nonum
  341.    endif
  342. ;
  343. ;    Check the number
  344. ;
  345.    rewind 0
  346. ;
  347.    while not eof 0
  348.      strset idline 0 41
  349.      fgets 0 idline 
  350.      call stripnum with idline &strnum &idlen
  351.      if idlen < 1 
  352.         goto noline
  353.      endif
  354.      strcmp strnum tmps2 idlen
  355.      if success
  356.         goto foundnum
  357.      endif
  358. noline:   
  359.    endwhile
  360. ;
  361. ;    Number not found
  362. ;
  363.    atsay 13 22 79 "         No Match -                     "
  364. nonum:
  365.    flag=0
  366.    fwrite 1 " No Match " 10
  367.    fwrite 1 tmps2 40
  368.    fwrite 1 crlf 1
  369.    goto wrtnum
  370. ;   
  371. ;    Number Found
  372. ;
  373. foundnum: 
  374.    
  375.    flag=1
  376.    fwrite 1 "   Match  " 10
  377. ;
  378. ; Strip any control characters out of idline
  379. ;
  380.    strlen idline pos
  381.    for nhi=1 upto pos
  382.      strpeek idline nhi char
  383.      if char < 32
  384.       strpoke idline nhi 32
  385.      endif
  386.    endfor
  387. ;
  388. ; Now output the entry to the LOG file
  389. ;
  390.    fwrite 1 idline 40
  391.    fwrite 1 crlf 1
  392.    strcpy tmps2 idline 40
  393. ;
  394. ;    Put the Information on the screen also (last 4 numbers)
  395. ;
  396. wrtnum:
  397.           fatsay 21 35 79 "%.40s" tmps2
  398. ;
  399. ;    DOIT
  400. ;
  401.      if flag == 1
  402.            vidsave 1
  403.            atsay 13 22 79 "    Number Matched - Entering HOST mode   "
  404.            HOST
  405.            transmit noans      ; Just to be sure
  406.            vidrest 1
  407.      endif
  408. ;
  409. endnh:
  410.     set display off
  411.     set rxdata off
  412.     atsay 13 22 79 "System resetting  - Waiting for silence  "
  413.     waitquiet 5 forever
  414.     when 0 "RING" call numhan
  415. endproc
  416. ;---------------------------------------------------------------------
  417.  
  418.  
  419.  
  420.