1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
|
%% Copyright (C) 2005 Tycho Softworks.
%%
%% This file is free software; as a special exception the author gives
%% unlimited permission to copy and/or distribute it, with or without
%% modifications, as long as this notice is preserved.
%%
%% This program is distributed in the hope that it will be useful, but
%% WITHOUT ANY WARRANTY, to the extent permitted by law; without even the
%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
%%
%% This defines some macros specific to us location
use time
%% type def's used for telephone number, use with vartype command.
var size=10 %phone.number
var size=3 %phone.prefix
%% input a date, mm/dd/yyyy format
macro input-date
keywords results timeout interdigit
define timeout="10" interdigit="3"
date %date
input timeout=%timeout interdigit=%interdigit format="??/??/????" %date
set %results %date
if %date < 1700 then set %results "0000-00-00"
return
%% input a phone number
macro input-dialing
keyword results prefix timeout interdigit tone
define timeout="30" interdigit="5" prefix="" tone="none"
if #session.digits > 0 then signal ^dtmf
case %tone == "dial" or %tone == "dialtone"
dialtone timeout=%timeout location=us
otherwise
sleep %timeout
endif
set %results "timeout"
throw @dialing:timeout
return
^dtmf
collect count=11 interdigit=%interdigit
throw @digits:default
@digits:NXX0XXXX
@digits:NXX1XXXX
@digits:default
@digits:456
@digits:999
@digits:1456
@digits:1999
begin
case %session.digits == "0"
cleardigits
set %results "0"
throw @dialing:operator
return
case #session.digits == "7"
set %results %prefix %session.digits
cleardigits
throw @dialing:local
return
endcase
cleardigits
set %results "invalid"
throw @dialing:invalid
return
@digits:1NXXNXXXXXX
set %results %session.digits offset=1
cleardigits
throw @dialing:national
return
@digits:NXXNXXXXXX
set %results %session.digits
cleardigits
throw @dialing:national
return
@digits:1700NXXXXXX
@digits:1600NXXXXXX
@digits:1500NXXXXXX
set %results %session.digits offset=1
cleardigits
throw @dialing:special
set %results invalid"
throw @dialing:invalid
return
@digits:700NXXXXXX
@digits:600NXXXXXX
@digits:500NXXXXXX
set %results %session.digits offset
cleardigits
throw @dialing:special
set %results invalid"
throw @dialing:invalid
return
@digits:1242XXXXXXX
@digits:1246XXXXXXX
@digits:1264XXXXXXX
@digits:1268XXXXXXX
@digits:1284XXXXXXX
@digits:1473XXXXXXX
@digits:1590XXXXXXX
@digits:1767XXXXXXX
@digits:1809XXXXXXX
@digits:1900NXXXXXX
@digits:1976NXXXXXX
@digits:1880NXXXXXX
@digits:1881NXXXXXX
@digits:1882NXXXXXX
set %results %session.digits offset=1
cleardigits
throw @dialing:tollcall
return
@digits:880NXXXXXX
@digits:881NXXXXXX
@digits:882NXXXXXX
@digits:767XXXXXXX
@digits:809XXXXXXX
@digits:242XXXXXXX
@digits:246XXXXXXX
@digits:264XXXXXXX
@digits:268XXXXXXX
@digits:284XXXXXXX
@digits:473XXXXXXX
@digits:590XXXXXXX
@digits:900NXXXXXX
@digits:976NXXXXXX
set %results %session.digits
cleardigits
throw @dialing:tollcall
return
@digits:1800NXXXXXX
@digits:1822NXXXXXX
@digits:1833NXXXXXX
@digits:1844NXXXXXX
@digits:1855NXXXXXX
@digits:1866NXXXXXX
@digits:1877NXXXXXX
@digits:1888NXXXXXX
set %results %session.digits offset=1
cleardigits
throw @dialing:tollfree
return
@digits:800NXXXXXX
@digits:822NXXXXXX
@digits:833NXXXXXX
@digits:844NXXXXXX
@digits:855NXXXXXX
@digits:866NXXXXXX
@digits:877NXXXXXX
@digits:888NXXXXXX
set %results %session.digits
cleardigits
throw @dialing:tollfree
return
@digits:1NXX5551212
set %results %session.digits offset=1
cleardigits
throw @dialing:directory
return
@digits:5551212
set %results %prefix %session.digits
cleardigits
throw @dialing:directory
return
@digits:011
cleardigits
set %results "foreign"
throw @dialing:international
return
@digits:N11
set %results %session.digits
cleardigits
throw @dialing:special
return
@digits:411
set %results "dir"
cleardigits
throw @dialing:directory
return
@digits:911
set %results "alert"
cleardigits
throw @dialing:emergency
return
|
