]> git.ipfire.org Git - thirdparty/systemd.git/blob - src/libsystemd-network/sd-dhcp-lease.c
Merge pull request #19653 from poettering/greedy-realloc-more
[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) {
444
445 struct in_addr addr;
446
447 assert(option || len <= 0);
448 assert(routes);
449 assert(routes_size);
450
451 if (len <= 0)
452 return 0;
453
454 if (len % 8 != 0)
455 return -EINVAL;
456
457 if (!GREEDY_REALLOC(*routes, *routes_size + (len / 8)))
458 return -ENOMEM;
459
460 while (len >= 8) {
461 struct sd_dhcp_route *route = *routes + *routes_size;
462 int r;
463
464 route->option = SD_DHCP_OPTION_STATIC_ROUTE;
465 r = in4_addr_default_prefixlen((struct in_addr*) option, &route->dst_prefixlen);
466 if (r < 0) {
467 log_debug("Failed to determine destination prefix length from class based IP, ignoring");
468 continue;
469 }
470
471 assert_se(lease_parse_be32(option, 4, &addr.s_addr) >= 0);
472 route->dst_addr = inet_makeaddr(inet_netof(addr), 0);
473 option += 4;
474
475 assert_se(lease_parse_be32(option, 4, &route->gw_addr.s_addr) >= 0);
476 option += 4;
477
478 len -= 8;
479 (*routes_size)++;
480 }
481
482 return 0;
483 }
484
485 /* parses RFC3442 Classless Static Route Option */
486 static int lease_parse_classless_routes(
487 const uint8_t *option, size_t len,
488 struct sd_dhcp_route **routes, size_t *routes_size) {
489
490 assert(option || len <= 0);
491 assert(routes);
492 assert(routes_size);
493
494 if (len <= 0)
495 return 0;
496
497 /* option format: (subnet-mask-width significant-subnet-octets gateway-ip)* */
498
499 while (len > 0) {
500 uint8_t dst_octets;
501 struct sd_dhcp_route *route;
502
503 if (!GREEDY_REALLOC(*routes, *routes_size + 1))
504 return -ENOMEM;
505
506 route = *routes + *routes_size;
507 route->option = SD_DHCP_OPTION_CLASSLESS_STATIC_ROUTE;
508
509 dst_octets = (*option == 0 ? 0 : ((*option - 1) / 8) + 1);
510 route->dst_prefixlen = *option;
511 option++;
512 len--;
513
514 /* can't have more than 4 octets in IPv4 */
515 if (dst_octets > 4 || len < dst_octets)
516 return -EINVAL;
517
518 route->dst_addr.s_addr = 0;
519 memcpy(&route->dst_addr.s_addr, option, dst_octets);
520 option += dst_octets;
521 len -= dst_octets;
522
523 if (len < 4)
524 return -EINVAL;
525
526 assert_se(lease_parse_be32(option, 4, &route->gw_addr.s_addr) >= 0);
527 option += 4;
528 len -= 4;
529
530 (*routes_size)++;
531 }
532
533 return 0;
534 }
535
536 int dhcp_lease_parse_options(uint8_t code, uint8_t len, const void *option, void *userdata) {
537 sd_dhcp_lease *lease = userdata;
538 int r;
539
540 assert(lease);
541
542 switch(code) {
543
544 case SD_DHCP_OPTION_IP_ADDRESS_LEASE_TIME:
545 r = lease_parse_u32(option, len, &lease->lifetime, 1);
546 if (r < 0)
547 log_debug_errno(r, "Failed to parse lease time, ignoring: %m");
548
549 break;
550
551 case SD_DHCP_OPTION_SERVER_IDENTIFIER:
552 r = lease_parse_be32(option, len, &lease->server_address);
553 if (r < 0)
554 log_debug_errno(r, "Failed to parse server identifier, ignoring: %m");
555
556 break;
557
558 case SD_DHCP_OPTION_SUBNET_MASK:
559 r = lease_parse_be32(option, len, &lease->subnet_mask);
560 if (r < 0)
561 log_debug_errno(r, "Failed to parse subnet mask, ignoring: %m");
562 else
563 lease->have_subnet_mask = true;
564 break;
565
566 case SD_DHCP_OPTION_BROADCAST:
567 r = lease_parse_be32(option, len, &lease->broadcast);
568 if (r < 0)
569 log_debug_errno(r, "Failed to parse broadcast address, ignoring: %m");
570 else
571 lease->have_broadcast = true;
572 break;
573
574 case SD_DHCP_OPTION_ROUTER:
575 r = lease_parse_in_addrs(option, len, &lease->router, &lease->router_size);
576 if (r < 0)
577 log_debug_errno(r, "Failed to parse router addresses, ignoring: %m");
578 break;
579
580 case SD_DHCP_OPTION_DOMAIN_NAME_SERVER:
581 r = lease_parse_in_addrs(option, len, &lease->servers[SD_DHCP_LEASE_DNS].addr, &lease->servers[SD_DHCP_LEASE_DNS].size);
582 if (r < 0)
583 log_debug_errno(r, "Failed to parse DNS server, ignoring: %m");
584 break;
585
586 case SD_DHCP_OPTION_NTP_SERVER:
587 r = lease_parse_in_addrs(option, len, &lease->servers[SD_DHCP_LEASE_NTP].addr, &lease->servers[SD_DHCP_LEASE_NTP].size);
588 if (r < 0)
589 log_debug_errno(r, "Failed to parse NTP server, ignoring: %m");
590 break;
591
592 case SD_DHCP_OPTION_SIP_SERVER:
593 r = lease_parse_sip_server(option, len, &lease->servers[SD_DHCP_LEASE_SIP].addr, &lease->servers[SD_DHCP_LEASE_SIP].size);
594 if (r < 0)
595 log_debug_errno(r, "Failed to parse SIP server, ignoring: %m");
596 break;
597
598 case SD_DHCP_OPTION_POP3_SERVER:
599 r = lease_parse_in_addrs(option, len, &lease->servers[SD_DHCP_LEASE_POP3].addr, &lease->servers[SD_DHCP_LEASE_POP3].size);
600 if (r < 0)
601 log_debug_errno(r, "Failed to parse POP3 server, ignoring: %m");
602 break;
603
604 case SD_DHCP_OPTION_SMTP_SERVER:
605 r = lease_parse_in_addrs(option, len, &lease->servers[SD_DHCP_LEASE_SMTP].addr, &lease->servers[SD_DHCP_LEASE_SMTP].size);
606 if (r < 0)
607 log_debug_errno(r, "Failed to parse SMTP server, ignoring: %m");
608 break;
609
610 case SD_DHCP_OPTION_LPR_SERVER:
611 r = lease_parse_in_addrs(option, len, &lease->servers[SD_DHCP_LEASE_LPR].addr, &lease->servers[SD_DHCP_LEASE_LPR].size);
612 if (r < 0)
613 log_debug_errno(r, "Failed to parse LPR server, ignoring: %m");
614 break;
615
616 case SD_DHCP_OPTION_STATIC_ROUTE:
617 r = lease_parse_routes(option, len, &lease->static_route, &lease->static_route_size);
618 if (r < 0)
619 log_debug_errno(r, "Failed to parse static routes, ignoring: %m");
620 break;
621
622 case SD_DHCP_OPTION_INTERFACE_MTU:
623 r = lease_parse_u16(option, len, &lease->mtu, 68);
624 if (r < 0)
625 log_debug_errno(r, "Failed to parse MTU, ignoring: %m");
626 if (lease->mtu < DHCP_DEFAULT_MIN_SIZE) {
627 log_debug("MTU value of %" PRIu16 " too small. Using default MTU value of %d instead.", lease->mtu, DHCP_DEFAULT_MIN_SIZE);
628 lease->mtu = DHCP_DEFAULT_MIN_SIZE;
629 }
630
631 break;
632
633 case SD_DHCP_OPTION_DOMAIN_NAME:
634 r = lease_parse_domain(option, len, &lease->domainname);
635 if (r < 0) {
636 log_debug_errno(r, "Failed to parse domain name, ignoring: %m");
637 return 0;
638 }
639
640 break;
641
642 case SD_DHCP_OPTION_DOMAIN_SEARCH_LIST:
643 r = dhcp_lease_parse_search_domains(option, len, &lease->search_domains);
644 if (r < 0)
645 log_debug_errno(r, "Failed to parse Domain Search List, ignoring: %m");
646 break;
647
648 case SD_DHCP_OPTION_HOST_NAME:
649 r = lease_parse_domain(option, len, &lease->hostname);
650 if (r < 0) {
651 log_debug_errno(r, "Failed to parse hostname, ignoring: %m");
652 return 0;
653 }
654
655 break;
656
657 case SD_DHCP_OPTION_ROOT_PATH:
658 r = lease_parse_string(option, len, &lease->root_path);
659 if (r < 0)
660 log_debug_errno(r, "Failed to parse root path, ignoring: %m");
661 break;
662
663 case SD_DHCP_OPTION_RENEWAL_T1_TIME:
664 r = lease_parse_u32(option, len, &lease->t1, 1);
665 if (r < 0)
666 log_debug_errno(r, "Failed to parse T1 time, ignoring: %m");
667 break;
668
669 case SD_DHCP_OPTION_REBINDING_T2_TIME:
670 r = lease_parse_u32(option, len, &lease->t2, 1);
671 if (r < 0)
672 log_debug_errno(r, "Failed to parse T2 time, ignoring: %m");
673 break;
674
675 case SD_DHCP_OPTION_CLASSLESS_STATIC_ROUTE:
676 r = lease_parse_classless_routes(
677 option, len,
678 &lease->static_route,
679 &lease->static_route_size);
680 if (r < 0)
681 log_debug_errno(r, "Failed to parse classless routes, ignoring: %m");
682 break;
683
684 case SD_DHCP_OPTION_NEW_TZDB_TIMEZONE: {
685 _cleanup_free_ char *tz = NULL;
686
687 r = lease_parse_string(option, len, &tz);
688 if (r < 0) {
689 log_debug_errno(r, "Failed to parse timezone option, ignoring: %m");
690 return 0;
691 }
692
693 if (!timezone_is_valid(tz, LOG_DEBUG)) {
694 log_debug_errno(r, "Timezone is not valid, ignoring: %m");
695 return 0;
696 }
697
698 free_and_replace(lease->timezone, tz);
699
700 break;
701 }
702
703 case SD_DHCP_OPTION_VENDOR_SPECIFIC:
704
705 if (len <= 0)
706 lease->vendor_specific = mfree(lease->vendor_specific);
707 else {
708 void *p;
709
710 p = memdup(option, len);
711 if (!p)
712 return -ENOMEM;
713
714 free(lease->vendor_specific);
715 lease->vendor_specific = p;
716 }
717
718 lease->vendor_specific_len = len;
719 break;
720
721 case SD_DHCP_OPTION_PRIVATE_BASE ... SD_DHCP_OPTION_PRIVATE_LAST:
722 r = dhcp_lease_insert_private_option(lease, code, option, len);
723 if (r < 0)
724 return r;
725
726 break;
727
728 default:
729 log_debug("Ignoring option DHCP option %"PRIu8" while parsing.", code);
730 break;
731 }
732
733 return 0;
734 }
735
736 /* Parses compressed domain names. */
737 int dhcp_lease_parse_search_domains(const uint8_t *option, size_t len, char ***domains) {
738 _cleanup_strv_free_ char **names = NULL;
739 size_t pos = 0, cnt = 0;
740 int r;
741
742 assert(domains);
743 assert_return(option && len > 0, -ENODATA);
744
745 while (pos < len) {
746 _cleanup_free_ char *name = NULL;
747 size_t n = 0;
748 size_t jump_barrier = pos, next_chunk = 0;
749 bool first = true;
750
751 for (;;) {
752 uint8_t c;
753 c = option[pos++];
754
755 if (c == 0) {
756 /* End of name */
757 break;
758 } else if (c <= 63) {
759 const char *label;
760
761 /* Literal label */
762 label = (const char*) (option + pos);
763 pos += c;
764 if (pos >= len)
765 return -EBADMSG;
766
767 if (!GREEDY_REALLOC(name, n + !first + DNS_LABEL_ESCAPED_MAX))
768 return -ENOMEM;
769
770 if (first)
771 first = false;
772 else
773 name[n++] = '.';
774
775 r = dns_label_escape(label, c, name + n, DNS_LABEL_ESCAPED_MAX);
776 if (r < 0)
777 return r;
778
779 n += r;
780 } else if (FLAGS_SET(c, 0xc0)) {
781 /* Pointer */
782
783 uint8_t d;
784 uint16_t ptr;
785
786 if (pos >= len)
787 return -EBADMSG;
788
789 d = option[pos++];
790 ptr = (uint16_t) (c & ~0xc0) << 8 | (uint16_t) d;
791
792 /* Jumps are limited to a "prior occurrence" (RFC-1035 4.1.4) */
793 if (ptr >= jump_barrier)
794 return -EBADMSG;
795 jump_barrier = ptr;
796
797 /* Save current location so we don't end up re-parsing what's parsed so far. */
798 if (next_chunk == 0)
799 next_chunk = pos;
800
801 pos = ptr;
802 } else
803 return -EBADMSG;
804 }
805
806 if (!GREEDY_REALLOC(name, n + 1))
807 return -ENOMEM;
808 name[n] = 0;
809
810 r = strv_extend(&names, name);
811 if (r < 0)
812 return r;
813
814 cnt++;
815
816 if (next_chunk != 0)
817 pos = next_chunk;
818 }
819
820 *domains = TAKE_PTR(names);
821
822 return cnt;
823 }
824
825 int dhcp_lease_insert_private_option(sd_dhcp_lease *lease, uint8_t tag, const void *data, uint8_t len) {
826 struct sd_dhcp_raw_option *cur, *option;
827
828 assert(lease);
829
830 LIST_FOREACH(options, cur, lease->private_options) {
831 if (tag < cur->tag)
832 break;
833 if (tag == cur->tag) {
834 log_debug("Ignoring duplicate option, tagged %i.", tag);
835 return 0;
836 }
837 }
838
839 option = new(struct sd_dhcp_raw_option, 1);
840 if (!option)
841 return -ENOMEM;
842
843 option->tag = tag;
844 option->length = len;
845 option->data = memdup(data, len);
846 if (!option->data) {
847 free(option);
848 return -ENOMEM;
849 }
850
851 LIST_INSERT_BEFORE(options, lease->private_options, cur, option);
852 return 0;
853 }
854
855 int dhcp_lease_new(sd_dhcp_lease **ret) {
856 sd_dhcp_lease *lease;
857
858 lease = new0(sd_dhcp_lease, 1);
859 if (!lease)
860 return -ENOMEM;
861
862 lease->n_ref = 1;
863
864 *ret = lease;
865 return 0;
866 }
867
868 int dhcp_lease_save(sd_dhcp_lease *lease, const char *lease_file) {
869 _cleanup_(unlink_and_freep) char *temp_path = NULL;
870 _cleanup_fclose_ FILE *f = NULL;
871 struct sd_dhcp_raw_option *option;
872 struct in_addr address;
873 const struct in_addr *addresses;
874 const void *client_id, *data;
875 size_t client_id_len, data_len;
876 char sbuf[INET_ADDRSTRLEN];
877 const char *string;
878 uint16_t mtu;
879 _cleanup_free_ sd_dhcp_route **routes = NULL;
880 char **search_domains = NULL;
881 uint32_t t1, t2, lifetime;
882 int r;
883
884 assert(lease);
885 assert(lease_file);
886
887 r = fopen_temporary(lease_file, &f, &temp_path);
888 if (r < 0)
889 return r;
890
891 (void) fchmod(fileno(f), 0644);
892
893 fprintf(f,
894 "# This is private data. Do not parse.\n");
895
896 r = sd_dhcp_lease_get_address(lease, &address);
897 if (r >= 0)
898 fprintf(f, "ADDRESS=%s\n", inet_ntop(AF_INET, &address, sbuf, sizeof(sbuf)));
899
900 r = sd_dhcp_lease_get_netmask(lease, &address);
901 if (r >= 0)
902 fprintf(f, "NETMASK=%s\n", inet_ntop(AF_INET, &address, sbuf, sizeof(sbuf)));
903
904 r = sd_dhcp_lease_get_router(lease, &addresses);
905 if (r > 0) {
906 fputs("ROUTER=", f);
907 serialize_in_addrs(f, addresses, r, false, NULL);
908 fputc('\n', f);
909 }
910
911 r = sd_dhcp_lease_get_server_identifier(lease, &address);
912 if (r >= 0)
913 fprintf(f, "SERVER_ADDRESS=%s\n", inet_ntop(AF_INET, &address, sbuf, sizeof(sbuf)));
914
915 r = sd_dhcp_lease_get_next_server(lease, &address);
916 if (r >= 0)
917 fprintf(f, "NEXT_SERVER=%s\n", inet_ntop(AF_INET, &address, sbuf, sizeof(sbuf)));
918
919 r = sd_dhcp_lease_get_broadcast(lease, &address);
920 if (r >= 0)
921 fprintf(f, "BROADCAST=%s\n", inet_ntop(AF_INET, &address, sbuf, sizeof(sbuf)));
922
923 r = sd_dhcp_lease_get_mtu(lease, &mtu);
924 if (r >= 0)
925 fprintf(f, "MTU=%" PRIu16 "\n", mtu);
926
927 r = sd_dhcp_lease_get_t1(lease, &t1);
928 if (r >= 0)
929 fprintf(f, "T1=%" PRIu32 "\n", t1);
930
931 r = sd_dhcp_lease_get_t2(lease, &t2);
932 if (r >= 0)
933 fprintf(f, "T2=%" PRIu32 "\n", t2);
934
935 r = sd_dhcp_lease_get_lifetime(lease, &lifetime);
936 if (r >= 0)
937 fprintf(f, "LIFETIME=%" PRIu32 "\n", lifetime);
938
939 r = sd_dhcp_lease_get_dns(lease, &addresses);
940 if (r > 0) {
941 fputs("DNS=", f);
942 serialize_in_addrs(f, addresses, r, false, NULL);
943 fputc('\n', f);
944 }
945
946 r = sd_dhcp_lease_get_ntp(lease, &addresses);
947 if (r > 0) {
948 fputs("NTP=", f);
949 serialize_in_addrs(f, addresses, r, false, NULL);
950 fputc('\n', f);
951 }
952
953 r = sd_dhcp_lease_get_sip(lease, &addresses);
954 if (r > 0) {
955 fputs("SIP=", f);
956 serialize_in_addrs(f, addresses, r, false, NULL);
957 fputc('\n', f);
958 }
959
960 r = sd_dhcp_lease_get_domainname(lease, &string);
961 if (r >= 0)
962 fprintf(f, "DOMAINNAME=%s\n", string);
963
964 r = sd_dhcp_lease_get_search_domains(lease, &search_domains);
965 if (r > 0) {
966 fputs("DOMAIN_SEARCH_LIST=", f);
967 fputstrv(f, search_domains, NULL, NULL);
968 fputc('\n', f);
969 }
970
971 r = sd_dhcp_lease_get_hostname(lease, &string);
972 if (r >= 0)
973 fprintf(f, "HOSTNAME=%s\n", string);
974
975 r = sd_dhcp_lease_get_root_path(lease, &string);
976 if (r >= 0)
977 fprintf(f, "ROOT_PATH=%s\n", string);
978
979 r = sd_dhcp_lease_get_routes(lease, &routes);
980 if (r > 0)
981 serialize_dhcp_routes(f, "ROUTES", routes, r);
982
983 r = sd_dhcp_lease_get_timezone(lease, &string);
984 if (r >= 0)
985 fprintf(f, "TIMEZONE=%s\n", string);
986
987 r = sd_dhcp_lease_get_client_id(lease, &client_id, &client_id_len);
988 if (r >= 0) {
989 _cleanup_free_ char *client_id_hex = NULL;
990
991 client_id_hex = hexmem(client_id, client_id_len);
992 if (!client_id_hex)
993 return -ENOMEM;
994 fprintf(f, "CLIENTID=%s\n", client_id_hex);
995 }
996
997 r = sd_dhcp_lease_get_vendor_specific(lease, &data, &data_len);
998 if (r >= 0) {
999 _cleanup_free_ char *option_hex = NULL;
1000
1001 option_hex = hexmem(data, data_len);
1002 if (!option_hex)
1003 return -ENOMEM;
1004 fprintf(f, "VENDOR_SPECIFIC=%s\n", option_hex);
1005 }
1006
1007 LIST_FOREACH(options, option, lease->private_options) {
1008 char key[STRLEN("OPTION_000")+1];
1009
1010 xsprintf(key, "OPTION_%" PRIu8, option->tag);
1011 r = serialize_dhcp_option(f, key, option->data, option->length);
1012 if (r < 0)
1013 return r;
1014 }
1015
1016 r = fflush_and_check(f);
1017 if (r < 0)
1018 return r;
1019
1020 r = conservative_rename(temp_path, lease_file);
1021 if (r < 0)
1022 return r;
1023
1024 temp_path = mfree(temp_path);
1025
1026 return 0;
1027 }
1028
1029 int dhcp_lease_load(sd_dhcp_lease **ret, const char *lease_file) {
1030 _cleanup_(sd_dhcp_lease_unrefp) sd_dhcp_lease *lease = NULL;
1031 _cleanup_free_ char
1032 *address = NULL,
1033 *router = NULL,
1034 *netmask = NULL,
1035 *server_address = NULL,
1036 *next_server = NULL,
1037 *broadcast = NULL,
1038 *dns = NULL,
1039 *ntp = NULL,
1040 *sip = NULL,
1041 *pop3 = NULL,
1042 *smtp = NULL,
1043 *lpr = NULL,
1044 *mtu = NULL,
1045 *routes = NULL,
1046 *domains = NULL,
1047 *client_id_hex = NULL,
1048 *vendor_specific_hex = NULL,
1049 *lifetime = NULL,
1050 *t1 = NULL,
1051 *t2 = NULL,
1052 *options[SD_DHCP_OPTION_PRIVATE_LAST - SD_DHCP_OPTION_PRIVATE_BASE + 1] = {};
1053
1054 int r, i;
1055
1056 assert(lease_file);
1057 assert(ret);
1058
1059 r = dhcp_lease_new(&lease);
1060 if (r < 0)
1061 return r;
1062
1063 r = parse_env_file(NULL, lease_file,
1064 "ADDRESS", &address,
1065 "ROUTER", &router,
1066 "NETMASK", &netmask,
1067 "SERVER_ADDRESS", &server_address,
1068 "NEXT_SERVER", &next_server,
1069 "BROADCAST", &broadcast,
1070 "DNS", &dns,
1071 "NTP", &ntp,
1072 "SIP", &sip,
1073 "POP3", &pop3,
1074 "SMTP", &smtp,
1075 "LPR", &lpr,
1076 "MTU", &mtu,
1077 "DOMAINNAME", &lease->domainname,
1078 "HOSTNAME", &lease->hostname,
1079 "DOMAIN_SEARCH_LIST", &domains,
1080 "ROOT_PATH", &lease->root_path,
1081 "ROUTES", &routes,
1082 "CLIENTID", &client_id_hex,
1083 "TIMEZONE", &lease->timezone,
1084 "VENDOR_SPECIFIC", &vendor_specific_hex,
1085 "LIFETIME", &lifetime,
1086 "T1", &t1,
1087 "T2", &t2,
1088 "OPTION_224", &options[0],
1089 "OPTION_225", &options[1],
1090 "OPTION_226", &options[2],
1091 "OPTION_227", &options[3],
1092 "OPTION_228", &options[4],
1093 "OPTION_229", &options[5],
1094 "OPTION_230", &options[6],
1095 "OPTION_231", &options[7],
1096 "OPTION_232", &options[8],
1097 "OPTION_233", &options[9],
1098 "OPTION_234", &options[10],
1099 "OPTION_235", &options[11],
1100 "OPTION_236", &options[12],
1101 "OPTION_237", &options[13],
1102 "OPTION_238", &options[14],
1103 "OPTION_239", &options[15],
1104 "OPTION_240", &options[16],
1105 "OPTION_241", &options[17],
1106 "OPTION_242", &options[18],
1107 "OPTION_243", &options[19],
1108 "OPTION_244", &options[20],
1109 "OPTION_245", &options[21],
1110 "OPTION_246", &options[22],
1111 "OPTION_247", &options[23],
1112 "OPTION_248", &options[24],
1113 "OPTION_249", &options[25],
1114 "OPTION_250", &options[26],
1115 "OPTION_251", &options[27],
1116 "OPTION_252", &options[28],
1117 "OPTION_253", &options[29],
1118 "OPTION_254", &options[30]);
1119 if (r < 0)
1120 return r;
1121
1122 if (address) {
1123 r = inet_pton(AF_INET, address, &lease->address);
1124 if (r <= 0)
1125 log_debug("Failed to parse address %s, ignoring.", address);
1126 }
1127
1128 if (router) {
1129 r = deserialize_in_addrs(&lease->router, router);
1130 if (r < 0)
1131 log_debug_errno(r, "Failed to deserialize router addresses %s, ignoring: %m", router);
1132 else
1133 lease->router_size = r;
1134 }
1135
1136 if (netmask) {
1137 r = inet_pton(AF_INET, netmask, &lease->subnet_mask);
1138 if (r <= 0)
1139 log_debug("Failed to parse netmask %s, ignoring.", netmask);
1140 else
1141 lease->have_subnet_mask = true;
1142 }
1143
1144 if (server_address) {
1145 r = inet_pton(AF_INET, server_address, &lease->server_address);
1146 if (r <= 0)
1147 log_debug("Failed to parse server address %s, ignoring.", server_address);
1148 }
1149
1150 if (next_server) {
1151 r = inet_pton(AF_INET, next_server, &lease->next_server);
1152 if (r <= 0)
1153 log_debug("Failed to parse next server %s, ignoring.", next_server);
1154 }
1155
1156 if (broadcast) {
1157 r = inet_pton(AF_INET, broadcast, &lease->broadcast);
1158 if (r <= 0)
1159 log_debug("Failed to parse broadcast address %s, ignoring.", broadcast);
1160 else
1161 lease->have_broadcast = true;
1162 }
1163
1164 if (dns) {
1165 r = deserialize_in_addrs(&lease->servers[SD_DHCP_LEASE_DNS].addr, dns);
1166 if (r < 0)
1167 log_debug_errno(r, "Failed to deserialize DNS servers %s, ignoring: %m", dns);
1168 else
1169 lease->servers[SD_DHCP_LEASE_DNS].size = r;
1170 }
1171
1172 if (ntp) {
1173 r = deserialize_in_addrs(&lease->servers[SD_DHCP_LEASE_NTP].addr, ntp);
1174 if (r < 0)
1175 log_debug_errno(r, "Failed to deserialize NTP servers %s, ignoring: %m", ntp);
1176 else
1177 lease->servers[SD_DHCP_LEASE_NTP].size = r;
1178 }
1179
1180 if (sip) {
1181 r = deserialize_in_addrs(&lease->servers[SD_DHCP_LEASE_SIP].addr, sip);
1182 if (r < 0)
1183 log_debug_errno(r, "Failed to deserialize SIP servers %s, ignoring: %m", sip);
1184 else
1185 lease->servers[SD_DHCP_LEASE_SIP].size = r;
1186 }
1187
1188 if (pop3) {
1189 r = deserialize_in_addrs(&lease->servers[SD_DHCP_LEASE_POP3].addr, pop3);
1190 if (r < 0)
1191 log_debug_errno(r, "Failed to deserialize POP3 server %s, ignoring: %m", pop3);
1192 else
1193 lease->servers[SD_DHCP_LEASE_POP3].size = r;
1194 }
1195
1196 if (smtp) {
1197 r = deserialize_in_addrs(&lease->servers[SD_DHCP_LEASE_SMTP].addr, smtp);
1198 if (r < 0)
1199 log_debug_errno(r, "Failed to deserialize SMTP server %s, ignoring: %m", smtp);
1200 else
1201 lease->servers[SD_DHCP_LEASE_SMTP].size = r;
1202 }
1203
1204 if (lpr) {
1205 r = deserialize_in_addrs(&lease->servers[SD_DHCP_LEASE_LPR].addr, lpr);
1206 if (r < 0)
1207 log_debug_errno(r, "Failed to deserialize LPR server %s, ignoring: %m", lpr);
1208 else
1209 lease->servers[SD_DHCP_LEASE_LPR].size = r;
1210 }
1211
1212 if (mtu) {
1213 r = safe_atou16(mtu, &lease->mtu);
1214 if (r < 0)
1215 log_debug_errno(r, "Failed to parse MTU %s, ignoring: %m", mtu);
1216 }
1217
1218 if (domains) {
1219 _cleanup_strv_free_ char **a = NULL;
1220 a = strv_split(domains, " ");
1221 if (!a)
1222 return -ENOMEM;
1223
1224 if (!strv_isempty(a))
1225 lease->search_domains = TAKE_PTR(a);
1226 }
1227
1228 if (routes) {
1229 r = deserialize_dhcp_routes(
1230 &lease->static_route,
1231 &lease->static_route_size,
1232 routes);
1233 if (r < 0)
1234 log_debug_errno(r, "Failed to parse DHCP routes %s, ignoring: %m", routes);
1235 }
1236
1237 if (lifetime) {
1238 r = safe_atou32(lifetime, &lease->lifetime);
1239 if (r < 0)
1240 log_debug_errno(r, "Failed to parse lifetime %s, ignoring: %m", lifetime);
1241 }
1242
1243 if (t1) {
1244 r = safe_atou32(t1, &lease->t1);
1245 if (r < 0)
1246 log_debug_errno(r, "Failed to parse T1 %s, ignoring: %m", t1);
1247 }
1248
1249 if (t2) {
1250 r = safe_atou32(t2, &lease->t2);
1251 if (r < 0)
1252 log_debug_errno(r, "Failed to parse T2 %s, ignoring: %m", t2);
1253 }
1254
1255 if (client_id_hex) {
1256 r = unhexmem(client_id_hex, SIZE_MAX, &lease->client_id, &lease->client_id_len);
1257 if (r < 0)
1258 log_debug_errno(r, "Failed to parse client ID %s, ignoring: %m", client_id_hex);
1259 }
1260
1261 if (vendor_specific_hex) {
1262 r = unhexmem(vendor_specific_hex, SIZE_MAX, &lease->vendor_specific, &lease->vendor_specific_len);
1263 if (r < 0)
1264 log_debug_errno(r, "Failed to parse vendor specific data %s, ignoring: %m", vendor_specific_hex);
1265 }
1266
1267 for (i = 0; i <= SD_DHCP_OPTION_PRIVATE_LAST - SD_DHCP_OPTION_PRIVATE_BASE; i++) {
1268 _cleanup_free_ void *data = NULL;
1269 size_t len;
1270
1271 if (!options[i])
1272 continue;
1273
1274 r = unhexmem(options[i], SIZE_MAX, &data, &len);
1275 if (r < 0) {
1276 log_debug_errno(r, "Failed to parse private DHCP option %s, ignoring: %m", options[i]);
1277 continue;
1278 }
1279
1280 r = dhcp_lease_insert_private_option(lease, SD_DHCP_OPTION_PRIVATE_BASE + i, data, len);
1281 if (r < 0)
1282 return r;
1283 }
1284
1285 *ret = TAKE_PTR(lease);
1286
1287 return 0;
1288 }
1289
1290 int dhcp_lease_set_default_subnet_mask(sd_dhcp_lease *lease) {
1291 struct in_addr address, mask;
1292 int r;
1293
1294 assert(lease);
1295
1296 if (lease->address == 0)
1297 return -ENODATA;
1298
1299 address.s_addr = lease->address;
1300
1301 /* fall back to the default subnet masks based on address class */
1302 r = in4_addr_default_subnet_mask(&address, &mask);
1303 if (r < 0)
1304 return r;
1305
1306 lease->subnet_mask = mask.s_addr;
1307 lease->have_subnet_mask = true;
1308
1309 return 0;
1310 }
1311
1312 int sd_dhcp_lease_get_client_id(sd_dhcp_lease *lease, const void **client_id, size_t *client_id_len) {
1313 assert_return(lease, -EINVAL);
1314 assert_return(client_id, -EINVAL);
1315 assert_return(client_id_len, -EINVAL);
1316
1317 if (!lease->client_id)
1318 return -ENODATA;
1319
1320 *client_id = lease->client_id;
1321 *client_id_len = lease->client_id_len;
1322
1323 return 0;
1324 }
1325
1326 int dhcp_lease_set_client_id(sd_dhcp_lease *lease, const void *client_id, size_t client_id_len) {
1327 assert_return(lease, -EINVAL);
1328 assert_return(client_id || client_id_len <= 0, -EINVAL);
1329
1330 if (client_id_len <= 0)
1331 lease->client_id = mfree(lease->client_id);
1332 else {
1333 void *p;
1334
1335 p = memdup(client_id, client_id_len);
1336 if (!p)
1337 return -ENOMEM;
1338
1339 free(lease->client_id);
1340 lease->client_id = p;
1341 lease->client_id_len = client_id_len;
1342 }
1343
1344 return 0;
1345 }
1346
1347 int sd_dhcp_lease_get_timezone(sd_dhcp_lease *lease, const char **tz) {
1348 assert_return(lease, -EINVAL);
1349 assert_return(tz, -EINVAL);
1350
1351 if (!lease->timezone)
1352 return -ENODATA;
1353
1354 *tz = lease->timezone;
1355 return 0;
1356 }
1357
1358 int sd_dhcp_route_get_destination(sd_dhcp_route *route, struct in_addr *destination) {
1359 assert_return(route, -EINVAL);
1360 assert_return(destination, -EINVAL);
1361
1362 *destination = route->dst_addr;
1363 return 0;
1364 }
1365
1366 int sd_dhcp_route_get_destination_prefix_length(sd_dhcp_route *route, uint8_t *length) {
1367 assert_return(route, -EINVAL);
1368 assert_return(length, -EINVAL);
1369
1370 *length = route->dst_prefixlen;
1371 return 0;
1372 }
1373
1374 int sd_dhcp_route_get_gateway(sd_dhcp_route *route, struct in_addr *gateway) {
1375 assert_return(route, -EINVAL);
1376 assert_return(gateway, -EINVAL);
1377
1378 *gateway = route->gw_addr;
1379 return 0;
1380 }
1381
1382 int sd_dhcp_route_get_option(sd_dhcp_route *route) {
1383 assert_return(route, -EINVAL);
1384
1385 return route->option;
1386 }