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.8 by pcg, Mon Apr 7 01:28:56 2003 UTC vs.
Revision 1.13 by pcg, Sun Apr 13 16:53:36 2003 UTC

… …
26 26
27#include <sys/types.h> 27#include <sys/types.h>
28#include <sys/socket.h> 28#include <sys/socket.h>
29#include <sys/poll.h> 29#include <sys/poll.h>
30#include <sys/wait.h> 30#include <sys/wait.h>
31#include <netinet/in.h>
32#include <arpa/inet.h>
33#include <errno.h> 31#include <errno.h>
34#include <time.h> 32#include <time.h>
35#include <unistd.h> 33#include <unistd.h>
34#include <fcntl.h>
35#include <arpa/inet.h>
36#include <netinet/in.h>
37#include <netinet/ip_icmp.h>
36 38
37#include "pidfile.h" 39#include "pidfile.h"
38 40
39#include "connection.h" 41#include "connection.h"
40#include "util.h" 42#include "util.h"
… …
80 ipv4_fd = socket (PF_INET, SOCK_RAW, ::conf.ip_proto); 82 ipv4_fd = socket (PF_INET, SOCK_RAW, ::conf.ip_proto);
81 83
82 if (ipv4_fd < 0) 84 if (ipv4_fd < 0)
83 return -1; 85 return -1;
84 86
85 sockinfo si (THISNODE, PROT_IPv4); 87 fcntl (ipv4_fd, F_SETFL, O_NONBLOCK);
86
87 if (bind (ipv4_fd, si.sav4 (), si.salenv4 ()))
88 {
89 slog (L_ERR, _("can't bind ipv4 socket on %s: %s"), (const char *)si, strerror (errno));
90 exit (1);
91 }
92 88
93#ifdef IP_MTU_DISCOVER 89#ifdef IP_MTU_DISCOVER
94 // this I really consider a linux bug. I am neither connected 90 // this I really consider a linux bug. I am neither connected
95 // nor do I fragment myself. Linux still sets DF and doesn't 91 // nor do I fragment myself. Linux still sets DF and doesn't
96 // fragment for me sometimes. 92 // fragment for me sometimes.
… …
98 int oval = IP_PMTUDISC_DONT; 94 int oval = IP_PMTUDISC_DONT;
99 setsockopt (ipv4_fd, SOL_IP, IP_MTU_DISCOVER, &oval, sizeof oval); 95 setsockopt (ipv4_fd, SOL_IP, IP_MTU_DISCOVER, &oval, sizeof oval);
100 } 96 }
101#endif 97#endif
102 98
99 sockinfo si (THISNODE, PROT_IPv4);
100
101 if (bind (ipv4_fd, si.sav4 (), si.salenv4 ()))
102 {
103 slog (L_ERR, _("can't bind ipv4 socket on %s: %s"), (const char *)si, strerror (errno));
104 exit (1);
105 }
106
103 ipv4_ev_watcher.start (ipv4_fd, POLLIN); 107 ipv4_ev_watcher.start (ipv4_fd, POLLIN);
104 } 108 }
105 109
106 udpv4_fd = -1; 110 udpv4_fd = -1;
107 111
… …
109 { 113 {
110 udpv4_fd = socket (PF_INET, SOCK_DGRAM, IPPROTO_UDP); 114 udpv4_fd = socket (PF_INET, SOCK_DGRAM, IPPROTO_UDP);
111 115
112 if (udpv4_fd < 0) 116 if (udpv4_fd < 0)
113 return -1; 117 return -1;
118
119 fcntl (udpv4_fd, F_SETFL, O_NONBLOCK);
114 120
115 // standard daemon practise... 121 // standard daemon practise...
116 { 122 {
117 int oval = 1; 123 int oval = 1;
118 setsockopt (udpv4_fd, SOL_SOCKET, SO_REUSEADDR, &oval, sizeof oval); 124 setsockopt (udpv4_fd, SOL_SOCKET, SO_REUSEADDR, &oval, sizeof oval);
119 } 125 }
120
121 sockinfo si (THISNODE, PROT_UDPv4);
122
123 if (bind (udpv4_fd, si.sav4 (), si.salenv4 ()))
124 {
125 slog (L_ERR, _("can't bind udpv4 on %s: %s"), (const char *)si, strerror (errno));
126 exit (1);
127 }
128 126
129#ifdef IP_MTU_DISCOVER 127#ifdef IP_MTU_DISCOVER
130 // this I really consider a linux bug. I am neither connected 128 // this I really consider a linux bug. I am neither connected
131 // nor do I fragment myself. Linux still sets DF and doesn't 129 // nor do I fragment myself. Linux still sets DF and doesn't
132 // fragment for me sometimes. 130 // fragment for me sometimes.
… …
134 int oval = IP_PMTUDISC_DONT; 132 int oval = IP_PMTUDISC_DONT;
135 setsockopt (udpv4_fd, SOL_IP, IP_MTU_DISCOVER, &oval, sizeof oval); 133 setsockopt (udpv4_fd, SOL_IP, IP_MTU_DISCOVER, &oval, sizeof oval);
136 } 134 }
137#endif 135#endif
138 136
137 sockinfo si (THISNODE, PROT_UDPv4);
138
139 if (bind (udpv4_fd, si.sav4 (), si.salenv4 ()))
140 {
141 slog (L_ERR, _("can't bind udpv4 on %s: %s"), (const char *)si, strerror (errno));
142 exit (1);
143 }
144
139 udpv4_ev_watcher.start (udpv4_fd, POLLIN); 145 udpv4_ev_watcher.start (udpv4_fd, POLLIN);
140 } 146 }
147
148 icmpv4_fd = -1;
149
150#if ENABLE_ICMP
151 if (THISNODE->protocols & PROT_ICMPv4)
152 {
153 icmpv4_fd = socket (PF_INET, SOCK_RAW, IPPROTO_ICMP);
154
155 if (icmpv4_fd < 0)
156 return -1;
157
158 fcntl (icmpv4_fd, F_SETFL, O_NONBLOCK);
159
160#ifdef ICMP_FILTER
161 {
162 icmp_filter oval;
163 oval.data = 0xffffffff;
164 if (::conf.icmp_type < 32)
165 oval.data &= ~(1 << ::conf.icmp_type);
166
167 setsockopt (icmpv4_fd, SOL_RAW, ICMP_FILTER, &oval, sizeof oval);
168 }
169#endif
170
171#ifdef IP_MTU_DISCOVER
172 // this I really consider a linux bug. I am neither connected
173 // nor do I fragment myself. Linux still sets DF and doesn't
174 // fragment for me sometimes.
175 {
176 int oval = IP_PMTUDISC_DONT;
177 setsockopt (udpv4_fd, SOL_IP, IP_MTU_DISCOVER, &oval, sizeof oval);
178 }
179#endif
180
181 sockinfo si (THISNODE, PROT_ICMPv4);
182
183 if (bind (icmpv4_fd, si.sav4 (), si.salenv4 ()))
184 {
185 slog (L_ERR, _("can't bind icmpv4 on %s: %s"), (const char *)si, strerror (errno));
186 exit (1);
187 }
188
189 icmpv4_ev_watcher.start (icmpv4_fd, POLLIN);
190 }
191#endif
141 192
142 tcpv4_fd = -1; 193 tcpv4_fd = -1;
143 194
144#if ENABLE_TCP 195#if ENABLE_TCP
145 if (THISNODE->protocols & PROT_TCPv4 && THISNODE->tcp_port) 196 if (THISNODE->protocols & PROT_TCPv4 && THISNODE->tcp_port)
146 { 197 {
147 tcpv4_fd = socket (PF_INET, SOCK_STREAM, IPPROTO_TCP); 198 tcpv4_fd = socket (PF_INET, SOCK_STREAM, IPPROTO_TCP);
148 199
149 if (tcpv4_fd < 0) 200 if (tcpv4_fd < 0)
150 return -1; 201 return -1;
202
203 fcntl (tcpv4_fd, F_SETFL, O_NONBLOCK);
151 204
152 // standard daemon practise... 205 // standard daemon practise...
153 { 206 {
154 int oval = 1; 207 int oval = 1;
155 setsockopt (tcpv4_fd, SOL_SOCKET, SO_REUSEADDR, &oval, sizeof oval); 208 setsockopt (tcpv4_fd, SOL_SOCKET, SO_REUSEADDR, &oval, sizeof oval);
… …
204#if ENABLE_TCP 257#if ENABLE_TCP
205 case PROT_TCPv4: 258 case PROT_TCPv4:
206 return send_tcpv4_packet (pkt, si, tos); 259 return send_tcpv4_packet (pkt, si, tos);
207#endif 260#endif
208 261
262#if ENABLE_ICMP
263 case PROT_ICMPv4:
264 return send_icmpv4_packet (pkt, si, tos);
265#endif
266
209 default: 267 default:
210 slog (L_CRIT, _("%s: FATAL: trying to send packet with unsupported protocol"), (const char *)si); 268 slog (L_CRIT, _("%s: FATAL: trying to send packet with unsupported protocol"), (const char *)si);
211 return false; 269 return false;
212 } 270 }
213} 271}
… …
218 setsockopt (ipv4_fd, SOL_IP, IP_TOS, &tos, sizeof tos); 276 setsockopt (ipv4_fd, SOL_IP, IP_TOS, &tos, sizeof tos);
219 sendto (ipv4_fd, &((*pkt)[0]), pkt->len, 0, si.sav4 (), si.salenv4 ()); 277 sendto (ipv4_fd, &((*pkt)[0]), pkt->len, 0, si.sav4 (), si.salenv4 ());
220 278
221 return true; 279 return true;
222} 280}
281
282static u16
283ipv4_checksum (u16 *data, unsigned int len)
284{
285 // use 32 bit accumulator and fold back carry bits at the end
286 u32 sum = 0;
287
288 while (len > 1)
289 {
290 sum += *data++;
291 len -= 2;
292 }
293
294 // odd byte left?
295 if (len)
296 sum += *(u8 *)data;
297
298 // add back carry bits
299 sum = (sum >> 16) + (sum & 0xffff); // lo += hi
300 sum += (sum >> 16); // carry
301
302 return ~sum;
303}
304
305#if ENABLE_ICMP
306bool
307vpn::send_icmpv4_packet (vpn_packet *pkt, const sockinfo &si, int tos)
308{
309 setsockopt (icmpv4_fd, SOL_IP, IP_TOS, &tos, sizeof tos);
310
311 pkt->unshift_hdr (4);
312
313 icmphdr *hdr = (icmphdr *)&((*pkt)[0]);
314 hdr->type = ::conf.icmp_type;
315 hdr->code = 255;
316 hdr->checksum = 0;
317 hdr->checksum = ipv4_checksum ((u16 *)hdr, pkt->len);
318
319 sendto (icmpv4_fd, &((*pkt)[0]), pkt->len, 0, si.sav4 (), si.salenv4 ());
320
321 return true;
322}
323#endif
223 324
224bool 325bool
225vpn::send_udpv4_packet (vpn_packet *pkt, const sockinfo &si, int tos) 326vpn::send_udpv4_packet (vpn_packet *pkt, const sockinfo &si, int tos)
226{ 327{
227 setsockopt (udpv4_fd, SOL_IP, IP_TOS, &tos, sizeof tos); 328 setsockopt (udpv4_fd, SOL_IP, IP_TOS, &tos, sizeof tos);
… …
249 (const char *)rsi, pkt->typ (), pkt->src (), pkt->dst ()); 350 (const char *)rsi, pkt->typ (), pkt->src (), pkt->dst ());
250 else 351 else
251 { 352 {
252 connection *c = conns[src - 1]; 353 connection *c = conns[src - 1];
253 354
254 if (dst == 0 && !THISNODE->routerprio) 355 if (dst == 0)
255 slog (L_WARN, _("%s(%s): received broadcast, but we are no router"), 356 slog (L_WARN, _("%s(%s): received broadcast (protocol violation)"),
256 c->conf->nodename, (const char *)rsi); 357 c->conf->nodename, (const char *)rsi);
257 else if (dst != 0 && dst != THISNODE->id) 358 else if (dst != 0 && dst != THISNODE->id)
258 { 359 {
259 if (THISNODE->routerprio) 360 if (THISNODE->routerprio)
260 // the tos setting gets lost here. who cares. 361 // the tos setting gets lost here. who cares.
… …
269 c->recv_vpn_packet (pkt, rsi); 370 c->recv_vpn_packet (pkt, rsi);
270 } 371 }
271} 372}
272 373
273void 374void
274vpn::udpv4_ev (io_watcher &w, short revents) 375vpn::ipv4_ev (io_watcher &w, short revents)
275{ 376{
276 if (revents & (POLLIN | POLLERR)) 377 if (revents & (POLLIN | POLLERR))
277 { 378 {
278 vpn_packet *pkt = new vpn_packet; 379 vpn_packet *pkt = new vpn_packet;
279 struct sockaddr_in sa; 380 struct sockaddr_in sa;
280 socklen_t sa_len = sizeof (sa); 381 socklen_t sa_len = sizeof (sa);
281 int len; 382 int len;
282 383
283 len = recvfrom (w.fd, &((*pkt)[0]), MAXSIZE, 0, (sockaddr *)&sa, &sa_len); 384 len = recvfrom (w.fd, &((*pkt)[0]), MAXSIZE, 0, (sockaddr *)&sa, &sa_len);
284 385
285 sockinfo si(sa, PROT_UDPv4); 386 sockinfo si(sa, PROT_IPv4);
286 387
287 if (len > 0) 388 if (len > 0)
288 { 389 {
289 pkt->len = len; 390 pkt->len = len;
290 391
392 // raw sockets deliver the ipv4, but don't expect it on sends
393 // this is slow, but...
394 pkt->skip_hdr (IP_OVERHEAD);
395
291 recv_vpn_packet (pkt, si); 396 recv_vpn_packet (pkt, si);
292 } 397 }
293 else 398 else
294 { 399 {
295 // probably ECONNRESET or somesuch 400 // probably ECONNRESET or somesuch
296 slog (L_DEBUG, _("%s: fd %d, %s"), (const char *)si, w.fd, strerror (errno)); 401 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno));
297 } 402 }
298 403
299 delete pkt; 404 delete pkt;
300 } 405 }
301 else if (revents & POLLHUP) 406 else if (revents & POLLHUP)
302 { 407 {
303 // this cannot ;) happen on udp sockets 408 // this cannot ;) happen on udp sockets
304 slog (L_ERR, _("FATAL: POLLHUP on udp v4 fd, terminating.")); 409 slog (L_ERR, _("FATAL: POLLHUP on ipv4 fd, terminating."));
305 exit (1); 410 exit (1);
306 } 411 }
307 else 412 else
308 { 413 {
309 slog (L_ERR, 414 slog (L_ERR,
… …
311 revents); 416 revents);
312 exit (1); 417 exit (1);
313 } 418 }
314} 419}
315 420
421#if ENABLE_ICMP
316void 422void
317vpn::ipv4_ev (io_watcher &w, short revents) 423vpn::icmpv4_ev (io_watcher &w, short revents)
318{ 424{
319 if (revents & (POLLIN | POLLERR)) 425 if (revents & (POLLIN | POLLERR))
320 { 426 {
321 vpn_packet *pkt = new vpn_packet; 427 vpn_packet *pkt = new vpn_packet;
322 struct sockaddr_in sa; 428 struct sockaddr_in sa;
323 socklen_t sa_len = sizeof (sa); 429 socklen_t sa_len = sizeof (sa);
324 int len; 430 int len;
325 431
326 len = recvfrom (w.fd, &((*pkt)[0]), MAXSIZE, 0, (sockaddr *)&sa, &sa_len); 432 len = recvfrom (w.fd, &((*pkt)[0]), MAXSIZE, 0, (sockaddr *)&sa, &sa_len);
327 433
328 sockinfo si(sa, PROT_IPv4); 434 sockinfo si(sa, PROT_ICMPv4);
329 435
330 if (len > 0) 436 if (len > 0)
331 { 437 {
332 pkt->len = len; 438 pkt->len = len;
333 439
440 icmphdr *hdr = (icmphdr *)&((*pkt)[IP_OVERHEAD]);
441
442 if (hdr->type == ::conf.icmp_type
443 && hdr->code == 255)
444 {
334 // raw sockets deliver the ipv4, but don't expect it on sends 445 // raw sockets deliver the ipv4, but don't expect it on sends
335 // this is slow, but... 446 // this is slow, but...
336 pkt->skip_hdr (IP_OVERHEAD); 447 pkt->skip_hdr (ICMP_OVERHEAD);
337 448
338 recv_vpn_packet (pkt, si); 449 recv_vpn_packet (pkt, si);
450 }
339 } 451 }
340 else 452 else
341 { 453 {
342 // probably ECONNRESET or somesuch 454 // probably ECONNRESET or somesuch
343 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno)); 455 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno));
… …
346 delete pkt; 458 delete pkt;
347 } 459 }
348 else if (revents & POLLHUP) 460 else if (revents & POLLHUP)
349 { 461 {
350 // this cannot ;) happen on udp sockets 462 // this cannot ;) happen on udp sockets
351 slog (L_ERR, _("FATAL: POLLHUP on ipv4 fd, terminating.")); 463 slog (L_ERR, _("FATAL: POLLHUP on icmpv4 fd, terminating."));
464 exit (1);
465 }
466 else
467 {
468 slog (L_ERR,
469 _("FATAL: unknown revents %08x in socket, terminating\n"),
470 revents);
471 exit (1);
472 }
473}
474#endif
475
476void
477vpn::udpv4_ev (io_watcher &w, short revents)
478{
479 if (revents & (POLLIN | POLLERR))
480 {
481 vpn_packet *pkt = new vpn_packet;
482 struct sockaddr_in sa;
483 socklen_t sa_len = sizeof (sa);
484 int len;
485
486 len = recvfrom (w.fd, &((*pkt)[0]), MAXSIZE, 0, (sockaddr *)&sa, &sa_len);
487
488 sockinfo si(sa, PROT_UDPv4);
489
490 if (len > 0)
491 {
492 pkt->len = len;
493
494 recv_vpn_packet (pkt, si);
495 }
496 else
497 {
498 // probably ECONNRESET or somesuch
499 slog (L_DEBUG, _("%s: fd %d, %s"), (const char *)si, w.fd, strerror (errno));
500 }
501
502 delete pkt;
503 }
504 else if (revents & POLLHUP)
505 {
506 // this cannot ;) happen on udp sockets
507 slog (L_ERR, _("FATAL: POLLHUP on udp v4 fd, terminating."));
352 exit (1); 508 exit (1);
353 } 509 }
354 else 510 else
355 { 511 {
356 slog (L_ERR, 512 slog (L_ERR,
… …
395 if (dst != THISNODE->id) 551 if (dst != THISNODE->id)
396 conns[dst - 1]->inject_data_packet (pkt); 552 conns[dst - 1]->inject_data_packet (pkt);
397 } 553 }
398 else 554 else
399 { 555 {
400 // broadcast, first check router, then self, then english 556 // broadcast, this is ugly, but due to the security policy
401 connection *router = find_router (); 557 // we have to connect to all hosts...
402
403 if (router)
404 router->inject_data_packet (pkt, true);
405 else
406 for (conns_vector::iterator c = conns.begin (); c != conns.end (); ++c) 558 for (conns_vector::iterator c = conns.begin (); c != conns.end (); ++c)
407 if ((*c)->conf != THISNODE) 559 if ((*c)->conf != THISNODE)
408 (*c)->inject_data_packet (pkt); 560 (*c)->inject_data_packet (pkt);
409 } 561 }
410 } 562 }
411 563
412 delete pkt; 564 delete pkt;
413 } 565 }
… …
480 } 632 }
481} 633}
482 634
483connection *vpn::find_router () 635connection *vpn::find_router ()
484{ 636{
485 u32 prio = 0; 637 u32 prio = 1;
486 connection *router = 0; 638 connection *router = 0;
487 639
488 for (conns_vector::iterator i = conns.begin (); i != conns.end (); ++i) 640 for (conns_vector::iterator i = conns.begin (); i != conns.end (); ++i)
489 { 641 {
490 connection *c = *i; 642 connection *c = *i;
491 643
492 if (c->conf->routerprio > prio 644 if (c->conf->routerprio > prio
493 && c->connectmode == conf_node::C_ALWAYS 645 && c->connectmode == conf_node::C_ALWAYS // so we don't drop the connection if in use
494 && c->conf != THISNODE
495 && c->ictx && c->octx) 646 && c->ictx && c->octx
647 && c->conf != THISNODE) // redundant, since ictx==octx==0 always on thisnode
496 { 648 {
497 prio = c->conf->routerprio; 649 prio = c->conf->routerprio;
498 router = c; 650 router = c;
499 } 651 }
500 } 652 }
… …
509 if (c) 661 if (c)
510 c->send_connect_request (id); 662 c->send_connect_request (id);
511 else 663 else
512 // no router found, aggressively connect to all routers 664 // no router found, aggressively connect to all routers
513 for (conns_vector::iterator i = conns.begin (); i != conns.end (); ++i) 665 for (conns_vector::iterator i = conns.begin (); i != conns.end (); ++i)
514 if ((*i)->conf->routerprio) 666 if ((*i)->conf->routerprio && (*i)->conf != THISNODE)
515 (*i)->establish_connection (); 667 (*i)->establish_connection ();
516} 668}
517 669
518void 670void
519connection::dump_status () 671connection::dump_status ()
… …
537 689
538 slog (L_NOTICE, _("END status dump")); 690 slog (L_NOTICE, _("END status dump"));
539} 691}
540 692
541vpn::vpn (void) 693vpn::vpn (void)
542: event(this, &vpn::event_cb) 694: event (this, &vpn::event_cb)
543, udpv4_ev_watcher(this, &vpn::udpv4_ev) 695, udpv4_ev_watcher (this, &vpn::udpv4_ev)
544, ipv4_ev_watcher (this, &vpn::ipv4_ev) 696, ipv4_ev_watcher (this, &vpn::ipv4_ev)
545, tap_ev_watcher (this, &vpn::tap_ev)
546#if ENABLE_TCP 697#if ENABLE_TCP
547, tcpv4_ev_watcher(this, &vpn::tcpv4_ev) 698, tcpv4_ev_watcher (this, &vpn::tcpv4_ev)
548#endif 699#endif
700#if ENABLE_ICMP
701, icmpv4_ev_watcher(this, &vpn::icmpv4_ev)
702#endif
703, tap_ev_watcher (this, &vpn::tap_ev)
549{ 704{
550} 705}
551 706
552vpn::~vpn () 707vpn::~vpn ()
553{ 708{

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines