use auto-build for cdr modules
[asterisk/asterisk.git] / channels / iax2-provision.c
1 /*
2  * Asterisk -- An open source telephony toolkit.
3  *
4  * Copyright (C) 1999 - 2005, Digium, Inc.
5  *
6  * Mark Spencer <markster@digium.com>
7  *
8  * See http://www.asterisk.org for more information about
9  * the Asterisk project. Please do not directly contact
10  * any of the maintainers of this project for assistance;
11  * the project provides a web site, mailing lists and IRC
12  * channels for your use.
13  *
14  * This program is free software, distributed under the terms of
15  * the GNU General Public License Version 2. See the LICENSE file
16  * at the top of the source tree.
17  */
18
19 /*! \file
20  * 
21  * \brief IAX Provisioning Protocol 
22  *
23  * \author Mark Spencer <markster@digium.com>
24  */
25
26 #include <unistd.h>
27 #include <stdlib.h>
28 #include <string.h>
29 #include <stdio.h>
30 #include <netdb.h>
31 #include <netinet/in.h>
32 #include <netinet/in_systm.h>
33 #include <netinet/ip.h>
34 #include <sys/socket.h>
35
36 #include "asterisk.h"
37
38 ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
39
40 #include "asterisk/config.h"
41 #include "asterisk/logger.h"
42 #include "asterisk/cli.h"
43 #include "asterisk/lock.h"
44 #include "asterisk/frame.h"
45 #include "asterisk/options.h"
46 #include "asterisk/md5.h"
47 #include "asterisk/astdb.h"
48 #include "asterisk/utils.h"
49 #include "iax2.h"
50 #include "iax2-provision.h"
51 #include "iax2-parser.h"
52
53 #ifndef IPTOS_MINCOST
54 #define IPTOS_MINCOST 0x02
55 #endif
56
57 static int provinit = 0;
58
59 struct iax_template {
60         int dead;
61         char name[80];
62         char src[80];
63         struct iax_template *next;
64         char user[20];
65         char pass[20];
66         char lang[10];
67         unsigned short port;
68         unsigned int server;
69         unsigned short serverport;
70         unsigned int altserver;
71         unsigned int flags;
72         unsigned int format;
73         int tos;        
74 } *templates;
75
76 static struct iax_flag {
77         char *name;
78         int value;
79 } iax_flags[] = {
80         { "register", PROV_FLAG_REGISTER },
81         { "secure", PROV_FLAG_SECURE },
82         { "heartbeat", PROV_FLAG_HEARTBEAT },
83         { "debug", PROV_FLAG_DEBUG },
84         { "disablecid", PROV_FLAG_DIS_CALLERID },
85         { "disablecw", PROV_FLAG_DIS_CALLWAIT },
86         { "disablecidcw", PROV_FLAG_DIS_CIDCW },
87         { "disable3way", PROV_FLAG_DIS_THREEWAY },
88 };
89
90 char *iax_provflags2str(char *buf, int buflen, unsigned int flags)
91 {
92         int x;
93         if (!buf || buflen < 1) {
94                 return(NULL);
95         }
96         buf[0] = '\0';
97         for (x=0;x<sizeof(iax_flags) / sizeof(iax_flags[0]); x++) {
98                 if (flags & iax_flags[x].value){
99                         strncat(buf, iax_flags[x].name, buflen - strlen(buf) - 1);
100                         strncat(buf, ",", buflen - strlen(buf) - 1);
101                 }
102         }
103         if (strlen(buf)) 
104                 buf[strlen(buf) - 1] = '\0';
105         else
106                 strncpy(buf, "none", buflen - 1);
107         return buf;
108 }
109
110 static unsigned int iax_str2flags(const char *buf)
111 {
112         int x;
113         int len;
114         int found;
115         unsigned int flags = 0;
116         char *e;
117         while(buf && *buf) {
118                 e = strchr(buf, ',');
119                 if (e)
120                         len = e - buf;
121                 else
122                         len = 0;
123                 found = 0;
124                 for (x=0;x<sizeof(iax_flags) / sizeof(iax_flags[0]); x++) {
125                         if ((len && !strncasecmp(iax_flags[x].name, buf, len)) ||
126                             (!len && !strcasecmp(iax_flags[x].name, buf))) {
127                                 flags |= iax_flags[x].value;
128                                 break;
129                         }
130                 }
131                 if (e) {
132                         buf = e + 1;
133                         while(*buf && (*buf < 33))
134                                 buf++;
135                 } else
136                         break;
137         }
138         return flags;
139 }
140 AST_MUTEX_DEFINE_STATIC(provlock);
141
142 static struct iax_template *iax_template_find(const char *s, int allowdead)
143 {
144         struct iax_template *cur;
145         cur = templates;
146         while(cur) {
147                 if (!strcasecmp(s, cur->name)) {
148                         if (!allowdead && cur->dead)
149                                 cur = NULL;
150                         break;
151                 }
152                 cur = cur->next;
153         }
154         return cur;
155 }
156
157 char *iax_prov_complete_template(const char *line, const char *word, int pos, int state)
158 {
159         struct iax_template *c;
160         int which=0;
161         char *ret = NULL;
162         int wordlen = strlen(word);
163
164         ast_mutex_lock(&provlock);
165         for (c = templates; c; c = c->next) {
166                 if (!strncasecmp(word, c->name, wordlen)) {
167                         if (++which > state) {
168                                 ret = strdup(c->name);
169                                 break;
170                         }
171                 }
172         }
173         ast_mutex_unlock(&provlock);
174         
175         return ret;
176 }
177
178 static unsigned int prov_ver_calc(struct iax_ie_data *provdata)
179 {
180         struct MD5Context md5;
181         unsigned int tmp[4];
182         MD5Init(&md5);
183         MD5Update(&md5, provdata->buf, provdata->pos);
184         MD5Final((unsigned char *)tmp, &md5);
185         return tmp[0] ^ tmp[1] ^ tmp[2] ^ tmp[3];
186 }
187
188 int iax_provision_build(struct iax_ie_data *provdata, unsigned int *signature, const char *template, int force)
189 {
190         struct iax_template *cur;
191         unsigned int sig;
192         char tmp[40];
193         memset(provdata, 0, sizeof(*provdata));
194         ast_mutex_lock(&provlock);
195         cur = iax_template_find(template, 1);
196         /* If no match, try searching for '*' */
197         if (!cur)
198                 cur = iax_template_find("*", 1);
199         if (cur) {
200                 /* found it -- add information elements as appropriate */
201                 if (force || strlen(cur->user))
202                         iax_ie_append_str(provdata, PROV_IE_USER, cur->user);
203                 if (force || strlen(cur->pass))
204                         iax_ie_append_str(provdata, PROV_IE_PASS, cur->pass);
205                 if (force || strlen(cur->lang))
206                         iax_ie_append_str(provdata, PROV_IE_LANG, cur->lang);
207                 if (force || cur->port)
208                         iax_ie_append_short(provdata, PROV_IE_PORTNO, cur->port);
209                 if (force || cur->server)
210                         iax_ie_append_int(provdata, PROV_IE_SERVERIP, cur->server);
211                 if (force || cur->serverport)
212                         iax_ie_append_short(provdata, PROV_IE_SERVERPORT, cur->serverport);
213                 if (force || cur->altserver)
214                         iax_ie_append_int(provdata, PROV_IE_ALTSERVER, cur->altserver);
215                 if (force || cur->flags)
216                         iax_ie_append_int(provdata, PROV_IE_FLAGS, cur->flags);
217                 if (force || cur->format)
218                         iax_ie_append_int(provdata, PROV_IE_FORMAT, cur->format);
219                 if (force || cur->tos)
220                         iax_ie_append_byte(provdata, PROV_IE_TOS, cur->tos);
221                 
222                 /* Calculate checksum of message so far */
223                 sig = prov_ver_calc(provdata);
224                 if (signature)
225                         *signature = sig;
226                 /* Store signature */
227                 iax_ie_append_int(provdata, PROV_IE_PROVVER, sig);
228                 /* Cache signature for later verification so we need not recalculate all this */
229                 snprintf(tmp, sizeof(tmp), "v0x%08x", sig);
230                 ast_db_put("iax/provisioning/cache", template, tmp);
231         } else
232                 ast_db_put("iax/provisioning/cache", template, "u");
233         ast_mutex_unlock(&provlock);
234         return cur ? 0 : -1;
235 }
236
237 int iax_provision_version(unsigned int *version, const char *template, int force)
238 {
239         char tmp[80] = "";
240         struct iax_ie_data ied;
241         int ret=0;
242         memset(&ied, 0, sizeof(ied));
243
244         ast_mutex_lock(&provlock);
245         ast_db_get("iax/provisioning/cache", template, tmp, sizeof(tmp));
246         if (sscanf(tmp, "v%x", version) != 1) {
247                 if (strcmp(tmp, "u")) {
248                         ret = iax_provision_build(&ied, version, template, force);
249                         if (ret)
250                                 ast_log(LOG_DEBUG, "Unable to create provisioning packet for '%s'\n", template);
251                 } else
252                         ret = -1;
253         } else if (option_debug)
254                 ast_log(LOG_DEBUG, "Retrieved cached version '%s' = '%08x'\n", tmp, *version);
255         ast_mutex_unlock(&provlock);
256         return ret;
257 }
258
259 static int iax_template_parse(struct iax_template *cur, struct ast_config *cfg, char *s, char *def)
260 {
261         struct ast_variable *v;
262         int foundportno = 0;
263         int foundserverportno = 0;
264         int x;
265         struct in_addr ia;
266         struct hostent *hp;
267         struct ast_hostent h;
268         struct iax_template *src, tmp;
269         char *t;
270         if (def) {
271                 t = ast_variable_retrieve(cfg, s ,"template");
272                 src = NULL;
273                 if (t && strlen(t)) {
274                         src = iax_template_find(t, 0);
275                         if (!src)
276                                 ast_log(LOG_WARNING, "Unable to find base template '%s' for creating '%s'.  Trying '%s'\n", t, s, def);
277                         else
278                                 def = t;
279                 } 
280                 if (!src) {
281                         src = iax_template_find(def, 0);
282                         if (!src)
283                                 ast_log(LOG_WARNING, "Unable to locate default base template '%s' for creating '%s', omitting.", def, s);
284                 }
285                 if (!src)
286                         return -1;
287                 ast_mutex_lock(&provlock);      
288                 /* Backup old data */
289                 memcpy(&tmp, cur, sizeof(tmp));
290                 /* Restore from src */
291                 memcpy(cur, src, sizeof(tmp));
292                 /* Restore important headers */
293                 memcpy(cur->name, tmp.name, sizeof(cur->name));
294                 cur->dead = tmp.dead;
295                 cur->next = tmp.next;
296                 ast_mutex_unlock(&provlock);    
297         }
298         if (def)
299                 strncpy(cur->src, def, sizeof(cur->src) - 1);
300         else
301                 cur->src[0] = '\0';
302         v = ast_variable_browse(cfg, s);
303         while(v) {
304                 if (!strcasecmp(v->name, "port") || !strcasecmp(v->name, "serverport")) {
305                         if ((sscanf(v->value, "%d", &x) == 1) && (x > 0) && (x < 65535)) {
306                                 if (!strcasecmp(v->name, "port")) {
307                                         cur->port = x;
308                                         foundportno = 1;
309                                 } else {
310                                         cur->serverport = x;
311                                         foundserverportno = 1;
312                                 }
313                         } else
314                                 ast_log(LOG_WARNING, "Ignoring invalid %s '%s' for '%s' at line %d\n", v->name, v->value, s, v->lineno);
315                 } else if (!strcasecmp(v->name, "server") || !strcasecmp(v->name, "altserver")) {
316                         hp = ast_gethostbyname(v->value, &h);
317                         if (hp) {
318                                 memcpy(&ia, hp->h_addr, sizeof(ia));
319                                 if (!strcasecmp(v->name, "server"))
320                                         cur->server = ntohl(ia.s_addr);
321                                 else
322                                         cur->altserver = ntohl(ia.s_addr);
323                         } else 
324                                 ast_log(LOG_WARNING, "Ignoring invalid %s '%s' for '%s' at line %d\n", v->name, v->value, s, v->lineno);
325                 } else if (!strcasecmp(v->name, "codec")) {
326                         if ((x = ast_getformatbyname(v->value)) > 0) {
327                                 cur->format = x;
328                         } else
329                                 ast_log(LOG_WARNING, "Ignoring invalid codec '%s' for '%s' at line %d\n", v->value, s, v->lineno);
330                 } else if (!strcasecmp(v->name, "tos")) {
331                         if (sscanf(v->value, "%d", &x) == 1)
332                                 cur->tos = x & 0xff;
333                         else if (!strcasecmp(v->value, "lowdelay"))
334                                 cur->tos = IPTOS_LOWDELAY;
335                         else if (!strcasecmp(v->value, "throughput"))
336                                 cur->tos = IPTOS_THROUGHPUT;
337                         else if (!strcasecmp(v->value, "reliability"))
338                                 cur->tos = IPTOS_RELIABILITY;
339                         else if (!strcasecmp(v->value, "mincost"))
340                                 cur->tos = IPTOS_MINCOST;
341                         else if (!strcasecmp(v->value, "none"))
342                                 cur->tos = 0;
343                         else
344                                 ast_log(LOG_WARNING, "Invalid tos value at line %d, should be 'lowdelay', 'throughput', 'reliability', 'mincost', or 'none'\n", v->lineno);
345                 } else if (!strcasecmp(v->name, "user")) {
346                         strncpy(cur->user, v->value, sizeof(cur->user) - 1);
347                         if (strcmp(cur->user, v->value))
348                                 ast_log(LOG_WARNING, "Truncating username from '%s' to '%s' for '%s' at line %d\n", v->value, cur->user, s, v->lineno);
349                 } else if (!strcasecmp(v->name, "pass")) {
350                         strncpy(cur->pass, v->value, sizeof(cur->pass) - 1);
351                         if (strcmp(cur->pass, v->value))
352                                 ast_log(LOG_WARNING, "Truncating password from '%s' to '%s' for '%s' at line %d\n", v->value, cur->pass, s, v->lineno);
353                 } else if (!strcasecmp(v->name, "language")) {
354                         strncpy(cur->lang, v->value, sizeof(cur->lang) - 1);
355                         if (strcmp(cur->lang, v->value))
356                                 ast_log(LOG_WARNING, "Truncating language from '%s' to '%s' for '%s' at line %d\n", v->value, cur->lang, s, v->lineno);
357                 } else if (!strcasecmp(v->name, "flags")) {
358                         cur->flags = iax_str2flags(v->value);
359                 } else if (!strncasecmp(v->name, "flags", 5) && strchr(v->name, '+')) {
360                         cur->flags |= iax_str2flags(v->value);
361                 } else if (!strncasecmp(v->name, "flags", 5) && strchr(v->name, '-')) {
362                         cur->flags &= ~iax_str2flags(v->value);
363                 } else if (strcasecmp(v->name, "template")) {
364                         ast_log(LOG_WARNING, "Unknown keyword '%s' in definition of '%s' at line %d\n", v->name, s, v->lineno);
365                 }
366                 v = v->next;
367         }
368         if (!foundportno)
369                 cur->port = IAX_DEFAULT_PORTNO;
370         if (!foundserverportno)
371                 cur->serverport = IAX_DEFAULT_PORTNO;
372         return 0;
373 }
374
375 static int iax_process_template(struct ast_config *cfg, char *s, char *def)
376 {
377         /* Find an already existing one if there */
378         struct iax_template *cur;
379         int mallocd = 0;
380         cur = templates;
381         while(cur) {
382                 if (!strcasecmp(cur->name, s))
383                         break;
384                 cur = cur->next;
385         }
386         if (!cur) {
387                 mallocd = 1;
388                 cur = malloc(sizeof(struct iax_template));
389                 if (!cur) {
390                         ast_log(LOG_WARNING, "Out of memory!\n");
391                         return -1;
392                 }
393                 /* Initialize entry */
394                 memset(cur, 0, sizeof(*cur));
395                 strncpy(cur->name, s, sizeof(cur->name) - 1);
396                 cur->dead = 1;
397         }
398         if (!iax_template_parse(cur, cfg, s, def))
399                 cur->dead = 0;
400
401         /* Link if we're mallocd */
402         if (mallocd) {
403                 ast_mutex_lock(&provlock);
404                 cur->next = templates;
405                 templates = cur;
406                 ast_mutex_unlock(&provlock);
407         }
408         return 0;
409 }
410
411 static char show_provisioning_usage[] = 
412 "Usage: iax show provisioning [template]\n"
413 "       Lists all known IAX provisioning templates or a\n"
414 "       specific one if specified.\n";
415
416 static const char *ifthere(const char *s)
417 {
418         if (strlen(s))
419                 return s;
420         else
421                 return "<unspecified>";
422 }
423
424 static const char *iax_server(char *a, int alen, unsigned int addr)
425 {
426         struct in_addr ia;
427         if (!addr)
428                 return "<unspecified>";
429         ia.s_addr = htonl(addr);
430         return ast_inet_ntoa(a, alen, ia);
431 }
432
433
434 static int iax_show_provisioning(int fd, int argc, char *argv[])
435 {
436         struct iax_template *cur;
437         char iabuf[80]; /* Has to be big enough for 'flags' too */
438         int found = 0;
439         if ((argc != 3) && (argc != 4))
440                 return RESULT_SHOWUSAGE;
441         ast_mutex_lock(&provlock);
442         for (cur = templates;cur;cur = cur->next) {
443                 if ((argc == 3) || (!strcasecmp(argv[3], cur->name)))  {
444                         if (found) ast_cli(fd, "\n");
445                         ast_cli(fd, "== %s ==\n", cur->name);
446                         ast_cli(fd, "Base Templ:   %s\n", strlen(cur->src) ? cur->src : "<none>");
447                         ast_cli(fd, "Username:     %s\n", ifthere(cur->user));
448                         ast_cli(fd, "Secret:       %s\n", ifthere(cur->pass));
449                         ast_cli(fd, "Language:     %s\n", ifthere(cur->lang));
450                         ast_cli(fd, "Bind Port:    %d\n", cur->port);
451                         ast_cli(fd, "Server:       %s\n", iax_server(iabuf, sizeof(iabuf), cur->server));
452                         ast_cli(fd, "Server Port:  %d\n", cur->serverport);
453                         ast_cli(fd, "Alternate:    %s\n", iax_server(iabuf, sizeof(iabuf), cur->altserver));
454                         ast_cli(fd, "Flags:        %s\n", iax_provflags2str(iabuf, sizeof(iabuf), cur->flags));
455                         ast_cli(fd, "Format:       %s\n", ast_getformatname(cur->format));
456                         ast_cli(fd, "TOS:          %d\n", cur->tos);
457                         found++;
458                 }
459         }
460         ast_mutex_unlock(&provlock);
461         if (!found) {
462                 if (argc == 3)
463                         ast_cli(fd, "No provisioning templates found\n");
464                 else
465                         ast_cli(fd, "No provisioning template matching '%s' found\n", argv[3]);
466         }
467         return RESULT_SUCCESS;
468 }
469
470 static struct ast_cli_entry  cli_show_provisioning = 
471         { { "iax2", "show", "provisioning", NULL }, iax_show_provisioning, "Show iax provisioning", show_provisioning_usage, iax_prov_complete_template };
472
473 static int iax_provision_init(void)
474 {
475         ast_cli_register(&cli_show_provisioning);
476         provinit = 1;
477         return 0;
478 }
479
480 int iax_provision_unload(void)
481 {
482         provinit = 0;
483         ast_cli_unregister(&cli_show_provisioning);
484         return 0;
485 }
486
487 int iax_provision_reload(void)
488 {
489         struct ast_config *cfg;
490         struct iax_template *cur, *prev, *next;
491         char *cat;
492         int found = 0;
493         if (!provinit)
494                 iax_provision_init();
495         /* Mark all as dead.  No need for locking */
496         cur = templates;
497         while(cur) {
498                 cur->dead = 1;
499                 cur = cur->next;
500         }
501         cfg = ast_config_load("iaxprov.conf");
502         if (cfg) {
503                 /* Load as appropriate */
504                 cat = ast_category_browse(cfg, NULL);
505                 while(cat) {
506                         if (strcasecmp(cat, "general")) {
507                                 iax_process_template(cfg, cat, found ? "default" : NULL);
508                                 found++;
509                                 if (option_verbose > 2)
510                                         ast_verbose(VERBOSE_PREFIX_3 "Loaded provisioning template '%s'\n", cat);
511                         }
512                         cat = ast_category_browse(cfg, cat);
513                 }
514                 ast_config_destroy(cfg);
515         } else
516                 ast_log(LOG_NOTICE, "No IAX provisioning configuration found, IAX provisioning disabled.\n");
517         ast_mutex_lock(&provlock);
518         /* Drop dead entries while locked */
519         prev = NULL;
520         cur = templates;
521         while(cur) {
522                 next = cur->next;
523                 if (cur->dead) {
524                         if (prev)
525                                 prev->next = next;
526                         else
527                                 templates = next;
528                         free(cur);
529                 } else 
530                         prev = cur;
531                 cur = next;
532         }
533         ast_mutex_unlock(&provlock);
534         /* Purge cached signature DB entries */
535         ast_db_deltree("iax/provisioning/cache", NULL);
536         return 0;
537         
538 }