34 static void commit_leases_ackout(
void *foo);
35 static void maybe_return_agent_options(
struct packet *
packet,
45 static struct timeval max_fsync;
53 static char dhcp_message [256];
54 static int site_code_min;
56 static int find_min_site_code(
struct universe *);
57 static isc_result_t lowest_site_code(
const void *,
unsigned,
void *);
59 static const char *dhcp_type_names [] = {
70 "DHCPLEASEUNASSIGNED",
77 # define send_packet trace_packet_send
87 memset (&client_identifier, 0,
sizeof client_identifier);
93 packet, (
struct lease *)0,
102 return "\"no client id\"";
112 packet -> raw -> hlen,
113 packet -> raw -> chaddr);
130 errmsg =
"unknown network segment";
142 log_info(
"%s from %s via %s: %s", s,
145 :
"<no identifier>"),
181 cip.
len =
sizeof packet -> raw -> ciaddr;
182 memcpy (cip.
iabuf, &packet -> raw -> ciaddr,
183 sizeof packet -> raw -> ciaddr);
198 if (lease -> uid_len) {
208 memset (&data, 0,
sizeof data);
210 packet, (
struct lease *)0,
216 if (lease -> uid_len != data.
len ||
217 memcmp (lease -> uid, data.
data, data.
len)) {
223 if ((lease -> hardware_addr.hbuf [0] !=
224 packet -> raw -> htype) ||
225 (lease -> hardware_addr.hlen - 1 !=
226 packet -> raw -> hlen) ||
227 memcmp (&lease -> hardware_addr.hbuf [1],
228 packet -> raw -> chaddr,
229 packet -> raw -> hlen))
258 switch (packet -> packet_type) {
292 errmsg =
"unknown packet type";
297 lease_dereference (&lease,
MDL);
308 int peer_has_leases = 0;
309 #if defined (FAILOVER_PROTOCOL)
310 dhcp_failover_state_t *peer;
316 0, &peer_has_leases, (
struct lease *)0,
MDL);
323 s =
"Hostname Unsuitable for Printing";
330 snprintf (msgbuf,
sizeof msgbuf,
"DHCPDISCOVER from %s %s%s%svia %s",
331 (packet -> raw -> htype
335 :
"<no identifier>")),
336 s ?
"(" :
"", s ? s :
"", s ?
") " :
"",
337 packet -> raw ->
giaddr.s_addr
338 ? inet_ntoa (packet -> raw ->
giaddr)
339 : packet -> interface -> name);
343 log_info (
"Packet from unknown subnet: %s",
344 inet_ntoa (packet -> raw ->
giaddr));
348 #if defined (FAILOVER_PROTOCOL)
349 if (lease && lease ->
pool && lease ->
pool -> failover_peer) {
350 peer = lease ->
pool -> failover_peer;
370 #if defined (DEBUG_FIND_LEASE)
375 lease_dereference (&lease,
MDL);
386 log_error (
"%s: peer holds all free leases",
389 log_error (
"%s: network %s: no free leases",
396 #if defined (FAILOVER_PROTOCOL)
397 if (lease && lease ->
pool && lease ->
pool -> failover_peer) {
398 peer = lease ->
pool -> failover_peer;
402 msgbuf, peer -> nrr);
406 peer = (dhcp_failover_state_t *)0;
411 if (peer_has_leases) {
412 log_debug (
"%s: load balance to peer %s",
413 msgbuf, peer -> name);
416 log_debug (
"%s: cancel load balance to peer %s - %s",
417 msgbuf, peer -> name,
"no free leases");
423 if (lease -> ends < cur_time && lease ->
scope)
429 if (when < lease ->
ends)
430 when = lease ->
ends;
436 lease_dereference (&lease,
MDL);
444 struct
lease *ip_lease;
456 #if defined (FAILOVER_PROTOCOL)
457 dhcp_failover_state_t *peer;
459 int have_requested_addr = 0;
465 memset (&data, 0,
sizeof data);
474 have_requested_addr = 1;
478 memcpy (cip.
iabuf, &packet -> raw -> ciaddr.s_addr, 4);
484 subnet = (
struct subnet *)0;
485 lease = (
struct lease *)0;
495 s =
"Hostname Unsuitable for Printing";
501 memset (&data, 0,
sizeof data);
513 sprintf (smbuf,
" (%s)",
piaddr (sip));
522 snprintf (msgbuf,
sizeof msgbuf,
523 "DHCPREQUEST for %s%s from %s %s%s%svia %s",
525 (packet -> raw -> htype
529 :
"<no identifier>")),
530 s ?
"(" :
"", s ? s :
"", s ?
") " :
"",
531 packet -> raw ->
giaddr.s_addr
532 ? inet_ntoa (packet -> raw ->
giaddr)
533 : packet -> interface -> name);
535 #if defined (FAILOVER_PROTOCOL)
536 if (lease && lease ->
pool && lease ->
pool -> failover_peer) {
537 peer = lease ->
pool -> failover_peer;
541 msgbuf, peer -> nrr);
566 log_debug (
"%s: lease owned by peer", msgbuf);
580 log_debug(
"%s: lease in transition state %s", msgbuf,
582 ?
"released" :
"expired");
591 log_debug (
"%s: lease reset by administrator", msgbuf);
605 (memcmp(sip.
iabuf,
"\0\0\0\0", sip.
len) != 0)) {
613 if (memcmp(sip.
iabuf, &from, sip.
len) != 0) {
614 log_debug(
"%s: not our server id", msgbuf);
643 peer = (dhcp_failover_state_t *)0;
689 (packet -> raw -> ciaddr.s_addr &&
690 packet -> raw ->
giaddr.s_addr) ||
691 (have_requested_addr && !packet -> raw -> ciaddr.s_addr)) {
697 if (subnet && subnet ->
group -> authoritative) {
698 log_info (
"%s: wrong network.", msgbuf);
703 log_info (
"%s: ignored (%s).", msgbuf,
705 ?
"not authoritative" :
"unknown subnet"));
712 subnet_dereference (&subnet,
MDL);
717 log_info (
"%s: wrong network.", msgbuf);
721 log_info (
"%s: ignored (not authoritative).", msgbuf);
728 if (!lease && ours) {
746 subnet_dereference (&subnet,
MDL);
748 lease_dereference (&lease,
MDL);
756 struct lease *
lease = (
struct lease *)0, *
next = (
struct lease *)0;
761 char msgbuf [1024], cstr[16];
770 log_info (
"DHCPRELEASE from %s specified requested-address.",
779 memset (&data, 0,
sizeof data);
792 lease_reference (&next, lease -> n_uid,
MDL);
793 if (!memcmp (&packet -> raw -> ciaddr,
797 lease_dereference (&lease,
MDL);
799 lease_reference (&lease, next,
MDL);
800 lease_dereference (&next,
MDL);
804 lease_dereference (&next,
MDL);
812 memcpy (cip.
iabuf, &packet -> raw -> ciaddr, 4);
819 (lease -> hardware_addr.hlen != packet -> raw -> hlen + 1 ||
820 lease -> hardware_addr.hbuf [0] != packet -> raw -> htype ||
821 memcmp (&lease -> hardware_addr.hbuf [1],
822 packet -> raw -> chaddr, packet -> raw -> hlen)))
823 lease_dereference (&lease,
MDL);
825 if (lease && lease -> client_hostname) {
826 if ((strlen (lease -> client_hostname) <= 64) &&
828 s = lease -> client_hostname;
830 s =
"Hostname Unsuitable for Printing";
838 strncpy(cstr, inet_ntoa (packet -> raw -> ciaddr), 15);
844 snprintf (msgbuf,
sizeof msgbuf,
845 "DHCPRELEASE of %s from %s %s%s%svia %s (%sfound)",
847 (packet -> raw -> htype
851 :
"<no identifier>")),
852 s ?
"(" :
"", s ? s :
"", s ?
") " :
"",
853 packet -> raw ->
giaddr.s_addr
854 ? inet_ntoa (packet -> raw ->
giaddr)
855 : packet -> interface -> name,
856 lease ?
"" :
"not ");
858 #if defined (FAILOVER_PROTOCOL)
859 if (lease && lease ->
pool && lease ->
pool -> failover_peer) {
860 dhcp_failover_state_t *peer = lease ->
pool -> failover_peer;
864 peer -> name, peer -> nrr);
878 if (lease && lease -> ends >
cur_time) {
882 #if defined(FAILOVER_PROTOCOL)
886 lease_dereference (&lease,
MDL);
912 memset (&data, 0,
sizeof data);
925 if (lease && lease -> client_hostname) {
926 if ((strlen (lease -> client_hostname) <= 64) &&
928 s = lease -> client_hostname;
930 s =
"Hostname Unsuitable for Printing";
937 snprintf (msgbuf,
sizeof msgbuf,
938 "DHCPDECLINE of %s from %s %s%s%svia %s",
940 (packet -> raw -> htype
944 :
"<no identifier>")),
945 s ?
"(" :
"", s ? s :
"", s ?
") " :
"",
946 packet -> raw ->
giaddr.s_addr
947 ? inet_ntoa (packet -> raw ->
giaddr)
948 : packet -> interface -> name);
955 packet->options, options,
961 for (i = packet -> class_count; i > 0; i--) {
963 (NULL, packet, NULL, NULL, packet->options, options,
973 packet -> options, options,
974 &lease -> scope, oc,
MDL)) {
977 #if defined (FAILOVER_PROTOCOL)
978 if (lease ->
pool && lease ->
pool -> failover_peer) {
979 dhcp_failover_state_t *peer =
980 lease ->
pool -> failover_peer;
985 peer -> name, peer -> nrr);
997 status =
"abandoned";
999 status =
"not found";
1005 log_info (
"%s: %s", msgbuf, status);
1007 #if defined(FAILOVER_PROTOCOL)
1013 lease_dereference (&lease,
MDL);
1022 char msgbuf[1024], *addr_type;
1027 struct packet outgoing;
1030 struct iaddr cip, gip, sip;
1033 struct sockaddr_in to;
1034 struct in_addr from;
1035 isc_boolean_t zeroed_ciaddr;
1037 int result, h_m_client_ip = 0;
1038 struct host_decl *host = NULL, *hp = NULL, *h;
1039 #if defined (DEBUG_INFORM_HOST)
1040 int h_w_fixed_addr = 0;
1048 if (!packet->raw->ciaddr.s_addr) {
1049 zeroed_ciaddr = ISC_TRUE;
1051 memcpy(cip.
iabuf, &packet->client_addr.iabuf, 4);
1052 addr_type =
"source";
1054 zeroed_ciaddr = ISC_FALSE;
1056 memcpy(cip.
iabuf, &packet->raw->ciaddr, 4);
1057 addr_type =
"client";
1062 if (packet->raw->giaddr.s_addr) {
1064 memcpy(gip.
iabuf, &packet->raw->giaddr, 4);
1065 if (zeroed_ciaddr == ISC_TRUE) {
1066 addr_type =
"relay";
1075 snprintf(msgbuf,
sizeof(msgbuf),
"DHCPINFORM from %s via %s",
1077 packet->raw->giaddr.s_addr ?
1078 inet_ntoa(packet->raw->giaddr) :
1079 packet->interface->name);
1082 if (!memcmp(cip.
iabuf,
"\0\0\0", 4)) {
1083 log_info(
"%s: ignored (null source address).", msgbuf);
1098 memset(&d1, 0,
sizeof d1);
1100 packet->options, NULL,
1105 log_info(
"%s: ignored (invalid subnet selection option).", msgbuf);
1127 if ((zeroed_ciaddr == ISC_TRUE) && (gip.
len != 0))
1128 addr_type =
"relay link select";
1130 addr_type =
"selected";
1135 if (subnet == NULL) {
1136 log_info(
"%s: unknown subnet for %s address %s",
1137 msgbuf, addr_type,
piaddr(sip));
1148 log_info(
"%s: not authoritative for subnet %s",
1149 msgbuf,
piaddr (subnet -> net));
1151 log_info(
"If this DHCP server is authoritative for%s",
1153 log_info(
"please write an `authoritative;' directi%s",
1154 "ve either in the");
1155 log_info(
"subnet declaration or in some scope that%s",
1157 log_info(
"subnet declaration - for example, write %s",
1159 log_info(
"of the dhcpd.conf file.");
1163 subnet_dereference(&subnet,
MDL);
1168 memset(&outgoing, 0,
sizeof outgoing);
1169 memset(&raw, 0,
sizeof raw);
1170 outgoing.
raw = &raw;
1172 maybe_return_agent_options(packet, options);
1176 packet->options, options,
1181 for (i = packet->class_count; i > 0; i--) {
1183 packet->options, options,
1185 packet->classes[i - 1]->group,
1208 memset(&d1, 0,
sizeof(d1));
1211 packet->options, NULL,
1216 #if defined (DEBUG_INFORM_HOST)
1218 log_debug (
"dhcpinform: found host by ID "
1219 "-- checking fixed-address match");
1223 for (h = hp; !h_m_client_ip && h; h = h->n_ipaddr) {
1227 memset(&fixed_addr, 0,
sizeof(fixed_addr));
1229 NULL, NULL, NULL, NULL,
1231 h->fixed_addr,
MDL))
1234 #if defined (DEBUG_INFORM_HOST)
1238 (i + cip.
len) <= fixed_addr.
len;
1240 if (memcmp(fixed_addr.
data + i,
1242 #if defined (DEBUG_INFORM_HOST)
1244 "host with matching "
1245 "fixed-address by ID");
1247 host_reference(&host, h,
MDL);
1256 for (h = hp; !host && h; h = h->
n_ipaddr) {
1260 #if defined (DEBUG_INFORM_HOST)
1262 "without fixed-address by ID");
1264 host_reference(&host, h,
MDL);
1268 host_dereference (&hp,
MDL);
1270 if (!host || !h_m_client_ip) {
1272 packet->raw->chaddr,
1273 packet->raw->hlen,
MDL);
1275 #if defined (DEBUG_INFORM_HOST)
1277 log_debug (
"dhcpinform: found host by HW "
1278 "-- checking fixed-address match");
1283 for (h = hp; !h_m_client_ip && h; h = h->n_ipaddr) {
1287 memset (&fixed_addr, 0,
sizeof(fixed_addr));
1289 NULL, NULL, NULL, NULL,
1291 h->fixed_addr,
MDL))
1294 #if defined (DEBUG_INFORM_HOST)
1298 (i + cip.
len) <= fixed_addr.
len;
1300 if (memcmp(fixed_addr.
data + i,
1302 #if defined (DEBUG_INFORM_HOST)
1304 "host with matching "
1305 "fixed-address by HW");
1313 host_dereference(&host,
MDL);
1314 host_reference(&host, h,
MDL);
1322 for (h = hp; !host && h; h = h->
n_ipaddr) {
1326 #if defined (DEBUG_INFORM_HOST)
1327 log_debug (
"dhcpinform: found host without "
1328 "fixed-address by HW");
1330 host_reference (&host, h,
MDL);
1335 host_dereference (&hp,
MDL);
1338 #if defined (DEBUG_INFORM_HOST)
1343 if (h_w_fixed_addr && !h_m_client_ip) {
1344 log_info (
"dhcpinform: matching host with "
1345 "fixed-address different than "
1346 "client IP detected?!");
1354 #if defined (DEBUG_INFORM_HOST)
1355 log_info (
"dhcpinform: applying host (group) options");
1358 packet->options, options,
1362 host_dereference (&host,
MDL);
1368 memset (&d1, 0,
sizeof d1);
1376 if (i >=
sizeof(raw.
file)) {
1377 log_info(
"file name longer than packet field "
1378 "truncated - field: %lu name: %d %.*s",
1379 (
unsigned long)
sizeof(raw.
file), i,
1381 i =
sizeof(raw.
file);
1396 if (i >=
sizeof(raw.
sname)) {
1397 log_info(
"server name longer than packet field "
1398 "truncated - field: %lu name: %d %.*s",
1399 (
unsigned long)
sizeof(raw.
sname), i,
1401 i =
sizeof(raw.
sname);
1422 &dhcpack, 1, 0, 0,
MDL)) {
1423 option_code_hash_lookup(&oc->
option,
1440 subnet -> netmask.iabuf,
1441 subnet -> netmask.len,
1443 option_code_hash_lookup(&oc->
option,
1458 packet -> options, options,
1463 (
const char *)d1.
data, d1.
len,
1468 subnet_dereference (&subnet,
MDL);
1472 options -> site_universe = u ->
index;
1480 memset (&prl, 0,
sizeof prl);
1497 packet -> options, options,
1502 dump_raw ((
unsigned char *)packet -> raw, packet -> packet_length);
1512 packet -> options, options,
1545 raw.
ciaddr = packet -> raw -> ciaddr;
1546 memcpy (raw.
chaddr, packet -> raw -> chaddr,
sizeof raw.
chaddr);
1547 raw.
hlen = packet -> raw -> hlen;
1548 raw.
htype = packet -> raw -> htype;
1550 raw.
xid = packet -> raw -> xid;
1551 raw.
secs = packet -> raw -> secs;
1552 raw.
flags = packet -> raw -> flags;
1553 raw.
hops = packet -> raw -> hops;
1562 to.sin_family = AF_INET;
1564 to.sin_len =
sizeof to;
1566 memset (to.sin_zero, 0,
sizeof to.sin_zero);
1587 memcpy(&to.sin_addr, gip.
iabuf, 4);
1592 memcpy(&to.sin_addr, cip.
iabuf, 4);
1597 snprintf(msgbuf,
sizeof msgbuf,
"DHCPACK to %s (%s) via",
piaddr(cip),
1598 (packet->raw->htype && packet->raw->hlen) ?
1600 "<no client hardware address>");
1602 packet->interface->name);
1606 : packet -> interface);
1608 outgoing.packet_length, from, &to, NULL);
1610 log_error ("%s:%d: Failed to send %d byte long packet over %s "
1611 "interface.", MDL, outgoing.packet_length,
1617 subnet_dereference (&subnet, MDL);
1619 TRACE(DHCPD_INFORM_DONE());
1635 struct packet *packet;
1637 struct
group *network_group;
1639 struct sockaddr_in to;
1640 struct in_addr from;
1644 struct packet outgoing;
1653 memset (&outgoing, 0,
sizeof outgoing);
1654 memset (&raw, 0,
sizeof raw);
1659 log_error (
"No memory for DHCPNAK message type.");
1665 log_error (
"No memory for expr_const expression.");
1678 log_error (
"No memory for DHCPNAK message type.");
1683 (
unsigned char *)dhcp_message,
1684 strlen (dhcp_message), 1, 0,
MDL)) {
1685 log_error (
"No memory for expr_const expression.");
1701 #if defined(SERVER_ID_FOR_NAK)
1728 for (i = packet->class_count; i > 0; i--) {
1730 packet->options, eval_options,
1732 packet->classes[i - 1]->group,
1753 if (packet->interface->address_count)
1754 raw.
siaddr = packet->interface->addresses[0];
1756 memcpy (raw.
chaddr, packet -> raw -> chaddr,
sizeof raw.
chaddr);
1757 raw.
hlen = packet -> raw -> hlen;
1758 raw.
htype = packet -> raw -> htype;
1760 raw.
xid = packet -> raw -> xid;
1761 raw.
secs = packet -> raw -> secs;
1763 raw.
hops = packet -> raw -> hops;
1767 log_info (
"DHCPNAK on %s to %s via %s",
1770 packet -> raw ->
giaddr.s_addr
1771 ? inet_ntoa (packet -> raw ->
giaddr)
1772 : packet -> interface -> name);
1776 dump_raw ((
unsigned char *)packet -> raw, packet -> packet_length);
1782 to.sin_family = AF_INET;
1784 to.sin_len =
sizeof to;
1786 memset (to.sin_zero, 0,
sizeof to.sin_zero);
1795 to.sin_addr = raw.
giaddr;
1796 if (raw.
giaddr.s_addr != htonl (INADDR_LOOPBACK))
1801 if (fallback_interface) {
1802 result =
send_packet(fallback_interface, packet, &raw,
1806 log_error (
"%s:%d: Failed to send %d byte long "
1807 "packet over %s interface.",
MDL,
1809 fallback_interface->name);
1820 result =
send_packet(packet->interface, packet, &raw,
1823 log_error (
"%s:%d: Failed to send %d byte long packet over %s "
1825 packet->interface->name);
1850 struct packet *packet;
1861 NULL, packet->options,
1863 (lease ? &lease->
scope : NULL),
1869 packet->sv_echo_client_id = ISC_TRUE;
1873 memset(&client_id, 0,
sizeof client_id);
1876 packet->options, NULL,
1877 (lease ? &lease->
scope : NULL),
1886 option_code_hash_lookup(&oc->
option,
1901 struct packet *packet;
1908 int used, count, high_threshold, poolhigh = 0, poollow = 0;
1909 char *shared_name =
"no name";
1937 log_error(
"Pool threshold reset - shared subnet: %s; "
1938 "address: %s; low threshold %d/%d.",
1954 if ((poolhigh <= 0) || (poolhigh > 100)) {
1961 if (used < high_threshold) {
1967 log_error(
"Pool threshold exceeded - shared subnet: %s; "
1968 "address: %s; high threshold %d%% %d/%d.",
1970 poolhigh, used, count);
1986 if (poollow < poolhigh) {
1993 struct packet *packet;
2006 TIME offered_lease_time;
2008 TIME min_lease_time;
2012 isc_result_t result;
2015 struct in_addr from;
2016 TIME remaining_time;
2018 #if defined(DELAYED_ACK)
2020 isc_boolean_t enqueue = ISC_FALSE;
2022 int use_old_lease = 0;
2036 lease_cltt = lease->
cltt;
2040 host_reference (&host, hp,
MDL);
2041 else if (lease -> host)
2042 host_reference (&host, lease -> host,
MDL);
2047 log_fatal (
"unable to allocate lease state!");
2048 state -> got_requested_address = packet -> got_requested_address;
2055 state -> got_server_identifier = 1;
2057 maybe_return_agent_options(packet, state->
options);
2081 NULL, packet->options,
2088 packet->options, state->
options,
2095 for (i = packet -> class_count; i > 0; i--) {
2097 packet->options, state->
options,
2099 packet->classes[i - 1]->group,
2121 state -> options, &lease -> scope,
2126 seek = (
struct lease *)0;
2131 if (seek == lease && !seek ->
n_uid) {
2132 lease_dereference (&seek,
MDL);
2135 next = (
struct lease *)0;
2139 next = (
struct lease *)0;
2142 lease_reference (&next, seek ->
n_uid,
MDL);
2143 if (seek != lease &&
2150 lease_dereference (&seek,
MDL);
2152 lease_reference (&seek, next,
MDL);
2153 lease_dereference (&next,
MDL);
2157 lease_dereference (&next,
MDL);
2160 lease_dereference (&seek,
MDL);
2167 !host -> client_identifier.len &&
2177 seek = (
struct lease *)0;
2183 if (seek == lease && !seek ->
n_hw) {
2184 lease_dereference (&seek,
MDL);
2187 next = (
struct lease *)0;
2190 lease_reference (&next, seek ->
n_hw,
MDL);
2191 if (seek != lease &&
2198 lease_dereference (&seek,
MDL);
2200 lease_reference (&seek, next,
MDL);
2201 lease_dereference (&next,
MDL);
2205 lease_dereference (&next,
MDL);
2208 lease_dereference (&seek,
MDL);
2218 memset (&d1, 0,
sizeof d1);
2224 packet -> options, state -> options,
2227 ntohs (packet -> raw -> secs) < d1.
data [0]) {
2228 log_info(
"%s: configured min-secs value (%d) "
2229 "is greater than secs field (%d). "
2230 "message dropped.", msg, d1.
data[0],
2231 ntohs(packet->raw->secs));
2235 host_dereference (&host,
MDL);
2261 packet -> options, state -> options,
2262 &lease -> scope, oc,
MDL)) {
2265 for (h = hp; h; h = h ->
n_ipaddr) {
2266 if (!h -> fixed_addr)
2270 host_reference (&host, h,
MDL);
2272 host_dereference(&hp,
MDL);
2276 packet -> raw -> htype,
2277 packet -> raw -> chaddr,
2278 packet -> raw -> hlen,
2280 for (h = hp; h; h = h ->
n_ipaddr) {
2281 if (!h -> fixed_addr)
2285 host_reference (&host, h,
MDL);
2287 host_dereference(&hp,
MDL);
2291 packet->options,
MDL);
2292 for (h = hp; h; h = h ->
n_ipaddr) {
2293 if (!h -> fixed_addr)
2297 host_reference (&host, h,
MDL);
2299 host_dereference(&hp,
MDL);
2307 packet->options, state->
options,
2324 &lease -> scope, oc,
MDL)) {
2326 log_info (
"%s: unknown client", msg);
2329 host_dereference (&host,
MDL);
2342 &lease -> scope, oc,
MDL)) {
2344 log_info (
"%s: bootp disallowed", msg);
2347 host_dereference (&host,
MDL);
2360 &lease -> scope, oc,
MDL)) {
2362 log_info (
"%s: booting disallowed", msg);
2365 host_dereference (&host,
MDL);
2374 if (lease -> billing_class) {
2375 for (i = 0; i < packet -> class_count; i++)
2376 if (packet -> classes [i] ==
2377 lease -> billing_class)
2379 if (i == packet -> class_count) {
2394 for (i = 0; i < packet->class_count; i++) {
2395 struct class *billclass, *subclass;
2397 billclass = packet->classes[i];
2404 if (subclass == NULL)
2405 cname = subclass->
name;
2407 cname = billclass->
name;
2410 if (bill != 0 && i == packet->class_count) {
2411 log_info(
"%s: no available billing: lease "
2412 "limit reached in all matching "
2413 "classes (last: '%s')", msg, cname);
2416 host_dereference(&host,
MDL);
2446 packet -> options, state -> options,
2447 &lease -> scope, oc,
MDL);
2455 packet -> options, state -> options,
2456 &lease -> scope, oc,
MDL);
2461 lt = (
struct lease *)0;
2462 result = lease_allocate (<,
MDL);
2463 if (result != ISC_R_SUCCESS) {
2464 log_info (
"%s: can't allocate temporary lease structure: %s",
2465 msg, isc_result_totext (result));
2468 host_dereference (&host,
MDL);
2492 if (d1.
len == sizeof (u_int32_t))
2493 default_lease_time =
2509 if (s1 && (d1.
len == 4)) {
2510 u_int32_t ones = 0xffffffff;
2536 if ((memcmp(d1.
data, &ones, 4) == 0) &&
2541 lease, NULL, packet->options,
2547 "reservation made on %s.",
2567 if (d1.
len == sizeof (u_int32_t))
2576 || lease_time > max_lease_time)
2580 if (min_lease_time > max_lease_time)
2590 if (d1.
len == sizeof (u_int32_t))
2600 memset(&d1, 0,
sizeof(d1));
2605 packet->options, state->
options,
2607 if (d1.
len == 1 && d1.
data[0] > 0 &&
2610 int poolfilled, total, count;
2613 adaptive_time = min_lease_time;
2625 poolfilled = (total > (INT_MAX / 100)) ?
2626 total / (count / 100) :
2627 (total * 100) / count;
2629 log_debug(
"Adap-lease: Total: %d, Free: %d, "
2630 "Ends: %d, Adaptive: %d, Fill: %d, "
2635 (
int)adaptive_time, poolfilled,
2638 if (poolfilled >= d1.
data[0] &&
2639 lease_time > adaptive_time) {
2640 log_info(
"Pool over threshold, time "
2641 "for %s reduced from %d to "
2644 (
int)adaptive_time);
2646 lease_time = adaptive_time;
2668 lease_dereference (<,
MDL);
2670 host_dereference (&host,
MDL);
2698 lease_dereference (<,
MDL);
2700 host_dereference (&host,
MDL);
2704 if (lease_time > remaining_time)
2705 lease_time = remaining_time;
2708 if (lease_time < min_lease_time) {
2710 lease_time = min_lease_time;
2716 #if defined (FAILOVER_PROTOCOL)
2719 if (lease ->
pool && lease ->
pool -> failover_peer) {
2720 TIME new_lease_time = lease_time;
2721 dhcp_failover_state_t *peer =
2722 lease ->
pool -> failover_peer;
2731 if (lease_time > peer->mclt) {
2739 new_lease_time = peer->mclt;
2741 (lt->
tsfp + peer->mclt))
2755 (new_lease_time / 2);
2768 lease_time = new_lease_time;
2775 state -> offered_expiry =
MAX_TIME - 1;
2777 state -> offered_expiry =
cur_time + lease_time;
2781 lt ->
ends = state -> offered_expiry;
2801 if (d1.
len == sizeof (u_int32_t))
2814 if (d1.
len == sizeof (u_int32_t))
2821 lt ->
ends = state -> offered_expiry = cur_time + lease_time;
2833 packet->options, state->
options,
2844 packet->options, state->
options,
2852 unsigned char *tuid;
2868 host_reference (< -> host, host,
MDL);
2869 host_dereference (&host,
MDL);
2871 if (lease -> subnet)
2872 subnet_reference (< -> subnet, lease -> subnet,
MDL);
2885 if (lease ->
scope) {
2913 if (!packet->agent_options_stashed &&
2914 (packet->options != NULL) &&
2954 }
else if (oc && s1) {
2957 log_error (
"no memory for client hostname.");
2969 sizeof packet -> raw -> chaddr);
2986 if ((!offer || offer ==
DHCPACK) &&
2999 if (lease ->
flags & STATIC_LEASE) {
3005 packet -> raw -> chaddr,
3006 sizeof packet -> raw -> chaddr);
3008 int commit = (!offer || (offer ==
DHCPACK));
3012 use_old_lease = reuse_lease(packet, lt, lease, state, offer);
3013 if (use_old_lease == 1) {
3017 #if !defined(DELAYED_ACK)
3026 if ((use_old_lease == 0) &&
3046 if ((use_old_lease == 0) &&
3048 !offer || offer ==
DHCPACK, 0, 0)) {
3050 log_info (
"%s: database update failed", msg);
3052 lease_dereference (<,
MDL);
3056 lease_dereference (<,
MDL);
3059 state ->
ip = packet -> interface;
3063 state -> ciaddr = packet -> raw -> ciaddr;
3064 state -> xid = packet -> raw -> xid;
3065 state -> secs = packet -> raw -> secs;
3066 state -> bootp_flags = packet -> raw ->
flags;
3067 state -> hops = packet -> raw -> hops;
3068 state -> offer = offer;
3076 packet -> options, state -> options,
3087 packet -> options, state -> options,
3089 if (d1.
len == sizeof (u_int16_t))
3098 packet -> options, state -> options,
3100 if (d1.
len == sizeof (u_int16_t))
3101 state -> max_message_size =
3132 if (state -> offer) {
3137 &state -> offer, 1, 0, 0,
MDL)) {
3138 option_code_hash_lookup(&oc->
option,
3142 state -> options, oc);
3149 memcpy(state->
from.
iabuf, &from,
sizeof(from));
3150 state->
from.
len =
sizeof(from);
3152 offered_lease_time =
3153 state -> offered_expiry -
cur_time;
3161 option_code_hash_lookup(&oc->
option,
3165 state -> options, oc);
3178 packet->options, state->
options,
3183 if (rebind_time >= offered_lease_time)
3187 offered_lease_time = rebind_time;
3195 packet->options, state->
options,
3205 if (state ->
ip -> address_count) {
3207 sizeof state ->
ip -> addresses [0];
3208 memcpy (state -> from.iabuf,
3209 &state ->
ip -> addresses [0],
3215 memset (&state -> siaddr, 0,
sizeof state -> siaddr);
3221 packet -> options, state -> options,
3222 &lease -> scope, oc,
MDL)) {
3226 memcpy (&state -> siaddr, d1.
data, 4);
3238 lease -> subnet -> netmask.iabuf,
3239 lease -> subnet -> netmask.len,
3241 option_code_hash_lookup(&oc->
option,
3245 state -> options, oc);
3265 (&ignorep, packet, lease, NULL,
3273 h = gethostbyaddr ((
char *)&ia,
sizeof ia, AF_INET);
3275 log_error (
"No hostname for %s", inet_ntoa (ia));
3282 strlen (h -> h_name) + 1,
3284 option_code_hash_lookup(&oc->
option,
3288 state -> options, oc);
3301 packet -> options, state -> options, &lease -> scope,
3313 option_code_hash_lookup(&oc->
option,
3317 state -> options, oc);
3330 packet -> options, state -> options,
3331 &lease -> scope, oc,
MDL)) {
3335 (
const char *)d1.
data, d1.
len,
3341 state -> options -> site_universe = u ->
index;
3363 packet -> options, state -> options,
3364 &lease -> scope, oc,
MDL);
3368 dump_raw ((
unsigned char *)packet -> raw, packet -> packet_length);
3371 lease -> state = state;
3380 if (offer ==
DHCPOFFER && !(lease -> flags & STATIC_LEASE) &&
3388 &lease -> scope, oc,
MDL))) {
3398 &lease -> scope, oc,
MDL)) {
3399 if (d1.
len == sizeof (u_int32_t))
3409 log_debug (
"Ping timeout: %ld", (
long)ping_timeout);
3418 tv.tv_sec =
cur_tv.tv_sec + ping_timeout;
3419 tv.tv_usec =
cur_tv.tv_usec;
3426 #if defined(DELAYED_ACK)
3453 if (free_ackqueue) {
3455 free_ackqueue = q->
next;
3460 log_fatal(
"delayed_ack_enqueue: no memory!");
3462 memset(q, 0,
sizeof *q);
3464 lease_reference(&q->
lease, lease,
MDL);
3477 memset(&max_fsync, 0,
sizeof(max_fsync));
3480 struct timeval next_fsync;
3482 if (max_fsync.tv_sec == 0 && max_fsync.tv_usec == 0) {
3485 max_fsync.tv_usec =
cur_tv.tv_usec +
3488 if (max_fsync.tv_usec >= 1000000) {
3490 max_fsync.tv_usec -= 1000000;
3495 next_fsync.tv_sec =
cur_tv.tv_sec;
3497 if (next_fsync.tv_usec >= 1000000) {
3498 next_fsync.tv_sec++;
3499 next_fsync.tv_usec -= 1000000;
3502 if ((next_fsync.tv_sec > max_fsync.tv_sec) ||
3503 ((next_fsync.tv_sec == max_fsync.tv_sec) &&
3504 (next_fsync.tv_usec > max_fsync.tv_usec))) {
3505 next_fsync.tv_sec = max_fsync.tv_sec;
3506 next_fsync.tv_usec = max_fsync.tv_usec;
3509 add_timeout(&next_fsync, commit_leases_ackout, NULL,
3515 commit_leases_ackout(
void *foo)
3520 memset(&max_fsync, 0,
sizeof(max_fsync));
3533 for (ack = ackqueue_tail ; ack ; ack = p) {
3538 log_error(
"delayed ack for %s has gone stale",
3543 lease_dereference(&ack->
lease,
MDL);
3544 ack->
next = free_ackqueue;
3545 free_ackqueue = ack;
3547 ackqueue_head = NULL;
3548 ackqueue_tail = NULL;
3552 #if defined (DEBUG_MEMORY_LEAKAGE_ON_EXIT)
3554 relinquish_ackqueue(
void)
3558 for (q = ackqueue_head ; q ; q = n) {
3562 for (q = free_ackqueue ; q ; q = n) {
3570 struct lease *lease;
3573 unsigned packet_length;
3575 struct sockaddr_in to;
3576 struct in_addr from;
3580 int nulltp, bootpp, unicastp = 1;
3585 log_fatal (
"dhcp_reply was supplied lease with no state!");
3590 memset (&raw, 0,
sizeof raw);
3591 memset (&d1, 0,
sizeof d1);
3595 if (state -> filename.len && state -> filename.data) {
3597 state -> filename.data,
3598 state -> filename.len >
sizeof raw.
file
3599 ?
sizeof raw.
file : state -> filename.len);
3600 if (
sizeof raw.
file > state -> filename.len)
3601 memset (&raw.
file [state -> filename.len], 0,
3602 (
sizeof raw.
file) - state -> filename.len);
3604 log_info(
"file name longer than packet field "
3605 "truncated - field: %lu name: %d %.*s",
3606 (
unsigned long)
sizeof(raw.
file),
3607 state->filename.len, (
int)state->filename.len,
3608 state->filename.data);
3614 if (state -> server_name.len && state -> server_name.data) {
3616 state -> server_name.data,
3617 state -> server_name.len >
sizeof raw.
sname
3618 ?
sizeof raw.
sname : state -> server_name.len);
3619 if (
sizeof raw.
sname > state -> server_name.len)
3620 memset (&raw.
sname [state -> server_name.len], 0,
3621 (
sizeof raw.
sname) - state -> server_name.len);
3623 log_info(
"server name longer than packet field "
3624 "truncated - field: %lu name: %d %.*s",
3625 (
unsigned long)
sizeof(raw.
sname),
3633 &lease -> hardware_addr.hbuf [1],
sizeof raw.
chaddr);
3634 raw.
hlen = lease -> hardware_addr.hlen - 1;
3635 raw.
htype = lease -> hardware_addr.hbuf [0];
3651 packet_length =
cons_options (state -> packet, &raw, lease,
3653 state -> max_message_size,
3654 state -> packet -> options,
3656 bufs, nulltp, bootpp,
3657 &state -> parameter_request_list,
3660 memcpy (&raw.
ciaddr, &state -> ciaddr,
sizeof raw.
ciaddr);
3662 raw.
siaddr = state -> siaddr;
3665 raw.
xid = state -> xid;
3666 raw.
secs = state -> secs;
3667 raw.
flags = state -> bootp_flags;
3668 raw.
hops = state -> hops;
3671 if (lease -> client_hostname) {
3672 if ((strlen (lease -> client_hostname) <= 64) &&
3674 s = lease -> client_hostname;
3676 s =
"Hostname Unsuitable for Printing";
3681 log_info (
"%s on %s to %s %s%s%svia %s",
3683 ? (state -> offer ==
DHCPACK ?
"DHCPACK" :
"DHCPOFFER")
3686 (lease -> hardware_addr.hlen > 1
3688 lease -> hardware_addr.hlen - 1,
3689 &lease -> hardware_addr.hbuf [1])
3691 s ?
"(" :
"", s ? s :
"", s ?
") " :
"",
3693 ? inet_ntoa (state ->
giaddr)
3694 : state ->
ip -> name));
3697 hto.
hlen = lease -> hardware_addr.hlen;
3698 memcpy (hto.
hbuf, lease -> hardware_addr.hbuf, hto.
hlen);
3700 to.sin_family = AF_INET;
3702 to.sin_len =
sizeof to;
3704 memset (to.sin_zero, 0,
sizeof to.sin_zero);
3707 dump_raw ((
unsigned char *)&raw, packet_length);
3717 to.sin_addr = raw.
giaddr;
3718 if (raw.
giaddr.s_addr != htonl (INADDR_LOOPBACK))
3723 if (fallback_interface) {
3724 result =
send_packet(fallback_interface, NULL, &raw,
3725 packet_length, raw.
siaddr, &to,
3728 log_error (
"%s:%d: Failed to send %d byte long "
3729 "packet over %s interface.",
MDL,
3731 fallback_interface->name);
3751 }
else if (raw.
ciaddr.s_addr &&
3758 to.sin_addr = raw.
ciaddr;
3761 if (fallback_interface) {
3762 result =
send_packet(fallback_interface, NULL, &raw,
3763 packet_length, raw.
siaddr, &to,
3766 log_error(
"%s:%d: Failed to send %d byte long"
3767 " packet over %s interface.",
MDL,
3769 fallback_interface->name);
3783 to.sin_addr = raw.
yiaddr;
3794 memcpy (&from, state -> from.iabuf,
sizeof from);
3797 from, &to, unicastp ? &hto : NULL);
3799 log_error (
"%s:%d: Failed to send %d byte long "
3800 "packet over %s interface.",
MDL,
3801 packet_length, state->
ip->
name);
3816 int *peer_has_leases,
struct lease *ip_lease_in,
3819 struct lease *uid_lease = (
struct lease *)0;
3820 struct lease *ip_lease = (
struct lease *)0;
3821 struct lease *hw_lease = (
struct lease *)0;
3822 struct lease *lease = (
struct lease *)0;
3826 struct lease *fixed_lease = (
struct lease *)0;
3827 struct lease *next = (
struct lease *)0;
3830 int have_client_identifier = 0;
3836 #if defined(FAILOVER_PROTOCOL)
3838 if (peer_has_leases) {
3841 for (pool = share->
pools ; pool ; pool = pool->
next) {
3846 (peer->i_am == secondary && pool->
free_leases))) {
3847 *peer_has_leases = 1;
3854 if (packet -> raw -> ciaddr.s_addr) {
3856 memcpy (cip.
iabuf, &packet -> raw -> ciaddr, 4);
3861 memset (&d1, 0,
sizeof d1);
3868 packet -> got_requested_address = 1;
3883 memset (&client_identifier, 0,
sizeof client_identifier);
3886 packet, (
struct lease *)0,
3891 have_client_identifier = 1;
3896 client_identifier.
len,
MDL)) {
3898 packet -> known = 1;
3902 #if defined (DEBUG_FIND_LEASE)
3904 log_info (
"Found host for client identifier: %s.",
3910 host_reference (&host, hp,
MDL);
3911 host_dereference (&hp,
MDL);
3915 client_identifier.
len,
MDL);
3920 if (!fixed_lease && !host) {
3922 packet -> raw -> chaddr,
3923 packet -> raw -> hlen,
MDL)) {
3925 packet -> known = 1;
3927 host_dereference (&host,
MDL);
3928 host_reference (&host, hp,
MDL);
3929 host_dereference (&hp,
MDL);
3931 #if defined (DEBUG_FIND_LEASE)
3933 log_info (
"Found host for link address: %s.",
3942 if (!fixed_lease && !host) {
3947 host_dereference(&host,
MDL);
3948 host_reference(&host, hp,
MDL);
3949 host_dereference(&hp,
MDL);
3951 #if defined (DEBUG_FIND_LEASE)
3953 log_info (
"Found host via host-identifier");
3962 if (packet -> packet_type ==
DHCPREQUEST && fixed_lease &&
3968 strcpy (dhcp_message,
"requested address is incorrect");
3969 #if defined (DEBUG_FIND_LEASE)
3970 log_info (
"Client's fixed-address %s doesn't match %s%s",
3988 #if defined (DEBUG_FIND_LEASE)
3989 log_info (
"trying next lease matching client id: %s",
3993 #if defined (FAILOVER_PROTOCOL)
4005 #if defined (DEBUG_FIND_LEASE)
4006 log_info(
"not active or not mine to allocate: %s",
4014 #if defined (DEBUG_FIND_LEASE)
4015 log_info (
"wrong network segment: %s",
4025 #if defined (DEBUG_FIND_LEASE)
4030 if (uid_lease -> n_uid)
4031 lease_reference (&next,
4032 uid_lease -> n_uid,
MDL);
4033 if (!packet -> raw -> ciaddr.s_addr)
4035 lease_dereference (&uid_lease,
MDL);
4037 lease_reference (&uid_lease, next,
MDL);
4038 lease_dereference (&next,
MDL);
4044 #if defined (DEBUG_FIND_LEASE)
4046 log_info (
"Found lease for client id: %s.",
4057 h.
hlen = packet -> raw -> hlen + 1;
4058 h.
hbuf [0] = packet -> raw -> htype;
4059 memcpy (&h.
hbuf [1], packet -> raw -> chaddr, packet -> raw -> hlen);
4062 #if defined (DEBUG_FIND_LEASE)
4063 log_info (
"trying next lease matching hw addr: %s",
4066 #if defined (FAILOVER_PROTOCOL)
4079 #if defined (DEBUG_FIND_LEASE)
4080 log_info(
"not active or not mine to allocate: %s",
4093 if (hw_lease -> binding_state !=
FTS_FREE &&
4096 (!have_client_identifier ||
4097 hw_lease -> uid_len != client_identifier.
len ||
4098 memcmp (hw_lease -> uid, client_identifier.
data,
4099 hw_lease -> uid_len))) {
4100 #if defined (DEBUG_FIND_LEASE)
4101 log_info (
"wrong client identifier: %s",
4107 #if defined (DEBUG_FIND_LEASE)
4108 log_info (
"wrong network segment: %s",
4117 #if defined (DEBUG_FIND_LEASE)
4121 if (!packet -> raw -> ciaddr.s_addr)
4124 if (hw_lease -> n_hw)
4125 lease_reference (&next, hw_lease -> n_hw,
MDL);
4126 lease_dereference (&hw_lease,
MDL);
4128 lease_reference (&hw_lease, next,
MDL);
4129 lease_dereference (&next,
MDL);
4135 #if defined (DEBUG_FIND_LEASE)
4137 log_info (
"Found lease for hardware address: %s.",
4144 lease_reference (&ip_lease, ip_lease_in,
MDL);
4148 #if defined (DEBUG_FIND_LEASE)
4150 log_info (
"Found lease for requested address: %s.",
4157 if (ip_lease && ours)
4167 if (ip_lease && (ip_lease -> subnet ->
shared_network != share)) {
4170 #if defined (DEBUG_FIND_LEASE)
4171 log_info (
"...but it was on the wrong shared network.");
4173 strcpy (dhcp_message,
"requested address on bad subnet");
4174 lease_dereference (&ip_lease,
MDL);
4188 (!have_client_identifier ||
4189 ip_lease -> uid_len != client_identifier.
len ||
4190 memcmp (ip_lease -> uid, client_identifier.
data,
4191 ip_lease -> uid_len)) :
4192 (ip_lease -> hardware_addr.hbuf [0] != packet -> raw -> htype ||
4193 ip_lease -> hardware_addr.hlen != packet -> raw -> hlen + 1 ||
4194 memcmp (&ip_lease -> hardware_addr.hbuf [1],
4195 packet -> raw -> chaddr,
4196 (
unsigned)(ip_lease -> hardware_addr.hlen - 1))))) {
4205 if (ip_lease -> binding_state !=
FTS_FREE &&
4207 #if defined (DEBUG_FIND_LEASE)
4208 log_info (
"rejecting lease for requested address.");
4212 if (ours && ip_lease -> binding_state !=
FTS_ACTIVE)
4214 lease_dereference (&ip_lease,
MDL);
4222 if (ip_lease && (uid_lease || hw_lease) &&
4229 #if defined (DEBUG_FIND_LEASE)
4230 log_info(
"ip lease not active or not ours to offer.");
4232 lease_dereference(&ip_lease,
MDL);
4239 ip_lease->
uid && ip_lease != uid_lease) {
4240 if (have_client_identifier &&
4241 (ip_lease -> uid_len == client_identifier.
len) &&
4242 !memcmp (client_identifier.
data,
4243 ip_lease -> uid, ip_lease -> uid_len)) {
4246 log_error (
"client %s has duplicate%s on %s",
4249 (ip_lease -> subnet ->
4257 !packet -> raw -> ciaddr.s_addr &&
4263 lease_dereference (&uid_lease,
MDL);
4264 lease_reference (&uid_lease, ip_lease,
MDL);
4271 if (packet -> packet_type ==
DHCPREQUEST && fixed_lease) {
4272 lease_dereference (&fixed_lease,
MDL);
4274 log_error (
"Dynamic and static leases present for %s.",
4276 log_error (
"Remove host declaration %s or remove %s",
4277 (fixed_lease && fixed_lease -> host
4278 ? (fixed_lease -> host -> name
4279 ? fixed_lease -> host -> name
4283 log_error (
"from the dynamic address pool for %s",
4287 lease_dereference (&ip_lease,
MDL);
4288 strcpy (dhcp_message,
4289 "database conflict - call for help!");
4292 if (ip_lease && ip_lease != uid_lease) {
4293 #if defined (DEBUG_FIND_LEASE)
4294 log_info (
"requested address not available.");
4296 lease_dereference (&ip_lease,
MDL);
4302 if (packet -> packet_type ==
DHCPREQUEST && fixed_lease && ip_lease)
4306 if (hw_lease && hw_lease == uid_lease) {
4307 #if defined (DEBUG_FIND_LEASE)
4308 log_info (
"hardware lease and uid lease are identical.");
4310 lease_dereference (&hw_lease,
MDL);
4312 if (ip_lease && ip_lease == hw_lease) {
4313 lease_dereference (&hw_lease,
MDL);
4314 #if defined (DEBUG_FIND_LEASE)
4315 log_info (
"hardware lease and ip lease are identical.");
4318 if (ip_lease && ip_lease == uid_lease) {
4319 lease_dereference (&uid_lease,
MDL);
4320 #if defined (DEBUG_FIND_LEASE)
4321 log_info (
"uid lease and ip lease are identical.");
4335 lease_dereference (&ip_lease,
MDL);
4343 if (!packet -> raw -> ciaddr.s_addr)
4345 lease_dereference (&uid_lease,
MDL);
4353 if (!packet -> raw -> ciaddr.s_addr)
4355 lease_dereference (&hw_lease,
MDL);
4362 strcpy (dhcp_message,
"requested address not available");
4369 !ip_lease && !fixed_lease) {
4370 #if defined (DEBUG_FIND_LEASE)
4371 log_info (
"no applicable lease found for DHCPREQUEST.");
4379 lease_reference (&lease, fixed_lease,
MDL);
4380 lease_dereference (&fixed_lease,
MDL);
4381 #if defined (DEBUG_FIND_LEASE)
4382 log_info (
"choosing fixed address.");
4390 if (!packet -> raw -> ciaddr.s_addr)
4392 #if defined (DEBUG_FIND_LEASE)
4393 log_info (
"not choosing requested address (!).");
4396 #if defined (DEBUG_FIND_LEASE)
4397 log_info (
"choosing lease on requested address.");
4399 lease_reference (&lease, ip_lease,
MDL);
4401 host_dereference (&lease -> host,
MDL);
4403 lease_dereference (&ip_lease,
MDL);
4411 log_error(
"uid lease %s for client %s is duplicate "
4417 if (!packet -> raw -> ciaddr.s_addr &&
4421 #if defined (DEBUG_FIND_LEASE)
4422 log_info (
"not choosing uid lease.");
4425 lease_reference (&lease, uid_lease,
MDL);
4427 host_dereference (&lease -> host,
MDL);
4428 #if defined (DEBUG_FIND_LEASE)
4432 lease_dereference (&uid_lease,
MDL);
4438 #if defined (DEBUG_FIND_LEASE)
4439 log_info (
"not choosing hardware lease.");
4446 if (!hw_lease -> uid_len ||
4447 (have_client_identifier
4448 ? (hw_lease -> uid_len ==
4449 client_identifier.
len &&
4450 !memcmp (hw_lease -> uid,
4451 client_identifier.
data,
4452 client_identifier.
len))
4453 : packet -> packet_type == 0)) {
4454 lease_reference (&lease, hw_lease,
MDL);
4456 host_dereference (&lease -> host,
MDL);
4457 #if defined (DEBUG_FIND_LEASE)
4458 log_info (
"choosing hardware lease.");
4461 #if defined (DEBUG_FIND_LEASE)
4462 log_info (
"not choosing hardware lease: %s.",
4467 lease_dereference (&hw_lease,
MDL);
4476 if (lease && host && !lease->
host) {
4480 host_reference(&p, host,
MDL);
4499 host_reference(&lease->
host, p,
MDL);
4501 host_dereference(&p,
MDL);
4506 host_dereference(&p,
MDL);
4508 host_reference(&p, n,
MDL);
4509 host_dereference(&n,
MDL);
4520 lease == ip_lease &&
4522 log_error (
"Reclaiming REQUESTed abandoned IP address %s.",
4524 }
else if (lease && (lease -> binding_state ==
FTS_ABANDONED)) {
4531 lease_dereference (&lease,
MDL);
4535 if (have_client_identifier)
4539 lease_dereference (&fixed_lease,
MDL);
4541 lease_dereference (&hw_lease,
MDL);
4543 lease_dereference (&uid_lease,
MDL);
4545 lease_dereference (&ip_lease,
MDL);
4547 host_dereference (&host,
MDL);
4550 #if defined (DEBUG_FIND_LEASE)
4554 lease_reference (lp, lease, file, line);
4555 lease_dereference (&lease,
MDL);
4558 #if defined (DEBUG_FIND_LEASE)
4559 log_info (
"Not returning a lease.");
4574 struct lease *lease = (
struct lease *)0;
4577 if (lease_allocate (&lease,
MDL) != ISC_R_SUCCESS)
4579 if (host_reference (&rhp, hp,
MDL) != ISC_R_SUCCESS) {
4580 lease_dereference (&lease,
MDL);
4584 &rhp, &lease ->
ip_addr, share)) {
4585 lease_dereference (&lease,
MDL);
4586 host_dereference (&rhp,
MDL);
4589 host_reference (&lease -> host, rhp,
MDL);
4593 lease -> uid = lease -> uid_buf;
4594 if (!lease -> uid) {
4595 lease_dereference (&lease,
MDL);
4596 host_dereference (&rhp,
MDL);
4602 lease -> hardware_addr = rhp ->
interface;
4603 lease -> starts = lease -> cltt = lease -> ends =
MIN_TIME;
4607 lease_reference (lp, lease,
MDL);
4609 lease_dereference (&lease,
MDL);
4610 host_dereference (&rhp,
MDL);
4622 struct pool *
pool,
int *peer_has_leases)
4624 struct lease *lease = (
struct lease *)0;
4625 struct lease *candl = (
struct lease *)0;
4627 for (;
pool ; pool = pool ->
next) {
4628 if ((pool -> prohibit_list &&
4629 permitted (packet, pool -> prohibit_list)) ||
4630 (pool -> permit_list &&
4631 !
permitted (packet, pool -> permit_list)))
4634 #if defined (FAILOVER_PROTOCOL)
4659 if (pool->
backup != NULL) {
4660 if (((candl == NULL) ||
4667 *peer_has_leases = 1;
4673 if (pool->
free != NULL) {
4674 if (((candl == NULL) ||
4681 *peer_has_leases = 1;
4687 if ((candl == NULL) &&
4695 candl = pool -> free;
4697 candl = pool -> abandoned;
4731 (candl -> ends < lease ->
ends))) {
4739 (candl -> ends < lease -> ends))) {
4745 if (candl -> ends < lease -> ends)
4749 if (lease != NULL) {
4751 log_error(
"Reclaiming abandoned lease %s.",
4759 if (lease->
host != NULL) {
4760 log_debug(
"soft impossible condition (%s:%d): stale "
4761 "host \"%s\" found on lease %s",
MDL,
4764 host_dereference(&lease->
host,
MDL);
4767 lease_reference (lp, lease,
MDL);
4779 struct packet *packet;
4780 struct
permit *permit_list;
4785 for (p = permit_list; p; p = p ->
next) {
4786 switch (p ->
type) {
4788 if (!packet -> known)
4793 if (packet -> known)
4798 if (packet -> authenticated)
4803 if (!packet -> authenticated)
4811 if (!packet -> options_valid ||
4812 !packet -> packet_type)
4817 for (i = 0; i < packet -> class_count; i++) {
4818 if (p ->
class == packet -> classes [i])
4820 if (packet -> classes [i] &&
4821 packet -> classes [i] -> superclass &&
4822 (packet -> classes [i] -> superclass ==
4838 struct packet *packet;
4842 struct subnet *subnet = (
struct subnet *)0;
4858 if (!oc && !packet -> raw ->
giaddr.s_addr) {
4860 struct in_addr any_addr;
4861 any_addr.s_addr = INADDR_ANY;
4863 if (!packet -> packet_type && memcmp(&packet -> raw -> ciaddr, &any_addr, 4)) {
4865 memcpy(cip.
iabuf, &packet -> raw -> ciaddr, 4);
4884 memset (&data, 0,
sizeof data);
4892 if (data.
len != 4) {
4901 memcpy (ia.
iabuf, &packet->raw->ciaddr, 4);
4903 memcpy (ia.
iabuf, &packet->raw->giaddr, 4);
4910 subnet_dereference (&subnet,
MDL);
4955 struct packet *packet) {
4956 unsigned option_num;
4959 struct in_addr *a = NULL;
4960 isc_boolean_t found = ISC_FALSE;
4963 memset(&d, 0,
sizeof(d));
4964 memset(from, 0,
sizeof(*from));
4972 if (d.
len ==
sizeof(*from)) {
4974 memcpy(from, d.
data,
sizeof(*from));
4980 if ((out_options != NULL) &&
4981 (options != out_options)) {
4991 if ((found == ISC_FALSE) &&
4995 if (out_options != NULL) {
5003 (
unsigned char *)a,
sizeof(*a),
5004 0, allocate,
MDL)) {
5005 option_code_hash_lookup(&oc->
option,
5007 &option_num, 0,
MDL);
5039 struct packet *packet,
5040 struct group *network_group) {
5042 if (*network_options == NULL) {
5057 packet->
options, *network_options,
5063 packet->
options, *network_options,
5072 packet->
options, *network_options,
5078 }
else if (network_group != NULL) {
5080 packet->
options, *network_options,
5085 packet->
options, *network_options,
5102 find_min_site_code(
struct universe *u)
5112 site_code_min = 224;
5113 option_code_hash_foreach(u->
code_hash, lowest_site_code);
5115 if (site_code_min < 224) {
5116 log_error(
"WARNING: site-local option codes less than 224 have "
5117 "been deprecated by RFC3942. You have options "
5118 "listed in site local space %s that number as low as "
5119 "%d. Please investigate if these should be declared "
5120 "as regular options rather than site-local options, "
5121 "or migrated up past 224.",
5122 u->
name, site_code_min);
5129 if (site_code_min < 128)
5130 site_code_min = 128;
5139 return site_code_min;
5143 lowest_site_code(
const void *key,
unsigned len,
void *
object)
5147 if (option->
code < site_code_min)
5148 site_code_min = option->
code;
5150 return ISC_R_SUCCESS;
5154 maybe_return_agent_options(
struct packet *packet,
struct option_state *options)
5198 struct lease *lease,
5212 ((
unsigned char*)lease->
host->
name),
5216 option_code_hash_lookup(&oc->
option,
5257 reuse_lease (
struct packet* packet,
5258 struct lease* new_lease,
5259 struct lease* lease,
5270 (new_lease->
ddns_cb == NULL)) {
5282 if (d1.
len == 1 && (d1.
data[0] < 100))
5283 thresh = d1.
data[0];
5291 int lease_length = 0;
5296 if (lease_length <= (INT_MAX / thresh))
5297 limit = lease_length * thresh / 100;
5299 limit = lease_length / 100 * thresh;
5305 if (lease_age <= limit) {
5310 if (new_lease->
scope != NULL) {
5311 if (lease->
scope != NULL) {
5322 log_debug(
"reuse_lease: lease age %ld (secs)"
5323 " under %d%% threshold, reply with "
5324 "unaltered, existing lease",
#define DHCPD_DISCOVER_START()
int supersede_lease(struct lease *, struct lease *, int, int, int, int)
int find_grouped_subnet(struct subnet **, struct shared_network *, struct iaddr, const char *, int)
char * print_dotted_quads(unsigned len, const u_int8_t *data)
#define DHCPD_NAK_LEASE_START()
char sname[DHCP_SNAME_LEN]
struct binding_scope * global_scope
#define DEFAULT_MIN_ACK_DELAY_USECS
#define SV_MAX_LEASE_TIME
#define SV_USE_HOST_DECL_NAMES
#define SV_MIN_LEASE_TIME
void dhcpleasequery(struct packet *, int)
void save_option(struct universe *universe, struct option_state *options, struct option_cache *oc)
int executable_statement_dereference(struct executable_statement **ptr, const char *file, int line)
int find_host_for_network(struct subnet **, struct host_decl **, struct iaddr *, struct shared_network *)
struct shared_network * shared_network
const char * piaddr(const struct iaddr addr)
struct dhcp_ddns_cb * ddns_cb
#define DHO_PXE_CLIENT_ID
#define DHCPD_ACK_LEASE_DONE()
int unbill_class(struct lease *lease, struct class *class)
void * dmalloc(unsigned, const char *, int)
struct lease_state * state
struct class * superclass
int option_cache_dereference(struct option_cache **ptr, const char *file, int line)
#define DHCPD_ACK_LEASE_START()
#define DEFAULT_MIN_LEASE_TIME
struct universe server_universe
int execute_statements(struct binding_value **result, struct packet *packet, struct lease *lease, struct client_state *client_state, struct option_state *in_options, struct option_state *out_options, struct binding_scope **scope, struct executable_statement *statements, struct on_star *on_star)
struct iaddr ip_addr(struct iaddr subnet, struct iaddr mask, u_int32_t host_address)
char * print_hw_addr(int htype, const int hlen, const unsigned char *data) const
#define SV_IGNORE_CLIENT_UIDS
void cancel_timeout(void(*)(void *) where, void *what)
int find_hosts_by_option(struct host_decl **, struct packet *, struct option_state *, const char *, int)
#define print_hex_1(len, data, limit)
#define DHO_DHCP_PARAMETER_REQUEST_LIST
#define DEFAULT_ACK_DELAY_USECS
int int int log_debug(const char *,...) __attribute__((__format__(__printf__
#define SV_BOOTP_LEASE_LENGTH
struct executable_statement * on_release
void lease_ping_timeout(void *)
#define DHO_DHCP_LEASE_TIME
struct in_addr * addresses
int option_reference(struct option **dest, struct option *src, const char *file, int line)
void dhcpack(struct packet *packet)
void dhcpdecline(struct packet *packet, int ms_nulltp)
struct universe dhcp_universe
struct interface_info * ip
#define SV_SITE_OPTION_SPACE
void data_string_forget(struct data_string *data, const char *file, int line)
#define FIND_PERCENT(count, percent)
struct leasequeue * ackqueue_head
struct option_cache * fixed_addr
struct class * billing_class
struct group * root_group
int mockup_lease(struct lease **lp, struct packet *packet, struct shared_network *share, struct host_decl *hp)
void delete_option(struct universe *universe, struct option_state *options, int code)
int log_error(const char *,...) __attribute__((__format__(__printf__
int binding_scope_dereference(struct binding_scope **ptr, const char *file, int line)
void add_timeout(struct timeval *when, void(*)(void *) where, void *what, tvref_t ref, tvunref_t unref)
void dump_packet(struct packet *)
void(* tvunref_t)(void *, const char *, int)
#define DHO_DHCP_REBINDING_TIME
dhcp_failover_state_t * failover_peer
void release_lease(struct lease *, struct packet *)
int find_hosts_by_haddr(struct host_decl **, int, const unsigned char *, unsigned, const char *, int)
void dhcprelease(struct packet *packet, int ms_nulltp)
struct expression * expression
struct data_string client_identifier
void flush_ackqueue(void *foo)
void(* tvref_t)(void *, void *, const char *, int)
const char * binding_state_print(enum failover_state state)
struct option_state * options
void nak_lease(struct packet *packet, struct iaddr *cip, struct group *network_group)
Constructs and sends a DHCP Nak.
#define DHO_DHCP_SERVER_IDENTIFIER
void log_fatal(const char *,...) __attribute__((__format__(__printf__
void dhcpdiscover(struct packet *packet, int ms_nulltp)
struct option_state * options
#define DEFAULT_DELAYED_ACK
int option_cache_allocate(struct option_cache **cptr, const char *file, int line)
#define SV_LOG_THRESHOLD_HIGH
#define DEFAULT_ACK_DELAY_SECS
int locate_network(struct packet *packet)
void free_lease_state(struct lease_state *, const char *, int)
universe_hash_t * universe_hash
void dhcp_reply(struct lease *lease)
struct hardware hardware_addr
#define SV_BOOTP_LEASE_CUTOFF
int find_subnet(struct subnet **sp, struct iaddr addr, const char *file, int line)
void execute_statements_in_scope(struct binding_value **result, struct packet *packet, struct lease *lease, struct client_state *client_state, struct option_state *in_options, struct option_state *out_options, struct binding_scope **scope, struct group *group, struct group *limiting_group, struct on_star *on_star)
struct interface_info * fallback_interface
#define FAILOVER_PROTOCOL
int option_state_allocate(struct option_state **ptr, const char *file, int line)
int evaluate_option_cache(struct data_string *result, struct packet *packet, struct lease *lease, struct client_state *client_state, struct option_state *in_options, struct option_state *cfg_options, struct binding_scope **scope, struct option_cache *oc, const char *file, int line)
struct permit * prohibit_list
int option_chain_head_dereference(struct option_chain_head **ptr, const char *file, int line)
void dhcp(struct packet *packet)
#define MS_NULL_TERMINATION
int packet_reference(struct packet **ptr, struct packet *bp, const char *file, int line)
#define SV_ALWAYS_BROADCAST
void abandon_lease(struct lease *, const char *)
binding_state_t binding_state
#define DEFAULT_MAX_LEASE_TIME
char * print_hw_addr_or_client_id(struct packet *packet)
struct interface_info * interface
char * print_client_identifier_from_packet(struct packet *packet)
int write_lease(struct lease *lease)
void putULong(unsigned char *, u_int32_t)
#define SV_ECHO_CLIENT_ID
#define SV_USE_LEASE_ADDR_FOR_DEFAULT_ROUTE
#define DEFAULT_CACHE_THRESHOLD
int permitted(struct packet *packet, struct permit *permit_list)
int find_lease_by_hw_addr(struct lease **, const unsigned char *, unsigned, const char *, int)
#define DHCPD_INFORM_START()
void eval_network_statements(struct option_state **network_options, struct packet *packet, struct group *network_group)
Builds option set from statements at the global and network scope.
#define DEFAULT_DEFAULT_LEASE_TIME
void check_pool_threshold(struct packet *packet, struct lease *lease, struct lease_state *state)
#define SV_GET_LEASE_HOSTNAMES
ssize_t send_packet(struct interface_info *, struct packet *, struct dhcp_packet *, size_t, struct in_addr, struct sockaddr_in *, struct hardware *)
int cons_options(struct packet *inpacket, struct dhcp_packet *outpacket, struct lease *lease, struct client_state *client_state, int mms, struct option_state *in_options, struct option_state *cfg_options, struct binding_scope **scope, int overload_avail, int terminate, int bootpp, struct data_string *prl, const char *vuname)
#define DHCPD_DECLINE_START()
void get_server_source_address(struct in_addr *from, struct option_state *options, struct option_state *out_options, struct packet *packet)
u_int32_t getUShort(const unsigned char *)
void dfree(void *, const char *, int)
struct leasequeue * ackqueue_tail
struct host_decl * n_ipaddr
int option_chain_head_reference(struct option_chain_head **ptr, struct option_chain_head *bp, const char *file, int line)
int load_balance_mine(struct packet *, dhcp_failover_state_t *)
struct option_cache * lookup_option(struct universe *universe, struct option_state *options, unsigned code)
void echo_client_id(struct packet *packet, struct lease *lease, struct option_state *in_options, struct option_state *out_options)
Adds a dhcp-client-id option to a set of options Given a set of input options, it searches for echo-c...
struct in_addr limited_broadcast
int int log_info(const char *,...) __attribute__((__format__(__printf__
unsigned short cannot_reuse
u_int32_t getULong(const unsigned char *)
struct shared_network * shared_network
#define DHO_SUBNET_SELECTION
int find_hosts_by_uid(struct host_decl **, const unsigned char *, unsigned, const char *, int)
int allocate_lease(struct lease **lp, struct packet *packet, struct pool *pool, int *peer_has_leases)
#define DHCPD_FIND_LEASE_START()
#define DHO_DHCP_MAX_MESSAGE_SIZE
#define DHCPD_RELEASE_START()
struct universe ** universes
int option_state_dereference(struct option_state **ptr, const char *file, int line)
void ack_lease(struct packet *packet, struct lease *lease, unsigned int offer, TIME when, char *msg, int ms_nulltp, struct host_decl *hp)
struct shared_network * shared_network
int binding_scope_reference(struct binding_scope **ptr, struct binding_scope *bp, const char *file, int line)
int got_server_identifier
binding_state_t rewind_binding_state
int evaluate_boolean_option_cache(int *ignorep, struct packet *packet, struct lease *lease, struct client_state *client_state, struct option_state *in_options, struct option_state *cfg_options, struct binding_scope **scope, struct option_cache *oc, const char *file, int line)
int make_const_data(struct expression **expr, const unsigned char *data, unsigned len, int terminated, int allocate, const char *file, int line)
int ddns_updates(struct packet *, struct lease *, struct lease *, struct iasubopt *, struct iasubopt *, struct option_state *)
#define SV_BOOT_UNKNOWN_CLIENTS
#define DHCPLEASEUNASSIGNED
#define DEFAULT_PING_TIMEOUT
#define SV_LOG_THRESHOLD_LOW
int db_printable(const unsigned char *)
void use_host_decl_name(struct packet *packet, struct lease *lease, struct option_state *options)
Adds hostname option when use-host-decl-names is enabled.
isc_boolean_t agent_options_stashed
int find_lease(struct lease **lp, struct packet *packet, struct shared_network *share, int *ours, int *peer_has_leases, struct lease *ip_lease_in, const char *file, int line)
#define DHCPD_DISCOVER_DONE()
#define SV_CACHE_THRESHOLD
int find_lease_by_uid(struct lease **, const unsigned char *, unsigned, const char *, int)
void dhcpinform(struct packet *packet, int ms_nulltp)
int expression_reference(struct expression **ptr, struct expression *src, const char *file, int line)
#define DHCPD_REPLY_DONE()
#define SV_DEFAULT_LEASE_TIME
#define SV_ADAPTIVE_LEASE_TIME_THRESHOLD
#define SV_ONE_LEASE_PER_CLIENT
void dump_raw(unsigned char *buf, unsigned len) const
#define UNICAST_BROADCAST_HACK
#define DHCPD_DECLINE_DONE()
u_int8_t hbuf[HARDWARE_ADDR_LEN+1]
#define DHCPD_RELEASE_DONE()
int icmp_echorequest(struct iaddr *addr)
#define DHO_VENDOR_CLASS_IDENTIFIER
struct universe agent_universe
void delayed_ack_enqueue(struct lease *lease)
struct ipv6_pool ** pools
const int dhcp_type_name_max
option_code_hash_t * code_hash
#define DHO_DHCP_RENEWAL_TIME
struct executable_statement * on_expiry
struct shared_network * shared_network
#define DHO_DHCP_CLIENT_IDENTIFIER
struct permit * permit_list
struct data_string filename server_name
#define DHCPD_REQUEST_DONE()
int can_unicast_without_arp(struct interface_info *)
struct lease_state * new_lease_state(const char *, int)
int bill_class(struct lease *, struct class *)
struct executable_statement * on_commit
const unsigned char * data
int get_option_int(int *result, struct universe *universe, struct packet *packet, struct lease *lease, struct client_state *client_state, struct option_state *in_options, struct option_state *cfg_options, struct option_state *options, struct binding_scope **scope, unsigned code, const char *file, int line)
#define DHO_DHCP_MESSAGE_TYPE
int bind_ds_value(struct binding_scope **scope, const char *name, struct data_string *value)
struct binding_scope * scope
void data_string_copy(struct data_string *dest, const struct data_string *src, const char *file, int line)
struct hardware interface
int find_lease_by_ip_addr(struct lease **, struct iaddr, const char *, int)
void dhcprequest(struct packet *packet, int ms_nulltp, struct lease *ip_lease)
#define DHCPD_REQUEST_START()
#define SV_STASH_AGENT_OPTIONS
binding_state_t next_binding_state
struct interface_info * interface
#define DHCPD_NAK_LEASE_DONE()
void classify_client(struct packet *)
#define DHCPD_FIND_LEASE_DONE()
#define DHCPD_REPLY_START()
int lease_mine_to_reallocate(struct lease *)
#define DHO_DHCP_REQUESTED_ADDRESS
#define SV_RESERVE_INFINITE