2 ** Copyright (C) 2006- Sami Kerola < >
4 ** This program is free software; you can redistribute it and/or modify
5 ** it under the terms of the GNU General Public License as published by
6 ** the Free Software Foundation; either version 2 of the License, or
7 ** (at your option) any later version.
9 ** This program is distributed in the hope that it will be useful,
10 ** but WITHOUT ANY WARRANTY; without even the implied warranty of
11 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 ** GNU General Public License for more details.
14 ** You should have received a copy of the GNU General Public License
15 ** along with this program; if not, write to the Free Software
16 ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
29 #else /* Not STDC_HEADERS */
31 extern char *malloc();
32 #define EXIT_FAILURE 1 /* Failing exit status. */
33 #define EXIT_SUCCESS 0 /* Successful exit status. */
34 #endif /* STDC_HEADERS */
43 #include <arpa/inet.h>
44 #include <netinet/in.h>
45 #include <sys/socket.h>
47 #include <sys/types.h>
48 #define _XOPEN_SOURCE 600
53 #include "dhcpd-pools.h"
56 /* Parse dhcpd.leases file. All performance boosts for this
57 * function are wellcome */
58 int parse_leases(void)
61 char *line, *ipstring, *macstring, *macstring2;
63 struct stat lease_file_stats;
64 unsigned long leasesmallocsize;
65 unsigned long touchesmallocsize;
66 unsigned long backupsmallocsize;
67 int sw_active_lease = 0;
69 num_touches = num_leases = num_backups = 0;
71 dhcpd_leases = fopen(config.dhcpdlease_file, "r");
72 if (dhcpd_leases == NULL) {
73 eprintf("parse_leases: %s:", config.dhcpdlease_file);
76 #ifdef POSIX_FADV_NOREUSE
77 posix_fadvise((long) dhcpd_leases, 0, 0, POSIX_FADV_NOREUSE);
79 eprintf("parse_leases: fadvise:");
82 #endif /* POSIX_FADV_NOREUSE */
83 #ifdef POSIX_FADV_SEQUENTIAL
84 posix_fadvise((long) dhcpd_leases, 0, 0, POSIX_FADV_SEQUENTIAL);
86 eprintf("parse_leases: fadvise:");
89 #endif /* POSIX_FADV_SEQUENTIAL */
90 /* I found out that there's one lease address per 300 bytes in
91 * dhcpd.leases file. Malloc is little bit pessimistic and uses
92 * 250. If someone has higher density in lease file I'm
93 * interested to hear about that. */
94 if (stat(config.dhcpdlease_file, &lease_file_stats)) {
95 eprintf("parse_leases: %s:", config.dhcpdlease_file);
98 leasesmallocsize = (lease_file_stats.st_size / 250) + MAXLEN - 2;
99 touchesmallocsize = (lease_file_stats.st_size / 250) + MAXLEN - 2;
100 backupsmallocsize = (lease_file_stats.st_size / 120) + MAXLEN - 2;
101 leases = safe_malloc(sizeof(long int) * leasesmallocsize);
103 safe_malloc((size_t) sizeof(long int) * touchesmallocsize);
105 line = safe_malloc(sizeof(long int) * MAXLEN);
106 ipstring = safe_malloc(sizeof(long int) * MAXLEN);
107 macstring = safe_malloc(sizeof(long int) * MAXLEN);
108 macstring2 = safe_malloc(sizeof(long int) * MAXLEN);
110 while (!feof(dhcpd_leases)) {
111 fgets(line, MAXLEN, dhcpd_leases);
112 /* It's a lease, save IP */
113 if (strstr(line, "lease") == line) {
114 strncpy(ipstring, line, (size_t) MAXLEN);
115 nth_field(2, ipstring, ipstring);
116 inet_aton(ipstring, &inp);
119 /* Copy IP to correct array */
120 else if (strstr(line, "binding state active")) {
121 leases[num_leases] = htonl(inp.s_addr);
124 } else if (strstr(line, " binding state free")) {
125 touches[num_touches] = htonl(inp.s_addr);
127 } else if (strstr(line, " binding state backup")) {
128 if (num_backups == 0) {
130 safe_malloc((size_t) sizeof(long int) *
133 backups[num_backups] = htonl(inp.s_addr);
137 if ((sw_active_lease == 1)
138 && (strstr(line, "hardware ethernet"))) {
139 nth_field(3, macstring, line);
140 macstring[strlen(macstring) - 1] = '\0';
142 if (config.output_format[0] == 'X') {
144 ("<active_lease>\n\t<ip>%s</ip>\n\t<macaddress>%s</macaddress>\n</active_lease>\n",
145 ipstring, macstring);
149 if ((num_leases > leasesmallocsize) ||
150 (num_touches > touchesmallocsize) ||
151 (num_backups > backupsmallocsize)) {
152 printf("WARNING: running out of memory\n");
153 printf("\tlease/touch/backup = %lu/%lu/%lu\n",
154 leasesmallocsize, touchesmallocsize,
156 printf("\tlease/touch/backup = %lu/%lu/%lu\n",
157 num_leases, num_touches, num_backups);
159 ("Code should realloc() and init new memory, but no time to write that now!\n");
167 /* Like strcpy but for field which is separated by white spaces.
168 * Number of first field is 1 and not 0 like C programs should
169 * have. Question of semantics, send mail to author if this
170 * annoys. All performance boosts for this function are well
172 int nth_field(int n, char *dest, const char *src)
174 int i, j = 0, wordn = 0, len;
178 for (i = 0; i < len; i++) {
179 if (isspace(src[i])) {
198 /* dhcpd.conf interesting words */
199 int is_interesting_config_clause(char *s)
201 if (strstr(s, "shared-network")) {
203 } else if (strstr(s, "range")) {
205 } else if (strstr(s, "include")) {
212 /* TODO: This spagetti monster function need to be rewrote at
214 char *parse_config(int is_include, char *config_file,
215 char *current_shared_name,
216 char *next_free_shared_name,
217 struct shared_network_t *shared_p)
220 int i = 0, newclause = true, argument = false, comment =
221 false, braces = 0, quote = false;
223 int braces_shared = 1000;
225 struct range_t *range_p;
227 char *last_shared_name;
228 last_shared_name = SHARED_NETWORKS_NAMES + shared_net_names;
230 word = safe_malloc(sizeof(char) * MAXLEN);
233 /* Default place holder for ranges "All networks". */
234 shared_p->name = current_shared_name;
237 /* Open configuration file */
238 dhcpd_config = fopen(config_file, "r");
239 if (dhcpd_config == NULL) {
240 eprintf("parse_config: %s:", config_file);
243 #ifdef POSIX_FADV_NOREUSE
244 posix_fadvise((long) dhcpd_config, 0, 0, POSIX_FADV_NOREUSE);
246 eprintf("parse_config: fadvise:");
249 #endif /* POSIX_FADV_NOREUSE */
250 #ifdef POSIX_FADV_SEQUENTIAL
251 posix_fadvise((long) dhcpd_config, 0, 0, POSIX_FADV_SEQUENTIAL);
253 eprintf("parse_config: fadvise:");
256 #endif /* POSIX_FADV_SEQUENTIAL */
257 /* Very hairy stuff begins. */
258 while (!feof(dhcpd_config)) {
259 c = fgetc(dhcpd_config);
260 /* Certain characters are magical */
262 /* Handle comments if they are not quoted */
264 if (quote == false) {
269 if (comment == false) {
271 /* Either one or zero */
276 /* New line resets comment section, but not if quoted */
277 if (quote == false) {
282 /* Quoted colon does not mean new clause */
286 if (comment == false && argument != 2
290 } else if (argument == 2) {
291 /* Range ends to ; and this hair in code make two
292 * ranges wrote to gether like...
294 * range 10.20.30.40 10.20.30.41;range 10.20.30.42 10.20.30.43;
296 * ...to be interpreted correctly. */
304 if (comment == false) {
307 /* i == 0 detects word that ends to brace like:
309 * shared-network DSL{ ... */
318 if (comment == false) {
320 /* End of shared-network */
321 if (braces_shared == braces) {
322 current_shared_name =
324 /* TODO: Using 1000 is lame, but works. */
325 braces_shared = 1000;
326 shared_p = shared_networks;
328 /* Not literally true, but works for this program */
336 /* Either inside comment or Nth word of clause. */
338 || (newclause == false && argument == 0)) {
341 /* Strip white spaces before new clause word. */
342 if ((newclause == true || argument != 0) && isspace(c)
346 /* Save to word which clause this is. */
347 if ((newclause == true || argument != 0)
348 && (!isspace(c) || quote == true)) {
351 /* Long word which is almost causing overflow. Not any of words
352 * this program is looking for are this long. */
359 /* See if clause is something that parser is looking for. */
360 else if (newclause == true) {
361 /* Insert string end & set state */
366 argument = is_interesting_config_clause(word);
368 /* words after range, shared-network or include */
369 else if (argument != 0) {
376 /* printf ("nothing interesting: %s\n", word); */
380 /* printf ("shared-network named: %s\n", word); */
381 strcpy(next_free_shared_name, word);
383 shared_networks + num_shared_networks;
384 num_shared_networks++;
386 shared_p->name = next_free_shared_name;
387 shared_p->available = 0;
389 shared_p->touched = 0;
390 shared_p->backups = 0;
391 /* Temporary abuse of argument variable */
393 strlen(next_free_shared_name) + 1;
394 if (last_shared_name >
395 next_free_shared_name + argument) {
396 next_free_shared_name += argument;
398 /* TODO: make this go away by reallocationg more space. */
400 ("parse_config: End of shared-network space, increase SHARED_NETWORKS_NAMES and recompile");
404 braces_shared = braces;
407 /* printf ("range 2nd ip: %s\n", word); */
408 range_p = ranges + num_ranges;
409 inet_aton(word, &inp);
411 range_p->last_ip = htonl(inp.s_addr) + 1;
413 range_p->touched = 0;
414 range_p->backups = 0;
415 range_p->shared_net = shared_p;
417 if (num_ranges > RANGES) {
419 ("parse_config: Range space full! Increase RANGES and recompile.");
425 /* printf ("range 1nd ip: %s\n", word); */
426 range_p = ranges + num_ranges;
427 if (!(inet_aton(word, &inp))) {
428 /* word was not ip, try again */
431 range_p->first_ip = htonl(inp.s_addr) - 1;
435 /* printf ("include file: %s\n", word); */
437 next_free_shared_name =
438 parse_config(false, word, current_shared_name,
439 next_free_shared_name,
445 ("parse_config: This cannot happen, report a bug!");
451 return next_free_shared_name;