1 /*
2 * Written by Eivind Eklund <eivind@yes.no>
3 * for Yes Interactive
4 *
5 * Copyright (C) 1998, Yes Interactive. All rights reserved.
6 *
7 * Redistribution and use in any form is permitted. Redistribution in
8 * source form should include the above copyright and this set of
9 * conditions, because large sections american law seems to have been
10 * created by a bunch of jerks on drugs that are now illegal, forcing
11 * me to include this copyright-stuff instead of placing this in the
12 * public domain. The name of of 'Yes Interactive' or 'Eivind Eklund'
13 * may not be used to endorse or promote products derived from this
14 * software without specific prior written permission.
15 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
16 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
17 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
18 *
19 * $FreeBSD: src/usr.sbin/ppp/physical.c,v 1.34.2.8 2002/09/01 02:12:29 brian Exp $
20 */
21
22 #include <sys/param.h>
23 #include <netinet/in.h>
24 #include <netinet/in_systm.h>
25 #include <netinet/ip.h>
26 #include <sys/socket.h>
27 #include <sys/un.h>
28
29 #include <errno.h>
30 #include <fcntl.h>
31 #include <paths.h>
32 #ifdef NOSUID
33 #include <signal.h>
34 #endif
35 #include <stdarg.h>
36 #include <stdio.h>
37 #include <stdlib.h>
38 #include <string.h>
39 #include <sys/uio.h>
40 #include <termios.h>
41 #include <time.h>
42 #include <unistd.h>
43 #include <utmpx.h>
44 #if defined(__OpenBSD__) || defined(__NetBSD__)
45 #include <sys/ioctl.h>
46 #include <util.h>
47 #else
48 #include <libutil.h>
49 #endif
50
51 #include "layer.h"
52 #ifndef NONAT
53 #include "nat_cmd.h"
54 #endif
55 #include "proto.h"
56 #include "acf.h"
57 #include "vjcomp.h"
58 #include "defs.h"
59 #include "command.h"
60 #include "mbuf.h"
61 #include "log.h"
62 #include "id.h"
63 #include "timer.h"
64 #include "fsm.h"
65 #include "lqr.h"
66 #include "hdlc.h"
67 #include "lcp.h"
68 #include "throughput.h"
69 #include "sync.h"
70 #include "async.h"
71 #include "iplist.h"
72 #include "slcompress.h"
73 #include "ncpaddr.h"
74 #include "ipcp.h"
75 #include "filter.h"
76 #include "descriptor.h"
77 #include "ccp.h"
78 #include "link.h"
79 #include "physical.h"
80 #include "mp.h"
81 #ifndef NORADIUS
82 #include "radius.h"
83 #endif
84 #include "ipv6cp.h"
85 #include "ncp.h"
86 #include "bundle.h"
87 #include "prompt.h"
88 #include "chat.h"
89 #include "auth.h"
90 #include "chap.h"
91 #include "cbcp.h"
92 #include "datalink.h"
93 #include "tcp.h"
94 #include "udp.h"
95 #include "exec.h"
96 #include "tty.h"
97 #ifndef NONETGRAPH
98 #include "ether.h"
99 #include "netgraph.h"
100 #endif
101 #include "tcpmss.h"
102
103 static int physical_DescriptorWrite(struct fdescriptor *, struct bundle *,
104 const fd_set *);
105
106 static unsigned
physical_DeviceSize(void)107 physical_DeviceSize(void)
108 {
109 return sizeof(struct device);
110 }
111
112 struct {
113 struct device *(*create)(struct physical *);
114 struct device *(*iov2device)(int, struct physical *, struct iovec *,
115 int *, int, int *, int *);
116 unsigned (*DeviceSize)(void);
117 } devices[] = {
118 { tty_Create, tty_iov2device, tty_DeviceSize },
119 #ifndef NONETGRAPH
120 /*
121 * This must come before ``udp'' so that the probe routine is
122 * able to identify it as a more specific type of SOCK_DGRAM.
123 */
124 { ether_Create, ether_iov2device, ether_DeviceSize },
125 #ifdef EXPERIMENTAL_NETGRAPH
126 { ng_Create, ng_iov2device, ng_DeviceSize },
127 #endif
128 #endif
129 { tcp_Create, tcp_iov2device, tcp_DeviceSize },
130 { udp_Create, udp_iov2device, udp_DeviceSize },
131 { exec_Create, exec_iov2device, exec_DeviceSize }
132 };
133
134 #define NDEVICES NELEM(devices)
135
136 static int
physical_UpdateSet(struct fdescriptor * d,fd_set * r,fd_set * w,fd_set * e,int * n)137 physical_UpdateSet(struct fdescriptor *d, fd_set *r, fd_set *w, fd_set *e,
138 int *n)
139 {
140 return physical_doUpdateSet(d, r, w, e, n, 0);
141 }
142
143 void
physical_SetDescriptor(struct physical * p)144 physical_SetDescriptor(struct physical *p)
145 {
146 p->desc.type = PHYSICAL_DESCRIPTOR;
147 p->desc.UpdateSet = physical_UpdateSet;
148 p->desc.IsSet = physical_IsSet;
149 p->desc.Read = physical_DescriptorRead;
150 p->desc.Write = physical_DescriptorWrite;
151 }
152
153 struct physical *
physical_Create(struct datalink * dl,int type)154 physical_Create(struct datalink *dl, int type)
155 {
156 struct physical *p;
157
158 p = (struct physical *)malloc(sizeof(struct physical));
159 if (!p)
160 return NULL;
161
162 p->link.type = PHYSICAL_LINK;
163 p->link.name = dl->name;
164 p->link.len = sizeof *p;
165
166 /* The sample period is fixed - see physical2iov() & iov2physical() */
167 throughput_init(&p->link.stats.total, SAMPLE_PERIOD);
168 p->link.stats.parent = dl->bundle->ncp.mp.active ?
169 &dl->bundle->ncp.mp.link.stats.total : NULL;
170 p->link.stats.gather = 1;
171
172 memset(p->link.Queue, '\0', sizeof p->link.Queue);
173 memset(p->link.proto_in, '\0', sizeof p->link.proto_in);
174 memset(p->link.proto_out, '\0', sizeof p->link.proto_out);
175 link_EmptyStack(&p->link);
176
177 p->handler = NULL;
178 physical_SetDescriptor(p);
179 p->type = type;
180
181 hdlc_Init(&p->hdlc, &p->link.lcp);
182 async_Init(&p->async);
183
184 p->fd = -1;
185 p->out = NULL;
186 p->connect_count = 0;
187 p->dl = dl;
188 p->input.sz = 0;
189 *p->name.full = '\0';
190 p->name.base = p->name.full;
191
192 p->Utmp = 0;
193 p->session_owner = (pid_t)-1;
194
195 p->cfg.rts_cts = MODEM_CTSRTS;
196 p->cfg.speed = MODEM_SPEED;
197 p->cfg.parity = CS8;
198 memcpy(p->cfg.devlist, MODEM_LIST, sizeof MODEM_LIST);
199 p->cfg.ndev = NMODEMS;
200 p->cfg.cd.necessity = CD_DEFAULT;
201 p->cfg.cd.delay = 0; /* reconfigured or device specific default */
202
203 lcp_Init(&p->link.lcp, dl->bundle, &p->link, &dl->fsmp);
204 ccp_Init(&p->link.ccp, dl->bundle, &p->link, &dl->fsmp);
205
206 return p;
207 }
208
209 static const struct parity {
210 const char *name;
211 const char *name1;
212 int set;
213 } validparity[] = {
214 { "even", "P_EVEN", CS7 | PARENB },
215 { "odd", "P_ODD", CS7 | PARENB | PARODD },
216 { "none", "P_ZERO", CS8 },
217 { NULL, NULL, 0 },
218 };
219
220 static int
GetParityValue(const char * str)221 GetParityValue(const char *str)
222 {
223 const struct parity *pp;
224
225 for (pp = validparity; pp->name; pp++) {
226 if (strcasecmp(pp->name, str) == 0 ||
227 strcasecmp(pp->name1, str) == 0) {
228 return pp->set;
229 }
230 }
231 return (-1);
232 }
233
234 int
physical_SetParity(struct physical * p,const char * str)235 physical_SetParity(struct physical *p, const char *str)
236 {
237 struct termios rstio;
238 int val;
239
240 val = GetParityValue(str);
241 if (val > 0) {
242 p->cfg.parity = val;
243 if (p->fd >= 0) {
244 tcgetattr(p->fd, &rstio);
245 rstio.c_cflag &= ~(CSIZE | PARODD | PARENB);
246 rstio.c_cflag |= val;
247 tcsetattr(p->fd, TCSADRAIN, &rstio);
248 }
249 return 0;
250 }
251 log_Printf(LogWARN, "%s: %s: Invalid parity\n", p->link.name, str);
252 return -1;
253 }
254
255 unsigned
physical_GetSpeed(struct physical * p)256 physical_GetSpeed(struct physical *p)
257 {
258 if (p->handler && p->handler->speed)
259 return (*p->handler->speed)(p);
260
261 return 0;
262 }
263
264 int
physical_SetSpeed(struct physical * p,unsigned speed)265 physical_SetSpeed(struct physical *p, unsigned speed)
266 {
267 if (UnsignedToSpeed(speed) != B0) {
268 p->cfg.speed = speed;
269 return 1;
270 }
271
272 return 0;
273 }
274
275 int
physical_Raw(struct physical * p)276 physical_Raw(struct physical *p)
277 {
278 if (p->handler && p->handler->raw)
279 return (*p->handler->raw)(p);
280
281 return 1;
282 }
283
284 void
physical_Offline(struct physical * p)285 physical_Offline(struct physical *p)
286 {
287 if (p->handler && p->handler->offline)
288 (*p->handler->offline)(p);
289 log_Printf(LogPHASE, "%s: Disconnected!\n", p->link.name);
290 }
291
292 static int
physical_Lock(struct physical * p)293 physical_Lock(struct physical *p)
294 {
295 int res;
296
297 if (*p->name.full == '/' && p->type != PHYS_DIRECT &&
298 (res = ID0uu_lock(p->name.base)) != UU_LOCK_OK) {
299 if (res == UU_LOCK_INUSE)
300 log_Printf(LogPHASE, "%s: %s is in use\n", p->link.name, p->name.full);
301 else
302 log_Printf(LogPHASE, "%s: %s is in use: uu_lock: %s\n",
303 p->link.name, p->name.full, uu_lockerr(res));
304 return 0;
305 }
306
307 return 1;
308 }
309
310 static void
physical_Unlock(struct physical * p)311 physical_Unlock(struct physical *p)
312 {
313 if (*p->name.full == '/' && p->type != PHYS_DIRECT &&
314 ID0uu_unlock(p->name.base) == -1)
315 log_Printf(LogALERT, "%s: Can't uu_unlock %s\n", p->link.name,
316 p->name.base);
317 }
318
319 void
physical_Close(struct physical * p)320 physical_Close(struct physical *p)
321 {
322 int newsid;
323 char fn[PATH_MAX];
324 struct utmpx ut;
325
326 if (p->fd < 0)
327 return;
328
329 log_Printf(LogDEBUG, "%s: Close\n", p->link.name);
330
331 if (p->handler && p->handler->cooked)
332 (*p->handler->cooked)(p);
333
334 physical_StopDeviceTimer(p);
335 if (p->Utmp) {
336 memset(&ut, 0, sizeof ut);
337 ut.ut_type = DEAD_PROCESS;
338 gettimeofday(&ut.ut_tv, NULL);
339 snprintf(ut.ut_id, sizeof ut.ut_id, "%xppp", (int)getpid());
340 ID0logout(&ut);
341 p->Utmp = 0;
342 }
343 newsid = tcgetpgrp(p->fd) == getpgrp();
344 close(p->fd);
345 p->fd = -1;
346 log_SetTtyCommandMode(p->dl);
347
348 throughput_stop(&p->link.stats.total);
349 throughput_log(&p->link.stats.total, LogPHASE, p->link.name);
350
351 if (p->session_owner != (pid_t)-1) {
352 log_Printf(LogPHASE, "%s: HUPing %ld\n", p->link.name,
353 (long)p->session_owner);
354 ID0kill(p->session_owner, SIGHUP);
355 p->session_owner = (pid_t)-1;
356 }
357
358 if (newsid)
359 bundle_setsid(p->dl->bundle, 0);
360
361 if (*p->name.full == '/') {
362 snprintf(fn, sizeof fn, "%s%s.if", _PATH_VARRUN, p->name.base);
363 if (ID0unlink(fn) == -1)
364 log_Printf(LogALERT, "%s: Can't remove %s: %s\n",
365 p->link.name, fn, strerror(errno));
366 }
367 physical_Unlock(p);
368 if (p->handler && p->handler->destroy)
369 (*p->handler->destroy)(p);
370 p->handler = NULL;
371 p->name.base = p->name.full;
372 *p->name.full = '\0';
373 }
374
375 void
physical_Destroy(struct physical * p)376 physical_Destroy(struct physical *p)
377 {
378 physical_Close(p);
379 throughput_destroy(&p->link.stats.total);
380 free(p);
381 }
382
383 static int
physical_DescriptorWrite(struct fdescriptor * d,struct bundle * bundle __unused,const fd_set * fdset __unused)384 physical_DescriptorWrite(struct fdescriptor *d, struct bundle *bundle __unused,
385 const fd_set *fdset __unused)
386 {
387 struct physical *p = descriptor2physical(d);
388 int nw, result = 0;
389
390 if (p->out == NULL)
391 p->out = link_Dequeue(&p->link);
392
393 if (p->out) {
394 nw = physical_Write(p, MBUF_CTOP(p->out), p->out->m_len);
395 log_Printf(LogDEBUG, "%s: DescriptorWrite: wrote %d(%lu) to %d\n",
396 p->link.name, nw, (unsigned long)p->out->m_len, p->fd);
397 if (nw > 0) {
398 p->out->m_len -= nw;
399 p->out->m_offset += nw;
400 if (p->out->m_len == 0)
401 p->out = m_free(p->out);
402 result = 1;
403 } else if (nw < 0) {
404 if (errno == EAGAIN)
405 result = 1;
406 else if (errno != ENOBUFS) {
407 log_Printf(LogPHASE, "%s: write (%d): %s\n", p->link.name,
408 p->fd, strerror(errno));
409 datalink_Down(p->dl, CLOSE_NORMAL);
410 }
411 }
412 /* else we shouldn't really have been called ! select() is broken ! */
413 }
414
415 return result;
416 }
417
418 int
physical_ShowStatus(struct cmdargs const * arg)419 physical_ShowStatus(struct cmdargs const *arg)
420 {
421 struct physical *p = arg->cx->physical;
422 struct cd *cd;
423 const char *dev;
424 int n, slot;
425
426 prompt_Printf(arg->prompt, "Name: %s\n", p->link.name);
427 prompt_Printf(arg->prompt, " State: ");
428 if (p->fd < 0)
429 prompt_Printf(arg->prompt, "closed\n");
430 else {
431 slot = physical_Slot(p);
432 if (p->handler && p->handler->openinfo) {
433 if (slot == -1)
434 prompt_Printf(arg->prompt, "open (%s)\n", (*p->handler->openinfo)(p));
435 else
436 prompt_Printf(arg->prompt, "open (%s, port %d)\n",
437 (*p->handler->openinfo)(p), slot);
438 } else if (slot == -1)
439 prompt_Printf(arg->prompt, "open\n");
440 else
441 prompt_Printf(arg->prompt, "open (port %d)\n", slot);
442 }
443
444 prompt_Printf(arg->prompt, " Device: %s",
445 *p->name.full ? p->name.full :
446 p->type == PHYS_DIRECT ? "unknown" : "N/A");
447 if (p->session_owner != (pid_t)-1)
448 prompt_Printf(arg->prompt, " (session owner: %ld)", (long)p->session_owner);
449
450 prompt_Printf(arg->prompt, "\n Link Type: %s\n", mode2Nam(p->type));
451 prompt_Printf(arg->prompt, " Connect Count: %d\n", p->connect_count);
452 #ifdef TIOCOUTQ
453 if (p->fd >= 0 && ioctl(p->fd, TIOCOUTQ, &n) >= 0)
454 prompt_Printf(arg->prompt, " Physical outq: %d\n", n);
455 #endif
456
457 prompt_Printf(arg->prompt, " Queued Packets: %lu\n",
458 (u_long)link_QueueLen(&p->link));
459 prompt_Printf(arg->prompt, " Phone Number: %s\n", arg->cx->phone.chosen);
460
461 prompt_Printf(arg->prompt, "\nDefaults:\n");
462
463 prompt_Printf(arg->prompt, " Device List: ");
464 dev = p->cfg.devlist;
465 for (n = 0; n < p->cfg.ndev; n++) {
466 if (n)
467 prompt_Printf(arg->prompt, ", ");
468 prompt_Printf(arg->prompt, "\"%s\"", dev);
469 dev += strlen(dev) + 1;
470 }
471
472 prompt_Printf(arg->prompt, "\n Characteristics: ");
473 if (physical_IsSync(arg->cx->physical))
474 prompt_Printf(arg->prompt, "sync");
475 else
476 prompt_Printf(arg->prompt, "%dbps", p->cfg.speed);
477
478 switch (p->cfg.parity & CSIZE) {
479 case CS7:
480 prompt_Printf(arg->prompt, ", cs7");
481 break;
482 case CS8:
483 prompt_Printf(arg->prompt, ", cs8");
484 break;
485 }
486 if (p->cfg.parity & PARENB) {
487 if (p->cfg.parity & PARODD)
488 prompt_Printf(arg->prompt, ", odd parity");
489 else
490 prompt_Printf(arg->prompt, ", even parity");
491 } else
492 prompt_Printf(arg->prompt, ", no parity");
493
494 prompt_Printf(arg->prompt, ", CTS/RTS %s\n", (p->cfg.rts_cts ? "on" : "off"));
495
496 prompt_Printf(arg->prompt, " CD check delay: ");
497 cd = p->handler ? &p->handler->cd : &p->cfg.cd;
498 if (cd->necessity == CD_NOTREQUIRED)
499 prompt_Printf(arg->prompt, "no cd");
500 else if (p->cfg.cd.necessity == CD_DEFAULT) {
501 prompt_Printf(arg->prompt, "device specific");
502 } else {
503 prompt_Printf(arg->prompt, "%d second%s", p->cfg.cd.delay,
504 p->cfg.cd.delay == 1 ? "" : "s");
505 if (p->cfg.cd.necessity == CD_REQUIRED)
506 prompt_Printf(arg->prompt, " (required!)");
507 }
508 prompt_Printf(arg->prompt, "\n\n");
509
510 throughput_disp(&p->link.stats.total, arg->prompt);
511
512 return 0;
513 }
514
515 void
physical_DescriptorRead(struct fdescriptor * d,struct bundle * bundle,const fd_set * fdset __unused)516 physical_DescriptorRead(struct fdescriptor *d, struct bundle *bundle,
517 const fd_set *fdset __unused)
518 {
519 struct physical *p = descriptor2physical(d);
520 u_char *rbuff;
521 int n, found;
522
523 rbuff = p->input.buf + p->input.sz;
524
525 /* something to read */
526 n = physical_Read(p, rbuff, sizeof p->input.buf - p->input.sz);
527 log_Printf(LogDEBUG, "%s: DescriptorRead: read %d/%d from %d\n",
528 p->link.name, n, (int)(sizeof p->input.buf - p->input.sz), p->fd);
529 if (n <= 0) {
530 if (n < 0)
531 log_Printf(LogPHASE, "%s: read (%d): %s\n", p->link.name, p->fd,
532 strerror(errno));
533 else
534 log_Printf(LogPHASE, "%s: read (%d): Got zero bytes\n",
535 p->link.name, p->fd);
536 datalink_Down(p->dl, CLOSE_NORMAL);
537 return;
538 }
539
540 rbuff -= p->input.sz;
541 n += p->input.sz;
542
543 if (p->link.lcp.fsm.state <= ST_CLOSED) {
544 if (p->type != PHYS_DEDICATED) {
545 found = hdlc_Detect((u_char const **)(void *)&rbuff, n, physical_IsSync(p));
546 if (rbuff != p->input.buf)
547 log_WritePrompts(p->dl, "%.*s", (int)(rbuff - p->input.buf),
548 p->input.buf);
549 p->input.sz = n - (rbuff - p->input.buf);
550
551 if (found) {
552 /* LCP packet is detected. Turn ourselves into packet mode */
553 log_Printf(LogPHASE, "%s: PPP packet detected, coming up\n",
554 p->link.name);
555 log_SetTtyCommandMode(p->dl);
556 datalink_Up(p->dl, 0, 1);
557 link_PullPacket(&p->link, rbuff, p->input.sz, bundle);
558 p->input.sz = 0;
559 } else
560 bcopy(rbuff, p->input.buf, p->input.sz);
561 } else
562 /* In -dedicated mode, we just discard input until LCP is started */
563 p->input.sz = 0;
564 } else if (n > 0)
565 link_PullPacket(&p->link, rbuff, n, bundle);
566 }
567
568 struct physical *
iov2physical(struct datalink * dl,struct iovec * iov,int * niov,int maxiov,int fd,int * auxfd,int * nauxfd)569 iov2physical(struct datalink *dl, struct iovec *iov, int *niov, int maxiov,
570 int fd, int *auxfd, int *nauxfd)
571 {
572 struct physical *p;
573 int type;
574 unsigned h;
575
576 p = (struct physical *)iov[(*niov)++].iov_base;
577 p->link.name = dl->name;
578 memset(p->link.Queue, '\0', sizeof p->link.Queue);
579
580 p->desc.UpdateSet = physical_UpdateSet;
581 p->desc.IsSet = physical_IsSet;
582 p->desc.Read = physical_DescriptorRead;
583 p->desc.Write = physical_DescriptorWrite;
584 p->type = PHYS_DIRECT;
585 p->dl = dl;
586 p->out = NULL;
587 p->connect_count = 1;
588
589 physical_SetDevice(p, p->name.full);
590
591 p->link.lcp.fsm.bundle = dl->bundle;
592 p->link.lcp.fsm.link = &p->link;
593 memset(&p->link.lcp.fsm.FsmTimer, '\0', sizeof p->link.lcp.fsm.FsmTimer);
594 memset(&p->link.lcp.fsm.OpenTimer, '\0', sizeof p->link.lcp.fsm.OpenTimer);
595 memset(&p->link.lcp.fsm.StoppedTimer, '\0',
596 sizeof p->link.lcp.fsm.StoppedTimer);
597 p->link.lcp.fsm.parent = &dl->fsmp;
598 lcp_SetupCallbacks(&p->link.lcp);
599
600 p->link.ccp.fsm.bundle = dl->bundle;
601 p->link.ccp.fsm.link = &p->link;
602 /* Our in.state & out.state are NULL (no link-level ccp yet) */
603 memset(&p->link.ccp.fsm.FsmTimer, '\0', sizeof p->link.ccp.fsm.FsmTimer);
604 memset(&p->link.ccp.fsm.OpenTimer, '\0', sizeof p->link.ccp.fsm.OpenTimer);
605 memset(&p->link.ccp.fsm.StoppedTimer, '\0',
606 sizeof p->link.ccp.fsm.StoppedTimer);
607 p->link.ccp.fsm.parent = &dl->fsmp;
608 ccp_SetupCallbacks(&p->link.ccp);
609
610 p->hdlc.lqm.owner = &p->link.lcp;
611 p->hdlc.ReportTimer.state = TIMER_STOPPED;
612 p->hdlc.lqm.timer.state = TIMER_STOPPED;
613
614 p->fd = fd;
615 p->link.stats.total.in.SampleOctets = (long long *)iov[(*niov)++].iov_base;
616 p->link.stats.total.out.SampleOctets = (long long *)iov[(*niov)++].iov_base;
617 p->link.stats.parent = dl->bundle->ncp.mp.active ?
618 &dl->bundle->ncp.mp.link.stats.total : NULL;
619 p->link.stats.gather = 1;
620
621 type = (long)p->handler;
622 p->handler = NULL;
623 for (h = 0; h < NDEVICES && p->handler == NULL; h++)
624 p->handler = (*devices[h].iov2device)(type, p, iov, niov, maxiov,
625 auxfd, nauxfd);
626 if (p->handler == NULL) {
627 log_Printf(LogPHASE, "%s: Unknown link type\n", p->link.name);
628 free(iov[(*niov)++].iov_base);
629 physical_SetupStack(p, "unknown", PHYSICAL_NOFORCE);
630 } else
631 log_Printf(LogPHASE, "%s: Device %s, link type is %s\n",
632 p->link.name, p->name.full, p->handler->name);
633
634 if (p->hdlc.lqm.method && p->hdlc.lqm.timer.load)
635 lqr_reStart(&p->link.lcp);
636 hdlc_StartTimer(&p->hdlc);
637
638 throughput_restart(&p->link.stats.total, "physical throughput",
639 Enabled(dl->bundle, OPT_THROUGHPUT));
640
641 return p;
642 }
643
644 unsigned
physical_MaxDeviceSize(void)645 physical_MaxDeviceSize(void)
646 {
647 unsigned biggest, sz, n;
648
649 biggest = sizeof(struct device);
650 for (n = 0; n < NDEVICES; n++)
651 if (devices[n].DeviceSize) {
652 sz = (*devices[n].DeviceSize)();
653 if (biggest < sz)
654 biggest = sz;
655 }
656
657 return biggest;
658 }
659
660 int
physical2iov(struct physical * p,struct iovec * iov,int * niov,int maxiov,int * auxfd,int * nauxfd)661 physical2iov(struct physical *p, struct iovec *iov, int *niov, int maxiov,
662 int *auxfd, int *nauxfd)
663 {
664 struct device *h;
665 int sz;
666
667 h = NULL;
668 if (p) {
669 hdlc_StopTimer(&p->hdlc);
670 lqr_StopTimer(p);
671 timer_Stop(&p->link.lcp.fsm.FsmTimer);
672 timer_Stop(&p->link.ccp.fsm.FsmTimer);
673 timer_Stop(&p->link.lcp.fsm.OpenTimer);
674 timer_Stop(&p->link.ccp.fsm.OpenTimer);
675 timer_Stop(&p->link.lcp.fsm.StoppedTimer);
676 timer_Stop(&p->link.ccp.fsm.StoppedTimer);
677 if (p->handler) {
678 h = p->handler;
679 p->handler = (struct device *)(long)p->handler->type;
680 }
681
682 if (Enabled(p->dl->bundle, OPT_KEEPSESSION) ||
683 tcgetpgrp(p->fd) == getpgrp())
684 p->session_owner = getpid(); /* So I'll eventually get HUP'd */
685 else
686 p->session_owner = (pid_t)-1;
687 timer_Stop(&p->link.stats.total.Timer);
688 }
689
690 if (*niov + 2 >= maxiov) {
691 log_Printf(LogERROR, "physical2iov: No room for physical + throughput"
692 " + device !\n");
693 if (p)
694 free(p);
695 return -1;
696 }
697
698 iov[*niov].iov_base = (void *)p;
699 iov[*niov].iov_len = sizeof *p;
700 (*niov)++;
701
702 iov[*niov].iov_base = p ? (void *)p->link.stats.total.in.SampleOctets : NULL;
703 iov[*niov].iov_len = SAMPLE_PERIOD * sizeof(long long);
704 (*niov)++;
705 iov[*niov].iov_base = p ? (void *)p->link.stats.total.out.SampleOctets : NULL;
706 iov[*niov].iov_len = SAMPLE_PERIOD * sizeof(long long);
707 (*niov)++;
708
709 sz = physical_MaxDeviceSize();
710 if (p) {
711 if (h && h->device2iov)
712 (*h->device2iov)(h, iov, niov, maxiov, auxfd, nauxfd);
713 else {
714 iov[*niov].iov_base = malloc(sz);
715 if (h)
716 memcpy(iov[*niov].iov_base, h, sizeof *h);
717 iov[*niov].iov_len = sz;
718 (*niov)++;
719 }
720 } else {
721 iov[*niov].iov_base = NULL;
722 iov[*niov].iov_len = sz;
723 (*niov)++;
724 }
725
726 return p ? p->fd : 0;
727 }
728
729 const char *
physical_LockedDevice(struct physical * p)730 physical_LockedDevice(struct physical *p)
731 {
732 if (p->fd >= 0 && *p->name.full == '/' && p->type != PHYS_DIRECT)
733 return p->name.base;
734
735 return NULL;
736 }
737
738 void
physical_ChangedPid(struct physical * p,pid_t newpid)739 physical_ChangedPid(struct physical *p, pid_t newpid)
740 {
741 if (physical_LockedDevice(p)) {
742 int res;
743
744 if ((res = ID0uu_lock_txfr(p->name.base, newpid)) != UU_LOCK_OK)
745 log_Printf(LogPHASE, "uu_lock_txfr: %s\n", uu_lockerr(res));
746 }
747 }
748
749 int
physical_IsSync(struct physical * p)750 physical_IsSync(struct physical *p)
751 {
752 return p->cfg.speed == 0;
753 }
754
755 u_short
physical_DeviceMTU(struct physical * p)756 physical_DeviceMTU(struct physical *p)
757 {
758 return p->handler ? p->handler->mtu : 0;
759 }
760
761 const char *
physical_GetDevice(struct physical * p)762 physical_GetDevice(struct physical *p)
763 {
764 return p->name.full;
765 }
766
767 void
physical_SetDeviceList(struct physical * p,int argc,const char * const * argv)768 physical_SetDeviceList(struct physical *p, int argc, const char *const *argv)
769 {
770 unsigned pos;
771 int f;
772
773 p->cfg.devlist[sizeof p->cfg.devlist - 1] = '\0';
774 for (f = 0, pos = 0; f < argc && pos < sizeof p->cfg.devlist - 1; f++) {
775 if (pos)
776 p->cfg.devlist[pos++] = '\0';
777 strncpy(p->cfg.devlist + pos, argv[f], sizeof p->cfg.devlist - pos - 1);
778 pos += strlen(p->cfg.devlist + pos);
779 }
780 p->cfg.ndev = f;
781 }
782
783 void
physical_SetSync(struct physical * p)784 physical_SetSync(struct physical *p)
785 {
786 p->cfg.speed = 0;
787 }
788
789 int
physical_SetRtsCts(struct physical * p,int enable)790 physical_SetRtsCts(struct physical *p, int enable)
791 {
792 p->cfg.rts_cts = enable ? 1 : 0;
793 return 1;
794 }
795
796 ssize_t
physical_Read(struct physical * p,void * buf,size_t nbytes)797 physical_Read(struct physical *p, void *buf, size_t nbytes)
798 {
799 ssize_t ret;
800
801 if (p->handler && p->handler->read)
802 ret = (*p->handler->read)(p, buf, nbytes);
803 else
804 ret = read(p->fd, buf, nbytes);
805
806 log_DumpBuff(LogPHYSICAL, "read", buf, ret);
807
808 return ret;
809 }
810
811 ssize_t
physical_Write(struct physical * p,const void * buf,size_t nbytes)812 physical_Write(struct physical *p, const void *buf, size_t nbytes)
813 {
814 log_DumpBuff(LogPHYSICAL, "write", buf, nbytes);
815
816 if (p->handler && p->handler->write)
817 return (*p->handler->write)(p, buf, nbytes);
818
819 return write(p->fd, buf, nbytes);
820 }
821
822 int
physical_doUpdateSet(struct fdescriptor * d,fd_set * r,fd_set * w,fd_set * e,int * n,int force)823 physical_doUpdateSet(struct fdescriptor *d, fd_set *r, fd_set *w, fd_set *e,
824 int *n, int force)
825 {
826 struct physical *p = descriptor2physical(d);
827 int sets;
828
829 sets = 0;
830 if (p->fd >= 0) {
831 if (r) {
832 FD_SET(p->fd, r);
833 log_Printf(LogTIMER, "%s: fdset(r) %d\n", p->link.name, p->fd);
834 sets++;
835 }
836 if (e) {
837 FD_SET(p->fd, e);
838 log_Printf(LogTIMER, "%s: fdset(e) %d\n", p->link.name, p->fd);
839 sets++;
840 }
841 if (w && (force || link_QueueLen(&p->link) || p->out)) {
842 FD_SET(p->fd, w);
843 log_Printf(LogTIMER, "%s: fdset(w) %d\n", p->link.name, p->fd);
844 sets++;
845 }
846 if (sets && *n < p->fd + 1)
847 *n = p->fd + 1;
848 }
849
850 return sets;
851 }
852
853 int
physical_RemoveFromSet(struct physical * p,fd_set * r,fd_set * w,fd_set * e)854 physical_RemoveFromSet(struct physical *p, fd_set *r, fd_set *w, fd_set *e)
855 {
856 if (p->handler && p->handler->removefromset)
857 return (*p->handler->removefromset)(p, r, w, e);
858 else {
859 int sets;
860
861 sets = 0;
862 if (p->fd >= 0) {
863 if (r && FD_ISSET(p->fd, r)) {
864 FD_CLR(p->fd, r);
865 log_Printf(LogTIMER, "%s: fdunset(r) %d\n", p->link.name, p->fd);
866 sets++;
867 }
868 if (e && FD_ISSET(p->fd, e)) {
869 FD_CLR(p->fd, e);
870 log_Printf(LogTIMER, "%s: fdunset(e) %d\n", p->link.name, p->fd);
871 sets++;
872 }
873 if (w && FD_ISSET(p->fd, w)) {
874 FD_CLR(p->fd, w);
875 log_Printf(LogTIMER, "%s: fdunset(w) %d\n", p->link.name, p->fd);
876 sets++;
877 }
878 }
879
880 return sets;
881 }
882 }
883
884 int
physical_IsSet(struct fdescriptor * d,const fd_set * fdset)885 physical_IsSet(struct fdescriptor *d, const fd_set *fdset)
886 {
887 struct physical *p = descriptor2physical(d);
888 return p->fd >= 0 && FD_ISSET(p->fd, fdset);
889 }
890
891 void
physical_Login(struct physical * p,const char * name)892 physical_Login(struct physical *p, const char *name)
893 {
894 if (p->type == PHYS_DIRECT && *p->name.base && !p->Utmp) {
895 struct utmpx ut;
896 const char *connstr;
897 char *colon;
898
899 memset(&ut, 0, sizeof ut);
900 ut.ut_type = USER_PROCESS;
901 gettimeofday(&ut.ut_tv, NULL);
902 snprintf(ut.ut_id, sizeof ut.ut_id, "%xppp", (int)getpid());
903 strncpy(ut.ut_user, name, sizeof ut.ut_user);
904 if (p->handler && (p->handler->type == TCP_DEVICE ||
905 p->handler->type == UDP_DEVICE)) {
906 strncpy(ut.ut_host, p->name.base, sizeof ut.ut_host);
907 colon = memchr(ut.ut_host, ':', sizeof ut.ut_host);
908 if (colon)
909 *colon = '\0';
910 } else
911 strncpy(ut.ut_line, p->name.base, sizeof ut.ut_line);
912 if ((connstr = getenv("CONNECT")))
913 /* mgetty sets this to the connection speed */
914 strncpy(ut.ut_host, connstr, sizeof ut.ut_host);
915 ID0login(&ut);
916 p->Utmp = 1;
917 }
918 }
919
920 int
physical_SetMode(struct physical * p,int mode)921 physical_SetMode(struct physical *p, int mode)
922 {
923 if ((p->type & (PHYS_DIRECT|PHYS_DEDICATED) ||
924 mode & (PHYS_DIRECT|PHYS_DEDICATED)) &&
925 (!(p->type & PHYS_DIRECT) || !(mode & PHYS_BACKGROUND))) {
926 /* Note: The -direct -> -background is for callback ! */
927 log_Printf(LogWARN, "%s: Cannot change mode %s to %s\n", p->link.name,
928 mode2Nam(p->type), mode2Nam(mode));
929 return 0;
930 }
931 p->type = mode;
932 return 1;
933 }
934
935 void
physical_DeleteQueue(struct physical * p)936 physical_DeleteQueue(struct physical *p)
937 {
938 if (p->out) {
939 m_freem(p->out);
940 p->out = NULL;
941 }
942 link_DeleteQueue(&p->link);
943 }
944
945 void
physical_SetDevice(struct physical * p,const char * name)946 physical_SetDevice(struct physical *p, const char *name)
947 {
948 int len = strlen(_PATH_DEV);
949
950 if (name != p->name.full) {
951 strncpy(p->name.full, name, sizeof p->name.full - 1);
952 p->name.full[sizeof p->name.full - 1] = '\0';
953 }
954 p->name.base = *p->name.full == '!' ? p->name.full + 1 :
955 strncmp(p->name.full, _PATH_DEV, len) ?
956 p->name.full : p->name.full + len;
957 }
958
959 static void
physical_Found(struct physical * p)960 physical_Found(struct physical *p)
961 {
962 FILE *lockfile;
963 char fn[PATH_MAX];
964
965 if (*p->name.full == '/') {
966 snprintf(fn, sizeof fn, "%s%s.if", _PATH_VARRUN, p->name.base);
967 lockfile = ID0fopen(fn, "w");
968 if (lockfile != NULL) {
969 fprintf(lockfile, "%s%d\n", TUN_NAME, p->dl->bundle->unit);
970 fclose(lockfile);
971 }
972 else
973 log_Printf(LogALERT, "%s: Can't create %s: %s\n",
974 p->link.name, fn, strerror(errno));
975 }
976
977 throughput_start(&p->link.stats.total, "physical throughput",
978 Enabled(p->dl->bundle, OPT_THROUGHPUT));
979 p->connect_count++;
980 p->input.sz = 0;
981
982 log_Printf(LogPHASE, "%s: Connected!\n", p->link.name);
983 }
984
985 int
physical_Open(struct physical * p)986 physical_Open(struct physical *p)
987 {
988 char *dev;
989 int devno, wasfd, err;
990 unsigned h;
991
992 if (p->fd >= 0)
993 log_Printf(LogDEBUG, "%s: Open: Modem is already open!\n", p->link.name);
994 /* We're going back into "term" mode */
995 else if (p->type == PHYS_DIRECT) {
996 physical_SetDevice(p, "");
997 p->fd = STDIN_FILENO;
998 for (h = 0; h < NDEVICES && p->handler == NULL && p->fd >= 0; h++)
999 p->handler = (*devices[h].create)(p);
1000 if (p->fd >= 0) {
1001 if (p->handler == NULL) {
1002 physical_SetupStack(p, "unknown", PHYSICAL_NOFORCE);
1003 log_Printf(LogDEBUG, "%s: stdin is unidentified\n", p->link.name);
1004 }
1005 physical_Found(p);
1006 }
1007 } else {
1008 dev = p->cfg.devlist;
1009 devno = 0;
1010 while (devno < p->cfg.ndev && p->fd < 0) {
1011 physical_SetDevice(p, dev);
1012 if (physical_Lock(p)) {
1013 err = 0;
1014
1015 if (*p->name.full == '/') {
1016 p->fd = ID0open(p->name.full, O_RDWR | O_NONBLOCK);
1017 if (p->fd < 0)
1018 err = errno;
1019 }
1020
1021 wasfd = p->fd;
1022 for (h = 0; h < NDEVICES && p->handler == NULL; h++)
1023 if ((p->handler = (*devices[h].create)(p)) == NULL && wasfd != p->fd)
1024 break;
1025
1026 if (p->fd < 0) {
1027 if (h == NDEVICES) {
1028 if (err)
1029 log_Printf(LogWARN, "%s: %s: %s\n", p->link.name, p->name.full,
1030 strerror(errno));
1031 else
1032 log_Printf(LogWARN, "%s: Device (%s) must begin with a '/',"
1033 " a '!' or contain at least one ':'\n", p->link.name,
1034 p->name.full);
1035 }
1036 physical_Unlock(p);
1037 } else
1038 physical_Found(p);
1039 }
1040 dev += strlen(dev) + 1;
1041 devno++;
1042 }
1043 }
1044
1045 return p->fd;
1046 }
1047
1048 void
physical_SetupStack(struct physical * p,const char * who,int how)1049 physical_SetupStack(struct physical *p, const char *who, int how)
1050 {
1051 link_EmptyStack(&p->link);
1052 if (how == PHYSICAL_FORCE_SYNC || how == PHYSICAL_FORCE_SYNCNOACF ||
1053 (how == PHYSICAL_NOFORCE && physical_IsSync(p)))
1054 link_Stack(&p->link, &synclayer);
1055 else {
1056 link_Stack(&p->link, &asynclayer);
1057 link_Stack(&p->link, &hdlclayer);
1058 }
1059 if (how != PHYSICAL_FORCE_SYNCNOACF)
1060 link_Stack(&p->link, &acflayer);
1061 link_Stack(&p->link, &protolayer);
1062 link_Stack(&p->link, &lqrlayer);
1063 link_Stack(&p->link, &ccplayer);
1064 link_Stack(&p->link, &vjlayer);
1065 link_Stack(&p->link, &tcpmsslayer);
1066 #ifndef NONAT
1067 link_Stack(&p->link, &natlayer);
1068 #endif
1069 if (how == PHYSICAL_FORCE_ASYNC && physical_IsSync(p)) {
1070 log_Printf(LogWARN, "Sync device setting ignored for ``%s'' device\n", who);
1071 p->cfg.speed = MODEM_SPEED;
1072 } else if (how == PHYSICAL_FORCE_SYNC && !physical_IsSync(p)) {
1073 log_Printf(LogWARN, "Async device setting ignored for ``%s'' device\n",
1074 who);
1075 physical_SetSync(p);
1076 }
1077 }
1078
1079 void
physical_StopDeviceTimer(struct physical * p)1080 physical_StopDeviceTimer(struct physical *p)
1081 {
1082 if (p->handler && p->handler->stoptimer)
1083 (*p->handler->stoptimer)(p);
1084 }
1085
1086 int
physical_AwaitCarrier(struct physical * p)1087 physical_AwaitCarrier(struct physical *p)
1088 {
1089 if (p->handler && p->handler->awaitcarrier)
1090 return (*p->handler->awaitcarrier)(p);
1091
1092 return CARRIER_OK;
1093 }
1094
1095
1096 void
physical_SetAsyncParams(struct physical * p,u_int32_t mymap,u_int32_t hismap)1097 physical_SetAsyncParams(struct physical *p, u_int32_t mymap, u_int32_t hismap)
1098 {
1099 if (p->handler && p->handler->setasyncparams)
1100 return (*p->handler->setasyncparams)(p, mymap, hismap);
1101
1102 async_SetLinkParams(&p->async, mymap, hismap);
1103 }
1104
1105 int
physical_Slot(struct physical * p)1106 physical_Slot(struct physical *p)
1107 {
1108 if (p->handler && p->handler->slot)
1109 return (*p->handler->slot)(p);
1110
1111 return -1;
1112 }
1113