ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/gvpe/src/conf.C
Revision: 1.39
Committed: Sat Mar 26 03:16:24 2005 UTC (19 years, 2 months ago) by pcg
Content type: text/plain
Branch: MAIN
Changes since 1.38: +8 -0 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 0
94 // does not work, because string pointers etc. are shared
95 // is not called, however
96 if (rsa_key)
97 RSA_free (rsa_key);
98
99 free (nodename);
100 free (hostname);
101 free (if_up_data);
102 #if ENABLE_DNS
103 free (domain);
104 free (dns_hostname);
105 #endif
106 #endif
107 }
108
109 void configuration::init ()
110 {
111 memset (this, 0, sizeof (*this));
112
113 mtu = DEFAULT_MTU;
114 rekey = DEFAULT_REKEY;
115 keepalive = DEFAULT_KEEPALIVE;
116 llevel = L_INFO;
117 ip_proto = IPPROTO_GRE;
118 #if ENABLE_ICMP
119 icmp_type = ICMP_ECHOREPLY;
120 #endif
121
122 default_node.udp_port = DEFAULT_UDPPORT;
123 default_node.tcp_port = DEFAULT_UDPPORT; // ehrm
124 default_node.connectmode = conf_node::C_ALWAYS;
125 default_node.compress = true;
126 default_node.protocols = 0;
127 default_node.max_retry = DEFAULT_MAX_RETRY;
128 default_node.if_up_data = strdup ("");
129
130 #if ENABLE_DNS
131 default_node.dns_port = 0; // default is 0 == client
132
133 dns_forw_host = strdup ("127.0.0.1");
134 dns_forw_port = 53;
135 dns_timeout_factor = DEFAULT_DNS_TIMEOUT_FACTOR;
136 dns_send_interval = DEFAULT_DNS_SEND_INTERVAL;
137 dns_overlap_factor = DEFAULT_DNS_OVERLAP_FACTOR;
138 dns_max_outstanding = DEFAULT_DNS_MAX_OUTSTANDING;
139 #endif
140
141 conf.pidfilename = strdup (LOCALSTATEDIR "/run/gvpe.pid");
142 }
143
144 void configuration::cleanup()
145 {
146 if (rsa_key)
147 RSA_free (rsa_key);
148
149 rsa_key = 0;
150
151 free (pidfilename); pidfilename = 0;
152 free (ifname); ifname = 0;
153 #if ENABLE_HTTP_PROXY
154 free (proxy_host); proxy_host = 0;
155 free (proxy_auth); proxy_auth = 0;
156 #endif
157 #if ENABLE_DNS
158 free (dns_forw_host); dns_forw_host = 0;
159 #endif
160 }
161
162 void
163 configuration::clear_config ()
164 {
165 for (configuration::node_vector::iterator i = nodes.begin(); i != nodes.end(); ++i)
166 delete *i;
167
168 nodes.clear ();
169
170 cleanup ();
171 init ();
172 }
173
174 #define parse_bool(target,name,trueval,falseval) do { \
175 if (!strcmp (val, "yes")) target = trueval; \
176 else if (!strcmp (val, "no")) target = falseval; \
177 else if (!strcmp (val, "true")) target = trueval; \
178 else if (!strcmp (val, "false")) target = falseval; \
179 else if (!strcmp (val, "on")) target = trueval; \
180 else if (!strcmp (val, "off")) target = falseval; \
181 else \
182 slog (L_WARN, \
183 _("illegal value for '%s', only 'yes|true|on' or 'no|false|off' allowed, at '%s' line %d"), \
184 name, var, fname, lineno); \
185 } while (0)
186
187 void configuration::read_config (bool need_keys)
188 {
189 char *fname;
190 FILE *f;
191
192 clear_config ();
193
194 asprintf (&fname, "%s/gvpe.conf", confbase);
195 f = fopen (fname, "r");
196
197 if (f)
198 {
199 char line[16384];
200 int lineno = 0;
201 char *var, *val;
202 conf_node *node = &default_node;
203
204 while (fgets (line, sizeof (line), f))
205 {
206 lineno++;
207
208 {
209 char *end = line + strlen (line);
210
211 while (*end < ' ' && end >= line)
212 end--;
213
214 *++end = 0;
215 }
216
217 char *tok = line;
218
219 retry:
220 var = strtok (tok, "\t =");
221 tok = 0;
222
223 if (!var || !var[0])
224 continue; /* no tokens on this line */
225
226 if (var[0] == '#')
227 continue; /* comment: ignore */
228
229 val = strtok (NULL, "\t\n\r =");
230
231 if (!val || val[0] == '#')
232 {
233 slog (L_WARN,
234 _("no value for variable `%s', at '%s' line %d, skipping."),
235 var, fname, lineno);
236 continue;
237 }
238
239 if (!strcmp (var, "on"))
240 {
241 if (!::thisnode
242 || (val[0] == '!' && strcmp (val + 1, ::thisnode))
243 || !strcmp (val, ::thisnode))
244 goto retry;
245
246 continue;
247 }
248
249 // truly global
250 if (!strcmp (var, "loglevel"))
251 {
252 loglevel l = string_to_loglevel (val);
253
254 if (l != L_NONE)
255 llevel = l;
256 else
257 slog (L_WARN, "'%s': %s, at '%s' line %d", val, UNKNOWN_LOGLEVEL, fname, line);
258 }
259 else if (!strcmp (var, "ip-proto"))
260 ip_proto = atoi (val);
261 else if (!strcmp (var, "icmp-type"))
262 {
263 #if ENABLE_ICMP
264 icmp_type = atoi (val);
265 #endif
266 }
267
268 // per config
269 else if (!strcmp (var, "node"))
270 {
271 default_node.id++;
272
273 node = new conf_node (default_node);
274
275 nodes.push_back (node);
276
277 node->nodename = strdup (val);
278
279 {
280 char *fname;
281 FILE *f;
282
283 asprintf (&fname, "%s/pubkey/%s", confbase, node->nodename);
284
285 f = fopen (fname, "r");
286 if (f)
287 {
288 node->rsa_key = RSA_new ();
289
290 if (!PEM_read_RSAPublicKey(f, &node->rsa_key, NULL, NULL))
291 {
292 ERR_load_RSA_strings (); ERR_load_PEM_strings ();
293 slog (L_ERR, _("unable to open public rsa key file '%s': %s"), fname, ERR_error_string (ERR_get_error (), 0));
294 exit (EXIT_FAILURE);
295 }
296
297 require (RSA_blinding_on (node->rsa_key, 0));
298
299 fclose (f);
300 }
301 else
302 {
303 slog (need_keys ? L_ERR : L_NOTICE, _("unable to read public rsa key file '%s': %s"), fname, strerror (errno));
304
305 if (need_keys)
306 exit (EXIT_FAILURE);
307 }
308
309 free (fname);
310 }
311
312 if (::thisnode && !strcmp (node->nodename, ::thisnode))
313 thisnode = node;
314 }
315 else if (!strcmp (var, "private-key"))
316 free (prikeyfile), prikeyfile = strdup (val);
317 else if (!strcmp (var, "ifpersist"))
318 parse_bool (ifpersist, "ifpersist", true, false);
319 else if (!strcmp (var, "ifname"))
320 free (ifname), ifname = strdup (val);
321 else if (!strcmp (var, "rekey"))
322 rekey = atoi (val);
323 else if (!strcmp (var, "keepalive"))
324 keepalive = atoi (val);
325 else if (!strcmp (var, "mtu"))
326 mtu = atoi (val);
327 else if (!strcmp (var, "if-up"))
328 free (script_if_up), script_if_up = strdup (val);
329 else if (!strcmp (var, "node-up"))
330 free (script_node_up), script_node_up = strdup (val);
331 else if (!strcmp (var, "node-down"))
332 free (script_node_down), script_node_down = strdup (val);
333 else if (!strcmp (var, "pid-file"))
334 free (pidfilename), pidfilename = strdup (val);
335 else if (!strcmp (var, "dns-forw-host"))
336 {
337 #if ENABLE_DNS
338 free (dns_forw_host), dns_forw_host = strdup (val);
339 #endif
340 }
341 else if (!strcmp (var, "dns-forw-port"))
342 {
343 #if ENABLE_DNS
344 dns_forw_port = atoi (val);
345 #endif
346 }
347 else if (!strcmp (var, "dns-timeout-factor"))
348 {
349 #if ENABLE_DNS
350 dns_timeout_factor = atof (val);
351 #endif
352 }
353 else if (!strcmp (var, "dns-send-interval"))
354 {
355 #if ENABLE_DNS
356 dns_send_interval = atoi (val);
357 #endif
358 }
359 else if (!strcmp (var, "dns-overlap-factor"))
360 {
361 #if ENABLE_DNS
362 dns_overlap_factor = atof (val);
363 #endif
364 }
365 else if (!strcmp (var, "dns-max-outstanding"))
366 {
367 #if ENABLE_DNS
368 dns_max_outstanding = atoi (val);
369 #endif
370 }
371 else if (!strcmp (var, "http-proxy-host"))
372 {
373 #if ENABLE_HTTP_PROXY
374 free (proxy_host), proxy_host = strdup (val);
375 #endif
376 }
377 else if (!strcmp (var, "http-proxy-port"))
378 {
379 #if ENABLE_HTTP_PROXY
380 proxy_port = atoi (val);
381 #endif
382 }
383 else if (!strcmp (var, "http-proxy-auth"))
384 {
385 #if ENABLE_HTTP_PROXY
386 proxy_auth = (char *)base64_encode ((const u8 *)val, strlen (val));
387 #endif
388 }
389
390 /* node-specific, non-defaultable */
391 else if (node != &default_node && !strcmp (var, "hostname"))
392 free (node->hostname), node->hostname = strdup (val);
393
394 /* node-specific, defaultable */
395 else if (!strcmp (var, "udp-port"))
396 node->udp_port = atoi (val);
397 else if (!strcmp (var, "tcp-port"))
398 node->tcp_port = atoi (val);
399 else if (!strcmp (var, "dns-hostname"))
400 {
401 #if ENABLE_DNS
402 free (node->dns_hostname), node->dns_hostname = strdup (val);
403 #endif
404 }
405 else if (!strcmp (var, "dns-port"))
406 {
407 #if ENABLE_DNS
408 node->dns_port = atoi (val);
409 #endif
410 }
411 else if (!strcmp (var, "dns-domain"))
412 {
413 #if ENABLE_DNS
414 free (node->domain), node->domain = strdup (val);
415 #endif
416 }
417 else if (!strcmp (var, "if-up-data"))
418 free (node->if_up_data), node->if_up_data = strdup (val);
419 else if (!strcmp (var, "router-priority"))
420 node->routerprio = atoi (val);
421 else if (!strcmp (var, "max-retry"))
422 node->max_retry = atoi (val);
423 else if (!strcmp (var, "connect"))
424 {
425 if (!strcmp (val, "ondemand"))
426 node->connectmode = conf_node::C_ONDEMAND;
427 else if (!strcmp (val, "never"))
428 node->connectmode = conf_node::C_NEVER;
429 else if (!strcmp (val, "always"))
430 node->connectmode = conf_node::C_ALWAYS;
431 else if (!strcmp (val, "disabled"))
432 node->connectmode = conf_node::C_DISABLED;
433 else
434 slog (L_WARN,
435 _("illegal value for 'connectmode', use one of 'ondemand', 'never', 'always' or 'disabled', at '%s' line %d, ignoring."),
436 var, fname, lineno);
437 }
438 else if (!strcmp (var, "inherit-tos"))
439 parse_bool (node->inherit_tos, "inherit-tos", true, false);
440 else if (!strcmp (var, "compress"))
441 parse_bool (node->compress, "compress", true, false);
442 // all these bool options really really cost a lot of executable size!
443 else if (!strcmp (var, "enable-tcp"))
444 {
445 #if ENABLE_TCP
446 u8 v; parse_bool (v, "enable-tcp" , PROT_TCPv4, 0); node->protocols = (node->protocols & ~PROT_TCPv4) | v;
447 #endif
448 }
449 else if (!strcmp (var, "enable-icmp"))
450 {
451 #if ENABLE_ICMP
452 u8 v; parse_bool (v, "enable-icmp" , PROT_ICMPv4, 0); node->protocols = (node->protocols & ~PROT_ICMPv4) | v;
453 #endif
454 }
455 else if (!strcmp (var, "enable-dns"))
456 {
457 #if ENABLE_DNS
458 u8 v; parse_bool (v, "enable-dns" , PROT_DNSv4, 0); node->protocols = (node->protocols & ~PROT_DNSv4) | v;
459 #endif
460 }
461 else if (!strcmp (var, "enable-udp"))
462 {
463 u8 v; parse_bool (v, "enable-udp" , PROT_UDPv4, 0); node->protocols = (node->protocols & ~PROT_UDPv4) | v;
464 }
465 else if (!strcmp (var, "enable-rawip"))
466 {
467 u8 v; parse_bool (v, "enable-rawip", PROT_IPv4, 0); node->protocols = (node->protocols & ~PROT_IPv4 ) | v;
468 }
469
470 // unknown or misplaced
471 else
472 slog (L_WARN,
473 _("unknown or misplaced variable `%s', at '%s' line %d, skipping."),
474 var, fname, lineno);
475 }
476
477 fclose (f);
478 }
479 else
480 {
481 slog (L_ERR, _("unable to read config file '%s': %s"), fname, strerror (errno));
482 exit (EXIT_FAILURE);
483 }
484
485 free (fname);
486
487 fname = config_filename (prikeyfile, "hostkey");
488
489 f = fopen (fname, "r");
490 if (f)
491 {
492 rsa_key = RSA_new ();
493
494 if (!PEM_read_RSAPrivateKey (f, &rsa_key, NULL, NULL))
495 {
496 ERR_load_RSA_strings (); ERR_load_PEM_strings ();
497 slog (L_ERR, _("unable to read private rsa key file '%s': %s"), fname, ERR_error_string (ERR_get_error (), 0));
498 exit (EXIT_FAILURE);
499 }
500
501 require (RSA_blinding_on (rsa_key, 0));
502
503 fclose (f);
504 }
505 else
506 {
507 slog (need_keys ? L_ERR : L_NOTICE, _("unable to open private rsa key file '%s': %s"), fname, strerror (errno));
508
509 if (need_keys)
510 exit (EXIT_FAILURE);
511 }
512
513 if (need_keys && ::thisnode
514 && rsa_key && thisnode && thisnode->rsa_key)
515 if (BN_cmp (rsa_key->n, thisnode->rsa_key->n) != 0
516 || BN_cmp (rsa_key->e, thisnode->rsa_key->e) != 0)
517 {
518 slog (L_NOTICE, _("private hostkey and public node key mismatch: is '%s' the correct node?"), ::thisnode);
519 exit (EXIT_FAILURE);
520 }
521
522 free (fname);
523 }
524
525 char *configuration::config_filename (const char *name, const char *dflt)
526 {
527 char *fname;
528
529 asprintf (&fname, name ? name : dflt, ::thisnode);
530
531 if (!ABSOLUTE_PATH (fname))
532 {
533 char *rname = fname;
534 asprintf (&fname, "%s/%s", confbase, rname);
535 free (rname);
536 }
537
538 return fname;
539 }
540
541 void
542 configuration::print ()
543 {
544 printf (_("\nConfiguration\n\n"));
545 printf (_("# of nodes: %d\n"), nodes.size ());
546 printf (_("this node: %s\n"), thisnode ? thisnode->nodename : "<unset>");
547 printf (_("MTU: %d\n"), mtu);
548 printf (_("rekeying interval: %d\n"), rekey);
549 printf (_("keepalive interval: %d\n"), keepalive);
550 printf (_("interface: %s\n"), ifname);
551 printf (_("primary rsa key: %s\n"), prikeyfile ? prikeyfile : "<default>");
552 printf (_("rsa key size: %d\n"), rsa_key ? RSA_size (rsa_key) * 8 : -1);
553 printf ("\n");
554
555 printf ("%4s %-17s %s %-8.8s %-10.10s %s\n",
556 _("ID#"), _("MAC"), _("Com"), _("Conmode"), _("Node"), _("Host:Port"));
557
558 for (node_vector::iterator i = nodes.begin (); i != nodes.end (); ++i)
559 (*i)->print ();
560
561 printf ("\n");
562 }
563
564 configuration::configuration ()
565 {
566 asprintf (&confbase, "%s/gvpe", CONFDIR);
567
568 init ();
569 }
570
571 configuration::~configuration ()
572 {
573 cleanup ();
574 }
575
576