home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ckscripts / callstats < prev    next >
Text File  |  2020-01-01  |  5KB  |  120 lines
  1. #!/usr/local/bin/kermit +
  2. #
  3. # c a l l s t a t s
  4. #
  5. # Modem call statistics script.  Works in UNIX, Windows, VMS, etc, with 
  6. # minor adjustments.  Collects data on modem pool answer/busy performance.
  7. # 
  8. # F. da Cruz, Columbia University, April 2000
  9. #
  10. # Dials one, two, or more different modem pools repeatedly and logs results
  11. # of each call to a file, one record per call.  Numbers are dialed randomly
  12. # with a distribution based on how many modems are in each pool.  Each phone
  13. # number is assumed to reach a separate modem pool with no overlap or hunting
  14. # between pools.
  15. #
  16. # Runs forever, with a chance to exit after each call by pressing a key.
  17. #
  18. # Log file format:
  19. #
  20. # yyyymmdd hh:mm:ss x phonenum ds Dialresult (Modem message)
  21. # 20000404 10:26:37 2 519-3900  0 CONNECT 50000 V42bis
  22. # 20000404 10:28:53 2 519-3900 22 BUSY
  23. #
  24. # x  = numeric day of week (0 = Sunday)
  25. # ds = Dial status code (usually 0 = CONNECT, 22 = BUSY)
  26. #
  27. # These can be fed into a statistical package like SAS or SPSS to provide
  28. # modem availability statistics per pool or aggregate by time of day and/or
  29. # day of week.
  30.  
  31. define badversion echo C-Kermit 7.0 or K95 1.1.19 required, exit 1
  32. if LLT \v(version) 70000 badversion
  33.  
  34. # &n and &p are parallel arrays and should be initialized with the phone
  35. # numbers and corresponding number of modems, as many pairs as you like.
  36. # Lines marked (*) should be adjusted for your calling platform.
  37.  
  38. .logfile = C:/K95/TMP/CALLS.LOG          ; (*) Logfile name
  39. set modem type usrobotics                ; (*) Change as needed
  40. set port 1                               ; (*) Change as needed
  41. if fail stop 1 {Device not available}
  42. set speed 57600                          ; (*) Set the desired speed
  43. set flow rts/cts                         ; (*) and flow control
  44.  
  45. # The next two lines define the phone numbers and pool size for each.
  46.  
  47. dcl \&n[] = 555-1234 555-4321            ; (*) Replace by real phone numbers
  48. dcl \&p[] =   184      460               ; (*) How many modems in each pool
  49.  
  50. # No changes needed from here down.
  51.  
  52. .\%n := \fdim(&n)                        ; Number of phone numbers
  53. if ( != \%n \fdim(&p) ) stop 1 Arrays not parallel
  54.  
  55. dcl \&r[\%n]                             ; Phone-number ranges (histogram)
  56. .\&r[0] = 0                              ; Fill in the ranges...
  57. for ( \%i 1 \%n 1 ) {
  58.     .\&r[\%i] ::= \&r[\%i-1] + \&p[\%i]
  59. }
  60. .\%t := \&r[\%n]                         ; \%t = total number of modems
  61. .\%m = 0                                 ; \%m = total calls
  62. .\%a = 0                                 ; \%a = total answers
  63.  
  64. set dial retries 0                       ; No redialing
  65. set dial speed-matching off              ; No speed changing
  66. set exit warning off                     ; In case of misconfigured modem
  67. set bell off                             ; Silence please
  68. set modem speaker off
  69. set dial display off                     ; Minimal screen display
  70. set quiet on
  71. set dial hangup off                      ; Hang up after rather than before
  72. set modem hangup rs232                   ; Fast hangup method
  73. hangup                                   ; Hang up before starting
  74.  
  75. ; After each call we save the dial status, then hang up immediately
  76. ; (so as not to keep the line open, which could prevent real callers from
  77. ; getting in).  The saved dial status is because the HANGUP command sets
  78. ; the dialstatus variable too.  Then we append a record to the log, and
  79. ; then wait 2 minutes before dialing again (if we didn't wait, then BUSYs
  80. ; might be overrepresented since they happen faster than CONNECTs).
  81.  
  82. set command interruption off             ; Require graceful exit
  83.  
  84. while true {                             ; Loop forever
  85.     .\%x := \frandom(\%t)                ; Pick number to dial at random
  86.     for ( \%i 1 \%n 1 ) {                ; but weighted by size of each pool
  87.         if ( <= \%x \&r[\%i] ) break
  88.     }
  89.     increment \%m                        ; Count the call
  90.     clear dial-status
  91.     xecho \flpad(\%m,6): \&n[\%i]...
  92.     dial \&n[\%i]
  93.     .callstatus := \v(dialstatus)        ; Save DIAL status
  94.     hangup                               ; Hang up immediately
  95.     fopen /append \%c \m(logfile)        ; Write log record
  96.     if fail stop 1 LOG OPEN ERROR: \f_errmsg()
  97.     fwrite /line \%c -
  98. \v(ndate) \v(time) \v(nday) \&n[\%i] \flpad(\m(callstatus),2) \v(dialresult)
  99.     if fail stop 1 LOG WRITE ERROR: \f_errmsg()
  100.     fclose \%c
  101.     if fail stop 1 LOG CLOSE ERROR: \f_errmsg()
  102.     clear device
  103.     if ( = \m(callstatus) 0 ) {          ; If call anwered
  104.         increment \%a                    ; count it.
  105.     }
  106.     echo \v(dialresult)
  107.     set ask-timer 120                    ; Wait two minutes
  108.     getc \%u {>>> Press a key to quit: } ; Let user break the loop
  109.     set ask-timer 0    
  110.     if not asktimeout break
  111.     echo
  112. }
  113. echo                                     ; Loop broken
  114. echo Stopping.                           ; Print summary
  115. close                                    ; Close and release dialout device
  116. echo Calls:   \flpad(\%m,5)
  117. echo Answers: \flpad(\%a,5)
  118. echo
  119. end 0
  120.