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