1 /* dnsmasq is Copyright (c) 2000-2013 Simon Kelley
3 This program is free software; you can redistribute it and/or modify
4 it under the terms of the GNU General Public License as published by
5 the Free Software Foundation; version 2 dated June, 1991, or
6 (at your option) version 3 dated 29 June, 2007.
8 This program is distributed in the hope that it will be useful,
9 but WITHOUT ANY WARRANTY; without even the implied warranty of
10 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 GNU General Public License for more details.
13 You should have received a copy of the GNU General Public License
14 along with this program. If not, see <http://www.gnu.org/licenses/>.
21 static struct dhcp_lease
*leases
= NULL
, *old_leases
= NULL
;
22 static int dns_dirty
, file_dirty
, leases_left
;
24 void lease_init(time_t now
)
28 struct dhcp_lease
*lease
;
29 int clid_len
, hw_len
, hw_type
;
32 leases_left
= daemon
->dhcp_max
;
34 if (option_bool(OPT_LEASE_RO
))
36 /* run "<lease_change_script> init" once to get the
37 initial state of the database. If leasefile-ro is
38 set without a script, we just do without any
41 if (daemon
->lease_change_command
)
43 strcpy(daemon
->dhcp_buff
, daemon
->lease_change_command
);
44 strcat(daemon
->dhcp_buff
, " init");
45 leasestream
= popen(daemon
->dhcp_buff
, "r");
50 file_dirty
= dns_dirty
= 0;
57 /* NOTE: need a+ mode to create file if it doesn't exist */
58 leasestream
= daemon
->lease_stream
= fopen(daemon
->lease_file
, "a+");
61 die(_("cannot open or create lease file %s: %s"), daemon
->lease_file
, EC_FILE
);
63 /* a+ mode leaves pointer at end. */
67 /* client-id max length is 255 which is 255*2 digits + 254 colons
68 borrow DNS packet buffer which is always larger than 1000 bytes */
70 while (fscanf(leasestream
, "%255s %255s", daemon
->dhcp_buff3
, daemon
->dhcp_buff2
) == 2)
73 if (strcmp(daemon
->dhcp_buff3
, "duid") == 0)
75 daemon
->duid_len
= parse_hex(daemon
->dhcp_buff2
, (unsigned char *)daemon
->dhcp_buff2
, 130, NULL
, NULL
);
76 daemon
->duid
= safe_malloc(daemon
->duid_len
);
77 memcpy(daemon
->duid
, daemon
->dhcp_buff2
, daemon
->duid_len
);
82 ei
= atol(daemon
->dhcp_buff3
);
84 if (fscanf(leasestream
, " %64s %255s %764s",
85 daemon
->namebuff
, daemon
->dhcp_buff
, daemon
->packet
) != 3)
89 if (strcmp(daemon
->packet
, "*") != 0)
90 clid_len
= parse_hex(daemon
->packet
, (unsigned char *)daemon
->packet
, 255, NULL
, NULL
);
92 if (inet_pton(AF_INET
, daemon
->namebuff
, &addr
.addr
.addr4
) &&
93 (lease
= lease4_allocate(addr
.addr
.addr4
)))
95 hw_len
= parse_hex(daemon
->dhcp_buff2
, (unsigned char *)daemon
->dhcp_buff2
, DHCP_CHADDR_MAX
, NULL
, &hw_type
);
96 /* For backwards compatibility, no explict MAC address type means ether. */
97 if (hw_type
== 0 && hw_len
!= 0)
98 hw_type
= ARPHRD_ETHER
;
100 lease_set_hwaddr(lease
, (unsigned char *)daemon
->dhcp_buff2
, (unsigned char *)daemon
->packet
,
101 hw_len
, hw_type
, clid_len
, now
, 0);
103 if (strcmp(daemon
->dhcp_buff
, "*") != 0)
104 lease_set_hostname(lease
, daemon
->dhcp_buff
, 0, get_domain(lease
->addr
), NULL
);
107 else if (inet_pton(AF_INET6
, daemon
->namebuff
, &addr
.addr
.addr6
))
109 char *s
= daemon
->dhcp_buff2
;
110 int lease_type
= LEASE_NA
;
114 lease_type
= LEASE_TA
;
118 hw_type
= strtoul(s
, NULL
, 10);
120 if ((lease
= lease6_allocate(&addr
.addr
.addr6
, lease_type
)))
122 lease_set_hwaddr(lease
, NULL
, (unsigned char *)daemon
->packet
, 0, hw_type
, clid_len
, now
, 0);
124 if (strcmp(daemon
->dhcp_buff
, "*") != 0)
125 lease_set_hostname(lease
, daemon
->dhcp_buff
, 0, get_domain6((struct in6_addr
*)lease
->hwaddr
), NULL
);
133 die (_("too many stored leases"), NULL
, EC_MISC
);
135 //Some ASUS & TOMATO tweaks
136 #if defined(HAVE_BROKEN_RTC) || defined(HAVE_LEASEFILE_EXPIRE)
138 lease
->expires
= (time_t)ei
+ now
;
140 lease
->expires
= (time_t)0;
141 #ifdef HAVE_BROKEN_RT
145 /* strictly time_t is opaque, but this hack should work on all sane
146 systems, even when sizeof(time_t) == 8 */
147 lease
->expires
= (time_t)ei
;
150 /* set these correctly: the "old" events are generated later from
151 the startup synthesised SIGHUP. */
152 lease
->flags
&= ~(LEASE_NEW
| LEASE_CHANGED
);
156 if (!daemon
->lease_stream
)
160 /* shell returns 127 for "command not found", 126 for bad permissions. */
161 if (!leasestream
|| (rc
= pclose(leasestream
)) == -1 || WEXITSTATUS(rc
) == 127 || WEXITSTATUS(rc
) == 126)
163 if (WEXITSTATUS(rc
) == 127)
165 else if (WEXITSTATUS(rc
) == 126)
167 die(_("cannot run lease-init script %s: %s"), daemon
->lease_change_command
, EC_FILE
);
170 if (WEXITSTATUS(rc
) != 0)
172 sprintf(daemon
->dhcp_buff
, "%d", WEXITSTATUS(rc
));
173 die(_("lease-init script returned exit code %s"), daemon
->dhcp_buff
, WEXITSTATUS(rc
) + EC_INIT_OFFSET
);
178 /* Some leases may have expired */
180 lease_prune(NULL
, now
);
184 void lease_update_from_configs(void)
186 /* changes to the config may change current leases. */
188 struct dhcp_lease
*lease
;
189 struct dhcp_config
*config
;
192 for (lease
= leases
; lease
; lease
= lease
->next
)
193 if ((config
= find_config(daemon
->dhcp_conf
, NULL
, lease
->clid
, lease
->clid_len
,
194 lease
->hwaddr
, lease
->hwaddr_len
, lease
->hwaddr_type
, NULL
)) &&
195 (config
->flags
& CONFIG_NAME
) &&
196 (!(config
->flags
& CONFIG_ADDR
) || config
->addr
.s_addr
== lease
->addr
.s_addr
))
197 lease_set_hostname(lease
, config
->hostname
, 1, get_domain(lease
->addr
), NULL
);
198 else if ((name
= host_from_dns(lease
->addr
)))
199 lease_set_hostname(lease
, name
, 1, get_domain(lease
->addr
), NULL
); /* updates auth flag only */
202 static void ourprintf(int *errp
, char *format
, ...)
206 va_start(ap
, format
);
207 if (!(*errp
) && vfprintf(daemon
->lease_stream
, format
, ap
) < 0)
212 void lease_update_file(time_t now
)
214 struct dhcp_lease
*lease
;
218 if (file_dirty
!= 0 && daemon
->lease_stream
)
221 rewind(daemon
->lease_stream
);
222 if (errno
!= 0 || ftruncate(fileno(daemon
->lease_stream
), 0) != 0)
225 for (lease
= leases
; lease
; lease
= lease
->next
)
229 if (lease
->flags
& (LEASE_TA
| LEASE_NA
))
233 //ASUS and TOMATO tweaks to output remaining leasetime
234 #ifdef HAVE_LEASEFILE_EXPIRE
235 ourprintf(&err
, "%u ",
236 #ifdef HAVE_BROKEN_RTC
237 (lease
->length
== 0) ? 0 :
239 (lease
->expires
== 0) ? 0 :
241 (unsigned int)difftime(lease
->expires
, now
));
242 #elif defined(HAVE_BROKEN_RTC)
243 ourprintf(&err
, "%u ", lease
->length
);
245 ourprintf(&err
, "%lu ", (unsigned long)lease
->expires
);
248 if (lease
->hwaddr_type
!= ARPHRD_ETHER
|| lease
->hwaddr_len
== 0)
249 ourprintf(&err
, "%.2x-", lease
->hwaddr_type
);
250 for (i
= 0; i
< lease
->hwaddr_len
; i
++)
252 ourprintf(&err
, "%.2x", lease
->hwaddr
[i
]);
253 if (i
!= lease
->hwaddr_len
- 1)
254 ourprintf(&err
, ":");
257 inet_ntop(AF_INET
, &lease
->addr
, daemon
->addrbuff
, ADDRSTRLEN
);
259 ourprintf(&err
, " %s ", daemon
->addrbuff
);
260 ourprintf(&err
, "%s ", lease
->hostname
? lease
->hostname
: "*");
262 if (lease
->clid
&& lease
->clid_len
!= 0)
264 for (i
= 0; i
< lease
->clid_len
- 1; i
++)
265 ourprintf(&err
, "%.2x:", lease
->clid
[i
]);
266 ourprintf(&err
, "%.2x\n", lease
->clid
[i
]);
269 ourprintf(&err
, "*\n");
275 ourprintf(&err
, "duid ");
276 for (i
= 0; i
< daemon
->duid_len
- 1; i
++)
277 ourprintf(&err
, "%.2x:", daemon
->duid
[i
]);
278 ourprintf(&err
, "%.2x\n", daemon
->duid
[i
]);
280 for (lease
= leases
; lease
; lease
= lease
->next
)
283 if (!(lease
->flags
& (LEASE_TA
| LEASE_NA
)))
286 //ASUS and TOMATO tweaks to output remaining leasetime
287 #ifdef HAVE_LEASEFILE_EXPIRE
288 ourprintf(&err
, "%u ",
289 #ifdef HAVE_BROKEN_RTC
290 (lease
->length
== 0) ? 0 :
292 (lease
->expires
== 0) ? 0 :
294 (unsigned int)difftime(lease
->expires
, now
));
295 #elif defined(HAVE_BROKEN_RTC)
296 ourprintf(&err
, "%u ", lease
->length
);
298 ourprintf(&err
, "%lu ", (unsigned long)lease
->expires
);
301 inet_ntop(AF_INET6
, lease
->hwaddr
, daemon
->addrbuff
, ADDRSTRLEN
);
303 ourprintf(&err
, "%s%u %s ", (lease
->flags
& LEASE_TA
) ? "T" : "",
304 lease
->hwaddr_type
, daemon
->addrbuff
);
305 ourprintf(&err
, "%s ", lease
->hostname
? lease
->hostname
: "*");
307 if (lease
->clid
&& lease
->clid_len
!= 0)
309 for (i
= 0; i
< lease
->clid_len
- 1; i
++)
310 ourprintf(&err
, "%.2x:", lease
->clid
[i
]);
311 ourprintf(&err
, "%.2x\n", lease
->clid
[i
]);
314 ourprintf(&err
, "*\n");
319 if (fflush(daemon
->lease_stream
) != 0 ||
320 fsync(fileno(daemon
->lease_stream
)) < 0)
327 /* Set alarm for when the first lease expires + slop. */
331 /* do timed RAs and determine when the next is, also pings to potential SLAAC addresses */
332 if (daemon
->doing_ra
)
336 if ((event
= periodic_slaac(now
, leases
)) != 0)
338 if (next_event
== 0 || difftime(next_event
, event
) > 0.0)
342 if ((event
= periodic_ra(now
)) != 0)
344 if (next_event
== 0 || difftime(next_event
, event
) > 0.0)
350 for (lease
= leases
; lease
; lease
= lease
->next
)
351 if (lease
->expires
!= 0 &&
352 (next_event
== 0 || difftime(next_event
, lease
->expires
+ 10) > 0.0))
353 next_event
= lease
->expires
+ 10;
357 if (next_event
== 0 || difftime(next_event
, LEASE_RETRY
+ now
) > 0.0)
358 next_event
= LEASE_RETRY
+ now
;
360 my_syslog(MS_DHCP
| LOG_ERR
, _("failed to write %s: %s (retry in %us)"),
361 daemon
->lease_file
, strerror(err
),
362 (unsigned int)difftime(next_event
, now
));
365 send_alarm(next_event
, now
);
369 static int find_interface_v4(struct in_addr local
, int if_index
, char *label
,
370 struct in_addr netmask
, struct in_addr broadcast
, void *vparam
)
372 struct dhcp_lease
*lease
;
378 for (lease
= leases
; lease
; lease
= lease
->next
)
379 if (!(lease
->flags
& (LEASE_TA
| LEASE_NA
)))
380 if (is_same_net(local
, lease
->addr
, netmask
))
381 lease_set_interface(lease
, if_index
, *((time_t *)vparam
));
387 static int find_interface_v6(struct in6_addr
*local
, int prefix
,
388 int scope
, int if_index
, int flags
,
389 int preferred
, int valid
, void *vparam
)
391 struct dhcp_lease
*lease
;
398 for (lease
= leases
; lease
; lease
= lease
->next
)
399 if ((lease
->flags
& (LEASE_TA
| LEASE_NA
)))
400 if (is_same_net6(local
, (struct in6_addr
*)&lease
->hwaddr
, prefix
))
401 lease_set_interface(lease
, if_index
, *((time_t *)vparam
));
406 void lease_ping_reply(struct in6_addr
*sender
, unsigned char *packet
, char *interface
)
408 /* We may be doing RA but not DHCPv4, in which case the lease
409 database may not exist and we have nothing to do anyway */
411 slaac_ping_reply(sender
, packet
, interface
, leases
);
414 void lease_update_slaac(time_t now
)
416 /* Called when we contruct a new RA-names context, to add putative
417 new SLAAC addresses to existing leases. */
419 struct dhcp_lease
*lease
;
422 for (lease
= leases
; lease
; lease
= lease
->next
)
423 slaac_add_addrs(lease
, now
, 0);
429 /* Find interfaces associated with leases at start-up. This gets updated as
430 we do DHCP transactions, but information about directly-connected subnets
431 is useful from scrips and necessary for determining SLAAC addresses from
433 void lease_find_interfaces(time_t now
)
435 iface_enumerate(AF_INET
, &now
, find_interface_v4
);
437 iface_enumerate(AF_INET6
, &now
, find_interface_v6
);
439 /* If we're not doing DHCPv6, and there are not v6 leases, don't add the DUID to the database */
440 if (!daemon
->duid
&& daemon
->dhcp6
)
450 void lease_update_dns(int force
)
452 struct dhcp_lease
*lease
;
454 if (daemon
->port
!= 0 && (dns_dirty
|| force
))
456 #ifndef HAVE_BROKEN_RTC
457 /* force transfer to authoritative secondaries */
463 for (lease
= leases
; lease
; lease
= lease
->next
)
468 if (lease
->flags
& (LEASE_TA
| LEASE_NA
))
470 else if (lease
->hostname
|| lease
->fqdn
)
472 struct slaac_address
*slaac
;
474 for (slaac
= lease
->slaac_address
; slaac
; slaac
= slaac
->next
)
475 if (slaac
->backoff
== 0)
478 cache_add_dhcp_entry(lease
->fqdn
, AF_INET6
, (struct all_addr
*)&slaac
->addr
, lease
->expires
);
479 if (!option_bool(OPT_DHCP_FQDN
) && lease
->hostname
)
480 cache_add_dhcp_entry(lease
->hostname
, AF_INET6
, (struct all_addr
*)&slaac
->addr
, lease
->expires
);
486 cache_add_dhcp_entry(lease
->fqdn
, prot
,
487 prot
== AF_INET
? (struct all_addr
*)&lease
->addr
: (struct all_addr
*)&lease
->hwaddr
,
490 if (!option_bool(OPT_DHCP_FQDN
) && lease
->hostname
)
491 cache_add_dhcp_entry(lease
->hostname
, prot
,
492 prot
== AF_INET
? (struct all_addr
*)&lease
->addr
: (struct all_addr
*)&lease
->hwaddr
,
500 void lease_prune(struct dhcp_lease
*target
, time_t now
)
502 struct dhcp_lease
*lease
, *tmp
, **up
;
504 for (lease
= leases
, up
= &leases
; lease
; lease
= tmp
)
507 if ((lease
->expires
!= 0 && difftime(now
, lease
->expires
) > 0) || lease
== target
)
513 *up
= lease
->next
; /* unlink */
515 /* Put on old_leases list 'till we
516 can run the script */
517 lease
->next
= old_leases
;
528 struct dhcp_lease
*lease_find_by_client(unsigned char *hwaddr
, int hw_len
, int hw_type
,
529 unsigned char *clid
, int clid_len
)
531 struct dhcp_lease
*lease
;
534 for (lease
= leases
; lease
; lease
= lease
->next
)
537 if (lease
->flags
& (LEASE_TA
| LEASE_NA
))
540 if (lease
->clid
&& clid_len
== lease
->clid_len
&&
541 memcmp(clid
, lease
->clid
, clid_len
) == 0)
545 for (lease
= leases
; lease
; lease
= lease
->next
)
548 if (lease
->flags
& (LEASE_TA
| LEASE_NA
))
551 if ((!lease
->clid
|| !clid
) &&
553 lease
->hwaddr_len
== hw_len
&&
554 lease
->hwaddr_type
== hw_type
&&
555 memcmp(hwaddr
, lease
->hwaddr
, hw_len
) == 0)
562 struct dhcp_lease
*lease_find_by_addr(struct in_addr addr
)
564 struct dhcp_lease
*lease
;
566 for (lease
= leases
; lease
; lease
= lease
->next
)
569 if (lease
->flags
& (LEASE_TA
| LEASE_NA
))
572 if (lease
->addr
.s_addr
== addr
.s_addr
)
580 /* find address for {CLID, IAID, address} */
581 struct dhcp_lease
*lease6_find(unsigned char *clid
, int clid_len
,
582 int lease_type
, int iaid
, struct in6_addr
*addr
)
584 struct dhcp_lease
*lease
;
586 for (lease
= leases
; lease
; lease
= lease
->next
)
588 if (!(lease
->flags
& lease_type
) || lease
->hwaddr_type
!= iaid
)
591 if (memcmp(lease
->hwaddr
, addr
, IN6ADDRSZ
) != 0)
594 if ((clid_len
!= lease
->clid_len
||
595 memcmp(clid
, lease
->clid
, clid_len
) != 0))
604 /* reset "USED flags */
605 void lease6_reset(void)
607 struct dhcp_lease
*lease
;
609 for (lease
= leases
; lease
; lease
= lease
->next
)
610 lease
->flags
&= ~LEASE_USED
;
613 /* enumerate all leases belonging to {CLID, IAID} */
614 struct dhcp_lease
*lease6_find_by_client(struct dhcp_lease
*first
, int lease_type
, unsigned char *clid
, int clid_len
, int iaid
)
616 struct dhcp_lease
*lease
;
623 for (lease
= first
; lease
; lease
= lease
->next
)
625 if (lease
->flags
& LEASE_USED
)
628 if (!(lease
->flags
& lease_type
) || lease
->hwaddr_type
!= iaid
)
631 if ((clid_len
!= lease
->clid_len
||
632 memcmp(clid
, lease
->clid
, clid_len
) != 0))
641 struct dhcp_lease
*lease6_find_by_addr(struct in6_addr
*net
, int prefix
, u64 addr
)
643 struct dhcp_lease
*lease
;
645 for (lease
= leases
; lease
; lease
= lease
->next
)
647 if (!(lease
->flags
& (LEASE_TA
| LEASE_NA
)))
650 if (is_same_net6((struct in6_addr
*)lease
->hwaddr
, net
, prefix
) &&
651 (prefix
== 128 || addr6part((struct in6_addr
*)lease
->hwaddr
) == addr
))
658 /* Find largest assigned address in context */
659 u64
lease_find_max_addr6(struct dhcp_context
*context
)
661 struct dhcp_lease
*lease
;
662 u64 addr
= addr6part(&context
->start6
);
664 if (!(context
->flags
& (CONTEXT_STATIC
| CONTEXT_PROXY
)))
665 for (lease
= leases
; lease
; lease
= lease
->next
)
667 if (!(lease
->flags
& (LEASE_TA
| LEASE_NA
)))
670 if (is_same_net6((struct in6_addr
*)lease
->hwaddr
, &context
->start6
, 64) &&
671 addr6part((struct in6_addr
*)lease
->hwaddr
) > addr6part(&context
->start6
) &&
672 addr6part((struct in6_addr
*)lease
->hwaddr
) <= addr6part(&context
->end6
) &&
673 addr6part((struct in6_addr
*)lease
->hwaddr
) > addr
)
674 addr
= addr6part((struct in6_addr
*)lease
->hwaddr
);
682 /* Find largest assigned address in context */
683 struct in_addr
lease_find_max_addr(struct dhcp_context
*context
)
685 struct dhcp_lease
*lease
;
686 struct in_addr addr
= context
->start
;
688 if (!(context
->flags
& (CONTEXT_STATIC
| CONTEXT_PROXY
)))
689 for (lease
= leases
; lease
; lease
= lease
->next
)
692 if (lease
->flags
& (LEASE_TA
| LEASE_NA
))
695 if (((unsigned)ntohl(lease
->addr
.s_addr
)) > ((unsigned)ntohl(context
->start
.s_addr
)) &&
696 ((unsigned)ntohl(lease
->addr
.s_addr
)) <= ((unsigned)ntohl(context
->end
.s_addr
)) &&
697 ((unsigned)ntohl(lease
->addr
.s_addr
)) > ((unsigned)ntohl(addr
.s_addr
)))
704 static struct dhcp_lease
*lease_allocate(void)
706 struct dhcp_lease
*lease
;
707 if (!leases_left
|| !(lease
= whine_malloc(sizeof(struct dhcp_lease
))))
710 memset(lease
, 0, sizeof(struct dhcp_lease
));
711 lease
->flags
= LEASE_NEW
;
713 #ifdef HAVE_BROKEN_RTC
714 lease
->length
= 0xffffffff; /* illegal value */
716 lease
->next
= leases
;
725 struct dhcp_lease
*lease4_allocate(struct in_addr addr
)
727 struct dhcp_lease
*lease
= lease_allocate();
731 lease
->hwaddr_len
= 256; /* illegal value */
738 struct dhcp_lease
*lease6_allocate(struct in6_addr
*addrp
, int lease_type
)
740 struct dhcp_lease
*lease
= lease_allocate();
744 memcpy(lease
->hwaddr
, addrp
, sizeof(*addrp
)) ;
745 lease
->flags
|= lease_type
;
752 void lease_set_expires(struct dhcp_lease
*lease
, unsigned int len
, time_t now
)
754 time_t exp
= now
+ (time_t)len
;
756 if (len
== 0xffffffff)
762 if (exp
!= lease
->expires
)
765 lease
->expires
= exp
;
766 #ifndef HAVE_BROKEN_RTC
767 lease
->flags
|= LEASE_AUX_CHANGED
;
772 #ifdef HAVE_BROKEN_RTC
773 if (len
!= lease
->length
)
776 lease
->flags
|= LEASE_AUX_CHANGED
;
782 void lease_set_hwaddr(struct dhcp_lease
*lease
, unsigned char *hwaddr
,
783 unsigned char *clid
, int hw_len
, int hw_type
, int clid_len
,
784 time_t now
, int force
)
788 lease
->flags
|= LEASE_HAVE_HWADDR
;
793 if (hw_len
!= lease
->hwaddr_len
||
794 hw_type
!= lease
->hwaddr_type
||
795 (hw_len
!= 0 && memcmp(lease
->hwaddr
, hwaddr
, hw_len
) != 0))
798 memcpy(lease
->hwaddr
, hwaddr
, hw_len
);
799 lease
->hwaddr_len
= hw_len
;
800 lease
->hwaddr_type
= hw_type
;
801 lease
->flags
|= LEASE_CHANGED
;
802 file_dirty
= 1; /* run script on change */
808 /* only update clid when one is available, stops packets
809 without a clid removing the record. Lease init uses
810 clid_len == 0 for no clid. */
811 if (clid_len
!= 0 && clid
)
816 if (lease
->clid_len
!= clid_len
)
818 lease
->flags
|= LEASE_AUX_CHANGED
;
821 if (!(lease
->clid
= whine_malloc(clid_len
)))
827 else if (memcmp(lease
->clid
, clid
, clid_len
) != 0)
829 lease
->flags
|= LEASE_AUX_CHANGED
;
836 lease
->clid_len
= clid_len
;
837 memcpy(lease
->clid
, clid
, clid_len
);
842 slaac_add_addrs(lease
, now
, force
);
846 static void kill_name(struct dhcp_lease
*lease
)
848 /* run script to say we lost our old name */
850 /* this shouldn't happen unless updates are very quick and the
851 script very slow, we just avoid a memory leak if it does. */
852 free(lease
->old_hostname
);
854 /* If we know the fqdn, pass that. The helper will derive the
855 unqualified name from it, free the unqualified name here. */
859 lease
->old_hostname
= lease
->fqdn
;
860 free(lease
->hostname
);
863 lease
->old_hostname
= lease
->hostname
;
865 lease
->hostname
= lease
->fqdn
= NULL
;
868 void lease_set_hostname(struct dhcp_lease
*lease
, char *name
, int auth
, char *domain
, char *config_domain
)
870 struct dhcp_lease
*lease_tmp
;
871 char *new_name
= NULL
, *new_fqdn
= NULL
;
873 if (config_domain
&& (!domain
|| !hostname_isequal(domain
, config_domain
)))
874 my_syslog(MS_DHCP
| LOG_WARNING
, _("Ignoring domain %s for DHCP host name %s"), config_domain
, name
);
876 if (lease
->hostname
&& name
&& hostname_isequal(lease
->hostname
, name
))
879 lease
->flags
|= LEASE_AUTH_NAME
;
883 if (!name
&& !lease
->hostname
)
886 /* If a machine turns up on a new net without dropping the old lease,
887 or two machines claim the same name, then we end up with two interfaces with
888 the same name. Check for that here and remove the name from the old lease.
889 Note that IPv6 leases are different. All the leases to the same DUID are
890 allowed the same name.
892 Don't allow a name from the client to override a name from dnsmasq config. */
896 if ((new_name
= whine_malloc(strlen(name
) + 1)))
898 strcpy(new_name
, name
);
899 if (domain
&& (new_fqdn
= whine_malloc(strlen(new_name
) + strlen(domain
) + 2)))
901 strcpy(new_fqdn
, name
);
902 strcat(new_fqdn
, ".");
903 strcat(new_fqdn
, domain
);
907 /* Depending on mode, we check either unqualified name or FQDN. */
908 for (lease_tmp
= leases
; lease_tmp
; lease_tmp
= lease_tmp
->next
)
910 if (option_bool(OPT_DHCP_FQDN
))
912 if (!new_fqdn
|| !lease_tmp
->fqdn
|| !hostname_isequal(lease_tmp
->fqdn
, new_fqdn
))
917 if (!new_name
|| !lease_tmp
->hostname
|| !hostname_isequal(lease_tmp
->hostname
, new_name
) )
921 if (lease
->flags
& (LEASE_TA
| LEASE_NA
))
923 if (!(lease_tmp
->flags
& (LEASE_TA
| LEASE_NA
)))
926 /* another lease for the same DUID is OK for IPv6 */
927 if (lease
->clid_len
== lease_tmp
->clid_len
&&
928 lease
->clid
&& lease_tmp
->clid
&&
929 memcmp(lease
->clid
, lease_tmp
->clid
, lease
->clid_len
) == 0)
932 else if (lease_tmp
->flags
& (LEASE_TA
| LEASE_NA
))
935 if ((lease_tmp
->flags
& LEASE_AUTH_NAME
) && !auth
)
942 kill_name(lease_tmp
);
950 lease
->hostname
= new_name
;
951 lease
->fqdn
= new_fqdn
;
954 lease
->flags
|= LEASE_AUTH_NAME
;
958 lease
->flags
|= LEASE_CHANGED
; /* run script on change */
961 void lease_set_interface(struct dhcp_lease
*lease
, int interface
, time_t now
)
963 if (lease
->last_interface
== interface
)
966 lease
->last_interface
= interface
;
967 lease
->flags
|= LEASE_CHANGED
;
970 slaac_add_addrs(lease
, now
, 0);
974 void rerun_scripts(void)
976 struct dhcp_lease
*lease
;
978 for (lease
= leases
; lease
; lease
= lease
->next
)
979 lease
->flags
|= LEASE_CHANGED
;
982 /* deleted leases get transferred to the old_leases list.
983 remove them here, after calling the lease change
984 script. Also run the lease change script on new/modified leases.
986 Return zero if nothing to do. */
987 int do_script_run(time_t now
)
989 struct dhcp_lease
*lease
;
992 /* If we're going to be sending DBus signals, but the connection is not yet up,
993 delay everything until it is. */
994 if (option_bool(OPT_DBUS
) && !daemon
->dbus
)
1002 /* If the lease still has an old_hostname, do the "old" action on that first */
1003 if (lease
->old_hostname
)
1006 queue_script(ACTION_OLD_HOSTNAME
, lease
, lease
->old_hostname
, now
);
1008 free(lease
->old_hostname
);
1009 lease
->old_hostname
= NULL
;
1015 struct slaac_address
*slaac
, *tmp
;
1016 for (slaac
= lease
->slaac_address
; slaac
; slaac
= tmp
)
1024 queue_script(ACTION_DEL
, lease
, lease
->old_hostname
, now
);
1027 emit_dbus_signal(ACTION_DEL
, lease
, lease
->old_hostname
);
1029 old_leases
= lease
->next
;
1031 free(lease
->old_hostname
);
1033 free(lease
->extradata
);
1040 /* make sure we announce the loss of a hostname before its new location. */
1041 for (lease
= leases
; lease
; lease
= lease
->next
)
1042 if (lease
->old_hostname
)
1045 queue_script(ACTION_OLD_HOSTNAME
, lease
, lease
->old_hostname
, now
);
1047 free(lease
->old_hostname
);
1048 lease
->old_hostname
= NULL
;
1052 for (lease
= leases
; lease
; lease
= lease
->next
)
1053 if ((lease
->flags
& (LEASE_NEW
| LEASE_CHANGED
)) ||
1054 ((lease
->flags
& LEASE_AUX_CHANGED
) && option_bool(OPT_LEASE_RO
)))
1057 queue_script((lease
->flags
& LEASE_NEW
) ? ACTION_ADD
: ACTION_OLD
, lease
,
1058 lease
->fqdn
? lease
->fqdn
: lease
->hostname
, now
);
1061 emit_dbus_signal((lease
->flags
& LEASE_NEW
) ? ACTION_ADD
: ACTION_OLD
, lease
,
1062 lease
->fqdn
? lease
->fqdn
: lease
->hostname
);
1064 lease
->flags
&= ~(LEASE_NEW
| LEASE_CHANGED
| LEASE_AUX_CHANGED
);
1066 /* this is used for the "add" call, then junked, since they're not in the database */
1067 free(lease
->extradata
);
1068 lease
->extradata
= NULL
;
1073 return 0; /* nothing to do */
1077 void lease_add_extradata(struct dhcp_lease
*lease
, unsigned char *data
, unsigned int len
, int delim
)
1081 /* check for embeded NULLs */
1082 for (i
= 0; i
< len
; i
++)
1089 if ((lease
->extradata_size
- lease
->extradata_len
) < (len
+ 1))
1091 size_t newsz
= lease
->extradata_len
+ len
+ 100;
1092 unsigned char *new = whine_malloc(newsz
);
1097 if (lease
->extradata
)
1099 memcpy(new, lease
->extradata
, lease
->extradata_len
);
1100 free(lease
->extradata
);
1103 lease
->extradata
= new;
1104 lease
->extradata_size
= newsz
;
1108 memcpy(lease
->extradata
+ lease
->extradata_len
, data
, len
);
1109 lease
->extradata
[lease
->extradata_len
+ len
] = delim
;
1110 lease
->extradata_len
+= len
+ 1;
1116 void tomato_helper(time_t now
)
1121 struct dhcp_lease
*lease
;
1123 // if delete exists...
1124 if ((f
= fopen("/var/tmp/dhcp/delete", "r")) != NULL
) {
1125 while (fgets(buf
, sizeof(buf
), f
)) {
1126 ia
.s_addr
= inet_addr(buf
);
1127 lease
= lease_find_by_addr(ia
);
1129 lease_prune(lease
, 0);
1130 lease_update_file(now
);
1134 unlink("/var/tmp/dhcp/delete");
1137 // dump the leases file
1138 if ((f
= fopen("/var/tmp/dhcp/leases.!", "w")) != NULL
) {
1139 for (lease
= leases
; lease
; lease
= lease
->next
) {
1140 if (lease
->hwaddr_type
== ARPHRD_ETHER
) {
1141 fprintf(f
, "%lu %02X:%02X:%02X:%02X:%02X:%02X %s %s\n",
1142 lease
->expires
- now
,
1143 lease
->hwaddr
[0], lease
->hwaddr
[1], lease
->hwaddr
[2], lease
->hwaddr
[3], lease
->hwaddr
[4], lease
->hwaddr
[5],
1144 inet_ntoa(lease
->addr
),
1145 ((lease
->hostname
) && (strlen(lease
->hostname
) > 0)) ? lease
->hostname
: "*");
1149 rename("/var/tmp/dhcp/leases.!", "/var/tmp/dhcp/leases");
1152 #endif //HAVE_TOMATO
1154 #ifdef HAVE_LEASEFILE_EXPIRE
1155 void flush_lease_file(time_t now
)
1157 static time_t flush_time
= (time_t)0;
1159 if(difftime(flush_time
, now
) < 0)
1162 lease_prune(NULL
, now
);
1163 lease_update_file(now
);
1165 if (file_dirty
== 0)
1168 #endif //HAVE_LEASEFILE_EXPIRE