home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pub / scripts / ckermit / callbycall < prev    next >
Encoding:
Text File  |  2020-01-01  |  3.1 KB  |  90 lines
  1. ; c a l l b y c a l l
  2. ; 
  3. ; A dialing script that selects an access code by time of day to get
  4. ; the lowest rate (this script is used in Muenchen/Munich, Germany).
  5. ;
  6. ; Sample usage:
  7. ;   set dial macro call-by-call
  8. ;   dial <phone-number>
  9. ;
  10. ; Illustrates:
  11. ;   An application for SET DIAL MACRO.
  12. ;   Regular expressions as SWITCH labels.
  13. ;   Word splitting.
  14. ;
  15. ; Version 1: 16 July 1999
  16. ;   Provider arrays are hardwired.
  17. ;   A future version will construct the provider arrays dynamically from
  18. ;   current rate tables, and possibly account for weekends/holidays.
  19. ;
  20. ; From: Peter Eichhorn <petere@assyst-intl.com>
  21. ; Organization: assyst GmbH
  22. ; URL: http://www.assyst-intl.com/
  23. ; Subject: Call-By-Call demo script
  24. ; Date: Fri, 16 Jul 99 18:34:32 MESZ
  25. ;
  26. ; Declare arrays with an element for each hour.
  27. ; \&d for the normal days and \&w for the weekend.
  28. ; (&w is currently not used.  We don't work on summer weekends :-)
  29. ; (Hint: use \v(nday) to get day of week: 0 = Sunday, 1 = Monday, ...)
  30. ;
  31. ; Each array element is a list of access codes to be dialed in that hour.
  32. ; The elements of the list are separated by spaces.  The first one is called
  33. ; on the first DIAL attempt; the second one on the second attempt, and so on.
  34. ;
  35. declare \&d[24]                 ; Weekdays
  36. declare \&w[24]                 ; Weekend (not used)
  37.  
  38. .\&d[7] = 01040 01078 01079     ; For 07:00-08:00
  39. .\&d[8] = 01079 01030 01051     ; For 08:00-09:00
  40.  
  41. for \%i 9 16 1 { .\&d[\%i] = 01051 010050 01030 }  ; For 09:00-17:00
  42.  
  43. .\&d[17] = 01066 01051 010050   ; For 17:00-18:00
  44. .\&d[18] = 01066 01030 01085    ; For 18-19
  45. .\&d[19] = 01019 01050 01066    ; For 19-20
  46. .\&d[20] = 01078 01015 01019    ; For 20-21
  47. .\&d[21] = 01011 01090 01040    ; For 21-22
  48.  
  49. for \%i 22 24 1 { .\&d[\%i] = 01050 01019 01011 }  ; For 22:00-07:00
  50. for \%i  1  6 1 { .\&d[\%i] = 01050 01019 01011 }
  51.  
  52. ; In this example, we have three provider numbers in each time slot,
  53. ; so we set the retry limit to 4, so on the 4th try we dial without
  54. ; specifying a provider.
  55. ;
  56. set dial retries 4
  57.  
  58. ; Since we are dialing a different number each time, there is no need to
  59. ; wait between dial attempts.
  60. ;
  61. set dial interval 2
  62.  
  63. ; Select and insert a provider access number depending on the current hour.
  64. ; Note that we skip all local calls (1-9*) and all calls that go to a nearby
  65. ; area (08*).
  66. ;
  67. define Call-By-Call {
  68.     ; First split the current number at 'w' or 'W' into two parts.
  69.     ;  BUT put the 'W' back in the first part!
  70.     ;  (W = "wait for secondary dialtone")
  71.     assign d_pre \fword(\%1,1,wW)W
  72.     assign d_num \fltrim(\%1,\m(d_pre))
  73.     ;;; echo \%1 \m(d_pre) \m(d_num) ; (debugging)
  74.  
  75.     ; For local calls or near-local calls use default provider.
  76.     ; Just return the number as given
  77.     switch \m(d_num) {
  78.        :[1-9]*, :08*, return \%1
  79.     }
  80.  
  81.     ; Get the current hour and if we have 00:xx make it 24.
  82.     assign hour \fword(\v(time))
  83.     if = 0 \m(hour) assign hour 24
  84.  
  85.     ; Finally return the original number including the dialing code 
  86.     ; for the new provider.  NOTE: A different access code is selected
  87.     ; for each dial attempt, \v(dialcount).
  88.     return \m(d_pre) \fword(\&d[\m(hour)],\v(dialcount)) \m(d_num)
  89. }
  90.