ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/gvpe/src/conf.C
Revision: 1.38
Committed: Wed Mar 23 17:03:58 2005 UTC (19 years, 2 months ago) by pcg
Content type: text/plain
Branch: MAIN
Changes since 1.37: +31 -2 lines
Log Message:
*** empty log message ***

File Contents

# Content
1 /*
2 conf.c -- configuration code
3 Copyright (C) 2003-2005 Marc Lehmann <gvpe@schmorp.de>
4
5 This file is part of GVPE.
6
7 GVPE is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with gvpe; if not, write to the Free Software
19 Foundation, Inc. 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 */
21
22 #include "config.h"
23
24 #include <cstdio>
25 #include <cstdlib>
26 #include <cstring>
27
28 #include <errno.h>
29 #include <netdb.h>
30 #include <sys/stat.h>
31 #include <sys/types.h>
32 #include <unistd.h>
33
34 #include "netcompat.h"
35
36 #include <openssl/err.h>
37 #include <openssl/pem.h>
38 #include <openssl/rsa.h>
39 #include <openssl/rand.h>
40 #include <openssl/bn.h>
41
42 #include "conf.h"
43 #include "slog.h"
44 #include "util.h"
45
46 char *confbase;
47 char *thisnode;
48 char *identname;
49
50 struct configuration conf;
51
52 u8 best_protocol (u8 protset)
53 {
54 if (protset & PROT_IPv4 ) return PROT_IPv4;
55 if (protset & PROT_ICMPv4) return PROT_ICMPv4;
56 if (protset & PROT_UDPv4 ) return PROT_UDPv4;
57 if (protset & PROT_TCPv4 ) return PROT_TCPv4;
58 if (protset & PROT_DNSv4 ) return PROT_DNSv4;
59
60 return 0;
61 }
62
63 const char *strprotocol (u8 protocol)
64 {
65 if (protocol & PROT_IPv4 ) return "rawip";
66 if (protocol & PROT_ICMPv4) return "icmp";
67 if (protocol & PROT_UDPv4 ) return "udp";
68 if (protocol & PROT_TCPv4 ) return "tcp";
69 if (protocol & PROT_DNSv4 ) return "dns";
70
71 return "<unknown>";
72 }
73
74 void
75 conf_node::print ()
76 {
77 printf ("%4d fe:fd:80:00:0%1x:%02x %c %-8.8s %-10.10s %s%s%d\n",
78 id,
79 id >> 8, id & 0xff,
80 compress ? 'Y' : 'N',
81 connectmode == C_ONDEMAND ? "ondemand" :
82 connectmode == C_NEVER ? "never" :
83 connectmode == C_ALWAYS ? "always" : "",
84 nodename,
85 hostname ? hostname : "",
86 hostname ? ":" : "",
87 hostname ? udp_port : 0
88 );
89 }
90
91 conf_node::~conf_node ()
92 {
93 if (rsa_key)
94 RSA_free (rsa_key);
95
96 free (nodename);
97 free (hostname);
98 #if ENABLE_DNS
99 free (domain);
100 free (dns_hostname);
101 #endif
102 }
103
104 void configuration::init ()
105 {
106 memset (this, 0, sizeof (*this));
107
108 mtu = DEFAULT_MTU;
109 rekey = DEFAULT_REKEY;
110 keepalive = DEFAULT_KEEPALIVE;
111 llevel = L_INFO;
112 ip_proto = IPPROTO_GRE;
113 #if ENABLE_ICMP
114 icmp_type = ICMP_ECHOREPLY;
115 #endif
116
117 default_node.udp_port = DEFAULT_UDPPORT;
118 default_node.tcp_port = DEFAULT_UDPPORT; // ehrm
119 default_node.connectmode = conf_node::C_ALWAYS;
120 default_node.compress = true;
121 default_node.protocols = 0;
122 default_node.max_retry = DEFAULT_MAX_RETRY;
123
124 #if ENABLE_DNS
125 default_node.dns_port = 0; // default is 0 == client
126
127 dns_forw_host = strdup ("127.0.0.1");
128 dns_forw_port = 53;
129 dns_timeout_factor = DEFAULT_DNS_TIMEOUT_FACTOR;
130 dns_send_interval = DEFAULT_DNS_SEND_INTERVAL;
131 dns_overlap_factor = DEFAULT_DNS_OVERLAP_FACTOR;
132 dns_max_outstanding = DEFAULT_DNS_MAX_OUTSTANDING;
133 #endif
134
135 conf.pidfilename = strdup (LOCALSTATEDIR "/run/gvpe.pid");
136 }
137
138 void configuration::cleanup()
139 {
140 if (rsa_key)
141 RSA_free (rsa_key);
142
143 rsa_key = 0;
144
145 free (pidfilename); pidfilename = 0;
146 free (ifname); ifname = 0;
147 #if ENABLE_HTTP_PROXY
148 free (proxy_host); proxy_host = 0;
149 free (proxy_auth); proxy_auth = 0;
150 #endif
151 #if ENABLE_DNS
152 free (dns_forw_host); dns_forw_host = 0;
153 #endif
154 }
155
156 void
157 configuration::clear_config ()
158 {
159 for (configuration::node_vector::iterator i = nodes.begin(); i != nodes.end(); ++i)
160 delete *i;
161
162 nodes.clear ();
163
164 cleanup ();
165 init ();
166 }
167
168 #define parse_bool(target,name,trueval,falseval) do { \
169 if (!strcmp (val, "yes")) target = trueval; \
170 else if (!strcmp (val, "no")) target = falseval; \
171 else if (!strcmp (val, "true")) target = trueval; \
172 else if (!strcmp (val, "false")) target = falseval; \
173 else if (!strcmp (val, "on")) target = trueval; \
174 else if (!strcmp (val, "off")) target = falseval; \
175 else \
176 slog (L_WARN, \
177 _("illegal value for '%s', only 'yes|true|on' or 'no|false|off' allowed, at '%s' line %d"), \
178 name, var, fname, lineno); \
179 } while (0)
180
181 void configuration::read_config (bool need_keys)
182 {
183 char *fname;
184 FILE *f;
185
186 clear_config ();
187
188 asprintf (&fname, "%s/gvpe.conf", confbase);
189 f = fopen (fname, "r");
190
191 if (f)
192 {
193 char line[16384];
194 int lineno = 0;
195 char *var, *val;
196 conf_node *node = &default_node;
197
198 while (fgets (line, sizeof (line), f))
199 {
200 lineno++;
201
202 {
203 char *end = line + strlen (line);
204
205 while (*end < ' ' && end >= line)
206 end--;
207
208 *++end = 0;
209 }
210
211 char *tok = line;
212
213 retry:
214 var = strtok (tok, "\t =");
215 tok = 0;
216
217 if (!var || !var[0])
218 continue; /* no tokens on this line */
219
220 if (var[0] == '#')
221 continue; /* comment: ignore */
222
223 val = strtok (NULL, "\t\n\r =");
224
225 if (!val || val[0] == '#')
226 {
227 slog (L_WARN,
228 _("no value for variable `%s', at '%s' line %d, skipping."),
229 var, fname, lineno);
230 continue;
231 }
232
233 if (!strcmp (var, "on"))
234 {
235 if (!::thisnode
236 || (val[0] == '!' && strcmp (val + 1, ::thisnode))
237 || !strcmp (val, ::thisnode))
238 goto retry;
239
240 continue;
241 }
242
243 // truly global
244 if (!strcmp (var, "loglevel"))
245 {
246 loglevel l = string_to_loglevel (val);
247
248 if (l != L_NONE)
249 llevel = l;
250 else
251 slog (L_WARN, "'%s': %s, at '%s' line %d", val, UNKNOWN_LOGLEVEL, fname, line);
252 }
253 else if (!strcmp (var, "ip-proto"))
254 ip_proto = atoi (val);
255 else if (!strcmp (var, "icmp-type"))
256 {
257 #if ENABLE_ICMP
258 icmp_type = atoi (val);
259 #endif
260 }
261
262 // per config
263 else if (!strcmp (var, "node"))
264 {
265 default_node.id++;
266
267 node = new conf_node (default_node);
268
269 nodes.push_back (node);
270
271 node->nodename = strdup (val);
272
273 {
274 char *fname;
275 FILE *f;
276
277 asprintf (&fname, "%s/pubkey/%s", confbase, node->nodename);
278
279 f = fopen (fname, "r");
280 if (f)
281 {
282 node->rsa_key = RSA_new ();
283
284 if (!PEM_read_RSAPublicKey(f, &node->rsa_key, NULL, NULL))
285 {
286 ERR_load_RSA_strings (); ERR_load_PEM_strings ();
287 slog (L_ERR, _("unable to open public rsa key file '%s': %s"), fname, ERR_error_string (ERR_get_error (), 0));
288 exit (EXIT_FAILURE);
289 }
290
291 require (RSA_blinding_on (node->rsa_key, 0));
292
293 fclose (f);
294 }
295 else
296 {
297 slog (need_keys ? L_ERR : L_NOTICE, _("unable to read public rsa key file '%s': %s"), fname, strerror (errno));
298
299 if (need_keys)
300 exit (EXIT_FAILURE);
301 }
302
303 free (fname);
304 }
305
306 if (::thisnode && !strcmp (node->nodename, ::thisnode))
307 thisnode = node;
308 }
309 else if (!strcmp (var, "private-key"))
310 free (prikeyfile), prikeyfile = strdup (val);
311 else if (!strcmp (var, "ifpersist"))
312 parse_bool (ifpersist, "ifpersist", true, false);
313 else if (!strcmp (var, "ifname"))
314 free (ifname), ifname = strdup (val);
315 else if (!strcmp (var, "rekey"))
316 rekey = atoi (val);
317 else if (!strcmp (var, "keepalive"))
318 keepalive = atoi (val);
319 else if (!strcmp (var, "mtu"))
320 mtu = atoi (val);
321 else if (!strcmp (var, "if-up"))
322 free (script_if_up), script_if_up = strdup (val);
323 else if (!strcmp (var, "node-up"))
324 free (script_node_up), script_node_up = strdup (val);
325 else if (!strcmp (var, "node-down"))
326 free (script_node_down), script_node_down = strdup (val);
327 else if (!strcmp (var, "pid-file"))
328 free (pidfilename), pidfilename = strdup (val);
329 else if (!strcmp (var, "dns-forw-host"))
330 {
331 #if ENABLE_DNS
332 free (dns_forw_host), dns_forw_host = strdup (val);
333 #endif
334 }
335 else if (!strcmp (var, "dns-forw-port"))
336 {
337 #if ENABLE_DNS
338 dns_forw_port = atoi (val);
339 #endif
340 }
341 else if (!strcmp (var, "dns-timeout-factor"))
342 {
343 #if ENABLE_DNS
344 dns_timeout_factor = atof (val);
345 #endif
346 }
347 else if (!strcmp (var, "dns-send-interval"))
348 {
349 #if ENABLE_DNS
350 dns_send_interval = atoi (val);
351 #endif
352 }
353 else if (!strcmp (var, "dns-overlap-factor"))
354 {
355 #if ENABLE_DNS
356 dns_overlap_factor = atof (val);
357 #endif
358 }
359 else if (!strcmp (var, "dns-max-outstanding"))
360 {
361 #if ENABLE_DNS
362 dns_max_outstanding = atoi (val);
363 #endif
364 }
365 else if (!strcmp (var, "http-proxy-host"))
366 {
367 #if ENABLE_HTTP_PROXY
368 free (proxy_host), proxy_host = strdup (val);
369 #endif
370 }
371 else if (!strcmp (var, "http-proxy-port"))
372 {
373 #if ENABLE_HTTP_PROXY
374 proxy_port = atoi (val);
375 #endif
376 }
377 else if (!strcmp (var, "http-proxy-auth"))
378 {
379 #if ENABLE_HTTP_PROXY
380 proxy_auth = (char *)base64_encode ((const u8 *)val, strlen (val));
381 #endif
382 }
383
384 /* node-specific, non-defaultable */
385 else if (node != &default_node && !strcmp (var, "hostname"))
386 free (node->hostname), node->hostname = strdup (val);
387
388 /* node-specific, defaultable */
389 else if (!strcmp (var, "udp-port"))
390 node->udp_port = atoi (val);
391 else if (!strcmp (var, "tcp-port"))
392 node->tcp_port = atoi (val);
393 else if (!strcmp (var, "dns-hostname"))
394 {
395 #if ENABLE_DNS
396 free (node->dns_hostname), node->dns_hostname = strdup (val);
397 #endif
398 }
399 else if (!strcmp (var, "dns-port"))
400 {
401 #if ENABLE_DNS
402 node->dns_port = atoi (val);
403 #endif
404 }
405 else if (!strcmp (var, "dns-domain"))
406 {
407 #if ENABLE_DNS
408 free (node->domain), node->domain = strdup (val);
409 #endif
410 }
411 else if (!strcmp (var, "router-priority"))
412 node->routerprio = atoi (val);
413 else if (!strcmp (var, "max-retry"))
414 node->max_retry = atoi (val);
415 else if (!strcmp (var, "connect"))
416 {
417 if (!strcmp (val, "ondemand"))
418 node->connectmode = conf_node::C_ONDEMAND;
419 else if (!strcmp (val, "never"))
420 node->connectmode = conf_node::C_NEVER;
421 else if (!strcmp (val, "always"))
422 node->connectmode = conf_node::C_ALWAYS;
423 else if (!strcmp (val, "disabled"))
424 node->connectmode = conf_node::C_DISABLED;
425 else
426 slog (L_WARN,
427 _("illegal value for 'connectmode', use one of 'ondemand', 'never', 'always' or 'disabled', at '%s' line %d, ignoring."),
428 var, fname, lineno);
429 }
430 else if (!strcmp (var, "inherit-tos"))
431 parse_bool (node->inherit_tos, "inherit-tos", true, false);
432 else if (!strcmp (var, "compress"))
433 parse_bool (node->compress, "compress", true, false);
434 // all these bool options really really cost a lot of executable size!
435 else if (!strcmp (var, "enable-tcp"))
436 {
437 #if ENABLE_TCP
438 u8 v; parse_bool (v, "enable-tcp" , PROT_TCPv4, 0); node->protocols = (node->protocols & ~PROT_TCPv4) | v;
439 #endif
440 }
441 else if (!strcmp (var, "enable-icmp"))
442 {
443 #if ENABLE_ICMP
444 u8 v; parse_bool (v, "enable-icmp" , PROT_ICMPv4, 0); node->protocols = (node->protocols & ~PROT_ICMPv4) | v;
445 #endif
446 }
447 else if (!strcmp (var, "enable-dns"))
448 {
449 #if ENABLE_DNS
450 u8 v; parse_bool (v, "enable-dns" , PROT_DNSv4, 0); node->protocols = (node->protocols & ~PROT_DNSv4) | v;
451 #endif
452 }
453 else if (!strcmp (var, "enable-udp"))
454 {
455 u8 v; parse_bool (v, "enable-udp" , PROT_UDPv4, 0); node->protocols = (node->protocols & ~PROT_UDPv4) | v;
456 }
457 else if (!strcmp (var, "enable-rawip"))
458 {
459 u8 v; parse_bool (v, "enable-rawip", PROT_IPv4, 0); node->protocols = (node->protocols & ~PROT_IPv4 ) | v;
460 }
461
462 // unknown or misplaced
463 else
464 slog (L_WARN,
465 _("unknown or misplaced variable `%s', at '%s' line %d, skipping."),
466 var, fname, lineno);
467 }
468
469 fclose (f);
470 }
471 else
472 {
473 slog (L_ERR, _("unable to read config file '%s': %s"), fname, strerror (errno));
474 exit (EXIT_FAILURE);
475 }
476
477 free (fname);
478
479 fname = config_filename (prikeyfile, "hostkey");
480
481 f = fopen (fname, "r");
482 if (f)
483 {
484 rsa_key = RSA_new ();
485
486 if (!PEM_read_RSAPrivateKey (f, &rsa_key, NULL, NULL))
487 {
488 ERR_load_RSA_strings (); ERR_load_PEM_strings ();
489 slog (L_ERR, _("unable to read private rsa key file '%s': %s"), fname, ERR_error_string (ERR_get_error (), 0));
490 exit (EXIT_FAILURE);
491 }
492
493 require (RSA_blinding_on (rsa_key, 0));
494
495 fclose (f);
496 }
497 else
498 {
499 slog (need_keys ? L_ERR : L_NOTICE, _("unable to open private rsa key file '%s': %s"), fname, strerror (errno));
500
501 if (need_keys)
502 exit (EXIT_FAILURE);
503 }
504
505 if (need_keys && ::thisnode
506 && rsa_key && thisnode && thisnode->rsa_key)
507 if (BN_cmp (rsa_key->n, thisnode->rsa_key->n) != 0
508 || BN_cmp (rsa_key->e, thisnode->rsa_key->e) != 0)
509 {
510 slog (L_NOTICE, _("private hostkey and public node key mismatch: is '%s' the correct node?"), ::thisnode);
511 exit (EXIT_FAILURE);
512 }
513
514 free (fname);
515 }
516
517 char *configuration::config_filename (const char *name, const char *dflt)
518 {
519 char *fname;
520
521 asprintf (&fname, name ? name : dflt, ::thisnode);
522
523 if (!ABSOLUTE_PATH (fname))
524 {
525 char *rname = fname;
526 asprintf (&fname, "%s/%s", confbase, rname);
527 free (rname);
528 }
529
530 return fname;
531 }
532
533 void
534 configuration::print ()
535 {
536 printf (_("\nConfiguration\n\n"));
537 printf (_("# of nodes: %d\n"), nodes.size ());
538 printf (_("this node: %s\n"), thisnode ? thisnode->nodename : "<unset>");
539 printf (_("MTU: %d\n"), mtu);
540 printf (_("rekeying interval: %d\n"), rekey);
541 printf (_("keepalive interval: %d\n"), keepalive);
542 printf (_("interface: %s\n"), ifname);
543 printf (_("primary rsa key: %s\n"), prikeyfile ? prikeyfile : "<default>");
544 printf (_("rsa key size: %d\n"), rsa_key ? RSA_size (rsa_key) * 8 : -1);
545 printf ("\n");
546
547 printf ("%4s %-17s %s %-8.8s %-10.10s %s\n",
548 _("ID#"), _("MAC"), _("Com"), _("Conmode"), _("Node"), _("Host:Port"));
549
550 for (node_vector::iterator i = nodes.begin (); i != nodes.end (); ++i)
551 (*i)->print ();
552
553 printf ("\n");
554 }
555
556 configuration::configuration ()
557 {
558 asprintf (&confbase, "%s/gvpe", CONFDIR);
559
560 init ();
561 }
562
563 configuration::~configuration ()
564 {
565 cleanup ();
566 }
567
568