34 static void commit_leases_ackout(
void *foo);
35 static void maybe_return_agent_options(
struct packet *
packet,
42 static struct timeval max_fsync;
50 static char dhcp_message [256];
51 static int site_code_min;
53 static int find_min_site_code(
struct universe *);
54 static isc_result_t lowest_site_code(
const void *,
unsigned,
void *);
56 static const char *dhcp_type_names [] = {
67 "DHCPLEASEUNASSIGNED",
74 # define send_packet trace_packet_send
84 memset (&client_identifier, 0,
sizeof client_identifier);
90 packet, (
struct lease *)0,
99 return "\"no client id\"";
109 packet -> raw -> hlen,
110 packet -> raw -> chaddr);
127 errmsg =
"unknown network segment";
139 log_info(
"%s from %s via %s: %s", s,
142 :
"<no identifier>"),
178 cip.
len =
sizeof packet -> raw -> ciaddr;
179 memcpy (cip.
iabuf, &packet -> raw -> ciaddr,
180 sizeof packet -> raw -> ciaddr);
195 if (lease -> uid_len) {
201 memset (&data, 0,
sizeof data);
203 packet, (
struct lease *)0,
209 if (lease -> uid_len != data.
len ||
210 memcmp (lease -> uid, data.
data, data.
len)) {
216 if ((lease -> hardware_addr.hbuf [0] !=
217 packet -> raw -> htype) ||
218 (lease -> hardware_addr.hlen - 1 !=
219 packet -> raw -> hlen) ||
220 memcmp (&lease -> hardware_addr.hbuf [1],
221 packet -> raw -> chaddr,
222 packet -> raw -> hlen))
251 switch (packet -> packet_type) {
285 errmsg =
"unknown packet type";
290 lease_dereference (&lease,
MDL);
301 int peer_has_leases = 0;
302 #if defined (FAILOVER_PROTOCOL)
303 dhcp_failover_state_t *peer;
309 0, &peer_has_leases, (
struct lease *)0,
MDL);
316 s =
"Hostname Unsuitable for Printing";
323 snprintf (msgbuf,
sizeof msgbuf,
"DHCPDISCOVER from %s %s%s%svia %s",
324 (packet -> raw -> htype
328 :
"<no identifier>")),
329 s ?
"(" :
"", s ? s :
"", s ?
") " :
"",
330 packet -> raw ->
giaddr.s_addr
331 ? inet_ntoa (packet -> raw ->
giaddr)
332 : packet -> interface -> name);
336 log_info (
"Packet from unknown subnet: %s",
337 inet_ntoa (packet -> raw ->
giaddr));
341 #if defined (FAILOVER_PROTOCOL)
342 if (lease && lease ->
pool && lease ->
pool -> failover_peer) {
343 peer = lease ->
pool -> failover_peer;
363 #if defined (DEBUG_FIND_LEASE)
368 lease_dereference (&lease,
MDL);
379 log_error (
"%s: peer holds all free leases",
382 log_error (
"%s: network %s: no free leases",
389 #if defined (FAILOVER_PROTOCOL)
390 if (lease && lease ->
pool && lease ->
pool -> failover_peer) {
391 peer = lease ->
pool -> failover_peer;
395 msgbuf, peer -> nrr);
399 peer = (dhcp_failover_state_t *)0;
404 if (peer_has_leases) {
405 log_debug (
"%s: load balance to peer %s",
406 msgbuf, peer -> name);
409 log_debug (
"%s: cancel load balance to peer %s - %s",
410 msgbuf, peer -> name,
"no free leases");
416 if (lease -> ends < cur_time && lease ->
scope)
422 if (when < lease ->
ends)
423 when = lease ->
ends;
429 lease_dereference (&lease,
MDL);
437 struct
lease *ip_lease;
449 #if defined (FAILOVER_PROTOCOL)
450 dhcp_failover_state_t *peer;
452 int have_requested_addr = 0;
458 memset (&data, 0,
sizeof data);
467 have_requested_addr = 1;
471 memcpy (cip.
iabuf, &packet -> raw -> ciaddr.s_addr, 4);
477 subnet = (
struct subnet *)0;
478 lease = (
struct lease *)0;
488 s =
"Hostname Unsuitable for Printing";
494 memset (&data, 0,
sizeof data);
506 sprintf (smbuf,
" (%s)",
piaddr (sip));
515 snprintf (msgbuf,
sizeof msgbuf,
516 "DHCPREQUEST for %s%s from %s %s%s%svia %s",
518 (packet -> raw -> htype
522 :
"<no identifier>")),
523 s ?
"(" :
"", s ? s :
"", s ?
") " :
"",
524 packet -> raw ->
giaddr.s_addr
525 ? inet_ntoa (packet -> raw ->
giaddr)
526 : packet -> interface -> name);
528 #if defined (FAILOVER_PROTOCOL)
529 if (lease && lease ->
pool && lease ->
pool -> failover_peer) {
530 peer = lease ->
pool -> failover_peer;
534 msgbuf, peer -> nrr);
559 log_debug (
"%s: lease owned by peer", msgbuf);
573 log_debug(
"%s: lease in transition state %s", msgbuf,
575 ?
"released" :
"expired");
584 log_debug (
"%s: lease reset by administrator", msgbuf);
589 #if defined(SERVER_ID_CHECK)
599 if ((sip.
len == 4) &&
600 (memcmp(sip.
iabuf,
"\0\0\0\0", sip.
len) != 0)) {
603 if (memcmp(sip.
iabuf, &from, sip.
len) != 0) {
604 log_debug(
"%s: not our server id", msgbuf);
634 peer = (dhcp_failover_state_t *)0;
680 (packet -> raw -> ciaddr.s_addr &&
681 packet -> raw ->
giaddr.s_addr) ||
682 (have_requested_addr && !packet -> raw -> ciaddr.s_addr)) {
688 if (subnet && subnet ->
group -> authoritative) {
689 log_info (
"%s: wrong network.", msgbuf);
694 log_info (
"%s: ignored (%s).", msgbuf,
696 ?
"not authoritative" :
"unknown subnet"));
703 subnet_dereference (&subnet,
MDL);
708 log_info (
"%s: wrong network.", msgbuf);
712 log_info (
"%s: ignored (not authoritative).", msgbuf);
719 if (!lease && ours) {
737 subnet_dereference (&subnet,
MDL);
739 lease_dereference (&lease,
MDL);
747 struct lease *
lease = (
struct lease *)0, *
next = (
struct lease *)0;
752 char msgbuf [1024], cstr[16];
761 log_info (
"DHCPRELEASE from %s specified requested-address.",
767 memset (&data, 0,
sizeof data);
780 lease_reference (&next, lease -> n_uid,
MDL);
781 if (!memcmp (&packet -> raw -> ciaddr,
785 lease_dereference (&lease,
MDL);
787 lease_reference (&lease, next,
MDL);
788 lease_dereference (&next,
MDL);
792 lease_dereference (&next,
MDL);
800 memcpy (cip.
iabuf, &packet -> raw -> ciaddr, 4);
807 (lease -> hardware_addr.hlen != packet -> raw -> hlen + 1 ||
808 lease -> hardware_addr.hbuf [0] != packet -> raw -> htype ||
809 memcmp (&lease -> hardware_addr.hbuf [1],
810 packet -> raw -> chaddr, packet -> raw -> hlen)))
811 lease_dereference (&lease,
MDL);
813 if (lease && lease -> client_hostname) {
814 if ((strlen (lease -> client_hostname) <= 64) &&
816 s = lease -> client_hostname;
818 s =
"Hostname Unsuitable for Printing";
826 strncpy(cstr, inet_ntoa (packet -> raw -> ciaddr), 15);
832 snprintf (msgbuf,
sizeof msgbuf,
833 "DHCPRELEASE of %s from %s %s%s%svia %s (%sfound)",
835 (packet -> raw -> htype
839 :
"<no identifier>")),
840 s ?
"(" :
"", s ? s :
"", s ?
") " :
"",
841 packet -> raw ->
giaddr.s_addr
842 ? inet_ntoa (packet -> raw ->
giaddr)
843 : packet -> interface -> name,
844 lease ?
"" :
"not ");
846 #if defined (FAILOVER_PROTOCOL)
847 if (lease && lease ->
pool && lease ->
pool -> failover_peer) {
848 dhcp_failover_state_t *peer = lease ->
pool -> failover_peer;
852 peer -> name, peer -> nrr);
866 if (lease && lease -> ends >
cur_time) {
870 #if defined(FAILOVER_PROTOCOL)
874 lease_dereference (&lease,
MDL);
900 memset (&data, 0,
sizeof data);
913 if (lease && lease -> client_hostname) {
914 if ((strlen (lease -> client_hostname) <= 64) &&
916 s = lease -> client_hostname;
918 s =
"Hostname Unsuitable for Printing";
925 snprintf (msgbuf,
sizeof msgbuf,
926 "DHCPDECLINE of %s from %s %s%s%svia %s",
928 (packet -> raw -> htype
932 :
"<no identifier>")),
933 s ?
"(" :
"", s ? s :
"", s ?
") " :
"",
934 packet -> raw ->
giaddr.s_addr
935 ? inet_ntoa (packet -> raw ->
giaddr)
936 : packet -> interface -> name);
943 packet->options, options,
949 for (i = packet -> class_count; i > 0; i--) {
951 (NULL, packet, NULL, NULL, packet->options, options,
961 packet -> options, options,
962 &lease -> scope, oc,
MDL)) {
965 #if defined (FAILOVER_PROTOCOL)
966 if (lease ->
pool && lease ->
pool -> failover_peer) {
967 dhcp_failover_state_t *peer =
968 lease ->
pool -> failover_peer;
973 peer -> name, peer -> nrr);
985 status =
"abandoned";
987 status =
"not found";
993 log_info (
"%s: %s", msgbuf, status);
995 #if defined(FAILOVER_PROTOCOL)
1001 lease_dereference (&lease,
MDL);
1010 char msgbuf[1024], *addr_type;
1015 struct packet outgoing;
1018 struct iaddr cip, gip, sip;
1021 struct sockaddr_in to;
1022 struct in_addr from;
1023 isc_boolean_t zeroed_ciaddr;
1025 int result, h_m_client_ip = 0;
1026 struct host_decl *host = NULL, *hp = NULL, *h;
1027 #if defined (DEBUG_INFORM_HOST)
1028 int h_w_fixed_addr = 0;
1036 if (!packet->raw->ciaddr.s_addr) {
1037 zeroed_ciaddr = ISC_TRUE;
1039 memcpy(cip.
iabuf, &packet->client_addr.iabuf, 4);
1040 addr_type =
"source";
1042 zeroed_ciaddr = ISC_FALSE;
1044 memcpy(cip.
iabuf, &packet->raw->ciaddr, 4);
1045 addr_type =
"client";
1050 if (packet->raw->giaddr.s_addr) {
1052 memcpy(gip.
iabuf, &packet->raw->giaddr, 4);
1053 if (zeroed_ciaddr == ISC_TRUE) {
1054 addr_type =
"relay";
1063 snprintf(msgbuf,
sizeof(msgbuf),
"DHCPINFORM from %s via %s",
1065 packet->raw->giaddr.s_addr ?
1066 inet_ntoa(packet->raw->giaddr) :
1067 packet->interface->name);
1070 if (!memcmp(cip.
iabuf,
"\0\0\0", 4)) {
1071 log_info(
"%s: ignored (null source address).", msgbuf);
1086 memset(&d1, 0,
sizeof d1);
1088 packet->options, NULL,
1093 log_info(
"%s: ignored (invalid subnet selection option).", msgbuf);
1115 if ((zeroed_ciaddr == ISC_TRUE) && (gip.
len != 0))
1116 addr_type =
"relay link select";
1118 addr_type =
"selected";
1123 if (subnet == NULL) {
1124 log_info(
"%s: unknown subnet for %s address %s",
1125 msgbuf, addr_type,
piaddr(sip));
1134 if (subnet && !subnet ->
group -> authoritative) {
1136 log_info (
"%s: not authoritative for subnet %s",
1137 msgbuf,
piaddr (subnet -> net));
1139 log_info (
"If this DHCP server is authoritative for%s",
1141 log_info (
"please write an `authoritative;' directi%s",
1142 "ve either in the");
1143 log_info (
"subnet declaration or in some scope that%s",
1145 log_info (
"subnet declaration - for example, write %s",
1147 log_info (
"of the dhcpd.conf file.");
1151 subnet_dereference (&subnet,
MDL);
1156 memset (&outgoing, 0,
sizeof outgoing);
1157 memset (&raw, 0,
sizeof raw);
1158 outgoing.
raw = &raw;
1160 maybe_return_agent_options(packet, options);
1165 packet->options, options,
1170 for (i = packet -> class_count; i > 0; i--) {
1172 packet->options, options,
1174 packet->classes[i - 1]->group,
1175 subnet ? subnet->
group : NULL,
1194 memset(&d1, 0,
sizeof(d1));
1197 packet->options, NULL,
1202 #if defined (DEBUG_INFORM_HOST)
1204 log_debug (
"dhcpinform: found host by ID "
1205 "-- checking fixed-address match");
1209 for (h = hp; !h_m_client_ip && h; h = h->n_ipaddr) {
1213 memset(&fixed_addr, 0,
sizeof(fixed_addr));
1215 NULL, NULL, NULL, NULL,
1217 h->fixed_addr,
MDL))
1220 #if defined (DEBUG_INFORM_HOST)
1224 (i + cip.
len) <= fixed_addr.
len;
1226 if (memcmp(fixed_addr.
data + i,
1228 #if defined (DEBUG_INFORM_HOST)
1230 "host with matching "
1231 "fixed-address by ID");
1233 host_reference(&host, h,
MDL);
1242 for (h = hp; !host && h; h = h->
n_ipaddr) {
1246 #if defined (DEBUG_INFORM_HOST)
1248 "without fixed-address by ID");
1250 host_reference(&host, h,
MDL);
1254 host_dereference (&hp,
MDL);
1256 if (!host || !h_m_client_ip) {
1258 packet->raw->chaddr,
1259 packet->raw->hlen,
MDL);
1261 #if defined (DEBUG_INFORM_HOST)
1263 log_debug (
"dhcpinform: found host by HW "
1264 "-- checking fixed-address match");
1269 for (h = hp; !h_m_client_ip && h; h = h->n_ipaddr) {
1273 memset (&fixed_addr, 0,
sizeof(fixed_addr));
1275 NULL, NULL, NULL, NULL,
1277 h->fixed_addr,
MDL))
1280 #if defined (DEBUG_INFORM_HOST)
1284 (i + cip.
len) <= fixed_addr.
len;
1286 if (memcmp(fixed_addr.
data + i,
1288 #if defined (DEBUG_INFORM_HOST)
1290 "host with matching "
1291 "fixed-address by HW");
1299 host_dereference(&host,
MDL);
1300 host_reference(&host, h,
MDL);
1308 for (h = hp; !host && h; h = h->
n_ipaddr) {
1312 #if defined (DEBUG_INFORM_HOST)
1313 log_debug (
"dhcpinform: found host without "
1314 "fixed-address by HW");
1316 host_reference (&host, h,
MDL);
1321 host_dereference (&hp,
MDL);
1324 #if defined (DEBUG_INFORM_HOST)
1329 if (h_w_fixed_addr && !h_m_client_ip) {
1330 log_info (
"dhcpinform: matching host with "
1331 "fixed-address different than "
1332 "client IP detected?!");
1340 #if defined (DEBUG_INFORM_HOST)
1341 log_info (
"dhcpinform: applying host (group) options");
1344 packet->options, options,
1349 host_dereference (&host,
MDL);
1355 memset (&d1, 0,
sizeof d1);
1363 if (i >=
sizeof(raw.
file)) {
1364 log_info(
"file name longer than packet field "
1365 "truncated - field: %lu name: %d %.*s",
1366 (
unsigned long)
sizeof(raw.
file), i,
1368 i =
sizeof(raw.
file);
1383 if (i >=
sizeof(raw.
sname)) {
1384 log_info(
"server name longer than packet field "
1385 "truncated - field: %lu name: %d %.*s",
1386 (
unsigned long)
sizeof(raw.
sname), i,
1388 i =
sizeof(raw.
sname);
1409 &dhcpack, 1, 0, 0,
MDL)) {
1410 option_code_hash_lookup(&oc->
option,
1427 subnet -> netmask.iabuf,
1428 subnet -> netmask.len,
1430 option_code_hash_lookup(&oc->
option,
1445 packet -> options, options,
1450 (
const char *)d1.
data, d1.
len,
1455 subnet_dereference (&subnet,
MDL);
1459 options -> site_universe = u ->
index;
1467 memset (&prl, 0,
sizeof prl);
1484 packet -> options, options,
1489 dump_raw ((
unsigned char *)packet -> raw, packet -> packet_length);
1499 packet -> options, options,
1532 raw.
ciaddr = packet -> raw -> ciaddr;
1533 memcpy (raw.
chaddr, packet -> raw -> chaddr,
sizeof raw.
chaddr);
1534 raw.
hlen = packet -> raw -> hlen;
1535 raw.
htype = packet -> raw -> htype;
1537 raw.
xid = packet -> raw -> xid;
1538 raw.
secs = packet -> raw -> secs;
1539 raw.
flags = packet -> raw -> flags;
1540 raw.
hops = packet -> raw -> hops;
1549 to.sin_family = AF_INET;
1551 to.sin_len =
sizeof to;
1553 memset (to.sin_zero, 0,
sizeof to.sin_zero);
1574 memcpy(&to.sin_addr, gip.
iabuf, 4);
1579 memcpy(&to.sin_addr, cip.
iabuf, 4);
1584 snprintf(msgbuf,
sizeof msgbuf,
"DHCPACK to %s (%s) via",
piaddr(cip),
1585 (packet->raw->htype && packet->raw->hlen) ?
1587 "<no client hardware address>");
1589 packet->interface->name);
1593 : packet -> interface);
1595 outgoing.packet_length, from, &to, NULL);
1597 log_error ("%s:%d: Failed to send %d byte long packet over %s "
1598 "interface.", MDL, outgoing.packet_length,
1604 subnet_dereference (&subnet, MDL);
1606 TRACE(DHCPD_INFORM_DONE());
1610 struct packet *packet;
1613 struct sockaddr_in to;
1614 struct in_addr from;
1618 struct packet outgoing;
1626 memset (&outgoing, 0,
sizeof outgoing);
1627 memset (&raw, 0,
sizeof raw);
1632 log_error (
"No memory for DHCPNAK message type.");
1638 log_error (
"No memory for expr_const expression.");
1651 log_error (
"No memory for DHCPNAK message type.");
1656 (
unsigned char *)dhcp_message,
1657 strlen (dhcp_message), 1, 0,
MDL)) {
1658 log_error (
"No memory for expr_const expression.");
1679 #if defined(SERVER_ID_FOR_NAK)
1714 if (packet->interface->address_count)
1715 raw.
siaddr = packet->interface->addresses[0];
1717 memcpy (raw.
chaddr, packet -> raw -> chaddr,
sizeof raw.
chaddr);
1718 raw.
hlen = packet -> raw -> hlen;
1719 raw.
htype = packet -> raw -> htype;
1721 raw.
xid = packet -> raw -> xid;
1722 raw.
secs = packet -> raw -> secs;
1724 raw.
hops = packet -> raw -> hops;
1728 log_info (
"DHCPNAK on %s to %s via %s",
1731 packet -> raw ->
giaddr.s_addr
1732 ? inet_ntoa (packet -> raw ->
giaddr)
1733 : packet -> interface -> name);
1737 dump_raw ((
unsigned char *)packet -> raw, packet -> packet_length);
1743 to.sin_family = AF_INET;
1745 to.sin_len =
sizeof to;
1747 memset (to.sin_zero, 0,
sizeof to.sin_zero);
1756 to.sin_addr = raw.
giaddr;
1757 if (raw.
giaddr.s_addr != htonl (INADDR_LOOPBACK))
1762 if (fallback_interface) {
1763 result =
send_packet(fallback_interface, packet, &raw,
1767 log_error (
"%s:%d: Failed to send %d byte long "
1768 "packet over %s interface.",
MDL,
1770 fallback_interface->name);
1781 result =
send_packet(packet->interface, packet, &raw,
1784 log_error (
"%s:%d: Failed to send %d byte long packet over %s "
1786 packet->interface->name);
1793 struct packet *packet;
1800 int used, count, high_threshold, poolhigh = 0, poollow = 0;
1801 char *shared_name =
"no name";
1829 log_error(
"Pool threshold reset - shared subnet: %s; "
1830 "address: %s; low threshold %d/%d.",
1846 if ((poolhigh <= 0) || (poolhigh > 100)) {
1853 if (used < high_threshold) {
1859 log_error(
"Pool threshold exceeded - shared subnet: %s; "
1860 "address: %s; high threshold %d%% %d/%d.",
1862 poolhigh, used, count);
1878 if (poollow < poolhigh) {
1885 struct packet *packet;
1898 TIME offered_lease_time;
1900 TIME min_lease_time;
1904 isc_result_t result;
1907 struct in_addr from;
1908 TIME remaining_time;
1910 #if defined(DELAYED_ACK)
1912 isc_boolean_t enqueue = ISC_FALSE;
1914 int use_old_lease = 0;
1928 lease_cltt = lease->
cltt;
1932 host_reference (&host, hp,
MDL);
1933 else if (lease -> host)
1934 host_reference (&host, lease -> host,
MDL);
1939 log_fatal (
"unable to allocate lease state!");
1940 state -> got_requested_address = packet -> got_requested_address;
1947 state -> got_server_identifier = 1;
1949 maybe_return_agent_options(packet, state->
options);
1973 NULL, packet->options,
1980 packet->options, state->
options,
1987 for (i = packet -> class_count; i > 0; i--) {
1989 packet->options, state->
options,
1991 packet->classes[i - 1]->group,
2013 state -> options, &lease -> scope,
2018 seek = (
struct lease *)0;
2023 if (seek == lease && !seek ->
n_uid) {
2024 lease_dereference (&seek,
MDL);
2027 next = (
struct lease *)0;
2031 next = (
struct lease *)0;
2034 lease_reference (&next, seek ->
n_uid,
MDL);
2035 if (seek != lease &&
2042 lease_dereference (&seek,
MDL);
2044 lease_reference (&seek, next,
MDL);
2045 lease_dereference (&next,
MDL);
2049 lease_dereference (&next,
MDL);
2052 lease_dereference (&seek,
MDL);
2059 !host -> client_identifier.len &&
2069 seek = (
struct lease *)0;
2075 if (seek == lease && !seek ->
n_hw) {
2076 lease_dereference (&seek,
MDL);
2079 next = (
struct lease *)0;
2082 lease_reference (&next, seek ->
n_hw,
MDL);
2083 if (seek != lease &&
2090 lease_dereference (&seek,
MDL);
2092 lease_reference (&seek, next,
MDL);
2093 lease_dereference (&next,
MDL);
2097 lease_dereference (&next,
MDL);
2100 lease_dereference (&seek,
MDL);
2110 memset (&d1, 0,
sizeof d1);
2116 packet -> options, state -> options,
2119 ntohs (packet -> raw -> secs) < d1.
data [0]) {
2120 log_info(
"%s: configured min-secs value (%d) "
2121 "is greater than secs field (%d). "
2122 "message dropped.", msg, d1.
data[0],
2123 ntohs(packet->raw->secs));
2127 host_dereference (&host,
MDL);
2150 packet -> options, state -> options,
2151 &lease -> scope, oc,
MDL)) {
2154 for (h = hp; h; h = h ->
n_ipaddr) {
2155 if (!h -> fixed_addr)
2159 host_reference (&host, h,
MDL);
2161 host_dereference(&hp,
MDL);
2165 packet -> raw -> htype,
2166 packet -> raw -> chaddr,
2167 packet -> raw -> hlen,
2169 for (h = hp; h; h = h ->
n_ipaddr) {
2170 if (!h -> fixed_addr)
2174 host_reference (&host, h,
MDL);
2176 host_dereference(&hp,
MDL);
2180 packet->options,
MDL);
2181 for (h = hp; h; h = h ->
n_ipaddr) {
2182 if (!h -> fixed_addr)
2186 host_reference (&host, h,
MDL);
2188 host_dereference(&hp,
MDL);
2196 packet->options, state->
options,
2213 &lease -> scope, oc,
MDL)) {
2215 log_info (
"%s: unknown client", msg);
2218 host_dereference (&host,
MDL);
2231 &lease -> scope, oc,
MDL)) {
2233 log_info (
"%s: bootp disallowed", msg);
2236 host_dereference (&host,
MDL);
2249 &lease -> scope, oc,
MDL)) {
2251 log_info (
"%s: booting disallowed", msg);
2254 host_dereference (&host,
MDL);
2263 if (lease -> billing_class) {
2264 for (i = 0; i < packet -> class_count; i++)
2265 if (packet -> classes [i] ==
2266 lease -> billing_class)
2268 if (i == packet -> class_count)
2278 for (i = 0; i < packet->class_count; i++) {
2279 struct class *billclass, *subclass;
2281 billclass = packet->classes[i];
2288 if (subclass == NULL)
2289 cname = subclass->
name;
2291 cname = billclass->
name;
2294 if (bill != 0 && i == packet->class_count) {
2295 log_info(
"%s: no available billing: lease "
2296 "limit reached in all matching "
2297 "classes (last: '%s')", msg, cname);
2300 host_dereference(&host,
MDL);
2325 packet -> options, state -> options,
2326 &lease -> scope, oc,
MDL);
2334 packet -> options, state -> options,
2335 &lease -> scope, oc,
MDL);
2340 lt = (
struct lease *)0;
2341 result = lease_allocate (<,
MDL);
2342 if (result != ISC_R_SUCCESS) {
2343 log_info (
"%s: can't allocate temporary lease structure: %s",
2344 msg, isc_result_totext (result));
2347 host_dereference (&host,
MDL);
2371 if (d1.
len == sizeof (u_int32_t))
2372 default_lease_time =
2388 if (s1 && (d1.
len == 4)) {
2389 u_int32_t ones = 0xffffffff;
2415 if ((memcmp(d1.
data, &ones, 4) == 0) &&
2420 lease, NULL, packet->options,
2426 "reservation made on %s.",
2446 if (d1.
len == sizeof (u_int32_t))
2455 || lease_time > max_lease_time)
2459 if (min_lease_time > max_lease_time)
2469 if (d1.
len == sizeof (u_int32_t))
2479 memset(&d1, 0,
sizeof(d1));
2484 packet->options, state->
options,
2486 if (d1.
len == 1 && d1.
data[0] > 0 &&
2489 int poolfilled, total, count;
2492 adaptive_time = min_lease_time;
2504 poolfilled = (total > (INT_MAX / 100)) ?
2505 total / (count / 100) :
2506 (total * 100) / count;
2508 log_debug(
"Adap-lease: Total: %d, Free: %d, "
2509 "Ends: %d, Adaptive: %d, Fill: %d, "
2514 (
int)adaptive_time, poolfilled,
2517 if (poolfilled >= d1.
data[0] &&
2518 lease_time > adaptive_time) {
2519 log_info(
"Pool over threshold, time "
2520 "for %s reduced from %d to "
2523 (
int)adaptive_time);
2525 lease_time = adaptive_time;
2547 lease_dereference (<,
MDL);
2549 host_dereference (&host,
MDL);
2577 lease_dereference (<,
MDL);
2579 host_dereference (&host,
MDL);
2583 if (lease_time > remaining_time)
2584 lease_time = remaining_time;
2587 if (lease_time < min_lease_time) {
2589 lease_time = min_lease_time;
2595 #if defined (FAILOVER_PROTOCOL)
2598 if (lease ->
pool && lease ->
pool -> failover_peer) {
2599 TIME new_lease_time = lease_time;
2600 dhcp_failover_state_t *peer =
2601 lease ->
pool -> failover_peer;
2610 if (lease_time > peer->mclt) {
2618 new_lease_time = peer->mclt;
2620 (lt->
tsfp + peer->mclt))
2634 (new_lease_time / 2);
2647 lease_time = new_lease_time;
2654 state -> offered_expiry =
MAX_TIME - 1;
2656 state -> offered_expiry =
cur_time + lease_time;
2660 lt ->
ends = state -> offered_expiry;
2680 if (d1.
len == sizeof (u_int32_t))
2693 if (d1.
len == sizeof (u_int32_t))
2700 lt ->
ends = state -> offered_expiry = cur_time + lease_time;
2712 packet->options, state->
options,
2720 packet->options, state->
options,
2728 unsigned char *tuid;
2744 host_reference (< -> host, host,
MDL);
2745 host_dereference (&host,
MDL);
2747 if (lease -> subnet)
2748 subnet_reference (< -> subnet, lease -> subnet,
MDL);
2761 if (lease ->
scope) {
2789 if (!packet->agent_options_stashed &&
2790 (packet->options != NULL) &&
2830 }
else if (oc && s1) {
2833 log_error (
"no memory for client hostname.");
2845 sizeof packet -> raw -> chaddr);
2862 if ((!offer || offer ==
DHCPACK) &&
2875 if (lease ->
flags & STATIC_LEASE) {
2881 packet -> raw -> chaddr,
2882 sizeof packet -> raw -> chaddr);
2884 int commit = (!offer || (offer ==
DHCPACK));
2898 packet->options, state->
options,
2900 if (d1.
len == 1 && (d1.
data[0] < 100))
2901 thresh = d1.
data[0];
2913 (thresh > 0) && (offer ==
DHCPACK) &&
2916 int prev_lease = lease->
ends - lease->
starts;
2919 if (prev_lease <= (INT_MAX / thresh))
2920 limit = prev_lease * thresh / 100;
2922 limit = prev_lease / 100 * thresh;
2932 #if !defined(DELAYED_ACK)
2941 if ((use_old_lease == 0) &&
2961 if ((use_old_lease == 0) &&
2963 !offer || offer ==
DHCPACK, 0)) {
2965 log_info (
"%s: database update failed", msg);
2967 lease_dereference (<,
MDL);
2971 lease_dereference (<,
MDL);
2974 state ->
ip = packet -> interface;
2978 state -> ciaddr = packet -> raw -> ciaddr;
2979 state -> xid = packet -> raw -> xid;
2980 state -> secs = packet -> raw -> secs;
2981 state -> bootp_flags = packet -> raw ->
flags;
2982 state -> hops = packet -> raw -> hops;
2983 state -> offer = offer;
2991 packet -> options, state -> options,
3002 packet -> options, state -> options,
3004 if (d1.
len == sizeof (u_int16_t))
3013 packet -> options, state -> options,
3015 if (d1.
len == sizeof (u_int16_t))
3016 state -> max_message_size =
3047 if (state -> offer) {
3052 &state -> offer, 1, 0, 0,
MDL)) {
3053 option_code_hash_lookup(&oc->
option,
3057 state -> options, oc);
3064 memcpy(state->
from.
iabuf, &from,
sizeof(from));
3065 state->
from.
len =
sizeof(from);
3067 offered_lease_time =
3068 state -> offered_expiry -
cur_time;
3076 option_code_hash_lookup(&oc->
option,
3080 state -> options, oc);
3093 packet->options, state->
options,
3098 if (rebind_time >= offered_lease_time)
3102 offered_lease_time = rebind_time;
3110 packet->options, state->
options,
3120 if (state ->
ip -> address_count) {
3122 sizeof state ->
ip -> addresses [0];
3123 memcpy (state -> from.iabuf,
3124 &state ->
ip -> addresses [0],
3130 memset (&state -> siaddr, 0,
sizeof state -> siaddr);
3136 packet -> options, state -> options,
3137 &lease -> scope, oc,
MDL)) {
3141 memcpy (&state -> siaddr, d1.
data, 4);
3153 lease -> subnet -> netmask.iabuf,
3154 lease -> subnet -> netmask.len,
3156 option_code_hash_lookup(&oc->
option,
3160 state -> options, oc);
3172 lease -> host && lease -> host -> name &&
3175 packet -> options, state -> options, &lease -> scope,
3181 lease -> host -> name),
3182 strlen (lease -> host -> name),
3184 option_code_hash_lookup(&oc->
option,
3188 state -> options, oc);
3200 (&ignorep, packet, lease, NULL,
3208 h = gethostbyaddr ((
char *)&ia,
sizeof ia, AF_INET);
3210 log_error (
"No hostname for %s", inet_ntoa (ia));
3217 strlen (h -> h_name) + 1,
3219 option_code_hash_lookup(&oc->
option,
3223 state -> options, oc);
3236 packet -> options, state -> options, &lease -> scope,
3248 option_code_hash_lookup(&oc->
option,
3252 state -> options, oc);
3265 packet -> options, state -> options,
3266 &lease -> scope, oc,
MDL)) {
3270 (
const char *)d1.
data, d1.
len,
3276 state -> options -> site_universe = u ->
index;
3298 packet -> options, state -> options,
3299 &lease -> scope, oc,
MDL);
3303 dump_raw ((
unsigned char *)packet -> raw, packet -> packet_length);
3306 lease -> state = state;
3315 if (offer ==
DHCPOFFER && !(lease -> flags & STATIC_LEASE) &&
3323 &lease -> scope, oc,
MDL))) {
3333 &lease -> scope, oc,
MDL)) {
3334 if (d1.
len == sizeof (u_int32_t))
3344 log_debug (
"Ping timeout: %ld", (
long)ping_timeout);
3353 tv.tv_sec =
cur_tv.tv_sec + ping_timeout;
3354 tv.tv_usec =
cur_tv.tv_usec;
3361 #if defined(DELAYED_ACK)
3388 if (free_ackqueue) {
3390 free_ackqueue = q->
next;
3395 log_fatal(
"delayed_ack_enqueue: no memory!");
3397 memset(q, 0,
sizeof *q);
3399 lease_reference(&q->
lease, lease,
MDL);
3412 memset(&max_fsync, 0,
sizeof(max_fsync));
3415 struct timeval next_fsync;
3417 if (max_fsync.tv_sec == 0 && max_fsync.tv_usec == 0) {
3420 max_fsync.tv_usec =
cur_tv.tv_usec +
3423 if (max_fsync.tv_usec >= 1000000) {
3425 max_fsync.tv_usec -= 1000000;
3430 next_fsync.tv_sec =
cur_tv.tv_sec;
3432 if (next_fsync.tv_usec >= 1000000) {
3433 next_fsync.tv_sec++;
3434 next_fsync.tv_usec -= 1000000;
3437 if ((next_fsync.tv_sec > max_fsync.tv_sec) ||
3438 ((next_fsync.tv_sec == max_fsync.tv_sec) &&
3439 (next_fsync.tv_usec > max_fsync.tv_usec))) {
3440 next_fsync.tv_sec = max_fsync.tv_sec;
3441 next_fsync.tv_usec = max_fsync.tv_usec;
3444 add_timeout(&next_fsync, commit_leases_ackout, NULL,
3450 commit_leases_ackout(
void *foo)
3455 memset(&max_fsync, 0,
sizeof(max_fsync));
3468 for (ack = ackqueue_tail ; ack ; ack = p) {
3473 log_error(
"delayed ack for %s has gone stale",
3478 lease_dereference(&ack->
lease,
MDL);
3479 ack->
next = free_ackqueue;
3480 free_ackqueue = ack;
3482 ackqueue_head = NULL;
3483 ackqueue_tail = NULL;
3487 #if defined (DEBUG_MEMORY_LEAKAGE_ON_EXIT)
3489 relinquish_ackqueue(
void)
3493 for (q = ackqueue_head ; q ; q = n) {
3497 for (q = free_ackqueue ; q ; q = n) {
3505 struct lease *lease;
3508 unsigned packet_length;
3510 struct sockaddr_in to;
3511 struct in_addr from;
3515 int nulltp, bootpp, unicastp = 1;
3520 log_fatal (
"dhcp_reply was supplied lease with no state!");
3525 memset (&raw, 0,
sizeof raw);
3526 memset (&d1, 0,
sizeof d1);
3530 if (state -> filename.len && state -> filename.data) {
3532 state -> filename.data,
3533 state -> filename.len >
sizeof raw.
file
3534 ?
sizeof raw.
file : state -> filename.len);
3535 if (
sizeof raw.
file > state -> filename.len)
3536 memset (&raw.
file [state -> filename.len], 0,
3537 (
sizeof raw.
file) - state -> filename.len);
3539 log_info(
"file name longer than packet field "
3540 "truncated - field: %lu name: %d %.*s",
3541 (
unsigned long)
sizeof(raw.
file),
3542 state->filename.len, (
int)state->filename.len,
3543 state->filename.data);
3549 if (state -> server_name.len && state -> server_name.data) {
3551 state -> server_name.data,
3552 state -> server_name.len >
sizeof raw.
sname
3553 ?
sizeof raw.
sname : state -> server_name.len);
3554 if (
sizeof raw.
sname > state -> server_name.len)
3555 memset (&raw.
sname [state -> server_name.len], 0,
3556 (
sizeof raw.
sname) - state -> server_name.len);
3558 log_info(
"server name longer than packet field "
3559 "truncated - field: %lu name: %d %.*s",
3560 (
unsigned long)
sizeof(raw.
sname),
3568 &lease -> hardware_addr.hbuf [1],
sizeof raw.
chaddr);
3569 raw.
hlen = lease -> hardware_addr.hlen - 1;
3570 raw.
htype = lease -> hardware_addr.hbuf [0];
3586 packet_length =
cons_options (state -> packet, &raw, lease,
3588 state -> max_message_size,
3589 state -> packet -> options,
3591 bufs, nulltp, bootpp,
3592 &state -> parameter_request_list,
3595 memcpy (&raw.
ciaddr, &state -> ciaddr,
sizeof raw.
ciaddr);
3597 raw.
siaddr = state -> siaddr;
3600 raw.
xid = state -> xid;
3601 raw.
secs = state -> secs;
3602 raw.
flags = state -> bootp_flags;
3603 raw.
hops = state -> hops;
3606 if (lease -> client_hostname) {
3607 if ((strlen (lease -> client_hostname) <= 64) &&
3609 s = lease -> client_hostname;
3611 s =
"Hostname Unsuitable for Printing";
3616 log_info (
"%s on %s to %s %s%s%svia %s",
3618 ? (state -> offer ==
DHCPACK ?
"DHCPACK" :
"DHCPOFFER")
3621 (lease -> hardware_addr.hlen > 1
3623 lease -> hardware_addr.hlen - 1,
3624 &lease -> hardware_addr.hbuf [1])
3626 s ?
"(" :
"", s ? s :
"", s ?
") " :
"",
3628 ? inet_ntoa (state ->
giaddr)
3629 : state ->
ip -> name));
3632 hto.
hlen = lease -> hardware_addr.hlen;
3633 memcpy (hto.
hbuf, lease -> hardware_addr.hbuf, hto.
hlen);
3635 to.sin_family = AF_INET;
3637 to.sin_len =
sizeof to;
3639 memset (to.sin_zero, 0,
sizeof to.sin_zero);
3642 dump_raw ((
unsigned char *)&raw, packet_length);
3652 to.sin_addr = raw.
giaddr;
3653 if (raw.
giaddr.s_addr != htonl (INADDR_LOOPBACK))
3658 if (fallback_interface) {
3659 result =
send_packet(fallback_interface, NULL, &raw,
3660 packet_length, raw.
siaddr, &to,
3663 log_error (
"%s:%d: Failed to send %d byte long "
3664 "packet over %s interface.",
MDL,
3666 fallback_interface->name);
3686 }
else if (raw.
ciaddr.s_addr &&
3693 to.sin_addr = raw.
ciaddr;
3696 if (fallback_interface) {
3697 result =
send_packet(fallback_interface, NULL, &raw,
3698 packet_length, raw.
siaddr, &to,
3701 log_error(
"%s:%d: Failed to send %d byte long"
3702 " packet over %s interface.",
MDL,
3704 fallback_interface->name);
3718 to.sin_addr = raw.
yiaddr;
3729 memcpy (&from, state -> from.iabuf,
sizeof from);
3732 from, &to, unicastp ? &hto : NULL);
3734 log_error (
"%s:%d: Failed to send %d byte long "
3735 "packet over %s interface.",
MDL,
3736 packet_length, state->
ip->
name);
3751 int *peer_has_leases,
struct lease *ip_lease_in,
3754 struct lease *uid_lease = (
struct lease *)0;
3755 struct lease *ip_lease = (
struct lease *)0;
3756 struct lease *hw_lease = (
struct lease *)0;
3757 struct lease *lease = (
struct lease *)0;
3761 struct lease *fixed_lease = (
struct lease *)0;
3762 struct lease *next = (
struct lease *)0;
3765 int have_client_identifier = 0;
3771 #if defined(FAILOVER_PROTOCOL)
3773 if (peer_has_leases) {
3776 for (pool = share->
pools ; pool ; pool = pool->
next) {
3781 (peer->i_am == secondary && pool->
free_leases))) {
3782 *peer_has_leases = 1;
3789 if (packet -> raw -> ciaddr.s_addr) {
3791 memcpy (cip.
iabuf, &packet -> raw -> ciaddr, 4);
3796 memset (&d1, 0,
sizeof d1);
3803 packet -> got_requested_address = 1;
3815 memset (&client_identifier, 0,
sizeof client_identifier);
3818 packet, (
struct lease *)0,
3823 have_client_identifier = 1;
3828 client_identifier.
len,
MDL)) {
3830 packet -> known = 1;
3834 #if defined (DEBUG_FIND_LEASE)
3836 log_info (
"Found host for client identifier: %s.",
3842 host_reference (&host, hp,
MDL);
3843 host_dereference (&hp,
MDL);
3847 client_identifier.
len,
MDL);
3852 if (!fixed_lease && !host) {
3854 packet -> raw -> chaddr,
3855 packet -> raw -> hlen,
MDL)) {
3857 packet -> known = 1;
3859 host_dereference (&host,
MDL);
3860 host_reference (&host, hp,
MDL);
3861 host_dereference (&hp,
MDL);
3863 #if defined (DEBUG_FIND_LEASE)
3865 log_info (
"Found host for link address: %s.",
3874 if (!fixed_lease && !host) {
3879 host_dereference(&host,
MDL);
3880 host_reference(&host, hp,
MDL);
3881 host_dereference(&hp,
MDL);
3883 #if defined (DEBUG_FIND_LEASE)
3885 log_info (
"Found host via host-identifier");
3894 if (packet -> packet_type ==
DHCPREQUEST && fixed_lease &&
3900 strcpy (dhcp_message,
"requested address is incorrect");
3901 #if defined (DEBUG_FIND_LEASE)
3902 log_info (
"Client's fixed-address %s doesn't match %s%s",
3920 #if defined (DEBUG_FIND_LEASE)
3921 log_info (
"trying next lease matching client id: %s",
3925 #if defined (FAILOVER_PROTOCOL)
3937 #if defined (DEBUG_FIND_LEASE)
3938 log_info(
"not active or not mine to allocate: %s",
3946 #if defined (DEBUG_FIND_LEASE)
3947 log_info (
"wrong network segment: %s",
3957 #if defined (DEBUG_FIND_LEASE)
3962 if (uid_lease -> n_uid)
3963 lease_reference (&next,
3964 uid_lease -> n_uid,
MDL);
3965 if (!packet -> raw -> ciaddr.s_addr)
3967 lease_dereference (&uid_lease,
MDL);
3969 lease_reference (&uid_lease, next,
MDL);
3970 lease_dereference (&next,
MDL);
3976 #if defined (DEBUG_FIND_LEASE)
3978 log_info (
"Found lease for client id: %s.",
3989 h.
hlen = packet -> raw -> hlen + 1;
3990 h.
hbuf [0] = packet -> raw -> htype;
3991 memcpy (&h.
hbuf [1], packet -> raw -> chaddr, packet -> raw -> hlen);
3994 #if defined (DEBUG_FIND_LEASE)
3995 log_info (
"trying next lease matching hw addr: %s",
3998 #if defined (FAILOVER_PROTOCOL)
4011 #if defined (DEBUG_FIND_LEASE)
4012 log_info(
"not active or not mine to allocate: %s",
4025 if (hw_lease -> binding_state !=
FTS_FREE &&
4028 (!have_client_identifier ||
4029 hw_lease -> uid_len != client_identifier.
len ||
4030 memcmp (hw_lease -> uid, client_identifier.
data,
4031 hw_lease -> uid_len))) {
4032 #if defined (DEBUG_FIND_LEASE)
4033 log_info (
"wrong client identifier: %s",
4039 #if defined (DEBUG_FIND_LEASE)
4040 log_info (
"wrong network segment: %s",
4049 #if defined (DEBUG_FIND_LEASE)
4053 if (!packet -> raw -> ciaddr.s_addr)
4056 if (hw_lease -> n_hw)
4057 lease_reference (&next, hw_lease -> n_hw,
MDL);
4058 lease_dereference (&hw_lease,
MDL);
4060 lease_reference (&hw_lease, next,
MDL);
4061 lease_dereference (&next,
MDL);
4067 #if defined (DEBUG_FIND_LEASE)
4069 log_info (
"Found lease for hardware address: %s.",
4076 lease_reference (&ip_lease, ip_lease_in,
MDL);
4080 #if defined (DEBUG_FIND_LEASE)
4082 log_info (
"Found lease for requested address: %s.",
4089 if (ip_lease && ours)
4099 if (ip_lease && (ip_lease -> subnet ->
shared_network != share)) {
4102 #if defined (DEBUG_FIND_LEASE)
4103 log_info (
"...but it was on the wrong shared network.");
4105 strcpy (dhcp_message,
"requested address on bad subnet");
4106 lease_dereference (&ip_lease,
MDL);
4120 (!have_client_identifier ||
4121 ip_lease -> uid_len != client_identifier.
len ||
4122 memcmp (ip_lease -> uid, client_identifier.
data,
4123 ip_lease -> uid_len)) :
4124 (ip_lease -> hardware_addr.hbuf [0] != packet -> raw -> htype ||
4125 ip_lease -> hardware_addr.hlen != packet -> raw -> hlen + 1 ||
4126 memcmp (&ip_lease -> hardware_addr.hbuf [1],
4127 packet -> raw -> chaddr,
4128 (
unsigned)(ip_lease -> hardware_addr.hlen - 1))))) {
4137 if (ip_lease -> binding_state !=
FTS_FREE &&
4139 #if defined (DEBUG_FIND_LEASE)
4140 log_info (
"rejecting lease for requested address.");
4144 if (ours && ip_lease -> binding_state !=
FTS_ACTIVE)
4146 lease_dereference (&ip_lease,
MDL);
4154 if (ip_lease && (uid_lease || hw_lease) &&
4161 #if defined (DEBUG_FIND_LEASE)
4162 log_info(
"ip lease not active or not ours to offer.");
4164 lease_dereference(&ip_lease,
MDL);
4171 ip_lease->
uid && ip_lease != uid_lease) {
4172 if (have_client_identifier &&
4173 (ip_lease -> uid_len == client_identifier.
len) &&
4174 !memcmp (client_identifier.
data,
4175 ip_lease -> uid, ip_lease -> uid_len)) {
4178 log_error (
"client %s has duplicate%s on %s",
4181 (ip_lease -> subnet ->
4189 !packet -> raw -> ciaddr.s_addr &&
4195 lease_dereference (&uid_lease,
MDL);
4196 lease_reference (&uid_lease, ip_lease,
MDL);
4203 if (packet -> packet_type ==
DHCPREQUEST && fixed_lease) {
4204 lease_dereference (&fixed_lease,
MDL);
4206 log_error (
"Dynamic and static leases present for %s.",
4208 log_error (
"Remove host declaration %s or remove %s",
4209 (fixed_lease && fixed_lease -> host
4210 ? (fixed_lease -> host -> name
4211 ? fixed_lease -> host -> name
4215 log_error (
"from the dynamic address pool for %s",
4219 lease_dereference (&ip_lease,
MDL);
4220 strcpy (dhcp_message,
4221 "database conflict - call for help!");
4224 if (ip_lease && ip_lease != uid_lease) {
4225 #if defined (DEBUG_FIND_LEASE)
4226 log_info (
"requested address not available.");
4228 lease_dereference (&ip_lease,
MDL);
4234 if (packet -> packet_type ==
DHCPREQUEST && fixed_lease && ip_lease)
4238 if (hw_lease && hw_lease == uid_lease) {
4239 #if defined (DEBUG_FIND_LEASE)
4240 log_info (
"hardware lease and uid lease are identical.");
4242 lease_dereference (&hw_lease,
MDL);
4244 if (ip_lease && ip_lease == hw_lease) {
4245 lease_dereference (&hw_lease,
MDL);
4246 #if defined (DEBUG_FIND_LEASE)
4247 log_info (
"hardware lease and ip lease are identical.");
4250 if (ip_lease && ip_lease == uid_lease) {
4251 lease_dereference (&uid_lease,
MDL);
4252 #if defined (DEBUG_FIND_LEASE)
4253 log_info (
"uid lease and ip lease are identical.");
4267 lease_dereference (&ip_lease,
MDL);
4275 if (!packet -> raw -> ciaddr.s_addr)
4277 lease_dereference (&uid_lease,
MDL);
4285 if (!packet -> raw -> ciaddr.s_addr)
4287 lease_dereference (&hw_lease,
MDL);
4294 strcpy (dhcp_message,
"requested address not available");
4301 !ip_lease && !fixed_lease) {
4302 #if defined (DEBUG_FIND_LEASE)
4303 log_info (
"no applicable lease found for DHCPREQUEST.");
4311 lease_reference (&lease, fixed_lease,
MDL);
4312 lease_dereference (&fixed_lease,
MDL);
4313 #if defined (DEBUG_FIND_LEASE)
4314 log_info (
"choosing fixed address.");
4322 if (!packet -> raw -> ciaddr.s_addr)
4324 #if defined (DEBUG_FIND_LEASE)
4325 log_info (
"not choosing requested address (!).");
4328 #if defined (DEBUG_FIND_LEASE)
4329 log_info (
"choosing lease on requested address.");
4331 lease_reference (&lease, ip_lease,
MDL);
4333 host_dereference (&lease -> host,
MDL);
4335 lease_dereference (&ip_lease,
MDL);
4343 log_error(
"uid lease %s for client %s is duplicate "
4349 if (!packet -> raw -> ciaddr.s_addr &&
4353 #if defined (DEBUG_FIND_LEASE)
4354 log_info (
"not choosing uid lease.");
4357 lease_reference (&lease, uid_lease,
MDL);
4359 host_dereference (&lease -> host,
MDL);
4360 #if defined (DEBUG_FIND_LEASE)
4364 lease_dereference (&uid_lease,
MDL);
4370 #if defined (DEBUG_FIND_LEASE)
4371 log_info (
"not choosing hardware lease.");
4378 if (!hw_lease -> uid_len ||
4379 (have_client_identifier
4380 ? (hw_lease -> uid_len ==
4381 client_identifier.
len &&
4382 !memcmp (hw_lease -> uid,
4383 client_identifier.
data,
4384 client_identifier.
len))
4385 : packet -> packet_type == 0)) {
4386 lease_reference (&lease, hw_lease,
MDL);
4388 host_dereference (&lease -> host,
MDL);
4389 #if defined (DEBUG_FIND_LEASE)
4390 log_info (
"choosing hardware lease.");
4393 #if defined (DEBUG_FIND_LEASE)
4394 log_info (
"not choosing hardware lease: %s.",
4399 lease_dereference (&hw_lease,
MDL);
4408 if (lease && host && !lease->
host) {
4412 host_reference(&p, host,
MDL);
4431 host_reference(&lease->
host, p,
MDL);
4433 host_dereference(&p,
MDL);
4438 host_dereference(&p,
MDL);
4440 host_reference(&p, n,
MDL);
4441 host_dereference(&n,
MDL);
4452 lease == ip_lease &&
4454 log_error (
"Reclaiming REQUESTed abandoned IP address %s.",
4456 }
else if (lease && (lease -> binding_state ==
FTS_ABANDONED)) {
4463 lease_dereference (&lease,
MDL);
4467 if (have_client_identifier)
4471 lease_dereference (&fixed_lease,
MDL);
4473 lease_dereference (&hw_lease,
MDL);
4475 lease_dereference (&uid_lease,
MDL);
4477 lease_dereference (&ip_lease,
MDL);
4479 host_dereference (&host,
MDL);
4482 #if defined (DEBUG_FIND_LEASE)
4486 lease_reference (lp, lease, file, line);
4487 lease_dereference (&lease,
MDL);
4490 #if defined (DEBUG_FIND_LEASE)
4491 log_info (
"Not returning a lease.");
4506 struct lease *lease = (
struct lease *)0;
4509 if (lease_allocate (&lease,
MDL) != ISC_R_SUCCESS)
4511 if (host_reference (&rhp, hp,
MDL) != ISC_R_SUCCESS) {
4512 lease_dereference (&lease,
MDL);
4516 &rhp, &lease ->
ip_addr, share)) {
4517 lease_dereference (&lease,
MDL);
4518 host_dereference (&rhp,
MDL);
4521 host_reference (&lease -> host, rhp,
MDL);
4525 lease -> uid = lease -> uid_buf;
4526 if (!lease -> uid) {
4527 lease_dereference (&lease,
MDL);
4528 host_dereference (&rhp,
MDL);
4534 lease -> hardware_addr = rhp ->
interface;
4535 lease -> starts = lease -> cltt = lease -> ends =
MIN_TIME;
4539 lease_reference (lp, lease,
MDL);
4541 lease_dereference (&lease,
MDL);
4542 host_dereference (&rhp,
MDL);
4554 struct pool *
pool,
int *peer_has_leases)
4556 struct lease *lease = (
struct lease *)0;
4557 struct lease *candl = (
struct lease *)0;
4559 for (;
pool ; pool = pool ->
next) {
4560 if ((pool -> prohibit_list &&
4561 permitted (packet, pool -> prohibit_list)) ||
4562 (pool -> permit_list &&
4563 !
permitted (packet, pool -> permit_list)))
4566 #if defined (FAILOVER_PROTOCOL)
4591 if (pool->
backup != NULL) {
4592 if (((candl == NULL) ||
4599 *peer_has_leases = 1;
4605 if (pool->
free != NULL) {
4606 if (((candl == NULL) ||
4613 *peer_has_leases = 1;
4619 if ((candl == NULL) &&
4627 candl = pool -> free;
4629 candl = pool -> abandoned;
4663 (candl -> ends < lease ->
ends))) {
4671 (candl -> ends < lease -> ends))) {
4677 if (candl -> ends < lease -> ends)
4681 if (lease != NULL) {
4683 log_error(
"Reclaiming abandoned lease %s.",
4691 if (lease->
host != NULL) {
4692 log_debug(
"soft impossible condition (%s:%d): stale "
4693 "host \"%s\" found on lease %s",
MDL,
4696 host_dereference(&lease->
host,
MDL);
4699 lease_reference (lp, lease,
MDL);
4711 struct packet *packet;
4712 struct
permit *permit_list;
4717 for (p = permit_list; p; p = p ->
next) {
4718 switch (p ->
type) {
4720 if (!packet -> known)
4725 if (packet -> known)
4730 if (packet -> authenticated)
4735 if (!packet -> authenticated)
4743 if (!packet -> options_valid ||
4744 !packet -> packet_type)
4749 for (i = 0; i < packet -> class_count; i++) {
4750 if (p ->
class == packet -> classes [i])
4752 if (packet -> classes [i] &&
4753 packet -> classes [i] -> superclass &&
4754 (packet -> classes [i] -> superclass ==
4770 struct packet *packet;
4774 struct subnet *subnet = (
struct subnet *)0;
4790 if (!oc && !packet -> raw ->
giaddr.s_addr) {
4792 struct in_addr any_addr;
4793 any_addr.s_addr = INADDR_ANY;
4795 if (!packet -> packet_type && memcmp(&packet -> raw -> ciaddr, &any_addr, 4)) {
4797 memcpy(cip.
iabuf, &packet -> raw -> ciaddr, 4);
4816 memset (&data, 0,
sizeof data);
4824 if (data.
len != 4) {
4833 memcpy (ia.
iabuf, &packet->raw->ciaddr, 4);
4835 memcpy (ia.
iabuf, &packet->raw->giaddr, 4);
4842 subnet_dereference (&subnet,
MDL);
4887 struct packet *packet) {
4888 unsigned option_num;
4891 struct in_addr *a = NULL;
4892 isc_boolean_t found = ISC_FALSE;
4895 memset(&d, 0,
sizeof(d));
4896 memset(from, 0,
sizeof(*from));
4904 if (d.
len ==
sizeof(*from)) {
4906 memcpy(from, d.
data,
sizeof(*from));
4912 if ((out_options != NULL) &&
4913 (options != out_options)) {
4923 if ((found == ISC_FALSE) &&
4927 if (out_options != NULL) {
4935 (
unsigned char *)a,
sizeof(*a),
4936 0, allocate,
MDL)) {
4937 option_code_hash_lookup(&oc->
option,
4939 &option_num, 0,
MDL);
4964 struct packet *packet) {
5009 if (sid_options != NULL)
5024 find_min_site_code(
struct universe *u)
5035 option_code_hash_foreach(u->
code_hash, lowest_site_code);
5038 log_error(
"WARNING: site-local option codes less than 224 have "
5039 "been deprecated by RFC3942. You have options "
5040 "listed in site local space %s that number as low as "
5041 "%d. Please investigate if these should be declared "
5042 "as regular options rather than site-local options, "
5043 "or migrated up past 224.",
5065 lowest_site_code(
const void *key,
unsigned len,
void *
object)
5069 if (option->
code < site_code_min)
5070 site_code_min = option->
code;
5072 return ISC_R_SUCCESS;
5076 maybe_return_agent_options(
struct packet *packet,
struct option_state *options)
#define DHCPD_DISCOVER_START()
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 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
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 *)
#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)
const char * binding_state_print(enum failover_state state)
struct option_state * options
#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
void nak_lease(struct packet *packet, struct iaddr *cip)
#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_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()
#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 *)
void(* tvref_t)(void *, void *, const char *, int)
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)
struct in_addr limited_broadcast
int supersede_lease(struct lease *, struct lease *, int, int, int)
int int log_info(const char *,...) __attribute__((__format__(__printf__
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
void(* tvunref_t)(void *, const char *, int)
#define DHCPD_RELEASE_START()
struct universe ** universes
void setup_server_source_address(struct in_addr *from, struct option_state *options, struct packet *packet)
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 *)
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