ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/gvpe/src/vpn.C
(Generate patch)

Comparing gvpe/src/vpn.C (file contents):
Revision 1.2 by pcg, Wed Apr 2 05:15:00 2003 UTC vs.
Revision 1.51 by pcg, Sun Aug 10 14:48:57 2008 UTC

1/* 1/*
2 vpn.C -- handle the protocol, encryption, handshaking etc. 2 vpn.C -- handle the protocol, encryption, handshaking etc.
3 Copyright (C) 2003-2008 Marc Lehmann <gvpe@schmorp.de>
3 4
5 This file is part of GVPE.
6
4 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
5 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
6 the Free Software Foundation; either version 2 of the License, or 9 Free Software Foundation; either version 3 of the License, or (at your
7 (at your option) any later version. 10 option) any later version.
8 11
9 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
10 but WITHOUT ANY WARRANTY; without even the implied warranty of 13 WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
12 GNU General Public License for more details. 15 Public License for more details.
13 16
14 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
15 along with this program; if not, write to the Free Software 18 with this program; if not, see <http://www.gnu.org/licenses/>.
16 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.
17*/ 30*/
18 31
19#include "config.h" 32#include "config.h"
20 33
21#include <list> 34#include <list>
22 35
36#include <cstdio>
37#include <cstring>
23#include <cstdlib> 38#include <cstdlib>
24#include <cstring>
25#include <cstdio>
26 39
27#include <sys/types.h> 40#include <sys/types.h>
28#include <sys/socket.h> 41#include <sys/socket.h>
29#include <sys/poll.h>
30#include <sys/wait.h> 42#include <sys/wait.h>
31#include <netinet/in.h>
32#include <arpa/inet.h>
33#include <errno.h> 43#include <errno.h>
34#include <time.h> 44#include <time.h>
35#include <unistd.h> 45#include <unistd.h>
46#include <fcntl.h>
47#include <sys/socket.h>
48
49#include "netcompat.h"
36 50
37#include "pidfile.h" 51#include "pidfile.h"
38 52
39#include "connection.h" 53#include "connection.h"
40#include "util.h" 54#include "util.h"
41#include "vpn.h" 55#include "vpn.h"
42 56
43#if ENABLE_TCP 57vpn network; // THE vpn (bad design...)
44# include <map>
45# include <unistd.h>
46# include <fcntl.h>
47# include <sys/poll.h>
48#endif
49 58
50///////////////////////////////////////////////////////////////////////////// 59/////////////////////////////////////////////////////////////////////////////
51 60
52const char *vpn::script_if_up () 61static void inline
62set_tos (int fd, int &tos_prev, int tos)
63{
64#if defined(SOL_IP) && defined(IP_TOS)
65 if (tos_prev == tos)
66 return;
67
68 tos_prev = tos;
69 setsockopt (fd, SOL_IP, IP_TOS, &tos, sizeof tos);
70#endif
71}
72
73void
74vpn::script_init_env ()
53{ 75{
54 // the tunnel device mtu should be the physical mtu - overhead 76 // the tunnel device mtu should be the physical mtu - overhead
55 // the tricky part is rounding to the cipher key blocksize 77 // the tricky part is rounding to the cipher key blocksize
56 int mtu = conf.mtu - ETH_OVERHEAD - VPE_OVERHEAD - MAX_OVERHEAD; 78 int mtu = conf.mtu - ETH_OVERHEAD - VPE_OVERHEAD - MAX_OVERHEAD;
57 mtu += ETH_OVERHEAD - 6 - 6; // now we have the data portion 79 mtu += ETH_OVERHEAD - 6 - 6; // now we have the data portion
58 mtu -= mtu % EVP_CIPHER_block_size (CIPHER); // round 80 mtu -= mtu % EVP_CIPHER_block_size (CIPHER); // round
59 mtu -= ETH_OVERHEAD - 6 - 6; // and get interface mtu again 81 mtu -= ETH_OVERHEAD - 6 - 6; // and get interface mtu again
60 82
61 char *env; 83 char *env;
62 asprintf (&env, "CONFBASE=%s", confbase); 84 asprintf (&env, "CONFBASE=%s", confbase); putenv (env);
63 putenv (env);
64 asprintf (&env, "NODENAME=%s", THISNODE->nodename);
65 putenv (env);
66 asprintf (&env, "NODEID=%d", THISNODE->id);
67 putenv (env);
68 asprintf (&env, "IFNAME=%s", tap->interface ()); 85 asprintf (&env, "IFNAME=%s", tap->interface ()); putenv (env);
69 putenv (env); 86 asprintf (&env, "IFTYPE=%s", IFTYPE); putenv (env);
87 asprintf (&env, "IFSUBTYPE=%s", IFSUBTYPE); putenv (env);
70 asprintf (&env, "MTU=%d", mtu); 88 asprintf (&env, "MTU=%d", mtu); putenv (env);
71 putenv (env); 89 asprintf (&env, "NODES=%d", conns.size ()); putenv (env);
72 asprintf (&env, "MAC=%02x:%02x:%02x:%02x:%02x:%02x", 90 asprintf (&env, "NODEID=%d", THISNODE->id); putenv (env);
73 0xfe, 0xfd, 0x80, 0x00, THISNODE->id >> 8,
74 THISNODE->id & 0xff);
75 putenv (env);
76 91
92 conns [THISNODE->id - 1]->script_init_env ("");
93
94 for (conns_vector::iterator c = conns.begin (); c != conns.end (); ++c)
95 {
96 char ext[16];
97 snprintf (ext, 16, "_%d", (*c)->conf->id);
98 (*c)->script_init_env (ext);
99 }
100}
101
102inline const char *
103vpn::script_if_init ()
104{
105 script_init_env ();
106
107 return tap->if_up ();
108}
109
110inline const char *
111vpn::script_if_up ()
112{
113 script_init_env ();
114
115 char *filename;
116 asprintf (&filename,
117 "%s/%s",
118 confbase,
77 return ::conf.script_if_up ? ::conf.script_if_up : "if-up"; 119 ::conf.script_if_up ? ::conf.script_if_up : "if-up");
120
121 return filename;
78} 122}
79 123
80int 124int
81vpn::setup () 125vpn::setup ()
82{ 126{
127 int success = 0;
128
129 ipv4_tos = -1;
83 udpv4_fd = -1; 130 ipv4_fd = -1;
84 131
85 if (THISNODE->protocols & PROT_UDPv4) 132 if (THISNODE->protocols & PROT_IPv4 && ::conf.ip_proto)
86 { 133 {
87 udpv4_fd = socket (PF_INET, SOCK_DGRAM, IPPROTO_UDP); 134 ipv4_fd = socket (PF_INET, SOCK_RAW, ::conf.ip_proto);
88 135
89 if (udpv4_fd < 0) 136 if (ipv4_fd < 0)
90 return -1; 137 return -1;
91 138
92 sockinfo si (THISNODE, PROT_UDPv4); 139 fcntl (ipv4_fd, F_SETFL, O_NONBLOCK);
140 fcntl (ipv4_fd, F_SETFD, FD_CLOEXEC);
93 141
94 if (bind (udpv4_fd, si.sav4 (), si.salenv4 ())) 142#if defined(SOL_IP) && defined(IP_MTU_DISCOVER)
95 {
96 slog (L_ERR, _("can't bind udpv4 on %s: %s"), (const char *)si, strerror (errno));
97 exit (1);
98 }
99
100#ifdef IP_MTU_DISCOVER
101 // this I really consider a linux bug. I am neither connected 143 // this I really consider a linux bug. I am neither connected
102 // nor do I fragment myself. Linux still sets DF and doesn't 144 // nor do I fragment myself. Linux still sets DF and doesn't
103 // fragment for me sometimes. 145 // fragment for me sometimes.
104 { 146 {
105 int oval = IP_PMTUDISC_DONT; 147 int oval = IP_PMTUDISC_DONT;
106 setsockopt (udpv4_fd, SOL_IP, IP_MTU_DISCOVER, &oval, sizeof oval); 148 setsockopt (ipv4_fd, SOL_IP, IP_MTU_DISCOVER, &oval, sizeof oval);
149 }
150#endif
151
152 sockinfo si (THISNODE, PROT_IPv4);
153
154 if (bind (ipv4_fd, si.sav4 (), si.salenv4 ()))
155 {
156 slog (L_ERR, _("can't bind ipv4 socket on %s: %s, exiting."), (const char *)si, strerror (errno));
157 exit (EXIT_FAILURE);
107 } 158 }
108#endif 159
160 ipv4_ev_watcher.start (ipv4_fd, EV_READ);
161 ++success;
162 }
163 else
164 THISNODE->protocols &= ~PROT_IPv4;
165
166 udpv4_tos = -1;
167 udpv4_fd = -1;
168
169 if (THISNODE->protocols & PROT_UDPv4 && THISNODE->udp_port)
170 {
171 udpv4_fd = socket (PF_INET, SOCK_DGRAM, IPPROTO_UDP);
172
173 if (udpv4_fd < 0)
174 return -1;
175
176 fcntl (udpv4_fd, F_SETFL, O_NONBLOCK);
177 fcntl (udpv4_fd, F_SETFD, FD_CLOEXEC);
109 178
110 // standard daemon practise... 179 // standard daemon practise...
111 { 180 {
112 int oval = 1; 181 int oval = 1;
113 setsockopt (udpv4_fd, SOL_SOCKET, SO_REUSEADDR, &oval, sizeof oval); 182 setsockopt (udpv4_fd, SOL_SOCKET, SO_REUSEADDR, &oval, sizeof oval);
114 } 183 }
115 184
116 udpv4_ev_watcher.start (udpv4_fd, POLLIN); 185#if defined(SOL_IP) && defined(IP_MTU_DISCOVER)
117 }
118
119 ipv4_fd = -1;
120 if (THISNODE->protocols & PROT_IPv4)
121 {
122 ipv4_fd = socket (PF_INET, SOCK_RAW, ::conf.ip_proto);
123
124 if (ipv4_fd < 0)
125 return -1;
126
127 sockinfo si (THISNODE, PROT_IPv4);
128
129 if (bind (ipv4_fd, si.sav4 (), si.salenv4 ()))
130 {
131 slog (L_ERR, _("can't bind ipv4 socket on %s: %s"), (const char *)si, strerror (errno));
132 exit (1);
133 }
134
135#ifdef IP_MTU_DISCOVER
136 // this I really consider a linux bug. I am neither connected 186 // this I really consider a linux bug. I am neither connected
137 // nor do I fragment myself. Linux still sets DF and doesn't 187 // nor do I fragment myself. Linux still sets DF and doesn't
138 // fragment for me sometimes. 188 // fragment for me sometimes.
139 { 189 {
140 int oval = IP_PMTUDISC_DONT; 190 int oval = IP_PMTUDISC_DONT;
191 setsockopt (udpv4_fd, SOL_IP, IP_MTU_DISCOVER, &oval, sizeof oval);
192 }
193#endif
194
195 sockinfo si (THISNODE, PROT_UDPv4);
196
197 if (bind (udpv4_fd, si.sav4 (), si.salenv4 ()))
198 {
199 slog (L_ERR, _("can't bind udpv4 on %s: %s, exiting."), (const char *)si, strerror (errno));
200 exit (EXIT_FAILURE);
201 }
202
203 udpv4_ev_watcher.start (udpv4_fd, EV_READ);
204 ++success;
205 }
206 else
207 THISNODE->protocols &= ~PROT_UDPv4;
208
209 icmpv4_tos = -1;
210 icmpv4_fd = -1;
211
212#if ENABLE_ICMP
213 if (THISNODE->protocols & PROT_ICMPv4)
214 {
215 icmpv4_fd = socket (PF_INET, SOCK_RAW, IPPROTO_ICMP);
216
217 if (icmpv4_fd < 0)
218 return -1;
219
220 fcntl (icmpv4_fd, F_SETFL, O_NONBLOCK);
221 fcntl (icmpv4_fd, F_SETFD, FD_CLOEXEC);
222
223#ifdef ICMP_FILTER
224 {
225 icmp_filter oval;
226 oval.data = 0xffffffff;
227 if (::conf.icmp_type < 32)
228 oval.data &= ~(1 << ::conf.icmp_type);
229
230 setsockopt (icmpv4_fd, SOL_RAW, ICMP_FILTER, &oval, sizeof oval);
231 }
232#endif
233
234#if defined(SOL_IP) && defined(IP_MTU_DISCOVER)
235 // this I really consider a linux bug. I am neither connected
236 // nor do I fragment myself. Linux still sets DF and doesn't
237 // fragment for me sometimes.
238 {
239 int oval = IP_PMTUDISC_DONT;
141 setsockopt (ipv4_fd, SOL_IP, IP_MTU_DISCOVER, &oval, sizeof oval); 240 setsockopt (icmpv4_fd, SOL_IP, IP_MTU_DISCOVER, &oval, sizeof oval);
241 }
242#endif
243
244 sockinfo si (THISNODE, PROT_ICMPv4);
245
246 if (bind (icmpv4_fd, si.sav4 (), si.salenv4 ()))
247 {
248 slog (L_ERR, _("can't bind icmpv4 on %s: %s, exiting."), (const char *)si, strerror (errno));
249 exit (EXIT_FAILURE);
142 } 250 }
143#endif
144 251
145 ipv4_ev_watcher.start (ipv4_fd, POLLIN); 252 icmpv4_ev_watcher.start (icmpv4_fd, EV_READ);
253 ++success;
146 } 254 }
255#endif
256
257 tcpv4_fd = -1;
147 258
148#if ENABLE_TCP 259#if ENABLE_TCP
149 if (THISNODE->protocols & PROT_TCPv4) 260 if (THISNODE->protocols & PROT_TCPv4 && THISNODE->tcp_port)
150 { 261 {
151 tcpv4_fd = socket (PF_INET, SOCK_STREAM, IPPROTO_TCP); 262 tcpv4_fd = socket (PF_INET, SOCK_STREAM, IPPROTO_TCP);
152 263
153 if (tcpv4_fd < 0) 264 if (tcpv4_fd < 0)
154 return -1; 265 return -1;
155 266
156 sockinfo si (THISNODE, PROT_TCPv4); 267 fcntl (tcpv4_fd, F_SETFL, O_NONBLOCK);
157 268 fcntl (tcpv4_fd, F_SETFD, FD_CLOEXEC);
158 if (bind (tcpv4_fd, si.sav4 (), si.salenv4 ()))
159 {
160 slog (L_ERR, _("can't bind tcpv4 on %s: %s"), (const char *)si, strerror (errno));
161 exit (1);
162 }
163
164 if (listen (tcpv4_fd, 5))
165 {
166 slog (L_ERR, _("can't listen tcpv4 on %s: %s"), (const char *)si, strerror (errno));
167 exit (1);
168 }
169 269
170 // standard daemon practise... 270 // standard daemon practise...
171 { 271 {
172 int oval = 1; 272 int oval = 1;
173 setsockopt (tcpv4_fd, SOL_SOCKET, SO_REUSEADDR, &oval, sizeof oval); 273 setsockopt (tcpv4_fd, SOL_SOCKET, SO_REUSEADDR, &oval, sizeof oval);
174 } 274 }
175 275
276 sockinfo si (THISNODE, PROT_TCPv4);
277
278 if (bind (tcpv4_fd, si.sav4 (), si.salenv4 ()))
279 {
280 slog (L_ERR, _("can't bind tcpv4 on %s: %s, exiting."), (const char *)si, strerror (errno));
281 exit (EXIT_FAILURE);
282 }
283
284 if (listen (tcpv4_fd, 5))
285 {
286 slog (L_ERR, _("can't listen tcpv4 on %s: %s, exiting."), (const char *)si, strerror (errno));
287 exit (EXIT_FAILURE);
288 }
289
176 tcpv4_accept_watcher.start (tcpv4_fd, POLLIN); 290 tcpv4_ev_watcher.start (tcpv4_fd, EV_READ);
291 ++success;
292 }
293 else
294 THISNODE->protocols &= ~PROT_TCPv4;
295#endif
296
297 dnsv4_tos = -1;
298 dnsv4_fd = -1;
299
300#if ENABLE_DNS
301 if (THISNODE->protocols & PROT_DNSv4)
302 {
303 dns_forwarder.set (::conf.dns_forw_host, ::conf.dns_forw_port, PROT_DNSv4);
304
305 dnsv4_fd = socket (PF_INET, SOCK_DGRAM, IPPROTO_UDP);
306
307 if (dnsv4_fd < 0)
308 return -1;
309
310 fcntl (dnsv4_fd, F_SETFL, O_NONBLOCK);
311 fcntl (dnsv4_fd, F_SETFD, FD_CLOEXEC);
312
313# if defined(SOL_IP) && defined(IP_MTU_DISCOVER)
314 // this I really consider a linux bug. I am neither connected
315 // nor do I fragment myself. Linux still sets DF and doesn't
316 // fragment for me sometimes.
317 {
318 int oval = IP_PMTUDISC_DONT;
319 setsockopt (dnsv4_fd, SOL_IP, IP_MTU_DISCOVER, &oval, sizeof oval);
177 } 320 }
178#endif 321# endif
322
323 // standard daemon practise...
324 {
325 int oval = 1;
326 setsockopt (dnsv4_fd, SOL_SOCKET, SO_REUSEADDR, &oval, sizeof oval);
327 }
328
329 sockinfo si (THISNODE->dns_hostname,
330 THISNODE->dns_hostname ? THISNODE->dns_port : 0,
331 PROT_DNSv4);
332
333 if (bind (dnsv4_fd, si.sav4 (), si.salenv4 ()))
334 {
335 slog (L_ERR, _("can't bind dnsv4 on %s: %s, exiting."), (const char *)si, strerror (errno));
336 exit (EXIT_FAILURE);
337 }
338
339 dnsv4_ev_watcher.start (dnsv4_fd, EV_READ);
340 ++success;
341 }
342#endif
343
344 /////////////////////////////////////////////////////////////////////////////
345
346 if (!success)
347 {
348 slog (L_ERR, _("no protocols enabled, exiting."));
349 exit (EXIT_FAILURE);
350 }
351
352 reconnect_all ();
353
354 /////////////////////////////////////////////////////////////////////////////
179 355
180 tap = new tap_device (); 356 tap = new tap_device ();
181 if (!tap) //D this, of course, never catches 357 if (!tap) //D this, of course, never catches
182 { 358 {
183 slog (L_ERR, _("cannot create network interface '%s'"), conf.ifname); 359 slog (L_ERR, _("cannot create network interface '%s', exiting."), conf.ifname);
184 exit (1); 360 exit (EXIT_FAILURE);
185 } 361 }
186 362
187 run_script (run_script_cb (this, &vpn::script_if_up), true); 363 fcntl (tap->fd, F_SETFD, FD_CLOEXEC);
188 364
365 run_script_cb cb;
366 cb.set<vpn, &vpn::script_if_init> (this);
367
368 if (tap->if_up () &&
369 !run_script (cb, true))
370 {
371 slog (L_ERR, _("interface initialization command '%s' failed, exiting."),
372 tap->if_up ());
373 exit (EXIT_FAILURE);
374 }
375
376 cb.set<vpn, &vpn::script_if_up> (this);
377 if (!run_script (cb, true))
378 {
379 slog (L_ERR, _("if-up command execution failed, exiting."));
380 exit (EXIT_FAILURE);
381 }
382
189 tap_ev_watcher.start (tap->fd, POLLIN); 383 tap_ev_watcher.start (tap->fd, EV_READ);
190
191 reconnect_all ();
192 384
193 return 0; 385 return 0;
194} 386}
195 387
388bool
389vpn::send_ipv4_packet (vpn_packet *pkt, const sockinfo &si, int tos)
390{
391 set_tos (ipv4_fd, ipv4_tos, tos);
392 sendto (ipv4_fd, &((*pkt)[0]), pkt->len, 0, si.sav4 (), si.salenv4 ());
393
394 return true;
395}
396
397static u16
398ipv4_checksum (u16 *data, unsigned int len)
399{
400 // use 32 bit accumulator and fold back carry bits at the end
401 u32 sum = 0;
402
403 while (len > 1)
404 {
405 sum += *data++;
406 len -= 2;
407 }
408
409 // odd byte left?
410 if (len)
411 sum += *(u8 *)data;
412
413 // add back carry bits
414 sum = (sum >> 16) + (sum & 0xffff); // lo += hi
415 sum += (sum >> 16); // carry
416
417 return ~sum;
418}
419
420#if ENABLE_ICMP
421bool
422vpn::send_icmpv4_packet (vpn_packet *pkt, const sockinfo &si, int tos)
423{
424 pkt->unshift_hdr (4);
425
426 icmp_header *hdr = (icmp_header *)&((*pkt)[0]);
427 hdr->type = ::conf.icmp_type;
428 hdr->code = 255;
429 hdr->checksum = 0;
430 hdr->checksum = ipv4_checksum ((u16 *)hdr, pkt->len);
431
432 set_tos (icmpv4_fd, icmpv4_tos, tos);
433 sendto (icmpv4_fd, &((*pkt)[0]), pkt->len, 0, si.sav4 (), si.salenv4 ());
434
435 return true;
436}
437#endif
438
439bool
440vpn::send_udpv4_packet (vpn_packet *pkt, const sockinfo &si, int tos)
441{
442 set_tos (udpv4_fd, udpv4_tos, tos);
443 sendto (udpv4_fd, &((*pkt)[0]), pkt->len, 0, si.sav4 (), si.salenv4 ());
444
445 return true;
446}
447
196void 448void
197vpn::send_ipv4_packet (vpn_packet *pkt, const sockinfo &si, int tos) 449vpn::inject_data_packet (tap_packet *pkt, int dst)
198{ 450{
199 setsockopt (ipv4_fd, SOL_IP, IP_TOS, &tos, sizeof tos); 451 if (dst)
200 sendto (ipv4_fd, &((*pkt)[0]), pkt->len, 0, si.sav4 (), si.salenv4 ()); 452 {
201} 453 // unicast
202 454 if (dst != THISNODE->id)
203void 455 conns[dst - 1]->inject_data_packet (pkt);
204vpn::send_udpv4_packet (vpn_packet *pkt, const sockinfo &si, int tos) 456 }
205{ 457 else
206 setsockopt (udpv4_fd, SOL_IP, IP_TOS, &tos, sizeof tos); 458 {
207 sendto (udpv4_fd, &((*pkt)[0]), pkt->len, 0, si.sav4 (), si.salenv4 ()); 459 // broadcast, this is ugly, but due to the security policy
460 // we have to connect to all hosts...
461 for (conns_vector::iterator c = conns.begin (); c != conns.end (); ++c)
462 if ((*c)->conf != THISNODE)
463 (*c)->inject_data_packet (pkt);
464 }
208} 465}
209 466
210void 467void
211vpn::recv_vpn_packet (vpn_packet *pkt, const sockinfo &rsi) 468vpn::recv_vpn_packet (vpn_packet *pkt, const sockinfo &rsi)
212{ 469{
213 unsigned int src = pkt->src (); 470 unsigned int src = pkt->src ();
214 unsigned int dst = pkt->dst (); 471 unsigned int dst = pkt->dst ();
215 472
216 slog (L_NOISE, _("<<?/%s received possible vpn packet type %d from %d to %d, length %d"), 473 slog (L_NOISE, _("<<?/%s received possible vpn packet type %d from %d to %d, length %d."),
217 (const char *)rsi, pkt->typ (), pkt->src (), pkt->dst (), pkt->len); 474 (const char *)rsi, pkt->typ (), pkt->src (), pkt->dst (), pkt->len);
218 475
219 if (src == 0 || src > conns.size () 476 if (src == 0 || src > conns.size ()
220 || dst > conns.size () 477 || dst > conns.size ()
221 || pkt->typ () >= vpn_packet::PT_MAX) 478 || pkt->typ () >= vpn_packet::PT_MAX)
222 slog (L_WARN, _("(%s): received corrupted packet type %d (src %d, dst %d)"), 479 slog (L_WARN, _("(%s): received corrupted packet type %d (src %d, dst %d)."),
223 (const char *)rsi, pkt->typ (), pkt->src (), pkt->dst ()); 480 (const char *)rsi, pkt->typ (), pkt->src (), pkt->dst ());
481 else if (dst > conns.size ())
482 slog (L_WARN, _("(%s): received corrupted packet type %d (src %d, dst %d)."),
483 (const char *)rsi, pkt->typ (), pkt->src (), pkt->dst ());
224 else 484 else
225 { 485 {
226 connection *c = conns[src - 1]; 486 connection *c = conns[src - 1];
227 487
228 if (dst == 0 && !THISNODE->routerprio) 488 if (dst == 0)
229 slog (L_WARN, _("%s(%s): received broadcast, but we are no router"), 489 slog (L_WARN, _("%s(%s): received broadcast (protocol violation)."),
230 c->conf->nodename, (const char *)rsi); 490 c->conf->nodename, (const char *)rsi);
231 else if (dst != 0 && dst != THISNODE->id) 491 else if (dst != THISNODE->id)
232 // FORWARDING NEEDED ;) 492 {
493 if (THISNODE->routerprio)
494 // the tos setting gets lost here. who cares.
495 conns[dst - 1]->inject_vpn_packet (pkt);
496 else
233 slog (L_WARN, 497 slog (L_WARN,
234 _("received frame for node %d ('%s') from %s, but this is node %d ('%s')"), 498 _("%s(%s): request to forward packet to %s, but we are no router (config mismatch?)."),
499 c->conf->nodename, (const char *)rsi,
235 dst, conns[dst - 1]->conf->nodename, 500 conns[dst - 1]->conf->nodename);
236 (const char *)rsi, 501 }
237 THISNODE->id, THISNODE->nodename);
238 else 502 else
239 c->recv_vpn_packet (pkt, rsi); 503 c->recv_vpn_packet (pkt, rsi);
240 } 504 }
241} 505}
242 506
243void 507bool
244vpn::udpv4_ev (int fd, short revents) 508vpn::send_vpn_packet (vpn_packet *pkt, const sockinfo &si, int tos)
245{ 509{
246 if (revents & (POLLIN | POLLERR)) 510 switch (si.prot)
511 {
512 case PROT_IPv4:
513 return send_ipv4_packet (pkt, si, tos);
514
515 case PROT_UDPv4:
516 return send_udpv4_packet (pkt, si, tos);
517
518#if ENABLE_TCP
519 case PROT_TCPv4:
520 return send_tcpv4_packet (pkt, si, tos);
521#endif
522#if ENABLE_ICMP
523 case PROT_ICMPv4:
524 return send_icmpv4_packet (pkt, si, tos);
525#endif
526#if ENABLE_DNS
527 case PROT_DNSv4:
528 return send_dnsv4_packet (pkt, si, tos);
529#endif
530 default:
531 slog (L_CRIT, _("%s: FATAL: trying to send packet with unsupported protocol."), (const char *)si);
532 }
533
534 return false;
535}
536
537inline void
538vpn::ipv4_ev (ev::io &w, int revents)
539{
540 if (revents & EV_READ)
247 { 541 {
248 vpn_packet *pkt = new vpn_packet; 542 vpn_packet *pkt = new vpn_packet;
249 struct sockaddr_in sa; 543 struct sockaddr_in sa;
250 socklen_t sa_len = sizeof (sa); 544 socklen_t sa_len = sizeof (sa);
251 int len; 545 int len;
252 546
253 len = recvfrom (fd, &((*pkt)[0]), MAXSIZE, 0, (sockaddr *)&sa, &sa_len); 547 len = recvfrom (w.fd, &((*pkt)[0]), MAXSIZE, 0, (sockaddr *)&sa, &sa_len);
254 548
255 sockinfo si(sa); 549 sockinfo si(sa, PROT_IPv4);
256 550
257 if (len > 0) 551 if (len > 0)
258 { 552 {
259 pkt->len = len; 553 pkt->len = len;
260 554
555 // raw sockets deliver the ipv4 header, but don't expect it on sends
556 pkt->skip_hdr (IP_OVERHEAD);
557
261 recv_vpn_packet (pkt, si); 558 recv_vpn_packet (pkt, si);
262 } 559 }
263 else 560 else
264 { 561 {
265 // probably ECONNRESET or somesuch 562 // probably ECONNRESET or somesuch
266 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno)); 563 slog (L_DEBUG, _("%s: %s."), (const char *)si, strerror (errno));
267 } 564 }
268 565
269 delete pkt; 566 delete pkt;
270 } 567 }
271 else if (revents & POLLHUP)
272 {
273 // this cannot ;) happen on udp sockets
274 slog (L_ERR, _("FATAL: POLLHUP on udp v4 fd, terminating."));
275 exit (1);
276 }
277 else 568 else
278 { 569 {
279 slog (L_ERR, 570 slog (L_ERR,
280 _("FATAL: unknown revents %08x in socket, terminating\n"), 571 _("FATAL: unknown revents %08x in socket, exiting.\n"),
281 revents); 572 revents);
282 exit (1); 573 exit (EXIT_FAILURE);
283 } 574 }
284} 575}
285 576
286void 577#if ENABLE_ICMP
287vpn::ipv4_ev (int fd, short revents) 578inline void
579vpn::icmpv4_ev (ev::io &w, int revents)
288{ 580{
289 if (revents & (POLLIN | POLLERR)) 581 if (revents & EV_READ)
290 { 582 {
291 vpn_packet *pkt = new vpn_packet; 583 vpn_packet *pkt = new vpn_packet;
292 struct sockaddr_in sa; 584 struct sockaddr_in sa;
293 socklen_t sa_len = sizeof (sa); 585 socklen_t sa_len = sizeof (sa);
294 int len; 586 int len;
295 587
296 len = recvfrom (fd, &((*pkt)[0]), MAXSIZE, 0, (sockaddr *)&sa, &sa_len); 588 len = recvfrom (w.fd, &((*pkt)[0]), MAXSIZE, 0, (sockaddr *)&sa, &sa_len);
297 589
298 sockinfo si(sa, PROT_IPv4); 590 sockinfo si(sa, PROT_ICMPv4);
299 591
300 if (len > 0) 592 if (len > 0)
301 { 593 {
302 pkt->len = len; 594 pkt->len = len;
303 595
596 icmp_header *hdr = (icmp_header *)&((*pkt)[IP_OVERHEAD]);
597
598 if (hdr->type == ::conf.icmp_type
599 && hdr->code == 255)
600 {
304 // raw sockets deliver the ipv4, but don't expect it on sends 601 // raw sockets deliver the ipv4, but don't expect it on sends
305 // this is slow, but... 602 // this is slow, but...
306 pkt->skip_hdr (IP_OVERHEAD); 603 pkt->skip_hdr (ICMP_OVERHEAD);
307 604
308 recv_vpn_packet (pkt, si); 605 recv_vpn_packet (pkt, si);
606 }
309 } 607 }
310 else 608 else
311 { 609 {
312 // probably ECONNRESET or somesuch 610 // probably ECONNRESET or somesuch
313 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno)); 611 slog (L_DEBUG, _("%s: %s."), (const char *)si, strerror (errno));
314 } 612 }
315 613
316 delete pkt; 614 delete pkt;
317 } 615 }
318 else if (revents & POLLHUP)
319 {
320 // this cannot ;) happen on udp sockets
321 slog (L_ERR, _("FATAL: POLLHUP on ipv4 fd, terminating."));
322 exit (1);
323 }
324 else 616 else
325 { 617 {
326 slog (L_ERR, 618 slog (L_ERR,
327 _("FATAL: unknown revents %08x in socket, terminating\n"), 619 _("FATAL: unknown revents %08x in socket, exiting.\n"),
328 revents); 620 revents);
329 exit (1); 621 exit (EXIT_FAILURE);
330 }
331}
332
333#if ENABLE_TCP
334
335struct tcp_info {
336 int fd;
337 bool ok;
338 io_watcher r;
339
340 tcp_info (vpn *v)
341 : r(v, &vpn::tcpv4_ev)
342 { 622 }
343 fd = -1; 623}
624#endif
625
626inline void
627vpn::udpv4_ev (ev::io &w, int revents)
628{
629 if (revents & EV_READ)
344 } 630 {
345 631 vpn_packet *pkt = new vpn_packet;
346 ~tcp_info () { close (fd); }
347};
348
349typedef map<sockinfo, tcp_info *> tcp_si_map;
350typedef map<int, tcp_info *> tcp_fd_map; // unneecssary if iom would be cooler
351static tcp_si_map tcp_si;
352static tcp_fd_map tcp_fd;
353
354void
355vpn::send_tcpv4_packet (vpn_packet *pkt, const sockinfo &si, int tos)
356{
357 tcp_si_map::iterator info = tcp_si.find (si);
358
359 if (info == tcp_si.end ())
360 {
361 // woaw, the first lost packet ;)
362 tcp_info *i = new tcp_info (this);
363
364 i->ok = false;
365 i->fd = socket (PF_INET, SOCK_STREAM, IPPROTO_TCP);
366
367 if (i->fd >= 0)
368 {
369 fcntl (i->fd, F_SETFL, O_NONBLOCK);
370
371 if (connect (i->fd, si.sav4 (), si.salenv4 ()) >= 0
372 || errno == EINPROGRESS)
373 {
374 tcp_si.insert (tcp_si_map::value_type (si, i));
375 tcp_fd.insert (tcp_fd_map::value_type (i->fd, i));
376 return;
377 }
378
379 delete i;
380 }
381 }
382 else
383 {
384 tcp_info *i = info->second;
385
386 if (i->ok)
387 {
388 setsockopt (i->fd, SOL_IP, IP_TOS, &tos, sizeof tos);
389
390 if (write (i->fd, (void *)pkt, pkt->len + sizeof (u32)) != pkt->len + sizeof (u32))
391 {
392 // error, close socket, forget it and retry immediately
393 tcp_si.erase (info);
394 tcp_fd.erase (i->fd);
395 delete i;
396
397 // tail recursion is... better than goto(?)
398 send_tcpv4_packet (pkt, si, tos);
399 }
400 }
401 }
402
403#if 0
404 setsockopt (udpv4_fd, SOL_IP, IP_TOS, &tos, sizeof tos);
405 sendto (udpv4_fd, &((*pkt)[0]), pkt->len, 0, si.sav4 (), si.salenv4 ());
406#endif
407}
408
409void
410vpn::tcpv4_accept (int fd, short revents)
411{
412 if (revents & (POLLIN | POLLERR))
413 {
414 struct sockaddr_in sa; 632 struct sockaddr_in sa;
415 socklen_t sa_len = sizeof (sa); 633 socklen_t sa_len = sizeof (sa);
416 int len; 634 int len;
417 635
418 fd = accept (fd, (sockaddr *)&sa, &sa_len); 636 len = recvfrom (w.fd, &((*pkt)[0]), MAXSIZE, 0, (sockaddr *)&sa, &sa_len);
419 637
420 if (fd >= 0)
421 {
422 fcntl (fd, F_SETFL, O_NONBLOCK);
423
424 sockinfo si(sa, PROT_TCPv4); 638 sockinfo si(sa, PROT_UDPv4);
425 tcp_info *i = new tcp_info (this);
426 639
427 i->fd = fd; 640 if (len > 0)
428 i->ok = true;
429 i->r.start (fd, POLLIN);
430
431 tcp_si.insert (tcp_si_map::value_type (si, i));
432 tcp_fd.insert (tcp_fd_map::value_type (fd, i));
433 } 641 {
434 } 642 pkt->len = len;
435}
436 643
437void 644 recv_vpn_packet (pkt, si);
438vpn::tcpv4_ev (int fd, short revents)
439{
440 if (revents & (POLLIN | POLLERR))
441 {
442 tcp_fd_map::iterator info = tcp_fd.find (fd);
443
444 if (info != tcp_fd.end ())
445 { 645 }
446 tcp_info *i = info->second; 646 else
447
448 if (!i->ok) // not yet established
449 {
450 i->ok = true;
451 fcntl (i->fd, F_SETFL, 0);
452 }
453
454 u32 len;
455
456 if (sizeof (len) == read (fd, &len, sizeof (len)))
457 {
458 slog (L_ERR, "%d bytes received\n", len);
459 }
460
461 //tcp_si.erase (i);
462 tcp_fd.erase (fd);
463 delete i;
464 } 647 {
648 // probably ECONNRESET or somesuch
649 slog (L_DEBUG, _("%s: fd %d, %s."), (const char *)si, w.fd, strerror (errno));
650 }
651
652 delete pkt;
653 }
654 else
465 } 655 {
656 slog (L_ERR,
657 _("FATAL: unknown revents %08x in socket, exiting.\n"),
658 revents);
659 exit (EXIT_FAILURE);
660 }
466} 661}
467 662
468#endif 663inline void
469 664vpn::tap_ev (ev::io &w, int revents)
470void
471vpn::tap_ev (int fd, short revents)
472{ 665{
473 if (revents & POLLIN) 666 if (revents & EV_READ)
474 { 667 {
475 /* process data */ 668 /* process data */
476 tap_packet *pkt; 669 tap_packet *pkt;
477 670
478 pkt = tap->recv (); 671 pkt = tap->recv ();
479 672
673 if (!pkt)
674 return;
675
676 if (pkt->len > 14)
677 {
480 int dst = mac2id (pkt->dst); 678 int dst = mac2id (pkt->dst);
481 int src = mac2id (pkt->src); 679 int src = mac2id (pkt->src);
482 680
483 if (src != THISNODE->id) 681 if (src != THISNODE->id)
484 {
485 slog (L_ERR, _("FATAL: tap packet not originating on current node received, terminating."));
486 exit (1);
487 }
488
489 if (dst == THISNODE->id)
490 {
491 slog (L_ERR, _("FATAL: tap packet destined for current node received, terminating."));
492 exit (1);
493 }
494
495 if (dst > conns.size ())
496 slog (L_ERR, _("tap packet for unknown node %d received, ignoring."), dst);
497 else
498 {
499 if (dst)
500 { 682 {
501 // unicast 683 slog (L_ERR, _("FATAL: tap packet not originating on current node received (if-up script not working properly?), exiting."));
502 if (dst != THISNODE->id) 684 exit (EXIT_FAILURE);
503 conns[dst - 1]->inject_data_packet (pkt);
504 } 685 }
686
687 if (dst == THISNODE->id)
688 {
689 slog (L_ERR, _("FATAL: tap packet destined for current node received, exiting."));
690 exit (EXIT_FAILURE);
691 }
692
693 if (dst > conns.size ())
694 slog (L_ERR, _("tap packet for unknown node %d received, ignoring."), dst);
505 else 695 else
506 {
507 // broadcast, first check router, then self, then english
508 connection *router = find_router ();
509
510 if (router)
511 router->inject_data_packet (pkt, true); 696 inject_data_packet (pkt, dst);
512 else
513 for (conns_vector::iterator c = conns.begin (); c != conns.end (); ++c)
514 if ((*c)->conf != THISNODE)
515 (*c)->inject_data_packet (pkt);
516 }
517 } 697 }
518 698
519 delete pkt; 699 delete pkt;
520 } 700 }
521 else if (revents & (POLLHUP | POLLERR))
522 {
523 slog (L_ERR, _("FATAL: POLLHUP or POLLERR on network device fd, terminating."));
524 exit (1);
525 }
526 else 701 else
527 abort (); 702 abort ();
528} 703}
529 704
530void 705inline void
531vpn::event_cb (tstamp &ts) 706vpn::event_cb (ev::timer &w, int)
532{ 707{
533 if (events) 708 if (events)
534 { 709 {
535 if (events & EVENT_SHUTDOWN) 710 if (events & EVENT_SHUTDOWN)
536 { 711 {
537 slog (L_INFO, _("preparing shutdown...")); 712 slog (L_INFO, _("preparing shutdown..."));
538 713
539 shutdown_all (); 714 shutdown_all ();
540
541 remove_pid (pidfilename); 715 remove_pid (conf.pidfilename);
542
543 slog (L_INFO, _("terminating")); 716 slog (L_INFO, _("exiting."));
544 717 exit (EXIT_SUCCESS);
545 exit (0);
546 } 718 }
547 719
548 if (events & EVENT_RECONNECT) 720 if (events & EVENT_RECONNECT)
549 { 721 {
550 slog (L_INFO, _("forced reconnect")); 722 slog (L_INFO, _("forced reconnect."));
551 723
552 reconnect_all (); 724 reconnect_all ();
553 } 725 }
554 726
555 events = 0; 727 events = 0;
556 } 728 }
557
558 ts = TSTAMP_CANCEL;
559} 729}
560 730
561void 731void
562vpn::shutdown_all () 732vpn::shutdown_all ()
563{ 733{
573 743
574 conns.clear (); 744 conns.clear ();
575 745
576 connection_init (); 746 connection_init ();
577 747
578 for (configuration::node_vector::iterator i = conf.nodes.begin (); 748 for (configuration::node_vector::iterator i = conf.nodes.begin (); i != conf.nodes.end (); ++i)
579 i != conf.nodes.end (); ++i) 749 conns.push_back (new connection (this, *i));
580 {
581 connection *conn = new connection (this);
582 750
583 conn->conf = *i; 751 for (conns_vector::iterator c = conns.begin (); c != conns.end (); ++c)
584 conns.push_back (conn);
585
586 conn->establish_connection (); 752 (*c)->establish_connection ();
587 }
588} 753}
589 754
590connection *vpn::find_router () 755bool vpn::can_direct (conf_node *src, conf_node *dst) const
591{ 756{
592 u32 prio = 0; 757 return src != dst
758 && src->may_direct (dst)
759 && dst->may_direct (src)
760 && (((src->protocols & dst->protocols) && src->connectmode == conf_node::C_ALWAYS)
761 || (src->protocols & dst->connectable_protocols ()));
762}
763
764// only works for indirect and routed connections: find a router
765// from THISNODE to dst
766connection *vpn::find_router_for (const connection *dst)
767{
593 connection *router = 0; 768 connection *router = 0;
594 769
770 // first try to find a router with a direct connection
771 {
772 u32 prio = 1;
773
774 for (conns_vector::iterator i = conns.begin (); i != conns.end (); ++i)
775 {
776 connection *c = *i;
777
778 if (c->conf->routerprio > prio
779 && c->conf != THISNODE
780 && c != dst
781 && can_direct (c->conf, dst->conf))
782 {
783 if (c->ictx && c->octx)
784 {
785 prio = c->conf->routerprio;
786 router = c;
787 }
788 else
789 c->establish_connection ();
790 }
791 }
792 }
793
794 if (router)
795 return router;
796
797 // second try find the router with the highest priority higher than ours
798 {
799 u32 prio = 1;
800
801 for (conns_vector::iterator i = conns.begin (); i != conns.end (); ++i)
802 {
803 connection *c = *i;
804
805 if (c->conf->routerprio > prio
806 && c->conf->routerprio > THISNODE->routerprio
807 && c != dst
808 && c->conf != THISNODE)
809 {
810 if (c->ictx && c->octx)
811 {
812 prio = c->conf->routerprio;
813 router = c;
814 }
815 else
816 c->establish_connection ();
817 }
818 }
819 }
820 return router;
821}
822
823void vpn::connection_established (connection *c)
824{
595 for (conns_vector::iterator i = conns.begin (); i != conns.end (); ++i) 825 for (conns_vector::iterator i = conns.begin (); i != conns.end (); ++i)
596 { 826 {
597 connection *c = *i; 827 connection *o = *i;
598 828
599 if (c->conf->routerprio > prio 829 if (!o->is_direct
600 && c->connectmode == conf_node::C_ALWAYS 830 && o->si.valid ()
601 && c->conf != THISNODE 831 && c->si != o->si
602 && c->ictx && c->octx) 832 && c == find_router_for (o))
603 {
604 prio = c->conf->routerprio;
605 router = c;
606 } 833 {
834 slog (L_DEBUG, _("%s: can now route packets via %s, re-keying connection."),
835 o->conf->nodename, c->conf->nodename);
836 o->rekey ();
837 }
607 } 838 }
608
609 return router;
610} 839}
611 840
612void vpn::connect_request (int id) 841void vpn::send_connect_request (connection *c)
613{ 842{
614 connection *c = find_router (); 843 connection *r = find_router_for (c);
615 844
616 if (c) 845 if (r)
846 {
847 slog (L_TRACE, _("%s: no way to connect, sending mediated connection request via %s."),
848 c->conf->nodename, r->conf->nodename);
617 c->connect_request (id); 849 r->send_connect_request (c->conf->id);
618 //else // does not work, because all others must connect to the same router 850 }
619 // // no router found, aggressively connect to all routers 851 else
620 // for (conns_vector::iterator i = conns.begin (); i != conns.end (); ++i) 852 slog (L_DEBUG, _("%s: no way to connect and no router found: unable to connect."),
621 // if ((*i)->conf->routerprio) 853 c->conf->nodename);
622 // (*i)->establish_connection ();
623} 854}
624 855
625void 856void
626connection::dump_status () 857connection::dump_status ()
627{ 858{
628 slog (L_NOTICE, _("node %s (id %d)"), conf->nodename, conf->id); 859 slog (L_NOTICE, _("node %s (id %d)"), conf->nodename, conf->id);
629 slog (L_NOTICE, _(" connectmode %d (%d) / sockaddr %s / minor %d"), 860 slog (L_NOTICE, _(" connectmode %d (%d) / sockaddr %s / minor %d"),
630 connectmode, conf->connectmode, (const char *)si, (int)prot_minor); 861 connectmode, conf->connectmode, (const char *)si, (int)prot_minor);
631 slog (L_NOTICE, _(" ictx/octx %08lx/%08lx / oseqno %d / retry_cnt %d"), 862 slog (L_NOTICE, _(" ictx/octx %08lx/%08lx / oseqno %d / retry_cnt %d"),
632 (long)ictx, (long)octx, (int)oseqno, (int)retry_cnt); 863 (long)ictx, (long)octx, (int)oseqno, (int)retry_cnt);
633 slog (L_NOTICE, _(" establish_conn %ld / rekey %ld / keepalive %ld"),
634 (long)(establish_connection.at), (long)(rekey.at), (long)(keepalive.at));
635} 864}
636 865
637void 866void
638vpn::dump_status () 867vpn::dump_status ()
639{ 868{
640 slog (L_NOTICE, _("BEGIN status dump (%ld)"), (long)NOW); 869 slog (L_NOTICE, _("BEGIN status dump (%ld)"), (long)ev_now ());
641 870
642 for (conns_vector::iterator c = conns.begin (); c != conns.end (); ++c) 871 for (conns_vector::iterator c = conns.begin (); c != conns.end (); ++c)
643 (*c)->dump_status (); 872 (*c)->dump_status ();
644 873
645 slog (L_NOTICE, _("END status dump")); 874 slog (L_NOTICE, _("END status dump"));
646} 875}
647 876
648vpn::vpn (void) 877vpn::vpn (void)
649: event(this, &vpn::event_cb) 878{
879 event .set<vpn, &vpn::event_cb > (this);
650, udpv4_ev_watcher(this, &vpn::udpv4_ev) 880 udpv4_ev_watcher .set<vpn, &vpn::udpv4_ev > (this);
651, ipv4_ev_watcher (this, &vpn::ipv4_ev) 881 ipv4_ev_watcher .set<vpn, &vpn::ipv4_ev > (this);
652, tap_ev_watcher (this, &vpn::tap_ev)
653#if ENABLE_TCP 882#if ENABLE_TCP
654, tcpv4_accept_watcher(this, &vpn::tcpv4_accept) 883 tcpv4_ev_watcher .set<vpn, &vpn::tcpv4_ev > (this);
655#endif 884#endif
656{ 885#if ENABLE_ICMP
886 icmpv4_ev_watcher.set<vpn, &vpn::icmpv4_ev> (this);
887#endif
888#if ENABLE_DNS
889 dnsv4_ev_watcher .set<vpn, &vpn::dnsv4_ev > (this);
890#endif
891 tap_ev_watcher .set<vpn, &vpn::tap_ev > (this);
657} 892}
658 893
659vpn::~vpn () 894vpn::~vpn ()
660{ 895{
661} 896}

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines