Home | History | Annotate | Line # | Download | only in rfcomm_sppd
rfcomm_sppd.c revision 1.13
      1  1.13   plunky /*	$NetBSD: rfcomm_sppd.c,v 1.13 2010/11/03 08:27:27 plunky Exp $	*/
      2   1.1  gdamore 
      3   1.1  gdamore /*-
      4   1.1  gdamore  * Copyright (c) 2006 Itronix Inc.
      5   1.1  gdamore  * All rights reserved.
      6   1.1  gdamore  *
      7   1.1  gdamore  * Redistribution and use in source and binary forms, with or without
      8   1.1  gdamore  * modification, are permitted provided that the following conditions
      9   1.1  gdamore  * are met:
     10   1.1  gdamore  * 1. Redistributions of source code must retain the above copyright
     11   1.1  gdamore  *    notice, this list of conditions and the following disclaimer.
     12   1.1  gdamore  * 2. Redistributions in binary form must reproduce the above copyright
     13   1.1  gdamore  *    notice, this list of conditions and the following disclaimer in the
     14   1.1  gdamore  *    documentation and/or other materials provided with the distribution.
     15   1.1  gdamore  * 3. The name of Itronix Inc. may not be used to endorse
     16   1.1  gdamore  *    or promote products derived from this software without specific
     17   1.1  gdamore  *    prior written permission.
     18   1.1  gdamore  *
     19   1.1  gdamore  * THIS SOFTWARE IS PROVIDED BY ITRONIX INC. ``AS IS'' AND
     20   1.1  gdamore  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     21   1.1  gdamore  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     22   1.1  gdamore  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL ITRONIX INC. BE LIABLE FOR ANY
     23   1.1  gdamore  * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
     24   1.1  gdamore  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
     25   1.1  gdamore  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
     26   1.1  gdamore  * ON ANY THEORY OF LIABILITY, WHETHER IN
     27   1.1  gdamore  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     28   1.1  gdamore  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     29   1.1  gdamore  * POSSIBILITY OF SUCH DAMAGE.
     30   1.1  gdamore  */
     31   1.1  gdamore /*
     32  1.10   plunky  * Copyright (c) 2009 The NetBSD Foundation, Inc.
     33   1.2   plunky  * Copyright (c) 2007 Iain Hibbert
     34   1.1  gdamore  * Copyright (c) 2003 Maksim Yevmenkin <m_evmenkin (at) yahoo.com>
     35   1.1  gdamore  * All rights reserved.
     36   1.1  gdamore  *
     37   1.1  gdamore  * Redistribution and use in source and binary forms, with or without
     38   1.1  gdamore  * modification, are permitted provided that the following conditions
     39   1.1  gdamore  * are met:
     40   1.1  gdamore  * 1. Redistributions of source code must retain the above copyright
     41   1.1  gdamore  *    notice, this list of conditions and the following disclaimer.
     42   1.1  gdamore  * 2. Redistributions in binary form must reproduce the above copyright
     43   1.1  gdamore  *    notice, this list of conditions and the following disclaimer in the
     44   1.1  gdamore  *    documentation and/or other materials provided with the distribution.
     45   1.1  gdamore  *
     46   1.1  gdamore  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
     47   1.1  gdamore  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     48   1.1  gdamore  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     49   1.1  gdamore  * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
     50   1.1  gdamore  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     51   1.1  gdamore  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     52   1.1  gdamore  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     53   1.1  gdamore  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     54   1.1  gdamore  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     55   1.1  gdamore  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     56   1.1  gdamore  * SUCH DAMAGE.
     57   1.1  gdamore  */
     58   1.1  gdamore 
     59   1.1  gdamore #include <sys/cdefs.h>
     60  1.10   plunky __COPYRIGHT("@(#) Copyright (c) 2009 The NetBSD Foundation, Inc.\
     61  1.10   plunky   Copyright (c) 2007 Iain Hibbert.\
     62   1.9    lukem   Copyright (c) 2006 Itronix, Inc.\
     63   1.9    lukem   Copyright (c) 2003 Maksim Yevmenkin m_evmenkin (at) yahoo.com.\
     64   1.9    lukem   All rights reserved.");
     65  1.13   plunky __RCSID("$NetBSD: rfcomm_sppd.c,v 1.13 2010/11/03 08:27:27 plunky Exp $");
     66  1.11   plunky 
     67  1.11   plunky #include <sys/param.h>
     68   1.1  gdamore 
     69   1.1  gdamore #include <bluetooth.h>
     70   1.1  gdamore #include <ctype.h>
     71   1.1  gdamore #include <err.h>
     72   1.1  gdamore #include <errno.h>
     73   1.1  gdamore #include <fcntl.h>
     74   1.1  gdamore #include <grp.h>
     75   1.1  gdamore #include <limits.h>
     76   1.1  gdamore #include <paths.h>
     77   1.1  gdamore #include <sdp.h>
     78   1.1  gdamore #include <signal.h>
     79   1.1  gdamore #include <stdarg.h>
     80   1.1  gdamore #include <stdio.h>
     81   1.1  gdamore #include <stdlib.h>
     82   1.1  gdamore #include <string.h>
     83   1.1  gdamore #include <syslog.h>
     84   1.1  gdamore #include <termios.h>
     85   1.1  gdamore #include <unistd.h>
     86   1.1  gdamore 
     87   1.7   plunky #include <netbt/rfcomm.h>
     88   1.7   plunky 
     89   1.2   plunky int open_tty(const char *);
     90  1.12   plunky int open_client(bdaddr_t *, bdaddr_t *, int, uintmax_t, const char *);
     91  1.12   plunky int open_server(bdaddr_t *, uint16_t, uint8_t, int, const char *);
     92   1.2   plunky void copy_data(int, int);
     93  1.12   plunky int service_search(const bdaddr_t *, const bdaddr_t *, uint16_t, uintmax_t *, uintmax_t *);
     94   1.2   plunky void sighandler(int);
     95   1.2   plunky void usage(void);
     96   1.2   plunky void reset_tio(void);
     97   1.2   plunky 
     98   1.2   plunky int done;		/* got a signal */
     99   1.2   plunky struct termios tio;	/* stored termios for reset on exit */
    100   1.2   plunky 
    101   1.2   plunky struct service {
    102  1.10   plunky 	const char *	name;
    103  1.10   plunky 	const char *	description;
    104   1.2   plunky 	uint16_t	class;
    105   1.2   plunky } services[] = {
    106   1.2   plunky 	{ "DUN",	"Dialup Networking",
    107  1.10   plunky 	    SDP_SERVICE_CLASS_DIALUP_NETWORKING		},
    108  1.10   plunky 	{ "LAN",	"LAN access using PPP",
    109  1.10   plunky 	    SDP_SERVICE_CLASS_LAN_ACCESS_USING_PPP	},
    110   1.2   plunky 	{ "SP",		"Serial Port",
    111  1.10   plunky 	    SDP_SERVICE_CLASS_SERIAL_PORT		},
    112  1.10   plunky 	{ NULL,		NULL,		0		}
    113   1.2   plunky };
    114   1.1  gdamore 
    115   1.1  gdamore int
    116   1.1  gdamore main(int argc, char *argv[])
    117   1.1  gdamore {
    118   1.2   plunky 	struct termios		t;
    119   1.2   plunky 	bdaddr_t		laddr, raddr;
    120   1.2   plunky 	fd_set			rdset;
    121   1.6   plunky 	const char		*service;
    122   1.6   plunky 	char			*ep, *tty;
    123   1.7   plunky 	int			lm, n, rfcomm, tty_in, tty_out;
    124  1.12   plunky 	uint16_t		psm;
    125   1.2   plunky 	uint8_t			channel;
    126   1.1  gdamore 
    127   1.1  gdamore 	bdaddr_copy(&laddr, BDADDR_ANY);
    128   1.1  gdamore 	bdaddr_copy(&raddr, BDADDR_ANY);
    129   1.3   plunky 	service = "SP";
    130   1.3   plunky 	tty = NULL;
    131  1.13   plunky 	channel = RFCOMM_CHANNEL_ANY;
    132  1.12   plunky 	psm = L2CAP_PSM_RFCOMM;
    133   1.7   plunky 	lm = 0;
    134   1.1  gdamore 
    135   1.1  gdamore 	/* Parse command line options */
    136  1.12   plunky 	while ((n = getopt(argc, argv, "a:c:d:hm:p:s:t:")) != -1) {
    137   1.1  gdamore 		switch (n) {
    138   1.2   plunky 		case 'a': /* remote device address */
    139   1.1  gdamore 			if (!bt_aton(optarg, &raddr)) {
    140   1.1  gdamore 				struct hostent	*he = NULL;
    141   1.1  gdamore 
    142   1.1  gdamore 				if ((he = bt_gethostbyname(optarg)) == NULL)
    143   1.2   plunky 					errx(EXIT_FAILURE, "%s: %s", optarg,
    144   1.2   plunky 					    hstrerror(h_errno));
    145   1.1  gdamore 
    146   1.1  gdamore 				bdaddr_copy(&raddr, (bdaddr_t *)he->h_addr);
    147   1.1  gdamore 			}
    148   1.1  gdamore 			break;
    149   1.1  gdamore 
    150   1.1  gdamore 		case 'c': /* RFCOMM channel */
    151   1.1  gdamore 			channel = strtoul(optarg, &ep, 10);
    152  1.13   plunky 			if (*ep != '\0'
    153  1.13   plunky 			    || channel < RFCOMM_CHANNEL_MIN
    154  1.13   plunky 			    || channel > RFCOMM_CHANNEL_MAX)
    155   1.3   plunky 				errx(EXIT_FAILURE, "Invalid channel: %s", optarg);
    156   1.3   plunky 
    157   1.1  gdamore 			break;
    158   1.1  gdamore 
    159   1.2   plunky 		case 'd': /* local device address */
    160   1.2   plunky 			if (!bt_devaddr(optarg, &laddr))
    161   1.2   plunky 				err(EXIT_FAILURE, "%s", optarg);
    162   1.2   plunky 
    163   1.1  gdamore 			break;
    164   1.1  gdamore 
    165   1.7   plunky 		case 'm': /* Link Mode */
    166   1.7   plunky 			if (strcasecmp(optarg, "auth") == 0)
    167   1.7   plunky 				lm = RFCOMM_LM_AUTH;
    168   1.7   plunky 			else if (strcasecmp(optarg, "encrypt") == 0)
    169   1.7   plunky 				lm = RFCOMM_LM_ENCRYPT;
    170   1.7   plunky 			else if (strcasecmp(optarg, "secure") == 0)
    171   1.7   plunky 				lm = RFCOMM_LM_SECURE;
    172   1.7   plunky 			else
    173   1.7   plunky 				errx(EXIT_FAILURE, "%s: unknown mode", optarg);
    174   1.7   plunky 
    175   1.7   plunky 			break;
    176   1.7   plunky 
    177  1.12   plunky 		case 'p': /* PSM */
    178  1.12   plunky 			psm = strtoul(optarg, &ep, 0);
    179  1.12   plunky 			if (*ep != '\0' || L2CAP_PSM_INVALID(psm))
    180  1.12   plunky 				errx(EXIT_FAILURE, "Invalid PSM: %s", optarg);
    181  1.12   plunky 
    182  1.12   plunky 			break;
    183  1.12   plunky 
    184   1.3   plunky 		case 's': /* service class */
    185   1.2   plunky 			service = optarg;
    186   1.1  gdamore 			break;
    187   1.1  gdamore 
    188   1.1  gdamore 		case 't': /* Slave TTY name */
    189   1.1  gdamore 			if (optarg[0] != '/')
    190   1.1  gdamore 				asprintf(&tty, "%s%s", _PATH_DEV, optarg);
    191   1.1  gdamore 			else
    192   1.1  gdamore 				tty = optarg;
    193   1.2   plunky 
    194   1.1  gdamore 			break;
    195   1.1  gdamore 
    196   1.1  gdamore 		case 'h':
    197   1.1  gdamore 		default:
    198   1.1  gdamore 			usage();
    199   1.1  gdamore 			/* NOT REACHED */
    200   1.1  gdamore 		}
    201   1.1  gdamore 	}
    202   1.1  gdamore 
    203   1.2   plunky 	/*
    204   1.2   plunky 	 * validate options:
    205  1.13   plunky 	 *	cannot have remote address if channel was given
    206   1.2   plunky 	 */
    207  1.13   plunky 	if (channel != RFCOMM_CHANNEL_ANY && !bdaddr_any(&raddr))
    208   1.1  gdamore 		usage();
    209   1.1  gdamore 
    210   1.2   plunky 	/*
    211   1.2   plunky 	 * grab ttys before we start the bluetooth
    212   1.2   plunky 	 */
    213   1.1  gdamore 	if (tty == NULL) {
    214   1.2   plunky 		tty_in = STDIN_FILENO;
    215   1.2   plunky 		tty_out = STDOUT_FILENO;
    216   1.2   plunky 	} else {
    217   1.2   plunky 		tty_in = open_tty(tty);
    218   1.2   plunky 		tty_out = tty_in;
    219   1.2   plunky 	}
    220   1.1  gdamore 
    221   1.2   plunky 	/* open RFCOMM */
    222  1.13   plunky 	if (!bdaddr_any(&raddr))
    223  1.12   plunky 		rfcomm = open_client(&laddr, &raddr, lm, psm, service);
    224   1.2   plunky 	else
    225  1.12   plunky 		rfcomm = open_server(&laddr, psm, channel, lm, service);
    226   1.1  gdamore 
    227   1.2   plunky 	/*
    228   1.4   plunky 	 * now we are ready to go, so either detach or maybe turn
    229   1.2   plunky 	 * off some input processing, so that rfcomm_sppd can
    230   1.2   plunky 	 * be used directly with stdio
    231   1.2   plunky 	 */
    232   1.2   plunky 	if (tty == NULL) {
    233   1.2   plunky 		if (tcgetattr(tty_in, &t) < 0)
    234   1.2   plunky 			err(EXIT_FAILURE, "tcgetattr");
    235   1.1  gdamore 
    236   1.2   plunky 		memcpy(&tio, &t, sizeof(tio));
    237   1.2   plunky 		t.c_lflag &= ~(ECHO | ICANON);
    238   1.2   plunky 		t.c_iflag &= ~(ICRNL);
    239   1.1  gdamore 
    240   1.4   plunky 		if (memcmp(&tio, &t, sizeof(tio))) {
    241   1.4   plunky 			if (tcsetattr(tty_in, TCSANOW, &t) < 0)
    242   1.4   plunky 				err(EXIT_FAILURE, "tcsetattr");
    243   1.1  gdamore 
    244   1.4   plunky 			atexit(reset_tio);
    245   1.4   plunky 		}
    246   1.2   plunky 	} else {
    247   1.2   plunky 		if (daemon(0, 0) < 0)
    248   1.2   plunky 			err(EXIT_FAILURE, "daemon() failed");
    249   1.1  gdamore 	}
    250   1.1  gdamore 
    251   1.2   plunky 	/* catch signals */
    252   1.2   plunky 	done = 0;
    253   1.2   plunky 	(void)signal(SIGHUP, sighandler);
    254   1.2   plunky 	(void)signal(SIGINT, sighandler);
    255   1.2   plunky 	(void)signal(SIGPIPE, sighandler);
    256   1.2   plunky 	(void)signal(SIGTERM, sighandler);
    257   1.2   plunky 
    258   1.2   plunky 	openlog(getprogname(), LOG_PERROR | LOG_PID, LOG_DAEMON);
    259   1.2   plunky 	syslog(LOG_INFO, "Starting on %s...", (tty ? tty : "stdio"));
    260   1.2   plunky 
    261  1.11   plunky 	n = MAX(tty_in, rfcomm) + 1;
    262   1.2   plunky 	while (!done) {
    263   1.2   plunky 		FD_ZERO(&rdset);
    264   1.2   plunky 		FD_SET(tty_in, &rdset);
    265   1.2   plunky 		FD_SET(rfcomm, &rdset);
    266   1.1  gdamore 
    267   1.2   plunky 		if (select(n, &rdset, NULL, NULL, NULL) < 0) {
    268   1.1  gdamore 			if (errno == EINTR)
    269   1.1  gdamore 				continue;
    270   1.1  gdamore 
    271   1.2   plunky 			syslog(LOG_ERR, "select error: %m");
    272   1.1  gdamore 			exit(EXIT_FAILURE);
    273   1.1  gdamore 		}
    274   1.1  gdamore 
    275   1.2   plunky 		if (FD_ISSET(tty_in, &rdset))
    276   1.2   plunky 			copy_data(tty_in, rfcomm);
    277   1.1  gdamore 
    278   1.2   plunky 		if (FD_ISSET(rfcomm, &rdset))
    279   1.2   plunky 			copy_data(rfcomm, tty_out);
    280   1.2   plunky 	}
    281   1.1  gdamore 
    282   1.2   plunky 	syslog(LOG_INFO, "Completed on %s", (tty ? tty : "stdio"));
    283   1.2   plunky 	exit(EXIT_SUCCESS);
    284   1.2   plunky }
    285   1.1  gdamore 
    286   1.2   plunky int
    287   1.2   plunky open_tty(const char *tty)
    288   1.1  gdamore {
    289   1.1  gdamore 	char		 pty[PATH_MAX], *slash;
    290   1.1  gdamore 	struct group	*gr = NULL;
    291   1.1  gdamore 	gid_t		 ttygid;
    292   1.2   plunky 	int		 master;
    293   1.1  gdamore 
    294   1.1  gdamore 	/*
    295   1.1  gdamore 	 * Construct master PTY name. The slave tty name must be less then
    296   1.1  gdamore 	 * PATH_MAX characters in length, must contain '/' character and
    297   1.1  gdamore 	 * must not end with '/'.
    298   1.1  gdamore 	 */
    299   1.2   plunky 	if (strlen(tty) >= sizeof(pty))
    300   1.2   plunky 		errx(EXIT_FAILURE, ": tty name too long");
    301   1.1  gdamore 
    302   1.1  gdamore 	strlcpy(pty, tty, sizeof(pty));
    303   1.1  gdamore 	slash = strrchr(pty, '/');
    304   1.2   plunky 	if (slash == NULL || slash[1] == '\0')
    305   1.2   plunky 		errx(EXIT_FAILURE, "%s: invalid tty", tty);
    306   1.1  gdamore 
    307   1.1  gdamore 	slash[1] = 'p';
    308   1.2   plunky 	if (strcmp(pty, tty) == 0)
    309   1.2   plunky 		errx(EXIT_FAILURE, "Master and slave tty are the same (%s)", tty);
    310   1.1  gdamore 
    311   1.2   plunky 	if ((master = open(pty, O_RDWR, 0)) < 0)
    312   1.2   plunky 		err(EXIT_FAILURE, "%s", pty);
    313   1.1  gdamore 
    314   1.1  gdamore 	/*
    315   1.1  gdamore 	 * Slave TTY
    316   1.1  gdamore 	 */
    317   1.1  gdamore 
    318   1.1  gdamore 	if ((gr = getgrnam("tty")) != NULL)
    319   1.1  gdamore 		ttygid = gr->gr_gid;
    320   1.1  gdamore 	else
    321   1.1  gdamore 		ttygid = (gid_t)-1;
    322   1.1  gdamore 
    323   1.2   plunky 	(void)chown(tty, getuid(), ttygid);
    324   1.2   plunky 	(void)chmod(tty, S_IRUSR | S_IWUSR | S_IWGRP);
    325   1.2   plunky 	(void)revoke(tty);
    326   1.2   plunky 
    327   1.2   plunky 	return master;
    328   1.2   plunky }
    329   1.1  gdamore 
    330   1.2   plunky int
    331  1.12   plunky open_client(bdaddr_t *laddr, bdaddr_t *raddr, int lm, uintmax_t psm, const char *service)
    332   1.2   plunky {
    333   1.2   plunky 	struct sockaddr_bt sa;
    334   1.3   plunky 	struct service *s;
    335   1.2   plunky 	struct linger l;
    336   1.3   plunky 	char *ep;
    337  1.10   plunky 	int fd, error;
    338  1.10   plunky 	uintmax_t channel;
    339   1.3   plunky 
    340   1.3   plunky 	for (s = services ; ; s++) {
    341   1.3   plunky 		if (s->name == NULL) {
    342   1.5   plunky 			channel = strtoul(service, &ep, 10);
    343  1.10   plunky 			if (*ep != '\0')
    344  1.10   plunky 				errx(EXIT_FAILURE, "Unknown service: %s", service);
    345   1.3   plunky 
    346   1.3   plunky 			break;
    347   1.3   plunky 		}
    348   1.3   plunky 
    349   1.3   plunky 		if (strcasecmp(s->name, service) == 0) {
    350  1.12   plunky 			error = service_search(laddr, raddr, s->class, &psm, &channel);
    351  1.10   plunky 			if (error != 0)
    352  1.10   plunky 				errx(EXIT_FAILURE, "%s: %s", s->name, strerror(error));
    353   1.3   plunky 
    354   1.3   plunky 			break;
    355   1.3   plunky 		}
    356   1.3   plunky 	}
    357   1.1  gdamore 
    358  1.10   plunky 	if (channel < RFCOMM_CHANNEL_MIN || channel > RFCOMM_CHANNEL_MAX)
    359  1.10   plunky 		errx(EXIT_FAILURE, "Invalid channel %"PRIuMAX, channel);
    360  1.10   plunky 
    361  1.12   plunky 	if (L2CAP_PSM_INVALID(psm))
    362  1.12   plunky 		errx(EXIT_FAILURE, "Invalid PSM 0x%04"PRIxMAX, psm);
    363  1.12   plunky 
    364   1.2   plunky 	memset(&sa, 0, sizeof(sa));
    365   1.2   plunky 	sa.bt_len = sizeof(sa);
    366   1.2   plunky 	sa.bt_family = AF_BLUETOOTH;
    367   1.2   plunky 	bdaddr_copy(&sa.bt_bdaddr, laddr);
    368   1.2   plunky 
    369   1.2   plunky 	fd = socket(PF_BLUETOOTH, SOCK_STREAM, BTPROTO_RFCOMM);
    370   1.2   plunky 	if (fd < 0)
    371   1.2   plunky 		err(EXIT_FAILURE, "socket()");
    372   1.2   plunky 
    373   1.2   plunky 	if (bind(fd, (struct sockaddr *)&sa, sizeof(sa)) < 0)
    374   1.2   plunky 		err(EXIT_FAILURE, "bind(%s)", bt_ntoa(laddr, NULL));
    375   1.2   plunky 
    376   1.2   plunky 	memset(&l, 0, sizeof(l));
    377   1.2   plunky 	l.l_onoff = 1;
    378   1.2   plunky 	l.l_linger = 5;
    379   1.2   plunky 	if (setsockopt(fd, SOL_SOCKET, SO_LINGER, &l, sizeof(l)) < 0)
    380   1.2   plunky 		err(EXIT_FAILURE, "linger()");
    381   1.2   plunky 
    382   1.7   plunky 	if (setsockopt(fd, BTPROTO_RFCOMM, SO_RFCOMM_LM, &lm, sizeof(lm)) < 0)
    383   1.7   plunky 		err(EXIT_FAILURE, "link mode");
    384   1.7   plunky 
    385  1.12   plunky 	sa.bt_psm = psm;
    386   1.2   plunky 	sa.bt_channel = channel;
    387   1.2   plunky 	bdaddr_copy(&sa.bt_bdaddr, raddr);
    388   1.2   plunky 
    389   1.2   plunky 	if (connect(fd, (struct sockaddr *)&sa, sizeof(sa)) < 0)
    390  1.12   plunky 		err(EXIT_FAILURE, "connect(%s, 0x%04"PRIxMAX", %"PRIuMAX")",
    391  1.12   plunky 		    bt_ntoa(raddr, NULL), psm, channel);
    392   1.1  gdamore 
    393   1.2   plunky 	return fd;
    394   1.2   plunky }
    395   1.1  gdamore 
    396   1.2   plunky int
    397  1.12   plunky open_server(bdaddr_t *laddr, uint16_t psm, uint8_t channel, int lm, const char *service)
    398   1.1  gdamore {
    399  1.10   plunky 	uint8_t	buffer[256];
    400   1.2   plunky 	struct sockaddr_bt sa;
    401  1.10   plunky 	struct service *s;
    402   1.2   plunky 	struct linger l;
    403   1.2   plunky 	socklen_t len;
    404  1.10   plunky 	sdp_session_t ss;
    405  1.10   plunky 	sdp_data_t rec;
    406  1.10   plunky 	int sv, fd;
    407  1.10   plunky 
    408  1.10   plunky 	for (s = services; ; s++) {
    409  1.10   plunky 		if (s->name == NULL)
    410  1.10   plunky 			usage();
    411   1.1  gdamore 
    412  1.10   plunky 		if (strcasecmp(s->name, service) == 0)
    413  1.10   plunky 			break;
    414  1.10   plunky 	}
    415   1.2   plunky 
    416  1.10   plunky 	/* Open server socket */
    417   1.2   plunky 	sv = socket(PF_BLUETOOTH, SOCK_STREAM, BTPROTO_RFCOMM);
    418   1.2   plunky 	if (sv < 0)
    419   1.2   plunky 		err(EXIT_FAILURE, "socket()");
    420   1.2   plunky 
    421  1.10   plunky 	memset(&sa, 0, sizeof(sa));
    422  1.10   plunky 	sa.bt_len = sizeof(sa);
    423  1.10   plunky 	sa.bt_family = AF_BLUETOOTH;
    424  1.12   plunky 	sa.bt_psm = psm;
    425  1.10   plunky 	sa.bt_channel = channel;
    426  1.10   plunky 	bdaddr_copy(&sa.bt_bdaddr, laddr);
    427   1.2   plunky 	if (bind(sv, (struct sockaddr *)&sa, sizeof(sa)) < 0)
    428  1.12   plunky 		err(EXIT_FAILURE, "bind(%s, 0x%04x, %d)",
    429  1.12   plunky 		    bt_ntoa(laddr, NULL), psm, channel);
    430   1.2   plunky 
    431   1.7   plunky 	if (setsockopt(sv, BTPROTO_RFCOMM, SO_RFCOMM_LM, &lm, sizeof(lm)) < 0)
    432   1.7   plunky 		err(EXIT_FAILURE, "link mode");
    433   1.7   plunky 
    434   1.2   plunky 	if (listen(sv, 1) < 0)
    435   1.2   plunky 		err(EXIT_FAILURE, "listen()");
    436   1.2   plunky 
    437  1.13   plunky 	len = sizeof(sa);
    438  1.13   plunky 	if (getsockname(sv, (struct sockaddr *)&sa, &len) < 0)
    439  1.13   plunky 		err(EXIT_FAILURE, "getsockname()");
    440  1.13   plunky 	if (len != sizeof(sa))
    441  1.13   plunky 		errx(EXIT_FAILURE, "getsockname()");
    442  1.13   plunky 
    443  1.10   plunky 	/* Build SDP record */
    444  1.10   plunky 	rec.next = buffer;
    445  1.10   plunky 	rec.end = buffer + sizeof(buffer);
    446  1.10   plunky 
    447  1.10   plunky 	sdp_put_uint16(&rec, SDP_ATTR_SERVICE_RECORD_HANDLE);
    448  1.10   plunky 	sdp_put_uint32(&rec, 0x00000000);
    449  1.10   plunky 
    450  1.10   plunky 	sdp_put_uint16(&rec, SDP_ATTR_SERVICE_CLASS_ID_LIST);
    451  1.10   plunky 	sdp_put_seq(&rec, 3);
    452  1.10   plunky 	sdp_put_uuid16(&rec, s->class);
    453  1.10   plunky 
    454  1.12   plunky 	len = (psm == L2CAP_PSM_RFCOMM ? 0 : 3);
    455  1.12   plunky 
    456  1.10   plunky 	sdp_put_uint16(&rec, SDP_ATTR_PROTOCOL_DESCRIPTOR_LIST);
    457  1.12   plunky 	sdp_put_seq(&rec, 12 + len);
    458  1.12   plunky 	sdp_put_seq(&rec, 3 + len);
    459  1.10   plunky 	sdp_put_uuid16(&rec, SDP_UUID_PROTOCOL_L2CAP);
    460  1.12   plunky 	if (len > 0)
    461  1.12   plunky 		sdp_put_uint16(&rec, psm);
    462  1.10   plunky 	sdp_put_seq(&rec, 5);
    463  1.10   plunky 	sdp_put_uuid16(&rec, SDP_UUID_PROTOCOL_RFCOMM);
    464  1.13   plunky 	sdp_put_uint8(&rec, sa.bt_channel);
    465  1.10   plunky 
    466  1.10   plunky 	sdp_put_uint16(&rec, SDP_ATTR_BROWSE_GROUP_LIST);
    467  1.10   plunky 	sdp_put_seq(&rec, 3);
    468  1.10   plunky 	sdp_put_uuid16(&rec, SDP_SERVICE_CLASS_PUBLIC_BROWSE_GROUP);
    469  1.10   plunky 
    470  1.10   plunky 	sdp_put_uint16(&rec, SDP_ATTR_LANGUAGE_BASE_ATTRIBUTE_ID_LIST);
    471  1.10   plunky 	sdp_put_seq(&rec, 9);
    472  1.10   plunky 	sdp_put_uint16(&rec, 0x656e);	/* "en" */
    473  1.10   plunky 	sdp_put_uint16(&rec, 106);	/* UTF-8 */
    474  1.10   plunky 	sdp_put_uint16(&rec, SDP_ATTR_PRIMARY_LANGUAGE_BASE_ID);
    475  1.10   plunky 
    476  1.10   plunky 	if (s->class == SDP_SERVICE_CLASS_LAN_ACCESS_USING_PPP) {
    477  1.10   plunky 		sdp_put_uint16(&rec, SDP_ATTR_SERVICE_AVAILABILITY);
    478  1.10   plunky 		sdp_put_uint8(&rec, 0x00);
    479  1.10   plunky 	}
    480  1.10   plunky 
    481  1.10   plunky 	sdp_put_uint16(&rec, SDP_ATTR_BLUETOOTH_PROFILE_DESCRIPTOR_LIST);
    482  1.10   plunky 	sdp_put_seq(&rec, 8);
    483  1.10   plunky 	sdp_put_seq(&rec, 6);
    484  1.10   plunky 	sdp_put_uuid16(&rec, s->class);
    485  1.10   plunky 	sdp_put_uint16(&rec, 0x0100);	/* v1.0 */
    486  1.10   plunky 
    487  1.10   plunky 	sdp_put_uint16(&rec, SDP_ATTR_PRIMARY_LANGUAGE_BASE_ID
    488  1.10   plunky 	    + SDP_ATTR_SERVICE_NAME_OFFSET);
    489  1.10   plunky 	sdp_put_str(&rec, s->description, -1);
    490  1.10   plunky 
    491  1.10   plunky 	if (s->class == SDP_SERVICE_CLASS_DIALUP_NETWORKING) {
    492  1.10   plunky 		sdp_put_uint16(&rec, SDP_ATTR_AUDIO_FEEDBACK_SUPPORT);
    493  1.10   plunky 		sdp_put_bool(&rec, false);
    494  1.10   plunky 	}
    495   1.1  gdamore 
    496  1.10   plunky #if 0
    497  1.10   plunky 	if (s->class == SDP_SERVICE_CLASS_LAN_ACCESS_USING_PPP) {
    498  1.10   plunky 		sdp_put_uint16(&rec, SDP_ATTR_IP_SUBNET);	/* TODO */
    499  1.10   plunky 		sdp_put_str(&rec, "0.0.0.0/0", -1);
    500   1.1  gdamore 	}
    501  1.10   plunky #endif
    502   1.1  gdamore 
    503  1.10   plunky 	rec.end = rec.next;
    504  1.10   plunky 	rec.next = buffer;
    505   1.2   plunky 
    506  1.10   plunky 	/* Register service with SDP server */
    507   1.2   plunky 	ss = sdp_open_local(NULL);
    508  1.10   plunky 	if (ss == NULL)
    509   1.2   plunky 		err(EXIT_FAILURE, "sdp_open_local");
    510   1.2   plunky 
    511  1.10   plunky 	if (!sdp_record_insert(ss, laddr, NULL, &rec))
    512  1.10   plunky 		err(EXIT_FAILURE, "sdp_record_insert");
    513   1.2   plunky 
    514  1.10   plunky 	/* Accept client connection */
    515   1.2   plunky 	len = sizeof(sa);
    516   1.2   plunky 	fd = accept(sv, (struct sockaddr *)&sa, &len);
    517   1.2   plunky 	if (fd < 0)
    518   1.2   plunky 		err(EXIT_FAILURE, "accept");
    519   1.2   plunky 
    520   1.2   plunky 	memset(&l, 0, sizeof(l));
    521   1.2   plunky 	l.l_onoff = 1;
    522   1.2   plunky 	l.l_linger = 5;
    523   1.2   plunky 	if (setsockopt(fd, SOL_SOCKET, SO_LINGER, &l, sizeof(l)) < 0)
    524   1.2   plunky 		err(EXIT_FAILURE, "linger()");
    525   1.2   plunky 
    526   1.2   plunky 	close(sv);
    527   1.2   plunky 	return fd;
    528   1.2   plunky }
    529   1.1  gdamore 
    530   1.2   plunky void
    531   1.2   plunky copy_data(int src, int dst)
    532   1.1  gdamore {
    533   1.2   plunky 	static char	buf[BUFSIZ];
    534   1.2   plunky 	ssize_t		nr, nw, off;
    535   1.1  gdamore 
    536   1.2   plunky 	while ((nr = read(src, buf, sizeof(buf))) == -1) {
    537   1.2   plunky 		if (errno != EINTR) {
    538   1.2   plunky 			syslog(LOG_ERR, "read failed: %m");
    539   1.2   plunky 			exit(EXIT_FAILURE);
    540   1.2   plunky 		}
    541   1.2   plunky 	}
    542   1.1  gdamore 
    543   1.3   plunky 	if (nr == 0)	/* reached EOF */
    544   1.3   plunky 		done++;
    545   1.3   plunky 
    546   1.2   plunky 	for (off = 0 ; nr ; nr -= nw, off += nw) {
    547   1.2   plunky 		if ((nw = write(dst, buf + off, (size_t)nr)) == -1) {
    548   1.2   plunky 			syslog(LOG_ERR, "write failed: %m");
    549   1.2   plunky 			exit(EXIT_FAILURE);
    550   1.1  gdamore 		}
    551   1.1  gdamore 	}
    552   1.2   plunky }
    553   1.1  gdamore 
    554  1.10   plunky int
    555  1.12   plunky service_search(bdaddr_t const *laddr, bdaddr_t const *raddr,
    556  1.12   plunky     uint16_t class, uintmax_t *psm, uintmax_t *channel)
    557  1.10   plunky {
    558  1.10   plunky 	uint8_t		buffer[6];	/* SSP (3 bytes) + AIL (3 bytes) */
    559  1.10   plunky 	sdp_session_t	ss;
    560  1.10   plunky 	sdp_data_t	ail, ssp, rsp, rec, value, pdl, seq;
    561  1.10   plunky 	uint16_t	attr;
    562  1.10   plunky 	bool		rv;
    563  1.10   plunky 
    564  1.10   plunky 	seq.next = buffer;
    565  1.10   plunky 	seq.end = buffer + sizeof(buffer);
    566  1.10   plunky 
    567  1.10   plunky 	/*
    568  1.10   plunky 	 * build ServiceSearchPattern (3 bytes)
    569  1.10   plunky 	 */
    570  1.10   plunky 	ssp.next = seq.next;
    571  1.10   plunky 	sdp_put_uuid16(&seq, class);
    572  1.10   plunky 	ssp.end = seq.next;
    573  1.10   plunky 
    574  1.10   plunky 	/*
    575  1.10   plunky 	 * build AttributeIDList (3 bytes)
    576  1.10   plunky 	 */
    577  1.10   plunky 	ail.next = seq.next;
    578  1.10   plunky 	sdp_put_uint16(&seq, SDP_ATTR_PROTOCOL_DESCRIPTOR_LIST);
    579  1.10   plunky 	ail.end = seq.next;
    580  1.10   plunky 
    581  1.10   plunky 	ss = sdp_open(laddr, raddr);
    582  1.10   plunky 	if (ss == NULL)
    583  1.10   plunky 		return errno;
    584  1.10   plunky 
    585  1.10   plunky 	rv = sdp_service_search_attribute(ss, &ssp, &ail, &rsp);
    586  1.10   plunky 	if (!rv) {
    587  1.10   plunky 		sdp_close(ss);
    588  1.10   plunky 		return errno;
    589  1.10   plunky 	}
    590  1.10   plunky 
    591  1.10   plunky 	/*
    592  1.10   plunky 	 * The response will be a list of records that matched our
    593  1.10   plunky 	 * ServiceSearchPattern, where each record is a sequence
    594  1.10   plunky 	 * containing a single ProtocolDescriptorList attribute and
    595  1.10   plunky 	 * value
    596  1.10   plunky 	 *
    597  1.10   plunky 	 *	seq
    598  1.10   plunky 	 *	  uint16	ProtocolDescriptorList
    599  1.10   plunky 	 *	  value
    600  1.10   plunky 	 *	seq
    601  1.10   plunky 	 *	  uint16	ProtocolDescriptorList
    602  1.10   plunky 	 *	  value
    603  1.10   plunky 	 *
    604  1.10   plunky 	 * If the ProtocolDescriptorList describes a single stack,
    605  1.10   plunky 	 * the attribute value takes the form of a single Data Element
    606  1.10   plunky 	 * Sequence where each member is a protocol descriptor.
    607  1.10   plunky 	 *
    608  1.10   plunky 	 *	seq
    609  1.10   plunky 	 *	  list
    610  1.10   plunky 	 *
    611  1.10   plunky 	 * If it is possible for more than one kind of protocol
    612  1.10   plunky 	 * stack to be used to gain access to the service, the
    613  1.10   plunky 	 * ProtocolDescriptorList takes the form of a Data Element
    614  1.10   plunky 	 * Alternative where each member is a Data Element Sequence
    615  1.10   plunky 	 * describing an alternative protocol stack.
    616  1.10   plunky 	 *
    617  1.10   plunky 	 *	alt
    618  1.10   plunky 	 *	  seq
    619  1.10   plunky 	 *	    list
    620  1.10   plunky 	 *	  seq
    621  1.10   plunky 	 *	    list
    622  1.10   plunky 	 *
    623  1.10   plunky 	 * Each protocol stack description contains a sequence for each
    624  1.10   plunky 	 * protocol, where each sequence contains the protocol UUID as
    625  1.10   plunky 	 * the first element, and any ProtocolSpecificParameters. We are
    626  1.12   plunky 	 * interested in the L2CAP psm if provided, and the RFCOMM channel
    627  1.12   plunky 	 * number, stored as parameter#1 in each case.
    628  1.10   plunky 	 *
    629  1.10   plunky 	 *	seq
    630  1.10   plunky 	 *	  uuid		L2CAP
    631  1.10   plunky 	 *	  uint16	psm
    632  1.10   plunky 	 *	seq
    633  1.10   plunky 	 *	  uuid		RFCOMM
    634  1.10   plunky 	 *	  uint8		channel
    635  1.10   plunky 	 */
    636  1.10   plunky 
    637  1.10   plunky 	rv = false;
    638  1.10   plunky 	while (!rv && sdp_get_seq(&rsp, &rec)) {
    639  1.10   plunky 		if (!sdp_get_attr(&rec, &attr, &value)
    640  1.10   plunky 		    || attr != SDP_ATTR_PROTOCOL_DESCRIPTOR_LIST)
    641  1.10   plunky 			continue;
    642  1.10   plunky 
    643  1.10   plunky 		sdp_get_alt(&value, &value);	/* strip any alt container */
    644  1.10   plunky 		while (!rv && sdp_get_seq(&value, &pdl)) {
    645  1.12   plunky 			*psm = L2CAP_PSM_RFCOMM;
    646  1.10   plunky 			if (sdp_get_seq(&pdl, &seq)
    647  1.10   plunky 			    && sdp_match_uuid16(&seq, SDP_UUID_PROTOCOL_L2CAP)
    648  1.12   plunky 			    && (sdp_get_uint(&seq, psm) || true)
    649  1.10   plunky 			    && sdp_get_seq(&pdl, &seq)
    650  1.10   plunky 			    && sdp_match_uuid16(&seq, SDP_UUID_PROTOCOL_RFCOMM)
    651  1.10   plunky 			    && sdp_get_uint(&seq, channel))
    652  1.10   plunky 				rv = true;
    653  1.10   plunky 		}
    654  1.10   plunky 	}
    655  1.10   plunky 
    656  1.10   plunky 	sdp_close(ss);
    657  1.10   plunky 	return (rv) ? 0 : ENOATTR;
    658  1.10   plunky }
    659  1.10   plunky 
    660   1.2   plunky void
    661   1.2   plunky sighandler(int s)
    662   1.2   plunky {
    663   1.1  gdamore 
    664   1.2   plunky 	done++;
    665   1.2   plunky }
    666   1.2   plunky 
    667   1.2   plunky void
    668   1.2   plunky reset_tio(void)
    669   1.1  gdamore {
    670   1.1  gdamore 
    671   1.2   plunky 	tcsetattr(STDIN_FILENO, TCSAFLUSH, &tio);
    672   1.2   plunky }
    673   1.2   plunky 
    674   1.2   plunky void
    675   1.1  gdamore usage(void)
    676   1.1  gdamore {
    677   1.7   plunky 	const char *cmd = getprogname();
    678   1.2   plunky 	struct service *s;
    679   1.2   plunky 
    680  1.12   plunky 	fprintf(stderr, "Usage: %s [-d device] [-m mode] [-p psm] [-s service] [-t tty]\n"
    681  1.13   plunky 			"       %*s {-a bdaddr | [-c channel]}\n"
    682   1.2   plunky 			"\n"
    683   1.2   plunky 			"Where:\n"
    684   1.2   plunky 			"\t-a bdaddr    remote device address\n"
    685   1.3   plunky 			"\t-c channel   local RFCOMM channel\n"
    686   1.2   plunky 			"\t-d device    local device address\n"
    687   1.7   plunky 			"\t-m mode      link mode\n"
    688  1.12   plunky 			"\t-p psm       protocol/service multiplexer\n"
    689   1.3   plunky 			"\t-s service   service class\n"
    690   1.2   plunky 			"\t-t tty       run in background using pty\n"
    691   1.8      dsl 			"\n", cmd, (int)strlen(cmd), "");
    692   1.2   plunky 
    693   1.3   plunky 	fprintf(stderr, "Known service classes:\n");
    694   1.2   plunky 	for (s = services ; s->name != NULL ; s++)
    695   1.3   plunky 		fprintf(stderr, "\t%-13s%s\n", s->name, s->description);
    696   1.1  gdamore 
    697   1.1  gdamore 	exit(EXIT_FAILURE);
    698   1.2   plunky }
    699