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