5 * Copyright (c) 2001-2002 Maksim Yevmenkin <m_evmenkin@yahoo.com>
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
17 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * $Id: parser.y,v 1.5 2003/06/07 21:22:30 max Exp $
30 * $FreeBSD: src/usr.sbin/bluetooth/hcsecd/parser.y,v 1.4 2004/09/14 20:04:33 emax Exp $
31 * $DragonFly: src/usr.sbin/bthcid/parser.y,v 1.1 2008/01/30 14:10:19 hasso Exp $
34 #include <sys/fcntl.h>
35 #include <sys/queue.h>
36 #include <bluetooth.h>
49 static void free_key (link_key_p key);
50 static int hexa2int4(char *a);
51 static int hexa2int8(char *a);
53 extern void yyerror(const char *);
57 static LIST_HEAD(, link_key) link_keys;
59 const char *config_file = "/etc/bluetooth/bthcid.conf";
60 static link_key_p key = NULL;
67 %token <string> T_BDADDRSTRING T_HEXSTRING T_STRING
68 %token T_DEVICE T_BDADDR T_NAME T_KEY T_PIN T_NOKEY T_NOPIN T_JUNK
78 key = (link_key_p) malloc(sizeof(*key));
80 syslog(LOG_ERR, "Could not allocate new " \
85 memset(key, 0, sizeof(*key));
89 if (get_key(&key->bdaddr, 1) != NULL) {
90 syslog(LOG_ERR, "Ignoring duplicated entry " \
92 bt_ntoa(&key->bdaddr, NULL));
95 LIST_INSERT_HEAD(&link_keys, key, next);
111 bdaddr: T_BDADDR T_BDADDRSTRING
113 if (!bt_aton($2, &key->bdaddr)) {
114 syslog(LOG_ERR, "Could not parse BD_ADDR " \
121 name: T_NAME T_STRING
123 if (key->name != NULL)
126 key->name = strdup($2);
127 if (key->name == NULL) {
128 syslog(LOG_ERR, "Could not allocate new " \
135 key: T_KEY T_HEXSTRING
139 if (key->key != NULL)
142 key->key = (uint8_t *) malloc(HCI_KEY_SIZE);
143 if (key->key == NULL) {
144 syslog(LOG_ERR, "Could not allocate new " \
149 memset(key->key, 0, HCI_KEY_SIZE);
151 len = strlen($2) / 2;
152 if (len > HCI_KEY_SIZE)
155 for (i = 0; i < len; i ++)
156 key->key[i] = hexa2int8((char *)($2) + 2*i);
160 if (key->key != NULL)
169 if (key->pin != NULL)
172 key->pin = strdup($2);
173 if (key->pin == NULL) {
174 syslog(LOG_ERR, "Could not allocate new " \
181 if (key->pin != NULL)
190 /* Display parser error message */
192 yyerror(char const *message)
194 syslog(LOG_ERR, "%s in line %d", message, yylineno);
197 /* Re-read config file */
199 read_config_file(void)
201 if (config_file == NULL) {
202 syslog(LOG_ERR, "Unknown config file name!");
206 if ((yyin = fopen(config_file, "r")) == NULL) {
207 syslog(LOG_ERR, "Could not open config file '%s'. %s (%d)",
208 config_file, strerror(errno), errno);
214 syslog(LOG_ERR, "Could not parse config file '%s'",config_file);
230 link_key_p lkey = NULL;
232 while ((lkey = LIST_FIRST(&link_keys)) != NULL) {
233 LIST_REMOVE(lkey, next);
238 /* Find link key entry in the list. Return exact or default match */
240 get_key(bdaddr_p bdaddr, int exact_match)
242 link_key_p lkey = NULL, defkey = NULL;
244 LIST_FOREACH(lkey, &link_keys, next) {
245 if (memcmp(bdaddr, &lkey->bdaddr, sizeof(lkey->bdaddr)) == 0)
249 if (memcmp(BDADDR_ANY, &lkey->bdaddr,
250 sizeof(lkey->bdaddr)) == 0)
254 return ((lkey != NULL)? lkey : defkey);
262 link_key_p lkey = NULL;
265 LIST_FOREACH(lkey, &link_keys, next) {
266 if (lkey->key != NULL)
267 snprintf(buffer, sizeof(buffer),
268 "0x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x",
269 lkey->key[0], lkey->key[1], lkey->key[2],
270 lkey->key[3], lkey->key[4], lkey->key[5],
271 lkey->key[6], lkey->key[7], lkey->key[8],
272 lkey->key[9], lkey->key[10], lkey->key[11],
273 lkey->key[12], lkey->key[13], lkey->key[14],
281 (lkey->name != NULL)? lkey->name : "noname",
282 bt_ntoa(&lkey->bdaddr, NULL),
283 (lkey->pin != NULL)? lkey->pin : "nopin",
284 (lkey->key != NULL)? buffer : "nokey");
294 link_key_t *lkey = NULL;
295 char buf[BTHCID_BUFFER_SIZE], *p = NULL, *cp = NULL;
299 if ((f = fopen(BTHCID_KEYSFILE, "r")) == NULL) {
303 syslog(LOG_ERR, "Could not open keys file %s. %s (%d)\n",
304 BTHCID_KEYSFILE, strerror(errno), errno);
309 while ((p = fgets(buf, sizeof(buf), f)) != NULL) {
312 if ((cp = strpbrk(p, " ")) == NULL)
317 if (!bt_aton(p, &bdaddr))
320 if ((lkey = get_key(&bdaddr, 1)) == NULL)
323 if (lkey->key == NULL) {
324 lkey->key = (uint8_t *) malloc(HCI_KEY_SIZE);
325 if (lkey->key == NULL) {
326 syslog(LOG_ERR, "Could not allocate link key");
331 memset(lkey->key, 0, HCI_KEY_SIZE);
333 len = strlen(cp) / 2;
334 if (len > HCI_KEY_SIZE)
337 for (i = 0; i < len; i ++)
338 lkey->key[i] = hexa2int8(cp + 2*i);
340 syslog(LOG_DEBUG, "Restored link key for the entry, " \
341 "remote bdaddr %s, name '%s'",
342 bt_ntoa(&lkey->bdaddr, NULL),
343 (lkey->name != NULL)? lkey->name : "No name");
355 link_key_p lkey = NULL;
356 char tmp[PATH_MAX], buf[BTHCID_BUFFER_SIZE];
359 snprintf(tmp, sizeof(tmp), "%s.tmp", BTHCID_KEYSFILE);
360 if ((f = open(tmp, O_RDWR|O_CREAT|O_TRUNC|O_EXCL, 0600)) < 0) {
361 syslog(LOG_ERR, "Could not create temp keys file %s. %s (%d)\n",
362 tmp, strerror(errno), errno);
366 LIST_FOREACH(lkey, &link_keys, next) {
367 if (lkey->key == NULL)
370 snprintf(buf, sizeof(buf),
371 "%s %02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x\n",
372 bt_ntoa(&lkey->bdaddr, NULL),
373 lkey->key[0], lkey->key[1], lkey->key[2], lkey->key[3],
374 lkey->key[4], lkey->key[5], lkey->key[6], lkey->key[7],
375 lkey->key[8], lkey->key[9], lkey->key[10], lkey->key[11],
376 lkey->key[12], lkey->key[13], lkey->key[14], lkey->key[15]);
378 if (write(f, buf, strlen(buf)) < 0) {
379 syslog(LOG_ERR, "Could not write temp keys file. " \
380 "%s (%d)\n", strerror(errno), errno);
387 if (rename(tmp, BTHCID_KEYSFILE) < 0) {
388 syslog(LOG_ERR, "Could not rename(%s, %s). %s (%d)\n",
389 tmp, BTHCID_KEYSFILE, strerror(errno), errno);
399 free_key(link_key_p lkey)
401 if (lkey->name != NULL)
403 if (lkey->key != NULL)
405 if (lkey->pin != NULL)
408 memset(lkey, 0, sizeof(*lkey));
412 /* Convert hex ASCII to int4 */
416 if ('0' <= *a && *a <= '9')
419 if ('A' <= *a && *a <= 'F')
420 return (*a - 'A' + 0xa);
422 if ('a' <= *a && *a <= 'f')
423 return (*a - 'a' + 0xa);
425 syslog(LOG_ERR, "Invalid hex character: '%c' (%#x)", *a, *a);
429 /* Convert hex ASCII to int8 */
433 return ((hexa2int4(a) << 4) | hexa2int4(a + 1));