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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines