]> git.ipfire.org Git - thirdparty/systemd.git/blob - src/libsystemd-network/sd-dhcp-lease.c
tree-wide: use UINT64_MAX or friends
[thirdparty/systemd.git] / src / libsystemd-network / sd-dhcp-lease.c
1 /* SPDX-License-Identifier: LGPL-2.1-or-later */
2 /***
3 Copyright © 2013 Intel Corporation. All rights reserved.
4 ***/
5
6 #include <arpa/inet.h>
7 #include <errno.h>
8 #include <stdlib.h>
9 #include <sys/stat.h>
10 #include <sys/types.h>
11 #include <unistd.h>
12
13 #include "sd-dhcp-lease.h"
14
15 #include "alloc-util.h"
16 #include "dhcp-lease-internal.h"
17 #include "dhcp-protocol.h"
18 #include "dns-domain.h"
19 #include "env-file.h"
20 #include "fd-util.h"
21 #include "fileio.h"
22 #include "fs-util.h"
23 #include "hexdecoct.h"
24 #include "hostname-util.h"
25 #include "in-addr-util.h"
26 #include "network-internal.h"
27 #include "parse-util.h"
28 #include "stdio-util.h"
29 #include "string-util.h"
30 #include "strv.h"
31 #include "tmpfile-util.h"
32 #include "unaligned.h"
33
34 int sd_dhcp_lease_get_address(sd_dhcp_lease *lease, struct in_addr *addr) {
35 assert_return(lease, -EINVAL);
36 assert_return(addr, -EINVAL);
37
38 if (lease->address == 0)
39 return -ENODATA;
40
41 addr->s_addr = lease->address;
42 return 0;
43 }
44
45 int sd_dhcp_lease_get_broadcast(sd_dhcp_lease *lease, struct in_addr *addr) {
46 assert_return(lease, -EINVAL);
47 assert_return(addr, -EINVAL);
48
49 if (!lease->have_broadcast)
50 return -ENODATA;
51
52 addr->s_addr = lease->broadcast;
53 return 0;
54 }
55
56 int sd_dhcp_lease_get_lifetime(sd_dhcp_lease *lease, uint32_t *lifetime) {
57 assert_return(lease, -EINVAL);
58 assert_return(lifetime, -EINVAL);
59
60 if (lease->lifetime <= 0)
61 return -ENODATA;
62
63 *lifetime = lease->lifetime;
64 return 0;
65 }
66
67 int sd_dhcp_lease_get_t1(sd_dhcp_lease *lease, uint32_t *t1) {
68 assert_return(lease, -EINVAL);
69 assert_return(t1, -EINVAL);
70
71 if (lease->t1 <= 0)
72 return -ENODATA;
73
74 *t1 = lease->t1;
75 return 0;
76 }
77
78 int sd_dhcp_lease_get_t2(sd_dhcp_lease *lease, uint32_t *t2) {
79 assert_return(lease, -EINVAL);
80 assert_return(t2, -EINVAL);
81
82 if (lease->t2 <= 0)
83 return -ENODATA;
84
85 *t2 = lease->t2;
86 return 0;
87 }
88
89 int sd_dhcp_lease_get_mtu(sd_dhcp_lease *lease, uint16_t *mtu) {
90 assert_return(lease, -EINVAL);
91 assert_return(mtu, -EINVAL);
92
93 if (lease->mtu <= 0)
94 return -ENODATA;
95
96 *mtu = lease->mtu;
97 return 0;
98 }
99
100 int sd_dhcp_lease_get_servers(
101 sd_dhcp_lease *lease,
102 sd_dhcp_lease_server_type_t what,
103 const struct in_addr **addr) {
104
105 assert_return(lease, -EINVAL);
106 assert_return(what >= 0, -EINVAL);
107 assert_return(what < _SD_DHCP_LEASE_SERVER_TYPE_MAX, -EINVAL);
108 assert_return(addr, -EINVAL);
109
110 if (lease->servers[what].size <= 0)
111 return -ENODATA;
112
113 *addr = lease->servers[what].addr;
114 return (int) lease->servers[what].size;
115 }
116
117 int sd_dhcp_lease_get_dns(sd_dhcp_lease *lease, const struct in_addr **addr) {
118 return sd_dhcp_lease_get_servers(lease, SD_DHCP_LEASE_DNS, addr);
119 }
120 int sd_dhcp_lease_get_ntp(sd_dhcp_lease *lease, const struct in_addr **addr) {
121 return sd_dhcp_lease_get_servers(lease, SD_DHCP_LEASE_NTP, addr);
122 }
123 int sd_dhcp_lease_get_sip(sd_dhcp_lease *lease, const struct in_addr **addr) {
124 return sd_dhcp_lease_get_servers(lease, SD_DHCP_LEASE_SIP, addr);
125 }
126 int sd_dhcp_lease_get_pop3(sd_dhcp_lease *lease, const struct in_addr **addr) {
127 return sd_dhcp_lease_get_servers(lease, SD_DHCP_LEASE_POP3, addr);
128 }
129 int sd_dhcp_lease_get_smtp(sd_dhcp_lease *lease, const struct in_addr **addr) {
130 return sd_dhcp_lease_get_servers(lease, SD_DHCP_LEASE_SMTP, addr);
131 }
132 int sd_dhcp_lease_get_lpr(sd_dhcp_lease *lease, const struct in_addr **addr) {
133 return sd_dhcp_lease_get_servers(lease, SD_DHCP_LEASE_LPR, addr);
134 }
135
136 int sd_dhcp_lease_get_domainname(sd_dhcp_lease *lease, const char **domainname) {
137 assert_return(lease, -EINVAL);
138 assert_return(domainname, -EINVAL);
139
140 if (!lease->domainname)
141 return -ENODATA;
142
143 *domainname = lease->domainname;
144 return 0;
145 }
146
147 int sd_dhcp_lease_get_hostname(sd_dhcp_lease *lease, const char **hostname) {
148 assert_return(lease, -EINVAL);
149 assert_return(hostname, -EINVAL);
150
151 if (!lease->hostname)
152 return -ENODATA;
153
154 *hostname = lease->hostname;
155 return 0;
156 }
157
158 int sd_dhcp_lease_get_root_path(sd_dhcp_lease *lease, const char **root_path) {
159 assert_return(lease, -EINVAL);
160 assert_return(root_path, -EINVAL);
161
162 if (!lease->root_path)
163 return -ENODATA;
164
165 *root_path = lease->root_path;
166 return 0;
167 }
168
169 int sd_dhcp_lease_get_router(sd_dhcp_lease *lease, const struct in_addr **addr) {
170 assert_return(lease, -EINVAL);
171 assert_return(addr, -EINVAL);
172
173 if (lease->router_size <= 0)
174 return -ENODATA;
175
176 *addr = lease->router;
177 return (int) lease->router_size;
178 }
179
180 int sd_dhcp_lease_get_netmask(sd_dhcp_lease *lease, struct in_addr *addr) {
181 assert_return(lease, -EINVAL);
182 assert_return(addr, -EINVAL);
183
184 if (!lease->have_subnet_mask)
185 return -ENODATA;
186
187 addr->s_addr = lease->subnet_mask;
188 return 0;
189 }
190
191 int sd_dhcp_lease_get_server_identifier(sd_dhcp_lease *lease, struct in_addr *addr) {
192 assert_return(lease, -EINVAL);
193 assert_return(addr, -EINVAL);
194
195 if (lease->server_address == 0)
196 return -ENODATA;
197
198 addr->s_addr = lease->server_address;
199 return 0;
200 }
201
202 int sd_dhcp_lease_get_next_server(sd_dhcp_lease *lease, struct in_addr *addr) {
203 assert_return(lease, -EINVAL);
204 assert_return(addr, -EINVAL);
205
206 if (lease->next_server == 0)
207 return -ENODATA;
208
209 addr->s_addr = lease->next_server;
210 return 0;
211 }
212
213 /*
214 * The returned routes array must be freed by the caller.
215 * Route objects have the same lifetime of the lease and must not be freed.
216 */
217 int sd_dhcp_lease_get_routes(sd_dhcp_lease *lease, sd_dhcp_route ***routes) {
218 sd_dhcp_route **ret;
219 unsigned i;
220
221 assert_return(lease, -EINVAL);
222 assert_return(routes, -EINVAL);
223
224 if (lease->static_route_size <= 0)
225 return -ENODATA;
226
227 ret = new(sd_dhcp_route *, lease->static_route_size);
228 if (!ret)
229 return -ENOMEM;
230
231 for (i = 0; i < lease->static_route_size; i++)
232 ret[i] = &lease->static_route[i];
233
234 *routes = ret;
235 return (int) lease->static_route_size;
236 }
237
238 int sd_dhcp_lease_get_search_domains(sd_dhcp_lease *lease, char ***domains) {
239 size_t r;
240
241 assert_return(lease, -EINVAL);
242 assert_return(domains, -EINVAL);
243
244 r = strv_length(lease->search_domains);
245 if (r > 0) {
246 *domains = lease->search_domains;
247 return (int) r;
248 }
249
250 return -ENODATA;
251 }
252
253 int sd_dhcp_lease_get_vendor_specific(sd_dhcp_lease *lease, const void **data, size_t *data_len) {
254 assert_return(lease, -EINVAL);
255 assert_return(data, -EINVAL);
256 assert_return(data_len, -EINVAL);
257
258 if (lease->vendor_specific_len <= 0)
259 return -ENODATA;
260
261 *data = lease->vendor_specific;
262 *data_len = lease->vendor_specific_len;
263 return 0;
264 }
265
266 static sd_dhcp_lease *dhcp_lease_free(sd_dhcp_lease *lease) {
267 assert(lease);
268
269 while (lease->private_options) {
270 struct sd_dhcp_raw_option *option = lease->private_options;
271
272 LIST_REMOVE(options, lease->private_options, option);
273
274 free(option->data);
275 free(option);
276 }
277
278 free(lease->root_path);
279 free(lease->router);
280 free(lease->timezone);
281 free(lease->hostname);
282 free(lease->domainname);
283
284 for (sd_dhcp_lease_server_type_t i = 0; i < _SD_DHCP_LEASE_SERVER_TYPE_MAX; i++)
285 free(lease->servers[i].addr);
286
287 free(lease->static_route);
288 free(lease->client_id);
289 free(lease->vendor_specific);
290 strv_free(lease->search_domains);
291 return mfree(lease);
292 }
293
294 DEFINE_TRIVIAL_REF_UNREF_FUNC(sd_dhcp_lease, sd_dhcp_lease, dhcp_lease_free);
295
296 static int lease_parse_u32(const uint8_t *option, size_t len, uint32_t *ret, uint32_t min) {
297 assert(option);
298 assert(ret);
299
300 if (len != 4)
301 return -EINVAL;
302
303 *ret = unaligned_read_be32((be32_t*) option);
304 if (*ret < min)
305 *ret = min;
306
307 return 0;
308 }
309
310 static int lease_parse_u16(const uint8_t *option, size_t len, uint16_t *ret, uint16_t min) {
311 assert(option);
312 assert(ret);
313
314 if (len != 2)
315 return -EINVAL;
316
317 *ret = unaligned_read_be16((be16_t*) option);
318 if (*ret < min)
319 *ret = min;
320
321 return 0;
322 }
323
324 static int lease_parse_be32(const uint8_t *option, size_t len, be32_t *ret) {
325 assert(option);
326 assert(ret);
327
328 if (len != 4)
329 return -EINVAL;
330
331 memcpy(ret, option, 4);
332 return 0;
333 }
334
335 static int lease_parse_string(const uint8_t *option, size_t len, char **ret) {
336 assert(option);
337 assert(ret);
338
339 if (len <= 0)
340 *ret = mfree(*ret);
341 else {
342 char *string;
343
344 /*
345 * One trailing NUL byte is OK, we don't mind. See:
346 * https://github.com/systemd/systemd/issues/1337
347 */
348 if (memchr(option, 0, len - 1))
349 return -EINVAL;
350
351 string = memdup_suffix0((const char *) option, len);
352 if (!string)
353 return -ENOMEM;
354
355 free_and_replace(*ret, string);
356 }
357
358 return 0;
359 }
360
361 static int lease_parse_domain(const uint8_t *option, size_t len, char **ret) {
362 _cleanup_free_ char *name = NULL, *normalized = NULL;
363 int r;
364
365 assert(option);
366 assert(ret);
367
368 r = lease_parse_string(option, len, &name);
369 if (r < 0)
370 return r;
371 if (!name) {
372 *ret = mfree(*ret);
373 return 0;
374 }
375
376 r = dns_name_normalize(name, 0, &normalized);
377 if (r < 0)
378 return r;
379
380 if (is_localhost(normalized))
381 return -EINVAL;
382
383 if (dns_name_is_root(normalized))
384 return -EINVAL;
385
386 free_and_replace(*ret, normalized);
387
388 return 0;
389 }
390
391 static int lease_parse_in_addrs(const uint8_t *option, size_t len, struct in_addr **ret, size_t *n_ret) {
392 assert(option || len == 0);
393 assert(ret);
394 assert(n_ret);
395
396 if (len <= 0) {
397 *ret = mfree(*ret);
398 *n_ret = 0;
399 } else {
400 size_t n_addresses;
401 struct in_addr *addresses;
402
403 if (len % 4 != 0)
404 return -EINVAL;
405
406 n_addresses = len / 4;
407
408 addresses = newdup(struct in_addr, option, n_addresses);
409 if (!addresses)
410 return -ENOMEM;
411
412 free(*ret);
413 *ret = addresses;
414 *n_ret = n_addresses;
415 }
416
417 return 0;
418 }
419
420 static int lease_parse_sip_server(const uint8_t *option, size_t len, struct in_addr **ret, size_t *n_ret) {
421 assert(option || len == 0);
422 assert(ret);
423 assert(n_ret);
424
425 if (len <= 0)
426 return -EINVAL;
427
428 /* The SIP record is like the other, regular server records, but prefixed with a single "encoding"
429 * byte that is either 0 or 1. We only support it to be 1 for now. Let's drop it and parse it like
430 * the other fields */
431
432 if (option[0] != 1) { /* We only support IP address encoding for now */
433 *ret = mfree(*ret);
434 *n_ret = 0;
435 return 0;
436 }
437
438 return lease_parse_in_addrs(option + 1, len - 1, ret, n_ret);
439 }
440
441 static int lease_parse_routes(
442 const uint8_t *option, size_t len,
443 struct sd_dhcp_route **routes, size_t *routes_size, size_t *routes_allocated) {
444
445 struct in_addr addr;
446
447 assert(option || len <= 0);
448 assert(routes);
449 assert(routes_size);
450 assert(routes_allocated);
451
452 if (len <= 0)
453 return 0;
454
455 if (len % 8 != 0)
456 return -EINVAL;
457
458 if (!GREEDY_REALLOC(*routes, *routes_allocated, *routes_size + (len / 8)))
459 return -ENOMEM;
460
461 while (len >= 8) {
462 struct sd_dhcp_route *route = *routes + *routes_size;
463 int r;
464
465 route->option = SD_DHCP_OPTION_STATIC_ROUTE;
466 r = in4_addr_default_prefixlen((struct in_addr*) option, &route->dst_prefixlen);
467 if (r < 0) {
468 log_debug("Failed to determine destination prefix length from class based IP, ignoring");
469 continue;
470 }
471
472 assert_se(lease_parse_be32(option, 4, &addr.s_addr) >= 0);
473 route->dst_addr = inet_makeaddr(inet_netof(addr), 0);
474 option += 4;
475
476 assert_se(lease_parse_be32(option, 4, &route->gw_addr.s_addr) >= 0);
477 option += 4;
478
479 len -= 8;
480 (*routes_size)++;
481 }
482
483 return 0;
484 }
485
486 /* parses RFC3442 Classless Static Route Option */
487 static int lease_parse_classless_routes(
488 const uint8_t *option, size_t len,
489 struct sd_dhcp_route **routes, size_t *routes_size, size_t *routes_allocated) {
490
491 assert(option || len <= 0);
492 assert(routes);
493 assert(routes_size);
494 assert(routes_allocated);
495
496 if (len <= 0)
497 return 0;
498
499 /* option format: (subnet-mask-width significant-subnet-octets gateway-ip)* */
500
501 while (len > 0) {
502 uint8_t dst_octets;
503 struct sd_dhcp_route *route;
504
505 if (!GREEDY_REALLOC(*routes, *routes_allocated, *routes_size + 1))
506 return -ENOMEM;
507
508 route = *routes + *routes_size;
509 route->option = SD_DHCP_OPTION_CLASSLESS_STATIC_ROUTE;
510
511 dst_octets = (*option == 0 ? 0 : ((*option - 1) / 8) + 1);
512 route->dst_prefixlen = *option;
513 option++;
514 len--;
515
516 /* can't have more than 4 octets in IPv4 */
517 if (dst_octets > 4 || len < dst_octets)
518 return -EINVAL;
519
520 route->dst_addr.s_addr = 0;
521 memcpy(&route->dst_addr.s_addr, option, dst_octets);
522 option += dst_octets;
523 len -= dst_octets;
524
525 if (len < 4)
526 return -EINVAL;
527
528 assert_se(lease_parse_be32(option, 4, &route->gw_addr.s_addr) >= 0);
529 option += 4;
530 len -= 4;
531
532 (*routes_size)++;
533 }
534
535 return 0;
536 }
537
538 int dhcp_lease_parse_options(uint8_t code, uint8_t len, const void *option, void *userdata) {
539 sd_dhcp_lease *lease = userdata;
540 int r;
541
542 assert(lease);
543
544 switch(code) {
545
546 case SD_DHCP_OPTION_IP_ADDRESS_LEASE_TIME:
547 r = lease_parse_u32(option, len, &lease->lifetime, 1);
548 if (r < 0)
549 log_debug_errno(r, "Failed to parse lease time, ignoring: %m");
550
551 break;
552
553 case SD_DHCP_OPTION_SERVER_IDENTIFIER:
554 r = lease_parse_be32(option, len, &lease->server_address);
555 if (r < 0)
556 log_debug_errno(r, "Failed to parse server identifier, ignoring: %m");
557
558 break;
559
560 case SD_DHCP_OPTION_SUBNET_MASK:
561 r = lease_parse_be32(option, len, &lease->subnet_mask);
562 if (r < 0)
563 log_debug_errno(r, "Failed to parse subnet mask, ignoring: %m");
564 else
565 lease->have_subnet_mask = true;
566 break;
567
568 case SD_DHCP_OPTION_BROADCAST:
569 r = lease_parse_be32(option, len, &lease->broadcast);
570 if (r < 0)
571 log_debug_errno(r, "Failed to parse broadcast address, ignoring: %m");
572 else
573 lease->have_broadcast = true;
574 break;
575
576 case SD_DHCP_OPTION_ROUTER:
577 r = lease_parse_in_addrs(option, len, &lease->router, &lease->router_size);
578 if (r < 0)
579 log_debug_errno(r, "Failed to parse router addresses, ignoring: %m");
580 break;
581
582 case SD_DHCP_OPTION_DOMAIN_NAME_SERVER:
583 r = lease_parse_in_addrs(option, len, &lease->servers[SD_DHCP_LEASE_DNS].addr, &lease->servers[SD_DHCP_LEASE_DNS].size);
584 if (r < 0)
585 log_debug_errno(r, "Failed to parse DNS server, ignoring: %m");
586 break;
587
588 case SD_DHCP_OPTION_NTP_SERVER:
589 r = lease_parse_in_addrs(option, len, &lease->servers[SD_DHCP_LEASE_NTP].addr, &lease->servers[SD_DHCP_LEASE_NTP].size);
590 if (r < 0)
591 log_debug_errno(r, "Failed to parse NTP server, ignoring: %m");
592 break;
593
594 case SD_DHCP_OPTION_SIP_SERVER:
595 r = lease_parse_sip_server(option, len, &lease->servers[SD_DHCP_LEASE_SIP].addr, &lease->servers[SD_DHCP_LEASE_SIP].size);
596 if (r < 0)
597 log_debug_errno(r, "Failed to parse SIP server, ignoring: %m");
598 break;
599
600 case SD_DHCP_OPTION_POP3_SERVER:
601 r = lease_parse_in_addrs(option, len, &lease->servers[SD_DHCP_LEASE_POP3].addr, &lease->servers[SD_DHCP_LEASE_POP3].size);
602 if (r < 0)
603 log_debug_errno(r, "Failed to parse POP3 server, ignoring: %m");
604 break;
605
606 case SD_DHCP_OPTION_SMTP_SERVER:
607 r = lease_parse_in_addrs(option, len, &lease->servers[SD_DHCP_LEASE_SMTP].addr, &lease->servers[SD_DHCP_LEASE_SMTP].size);
608 if (r < 0)
609 log_debug_errno(r, "Failed to parse SMTP server, ignoring: %m");
610 break;
611
612 case SD_DHCP_OPTION_LPR_SERVER:
613 r = lease_parse_in_addrs(option, len, &lease->servers[SD_DHCP_LEASE_LPR].addr, &lease->servers[SD_DHCP_LEASE_LPR].size);
614 if (r < 0)
615 log_debug_errno(r, "Failed to parse LPR server, ignoring: %m");
616 break;
617
618 case SD_DHCP_OPTION_STATIC_ROUTE:
619 r = lease_parse_routes(option, len, &lease->static_route, &lease->static_route_size, &lease->static_route_allocated);
620 if (r < 0)
621 log_debug_errno(r, "Failed to parse static routes, ignoring: %m");
622 break;
623
624 case SD_DHCP_OPTION_INTERFACE_MTU:
625 r = lease_parse_u16(option, len, &lease->mtu, 68);
626 if (r < 0)
627 log_debug_errno(r, "Failed to parse MTU, ignoring: %m");
628 if (lease->mtu < DHCP_DEFAULT_MIN_SIZE) {
629 log_debug("MTU value of %" PRIu16 " too small. Using default MTU value of %d instead.", lease->mtu, DHCP_DEFAULT_MIN_SIZE);
630 lease->mtu = DHCP_DEFAULT_MIN_SIZE;
631 }
632
633 break;
634
635 case SD_DHCP_OPTION_DOMAIN_NAME:
636 r = lease_parse_domain(option, len, &lease->domainname);
637 if (r < 0) {
638 log_debug_errno(r, "Failed to parse domain name, ignoring: %m");
639 return 0;
640 }
641
642 break;
643
644 case SD_DHCP_OPTION_DOMAIN_SEARCH_LIST:
645 r = dhcp_lease_parse_search_domains(option, len, &lease->search_domains);
646 if (r < 0)
647 log_debug_errno(r, "Failed to parse Domain Search List, ignoring: %m");
648 break;
649
650 case SD_DHCP_OPTION_HOST_NAME:
651 r = lease_parse_domain(option, len, &lease->hostname);
652 if (r < 0) {
653 log_debug_errno(r, "Failed to parse hostname, ignoring: %m");
654 return 0;
655 }
656
657 break;
658
659 case SD_DHCP_OPTION_ROOT_PATH:
660 r = lease_parse_string(option, len, &lease->root_path);
661 if (r < 0)
662 log_debug_errno(r, "Failed to parse root path, ignoring: %m");
663 break;
664
665 case SD_DHCP_OPTION_RENEWAL_T1_TIME:
666 r = lease_parse_u32(option, len, &lease->t1, 1);
667 if (r < 0)
668 log_debug_errno(r, "Failed to parse T1 time, ignoring: %m");
669 break;
670
671 case SD_DHCP_OPTION_REBINDING_T2_TIME:
672 r = lease_parse_u32(option, len, &lease->t2, 1);
673 if (r < 0)
674 log_debug_errno(r, "Failed to parse T2 time, ignoring: %m");
675 break;
676
677 case SD_DHCP_OPTION_CLASSLESS_STATIC_ROUTE:
678 r = lease_parse_classless_routes(
679 option, len,
680 &lease->static_route,
681 &lease->static_route_size,
682 &lease->static_route_allocated);
683 if (r < 0)
684 log_debug_errno(r, "Failed to parse classless routes, ignoring: %m");
685 break;
686
687 case SD_DHCP_OPTION_NEW_TZDB_TIMEZONE: {
688 _cleanup_free_ char *tz = NULL;
689
690 r = lease_parse_string(option, len, &tz);
691 if (r < 0) {
692 log_debug_errno(r, "Failed to parse timezone option, ignoring: %m");
693 return 0;
694 }
695
696 if (!timezone_is_valid(tz, LOG_DEBUG)) {
697 log_debug_errno(r, "Timezone is not valid, ignoring: %m");
698 return 0;
699 }
700
701 free_and_replace(lease->timezone, tz);
702
703 break;
704 }
705
706 case SD_DHCP_OPTION_VENDOR_SPECIFIC:
707
708 if (len <= 0)
709 lease->vendor_specific = mfree(lease->vendor_specific);
710 else {
711 void *p;
712
713 p = memdup(option, len);
714 if (!p)
715 return -ENOMEM;
716
717 free(lease->vendor_specific);
718 lease->vendor_specific = p;
719 }
720
721 lease->vendor_specific_len = len;
722 break;
723
724 case SD_DHCP_OPTION_PRIVATE_BASE ... SD_DHCP_OPTION_PRIVATE_LAST:
725 r = dhcp_lease_insert_private_option(lease, code, option, len);
726 if (r < 0)
727 return r;
728
729 break;
730
731 default:
732 log_debug("Ignoring option DHCP option %"PRIu8" while parsing.", code);
733 break;
734 }
735
736 return 0;
737 }
738
739 /* Parses compressed domain names. */
740 int dhcp_lease_parse_search_domains(const uint8_t *option, size_t len, char ***domains) {
741 _cleanup_strv_free_ char **names = NULL;
742 size_t pos = 0, cnt = 0;
743 int r;
744
745 assert(domains);
746 assert_return(option && len > 0, -ENODATA);
747
748 while (pos < len) {
749 _cleanup_free_ char *name = NULL;
750 size_t n = 0, allocated = 0;
751 size_t jump_barrier = pos, next_chunk = 0;
752 bool first = true;
753
754 for (;;) {
755 uint8_t c;
756 c = option[pos++];
757
758 if (c == 0) {
759 /* End of name */
760 break;
761 } else if (c <= 63) {
762 const char *label;
763
764 /* Literal label */
765 label = (const char*) (option + pos);
766 pos += c;
767 if (pos >= len)
768 return -EBADMSG;
769
770 if (!GREEDY_REALLOC(name, allocated, n + !first + DNS_LABEL_ESCAPED_MAX))
771 return -ENOMEM;
772
773 if (first)
774 first = false;
775 else
776 name[n++] = '.';
777
778 r = dns_label_escape(label, c, name + n, DNS_LABEL_ESCAPED_MAX);
779 if (r < 0)
780 return r;
781
782 n += r;
783 } else if (FLAGS_SET(c, 0xc0)) {
784 /* Pointer */
785
786 uint8_t d;
787 uint16_t ptr;
788
789 if (pos >= len)
790 return -EBADMSG;
791
792 d = option[pos++];
793 ptr = (uint16_t) (c & ~0xc0) << 8 | (uint16_t) d;
794
795 /* Jumps are limited to a "prior occurrence" (RFC-1035 4.1.4) */
796 if (ptr >= jump_barrier)
797 return -EBADMSG;
798 jump_barrier = ptr;
799
800 /* Save current location so we don't end up re-parsing what's parsed so far. */
801 if (next_chunk == 0)
802 next_chunk = pos;
803
804 pos = ptr;
805 } else
806 return -EBADMSG;
807 }
808
809 if (!GREEDY_REALLOC(name, allocated, n + 1))
810 return -ENOMEM;
811 name[n] = 0;
812
813 r = strv_extend(&names, name);
814 if (r < 0)
815 return r;
816
817 cnt++;
818
819 if (next_chunk != 0)
820 pos = next_chunk;
821 }
822
823 *domains = TAKE_PTR(names);
824
825 return cnt;
826 }
827
828 int dhcp_lease_insert_private_option(sd_dhcp_lease *lease, uint8_t tag, const void *data, uint8_t len) {
829 struct sd_dhcp_raw_option *cur, *option;
830
831 assert(lease);
832
833 LIST_FOREACH(options, cur, lease->private_options) {
834 if (tag < cur->tag)
835 break;
836 if (tag == cur->tag) {
837 log_debug("Ignoring duplicate option, tagged %i.", tag);
838 return 0;
839 }
840 }
841
842 option = new(struct sd_dhcp_raw_option, 1);
843 if (!option)
844 return -ENOMEM;
845
846 option->tag = tag;
847 option->length = len;
848 option->data = memdup(data, len);
849 if (!option->data) {
850 free(option);
851 return -ENOMEM;
852 }
853
854 LIST_INSERT_BEFORE(options, lease->private_options, cur, option);
855 return 0;
856 }
857
858 int dhcp_lease_new(sd_dhcp_lease **ret) {
859 sd_dhcp_lease *lease;
860
861 lease = new0(sd_dhcp_lease, 1);
862 if (!lease)
863 return -ENOMEM;
864
865 lease->n_ref = 1;
866
867 *ret = lease;
868 return 0;
869 }
870
871 int dhcp_lease_save(sd_dhcp_lease *lease, const char *lease_file) {
872 _cleanup_(unlink_and_freep) char *temp_path = NULL;
873 _cleanup_fclose_ FILE *f = NULL;
874 struct sd_dhcp_raw_option *option;
875 struct in_addr address;
876 const struct in_addr *addresses;
877 const void *client_id, *data;
878 size_t client_id_len, data_len;
879 char sbuf[INET_ADDRSTRLEN];
880 const char *string;
881 uint16_t mtu;
882 _cleanup_free_ sd_dhcp_route **routes = NULL;
883 char **search_domains = NULL;
884 uint32_t t1, t2, lifetime;
885 int r;
886
887 assert(lease);
888 assert(lease_file);
889
890 r = fopen_temporary(lease_file, &f, &temp_path);
891 if (r < 0)
892 return r;
893
894 (void) fchmod(fileno(f), 0644);
895
896 fprintf(f,
897 "# This is private data. Do not parse.\n");
898
899 r = sd_dhcp_lease_get_address(lease, &address);
900 if (r >= 0)
901 fprintf(f, "ADDRESS=%s\n", inet_ntop(AF_INET, &address, sbuf, sizeof(sbuf)));
902
903 r = sd_dhcp_lease_get_netmask(lease, &address);
904 if (r >= 0)
905 fprintf(f, "NETMASK=%s\n", inet_ntop(AF_INET, &address, sbuf, sizeof(sbuf)));
906
907 r = sd_dhcp_lease_get_router(lease, &addresses);
908 if (r > 0) {
909 fputs("ROUTER=", f);
910 serialize_in_addrs(f, addresses, r, false, NULL);
911 fputc('\n', f);
912 }
913
914 r = sd_dhcp_lease_get_server_identifier(lease, &address);
915 if (r >= 0)
916 fprintf(f, "SERVER_ADDRESS=%s\n", inet_ntop(AF_INET, &address, sbuf, sizeof(sbuf)));
917
918 r = sd_dhcp_lease_get_next_server(lease, &address);
919 if (r >= 0)
920 fprintf(f, "NEXT_SERVER=%s\n", inet_ntop(AF_INET, &address, sbuf, sizeof(sbuf)));
921
922 r = sd_dhcp_lease_get_broadcast(lease, &address);
923 if (r >= 0)
924 fprintf(f, "BROADCAST=%s\n", inet_ntop(AF_INET, &address, sbuf, sizeof(sbuf)));
925
926 r = sd_dhcp_lease_get_mtu(lease, &mtu);
927 if (r >= 0)
928 fprintf(f, "MTU=%" PRIu16 "\n", mtu);
929
930 r = sd_dhcp_lease_get_t1(lease, &t1);
931 if (r >= 0)
932 fprintf(f, "T1=%" PRIu32 "\n", t1);
933
934 r = sd_dhcp_lease_get_t2(lease, &t2);
935 if (r >= 0)
936 fprintf(f, "T2=%" PRIu32 "\n", t2);
937
938 r = sd_dhcp_lease_get_lifetime(lease, &lifetime);
939 if (r >= 0)
940 fprintf(f, "LIFETIME=%" PRIu32 "\n", lifetime);
941
942 r = sd_dhcp_lease_get_dns(lease, &addresses);
943 if (r > 0) {
944 fputs("DNS=", f);
945 serialize_in_addrs(f, addresses, r, false, NULL);
946 fputc('\n', f);
947 }
948
949 r = sd_dhcp_lease_get_ntp(lease, &addresses);
950 if (r > 0) {
951 fputs("NTP=", f);
952 serialize_in_addrs(f, addresses, r, false, NULL);
953 fputc('\n', f);
954 }
955
956 r = sd_dhcp_lease_get_sip(lease, &addresses);
957 if (r > 0) {
958 fputs("SIP=", f);
959 serialize_in_addrs(f, addresses, r, false, NULL);
960 fputc('\n', f);
961 }
962
963 r = sd_dhcp_lease_get_domainname(lease, &string);
964 if (r >= 0)
965 fprintf(f, "DOMAINNAME=%s\n", string);
966
967 r = sd_dhcp_lease_get_search_domains(lease, &search_domains);
968 if (r > 0) {
969 fputs("DOMAIN_SEARCH_LIST=", f);
970 fputstrv(f, search_domains, NULL, NULL);
971 fputc('\n', f);
972 }
973
974 r = sd_dhcp_lease_get_hostname(lease, &string);
975 if (r >= 0)
976 fprintf(f, "HOSTNAME=%s\n", string);
977
978 r = sd_dhcp_lease_get_root_path(lease, &string);
979 if (r >= 0)
980 fprintf(f, "ROOT_PATH=%s\n", string);
981
982 r = sd_dhcp_lease_get_routes(lease, &routes);
983 if (r > 0)
984 serialize_dhcp_routes(f, "ROUTES", routes, r);
985
986 r = sd_dhcp_lease_get_timezone(lease, &string);
987 if (r >= 0)
988 fprintf(f, "TIMEZONE=%s\n", string);
989
990 r = sd_dhcp_lease_get_client_id(lease, &client_id, &client_id_len);
991 if (r >= 0) {
992 _cleanup_free_ char *client_id_hex = NULL;
993
994 client_id_hex = hexmem(client_id, client_id_len);
995 if (!client_id_hex)
996 return -ENOMEM;
997 fprintf(f, "CLIENTID=%s\n", client_id_hex);
998 }
999
1000 r = sd_dhcp_lease_get_vendor_specific(lease, &data, &data_len);
1001 if (r >= 0) {
1002 _cleanup_free_ char *option_hex = NULL;
1003
1004 option_hex = hexmem(data, data_len);
1005 if (!option_hex)
1006 return -ENOMEM;
1007 fprintf(f, "VENDOR_SPECIFIC=%s\n", option_hex);
1008 }
1009
1010 LIST_FOREACH(options, option, lease->private_options) {
1011 char key[STRLEN("OPTION_000")+1];
1012
1013 xsprintf(key, "OPTION_%" PRIu8, option->tag);
1014 r = serialize_dhcp_option(f, key, option->data, option->length);
1015 if (r < 0)
1016 return r;
1017 }
1018
1019 r = fflush_and_check(f);
1020 if (r < 0)
1021 return r;
1022
1023 r = conservative_rename(temp_path, lease_file);
1024 if (r < 0)
1025 return r;
1026
1027 temp_path = mfree(temp_path);
1028
1029 return 0;
1030 }
1031
1032 int dhcp_lease_load(sd_dhcp_lease **ret, const char *lease_file) {
1033 _cleanup_(sd_dhcp_lease_unrefp) sd_dhcp_lease *lease = NULL;
1034 _cleanup_free_ char
1035 *address = NULL,
1036 *router = NULL,
1037 *netmask = NULL,
1038 *server_address = NULL,
1039 *next_server = NULL,
1040 *broadcast = NULL,
1041 *dns = NULL,
1042 *ntp = NULL,
1043 *sip = NULL,
1044 *pop3 = NULL,
1045 *smtp = NULL,
1046 *lpr = NULL,
1047 *mtu = NULL,
1048 *routes = NULL,
1049 *domains = NULL,
1050 *client_id_hex = NULL,
1051 *vendor_specific_hex = NULL,
1052 *lifetime = NULL,
1053 *t1 = NULL,
1054 *t2 = NULL,
1055 *options[SD_DHCP_OPTION_PRIVATE_LAST - SD_DHCP_OPTION_PRIVATE_BASE + 1] = {};
1056
1057 int r, i;
1058
1059 assert(lease_file);
1060 assert(ret);
1061
1062 r = dhcp_lease_new(&lease);
1063 if (r < 0)
1064 return r;
1065
1066 r = parse_env_file(NULL, lease_file,
1067 "ADDRESS", &address,
1068 "ROUTER", &router,
1069 "NETMASK", &netmask,
1070 "SERVER_ADDRESS", &server_address,
1071 "NEXT_SERVER", &next_server,
1072 "BROADCAST", &broadcast,
1073 "DNS", &dns,
1074 "NTP", &ntp,
1075 "SIP", &sip,
1076 "POP3", &pop3,
1077 "SMTP", &smtp,
1078 "LPR", &lpr,
1079 "MTU", &mtu,
1080 "DOMAINNAME", &lease->domainname,
1081 "HOSTNAME", &lease->hostname,
1082 "DOMAIN_SEARCH_LIST", &domains,
1083 "ROOT_PATH", &lease->root_path,
1084 "ROUTES", &routes,
1085 "CLIENTID", &client_id_hex,
1086 "TIMEZONE", &lease->timezone,
1087 "VENDOR_SPECIFIC", &vendor_specific_hex,
1088 "LIFETIME", &lifetime,
1089 "T1", &t1,
1090 "T2", &t2,
1091 "OPTION_224", &options[0],
1092 "OPTION_225", &options[1],
1093 "OPTION_226", &options[2],
1094 "OPTION_227", &options[3],
1095 "OPTION_228", &options[4],
1096 "OPTION_229", &options[5],
1097 "OPTION_230", &options[6],
1098 "OPTION_231", &options[7],
1099 "OPTION_232", &options[8],
1100 "OPTION_233", &options[9],
1101 "OPTION_234", &options[10],
1102 "OPTION_235", &options[11],
1103 "OPTION_236", &options[12],
1104 "OPTION_237", &options[13],
1105 "OPTION_238", &options[14],
1106 "OPTION_239", &options[15],
1107 "OPTION_240", &options[16],
1108 "OPTION_241", &options[17],
1109 "OPTION_242", &options[18],
1110 "OPTION_243", &options[19],
1111 "OPTION_244", &options[20],
1112 "OPTION_245", &options[21],
1113 "OPTION_246", &options[22],
1114 "OPTION_247", &options[23],
1115 "OPTION_248", &options[24],
1116 "OPTION_249", &options[25],
1117 "OPTION_250", &options[26],
1118 "OPTION_251", &options[27],
1119 "OPTION_252", &options[28],
1120 "OPTION_253", &options[29],
1121 "OPTION_254", &options[30]);
1122 if (r < 0)
1123 return r;
1124
1125 if (address) {
1126 r = inet_pton(AF_INET, address, &lease->address);
1127 if (r <= 0)
1128 log_debug("Failed to parse address %s, ignoring.", address);
1129 }
1130
1131 if (router) {
1132 r = deserialize_in_addrs(&lease->router, router);
1133 if (r < 0)
1134 log_debug_errno(r, "Failed to deserialize router addresses %s, ignoring: %m", router);
1135 else
1136 lease->router_size = r;
1137 }
1138
1139 if (netmask) {
1140 r = inet_pton(AF_INET, netmask, &lease->subnet_mask);
1141 if (r <= 0)
1142 log_debug("Failed to parse netmask %s, ignoring.", netmask);
1143 else
1144 lease->have_subnet_mask = true;
1145 }
1146
1147 if (server_address) {
1148 r = inet_pton(AF_INET, server_address, &lease->server_address);
1149 if (r <= 0)
1150 log_debug("Failed to parse server address %s, ignoring.", server_address);
1151 }
1152
1153 if (next_server) {
1154 r = inet_pton(AF_INET, next_server, &lease->next_server);
1155 if (r <= 0)
1156 log_debug("Failed to parse next server %s, ignoring.", next_server);
1157 }
1158
1159 if (broadcast) {
1160 r = inet_pton(AF_INET, broadcast, &lease->broadcast);
1161 if (r <= 0)
1162 log_debug("Failed to parse broadcast address %s, ignoring.", broadcast);
1163 else
1164 lease->have_broadcast = true;
1165 }
1166
1167 if (dns) {
1168 r = deserialize_in_addrs(&lease->servers[SD_DHCP_LEASE_DNS].addr, dns);
1169 if (r < 0)
1170 log_debug_errno(r, "Failed to deserialize DNS servers %s, ignoring: %m", dns);
1171 else
1172 lease->servers[SD_DHCP_LEASE_DNS].size = r;
1173 }
1174
1175 if (ntp) {
1176 r = deserialize_in_addrs(&lease->servers[SD_DHCP_LEASE_NTP].addr, ntp);
1177 if (r < 0)
1178 log_debug_errno(r, "Failed to deserialize NTP servers %s, ignoring: %m", ntp);
1179 else
1180 lease->servers[SD_DHCP_LEASE_NTP].size = r;
1181 }
1182
1183 if (sip) {
1184 r = deserialize_in_addrs(&lease->servers[SD_DHCP_LEASE_SIP].addr, sip);
1185 if (r < 0)
1186 log_debug_errno(r, "Failed to deserialize SIP servers %s, ignoring: %m", sip);
1187 else
1188 lease->servers[SD_DHCP_LEASE_SIP].size = r;
1189 }
1190
1191 if (pop3) {
1192 r = deserialize_in_addrs(&lease->servers[SD_DHCP_LEASE_POP3].addr, pop3);
1193 if (r < 0)
1194 log_debug_errno(r, "Failed to deserialize POP3 server %s, ignoring: %m", pop3);
1195 else
1196 lease->servers[SD_DHCP_LEASE_POP3].size = r;
1197 }
1198
1199 if (smtp) {
1200 r = deserialize_in_addrs(&lease->servers[SD_DHCP_LEASE_SMTP].addr, smtp);
1201 if (r < 0)
1202 log_debug_errno(r, "Failed to deserialize SMTP server %s, ignoring: %m", smtp);
1203 else
1204 lease->servers[SD_DHCP_LEASE_SMTP].size = r;
1205 }
1206
1207 if (lpr) {
1208 r = deserialize_in_addrs(&lease->servers[SD_DHCP_LEASE_LPR].addr, lpr);
1209 if (r < 0)
1210 log_debug_errno(r, "Failed to deserialize LPR server %s, ignoring: %m", lpr);
1211 else
1212 lease->servers[SD_DHCP_LEASE_LPR].size = r;
1213 }
1214
1215 if (mtu) {
1216 r = safe_atou16(mtu, &lease->mtu);
1217 if (r < 0)
1218 log_debug_errno(r, "Failed to parse MTU %s, ignoring: %m", mtu);
1219 }
1220
1221 if (domains) {
1222 _cleanup_strv_free_ char **a = NULL;
1223 a = strv_split(domains, " ");
1224 if (!a)
1225 return -ENOMEM;
1226
1227 if (!strv_isempty(a))
1228 lease->search_domains = TAKE_PTR(a);
1229 }
1230
1231 if (routes) {
1232 r = deserialize_dhcp_routes(
1233 &lease->static_route,
1234 &lease->static_route_size,
1235 &lease->static_route_allocated,
1236 routes);
1237 if (r < 0)
1238 log_debug_errno(r, "Failed to parse DHCP routes %s, ignoring: %m", routes);
1239 }
1240
1241 if (lifetime) {
1242 r = safe_atou32(lifetime, &lease->lifetime);
1243 if (r < 0)
1244 log_debug_errno(r, "Failed to parse lifetime %s, ignoring: %m", lifetime);
1245 }
1246
1247 if (t1) {
1248 r = safe_atou32(t1, &lease->t1);
1249 if (r < 0)
1250 log_debug_errno(r, "Failed to parse T1 %s, ignoring: %m", t1);
1251 }
1252
1253 if (t2) {
1254 r = safe_atou32(t2, &lease->t2);
1255 if (r < 0)
1256 log_debug_errno(r, "Failed to parse T2 %s, ignoring: %m", t2);
1257 }
1258
1259 if (client_id_hex) {
1260 r = unhexmem(client_id_hex, SIZE_MAX, &lease->client_id, &lease->client_id_len);
1261 if (r < 0)
1262 log_debug_errno(r, "Failed to parse client ID %s, ignoring: %m", client_id_hex);
1263 }
1264
1265 if (vendor_specific_hex) {
1266 r = unhexmem(vendor_specific_hex, SIZE_MAX, &lease->vendor_specific, &lease->vendor_specific_len);
1267 if (r < 0)
1268 log_debug_errno(r, "Failed to parse vendor specific data %s, ignoring: %m", vendor_specific_hex);
1269 }
1270
1271 for (i = 0; i <= SD_DHCP_OPTION_PRIVATE_LAST - SD_DHCP_OPTION_PRIVATE_BASE; i++) {
1272 _cleanup_free_ void *data = NULL;
1273 size_t len;
1274
1275 if (!options[i])
1276 continue;
1277
1278 r = unhexmem(options[i], SIZE_MAX, &data, &len);
1279 if (r < 0) {
1280 log_debug_errno(r, "Failed to parse private DHCP option %s, ignoring: %m", options[i]);
1281 continue;
1282 }
1283
1284 r = dhcp_lease_insert_private_option(lease, SD_DHCP_OPTION_PRIVATE_BASE + i, data, len);
1285 if (r < 0)
1286 return r;
1287 }
1288
1289 *ret = TAKE_PTR(lease);
1290
1291 return 0;
1292 }
1293
1294 int dhcp_lease_set_default_subnet_mask(sd_dhcp_lease *lease) {
1295 struct in_addr address, mask;
1296 int r;
1297
1298 assert(lease);
1299
1300 if (lease->address == 0)
1301 return -ENODATA;
1302
1303 address.s_addr = lease->address;
1304
1305 /* fall back to the default subnet masks based on address class */
1306 r = in4_addr_default_subnet_mask(&address, &mask);
1307 if (r < 0)
1308 return r;
1309
1310 lease->subnet_mask = mask.s_addr;
1311 lease->have_subnet_mask = true;
1312
1313 return 0;
1314 }
1315
1316 int sd_dhcp_lease_get_client_id(sd_dhcp_lease *lease, const void **client_id, size_t *client_id_len) {
1317 assert_return(lease, -EINVAL);
1318 assert_return(client_id, -EINVAL);
1319 assert_return(client_id_len, -EINVAL);
1320
1321 if (!lease->client_id)
1322 return -ENODATA;
1323
1324 *client_id = lease->client_id;
1325 *client_id_len = lease->client_id_len;
1326
1327 return 0;
1328 }
1329
1330 int dhcp_lease_set_client_id(sd_dhcp_lease *lease, const void *client_id, size_t client_id_len) {
1331 assert_return(lease, -EINVAL);
1332 assert_return(client_id || client_id_len <= 0, -EINVAL);
1333
1334 if (client_id_len <= 0)
1335 lease->client_id = mfree(lease->client_id);
1336 else {
1337 void *p;
1338
1339 p = memdup(client_id, client_id_len);
1340 if (!p)
1341 return -ENOMEM;
1342
1343 free(lease->client_id);
1344 lease->client_id = p;
1345 lease->client_id_len = client_id_len;
1346 }
1347
1348 return 0;
1349 }
1350
1351 int sd_dhcp_lease_get_timezone(sd_dhcp_lease *lease, const char **tz) {
1352 assert_return(lease, -EINVAL);
1353 assert_return(tz, -EINVAL);
1354
1355 if (!lease->timezone)
1356 return -ENODATA;
1357
1358 *tz = lease->timezone;
1359 return 0;
1360 }
1361
1362 int sd_dhcp_route_get_destination(sd_dhcp_route *route, struct in_addr *destination) {
1363 assert_return(route, -EINVAL);
1364 assert_return(destination, -EINVAL);
1365
1366 *destination = route->dst_addr;
1367 return 0;
1368 }
1369
1370 int sd_dhcp_route_get_destination_prefix_length(sd_dhcp_route *route, uint8_t *length) {
1371 assert_return(route, -EINVAL);
1372 assert_return(length, -EINVAL);
1373
1374 *length = route->dst_prefixlen;
1375 return 0;
1376 }
1377
1378 int sd_dhcp_route_get_gateway(sd_dhcp_route *route, struct in_addr *gateway) {
1379 assert_return(route, -EINVAL);
1380 assert_return(gateway, -EINVAL);
1381
1382 *gateway = route->gw_addr;
1383 return 0;
1384 }
1385
1386 int sd_dhcp_route_get_option(sd_dhcp_route *route) {
1387 assert_return(route, -EINVAL);
1388
1389 return route->option;
1390 }