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