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.18 by pcg, Thu Oct 16 02:28:36 2003 UTC vs.
Revision 1.32 by pcg, Mon Mar 7 01:31:26 2005 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-2005 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
5 it under the terms of the GNU General Public License as published by 8 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2 of the License, or 9 the Free Software Foundation; either version 2 of the License, or
7 (at your option) any later version. 10 (at your 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,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of 13 but 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
12 GNU General Public License for more details. 15 GNU General 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
15 along with this program; if not, write to the Free Software 18 along with gvpe; if not, write to the Free Software
16 Foundation, Inc. 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 19 Foundation, Inc. 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17*/ 20*/
18 21
19#include "config.h" 22#include "config.h"
20 23
21#include <list> 24#include <list>
22 25
26#include <cstdio>
27#include <cstring>
23#include <cstdlib> 28#include <cstdlib>
24#include <cstring>
25#include <cstdio>
26 29
27#include <sys/types.h> 30#include <sys/types.h>
28#include <sys/socket.h> 31#include <sys/socket.h>
29#include <sys/wait.h> 32#include <sys/wait.h>
30#include <errno.h> 33#include <errno.h>
… …
39 42
40#include "connection.h" 43#include "connection.h"
41#include "util.h" 44#include "util.h"
42#include "vpn.h" 45#include "vpn.h"
43 46
47vpn network; // THE vpn (bad design...)
48
44///////////////////////////////////////////////////////////////////////////// 49/////////////////////////////////////////////////////////////////////////////
45 50
46const char *vpn::script_if_up () 51const char *vpn::script_if_up ()
47{ 52{
48 // the tunnel device mtu should be the physical mtu - overhead 53 // the tunnel device mtu should be the physical mtu - overhead
… …
51 mtu += ETH_OVERHEAD - 6 - 6; // now we have the data portion 56 mtu += ETH_OVERHEAD - 6 - 6; // now we have the data portion
52 mtu -= mtu % EVP_CIPHER_block_size (CIPHER); // round 57 mtu -= mtu % EVP_CIPHER_block_size (CIPHER); // round
53 mtu -= ETH_OVERHEAD - 6 - 6; // and get interface mtu again 58 mtu -= ETH_OVERHEAD - 6 - 6; // and get interface mtu again
54 59
55 char *env; 60 char *env;
56 asprintf (&env, "CONFBASE=%s", confbase); 61 asprintf (&env, "CONFBASE=%s", confbase); putenv (env);
57 putenv (env);
58 asprintf (&env, "NODENAME=%s", THISNODE->nodename); 62 asprintf (&env, "NODENAME=%s", THISNODE->nodename); putenv (env);
59 putenv (env);
60 asprintf (&env, "NODEID=%d", THISNODE->id); 63 asprintf (&env, "NODEID=%d", THISNODE->id); putenv (env);
61 putenv (env);
62 asprintf (&env, "IFNAME=%s", tap->interface ()); 64 asprintf (&env, "IFNAME=%s", tap->interface ()); putenv (env);
63 putenv (env); 65 asprintf (&env, "IFTYPE=%s", IFTYPE); putenv (env);
66 asprintf (&env, "IFSUBTYPE=%s", IFSUBTYPE); putenv (env);
64 asprintf (&env, "MTU=%d", mtu); 67 asprintf (&env, "MTU=%d", mtu); putenv (env);
65 putenv (env);
66 asprintf (&env, "MAC=%02x:%02x:%02x:%02x:%02x:%02x", 68 asprintf (&env, "MAC=%02x:%02x:%02x:%02x:%02x:%02x",
67 0xfe, 0xfd, 0x80, 0x00, THISNODE->id >> 8, 69 0xfe, 0xfd, 0x80, 0x00, THISNODE->id >> 8,
68 THISNODE->id & 0xff); 70 THISNODE->id & 0xff);
69 putenv (env); 71 putenv (env);
70 72
… …
98 sockinfo si (THISNODE, PROT_IPv4); 100 sockinfo si (THISNODE, PROT_IPv4);
99 101
100 if (bind (ipv4_fd, si.sav4 (), si.salenv4 ())) 102 if (bind (ipv4_fd, si.sav4 (), si.salenv4 ()))
101 { 103 {
102 slog (L_ERR, _("can't bind ipv4 socket on %s: %s"), (const char *)si, strerror (errno)); 104 slog (L_ERR, _("can't bind ipv4 socket on %s: %s"), (const char *)si, strerror (errno));
103 exit (1); 105 exit (EXIT_FAILURE);
104 } 106 }
105 107
106 ipv4_ev_watcher.start (ipv4_fd, POLLIN); 108 ipv4_ev_watcher.start (ipv4_fd, EVENT_READ);
107 } 109 }
108 110
109 udpv4_fd = -1; 111 udpv4_fd = -1;
110 112
111 if (THISNODE->protocols & PROT_UDPv4 && THISNODE->udp_port) 113 if (THISNODE->protocols & PROT_UDPv4 && THISNODE->udp_port)
… …
136 sockinfo si (THISNODE, PROT_UDPv4); 138 sockinfo si (THISNODE, PROT_UDPv4);
137 139
138 if (bind (udpv4_fd, si.sav4 (), si.salenv4 ())) 140 if (bind (udpv4_fd, si.sav4 (), si.salenv4 ()))
139 { 141 {
140 slog (L_ERR, _("can't bind udpv4 on %s: %s"), (const char *)si, strerror (errno)); 142 slog (L_ERR, _("can't bind udpv4 on %s: %s"), (const char *)si, strerror (errno));
141 exit (1); 143 exit (EXIT_FAILURE);
142 } 144 }
143 145
144 udpv4_ev_watcher.start (udpv4_fd, POLLIN); 146 udpv4_ev_watcher.start (udpv4_fd, EVENT_READ);
145 } 147 }
146 148
147 icmpv4_fd = -1; 149 icmpv4_fd = -1;
148 150
149#if ENABLE_ICMP 151#if ENABLE_ICMP
… …
180 sockinfo si (THISNODE, PROT_ICMPv4); 182 sockinfo si (THISNODE, PROT_ICMPv4);
181 183
182 if (bind (icmpv4_fd, si.sav4 (), si.salenv4 ())) 184 if (bind (icmpv4_fd, si.sav4 (), si.salenv4 ()))
183 { 185 {
184 slog (L_ERR, _("can't bind icmpv4 on %s: %s"), (const char *)si, strerror (errno)); 186 slog (L_ERR, _("can't bind icmpv4 on %s: %s"), (const char *)si, strerror (errno));
185 exit (1); 187 exit (EXIT_FAILURE);
186 } 188 }
187 189
188 icmpv4_ev_watcher.start (icmpv4_fd, POLLIN); 190 icmpv4_ev_watcher.start (icmpv4_fd, EVENT_READ);
189 } 191 }
190#endif 192#endif
191 193
192 tcpv4_fd = -1; 194 tcpv4_fd = -1;
193 195
… …
210 sockinfo si (THISNODE, PROT_TCPv4); 212 sockinfo si (THISNODE, PROT_TCPv4);
211 213
212 if (bind (tcpv4_fd, si.sav4 (), si.salenv4 ())) 214 if (bind (tcpv4_fd, si.sav4 (), si.salenv4 ()))
213 { 215 {
214 slog (L_ERR, _("can't bind tcpv4 on %s: %s"), (const char *)si, strerror (errno)); 216 slog (L_ERR, _("can't bind tcpv4 on %s: %s"), (const char *)si, strerror (errno));
215 exit (1); 217 exit (EXIT_FAILURE);
216 } 218 }
217 219
218 if (listen (tcpv4_fd, 5)) 220 if (listen (tcpv4_fd, 5))
219 { 221 {
220 slog (L_ERR, _("can't listen tcpv4 on %s: %s"), (const char *)si, strerror (errno)); 222 slog (L_ERR, _("can't listen tcpv4 on %s: %s"), (const char *)si, strerror (errno));
221 exit (1); 223 exit (EXIT_FAILURE);
224 }
225
226 tcpv4_ev_watcher.start (tcpv4_fd, EVENT_READ);
227 }
228#endif
229
230#if ENABLE_DNS
231 if (THISNODE->protocols & PROT_DNSv4)
232 {
233 dns_forwarder.set (::conf.dns_forw_host, ::conf.dns_forw_port, PROT_DNSv4);
234
235 dnsv4_fd = socket (PF_INET, SOCK_DGRAM, IPPROTO_UDP);
236
237 if (dnsv4_fd < 0)
238 return -1;
239
240#if defined(SOL_IP) && defined(IP_MTU_DISCOVER)
241 // this I really consider a linux bug. I am neither connected
242 // nor do I fragment myself. Linux still sets DF and doesn't
243 // fragment for me sometimes.
244 {
245 int oval = IP_PMTUDISC_DONT;
246 setsockopt (udpv4_fd, SOL_IP, IP_MTU_DISCOVER, &oval, sizeof oval);
247 }
248#endif
249
250 // standard daemon practise...
251 {
252 int oval = 1;
253 setsockopt (dnsv4_fd, SOL_SOCKET, SO_REUSEADDR, &oval, sizeof oval);
254 }
255
256 sockinfo si (THISNODE->dns_hostname,
257 THISNODE->dns_hostname ? THISNODE->dns_port : 0,
258 PROT_DNSv4);
259
260 if (bind (dnsv4_fd, si.sav4 (), si.salenv4 ()))
222 } 261 {
262 slog (L_ERR, _("can't bind dnsv4 on %s: %s"), (const char *)si, strerror (errno));
263 exit (EXIT_FAILURE);
264 }
223 265
224 tcpv4_ev_watcher.start (tcpv4_fd, POLLIN); 266 dnsv4_ev_watcher.start (dnsv4_fd, EVENT_READ);
225 } 267 }
226#endif 268#endif
227 269
228 tap = new tap_device (); 270 tap = new tap_device ();
229 if (!tap) //D this, of course, never catches 271 if (!tap) //D this, of course, never catches
230 { 272 {
231 slog (L_ERR, _("cannot create network interface '%s'"), conf.ifname); 273 slog (L_ERR, _("cannot create network interface '%s'"), conf.ifname);
232 exit (1); 274 exit (EXIT_FAILURE);
233 } 275 }
234 276
235 run_script (run_script_cb (this, &vpn::script_if_up), true); 277 run_script (run_script_cb (this, &vpn::script_if_up), true);
236 278
237 tap_ev_watcher.start (tap->fd, POLLIN); 279 tap_ev_watcher.start (tap->fd, EVENT_READ);
238 280
239 reconnect_all (); 281 reconnect_all ();
240 282
241 return 0; 283 return 0;
242}
243
244// send a vpn packet out to other hosts
245bool
246vpn::send_vpn_packet (vpn_packet *pkt, const sockinfo &si, int tos)
247{
248 switch (si.prot)
249 {
250 case PROT_IPv4:
251 return send_ipv4_packet (pkt, si, tos);
252
253 case PROT_UDPv4:
254 return send_udpv4_packet (pkt, si, tos);
255
256#if ENABLE_TCP
257 case PROT_TCPv4:
258 return send_tcpv4_packet (pkt, si, tos);
259#endif
260
261#if ENABLE_ICMP
262 case PROT_ICMPv4:
263 return send_icmpv4_packet (pkt, si, tos);
264#endif
265
266 default:
267 slog (L_CRIT, _("%s: FATAL: trying to send packet with unsupported protocol"), (const char *)si);
268 return false;
269 }
270} 284}
271 285
272bool 286bool
273vpn::send_ipv4_packet (vpn_packet *pkt, const sockinfo &si, int tos) 287vpn::send_ipv4_packet (vpn_packet *pkt, const sockinfo &si, int tos)
274{ 288{
… …
393 else 407 else
394 c->recv_vpn_packet (pkt, rsi); 408 c->recv_vpn_packet (pkt, rsi);
395 } 409 }
396} 410}
397 411
412bool
413vpn::send_vpn_packet (vpn_packet *pkt, const sockinfo &si, int tos)
414{
415 switch (si.prot)
416 {
417 case PROT_IPv4:
418 return send_ipv4_packet (pkt, si, tos);
419 case PROT_UDPv4:
420 return send_udpv4_packet (pkt, si, tos);
421#if ENABLE_TCP
422 case PROT_TCPv4:
423 return send_tcpv4_packet (pkt, si, tos);
424#endif
425#if ENABLE_ICMP
426 case PROT_ICMPv4:
427 return send_icmpv4_packet (pkt, si, tos);
428#endif
429#if ENABLE_DNS
430 case PROT_DNSv4:
431 return send_dnsv4_packet (pkt, si, tos);
432#endif
433
434 default:
435 slog (L_CRIT, _("%s: FATAL: trying to send packet with unsupported protocol"), (const char *)si);
436 }
437
438 return false;
439}
440
398void 441void
399vpn::ipv4_ev (io_watcher &w, short revents) 442vpn::ipv4_ev (io_watcher &w, short revents)
400{ 443{
401 if (revents & (POLLIN | POLLERR)) 444 if (revents & EVENT_READ)
402 { 445 {
403 vpn_packet *pkt = new vpn_packet; 446 vpn_packet *pkt = new vpn_packet;
404 struct sockaddr_in sa; 447 struct sockaddr_in sa;
405 socklen_t sa_len = sizeof (sa); 448 socklen_t sa_len = sizeof (sa);
406 int len; 449 int len;
… …
411 454
412 if (len > 0) 455 if (len > 0)
413 { 456 {
414 pkt->len = len; 457 pkt->len = len;
415 458
416 // raw sockets deliver the ipv4, but don't expect it on sends 459 // raw sockets deliver the ipv4 header, but don't expect it on sends
417 // this is slow, but...
418 pkt->skip_hdr (IP_OVERHEAD); 460 pkt->skip_hdr (IP_OVERHEAD);
419 461
420 recv_vpn_packet (pkt, si); 462 recv_vpn_packet (pkt, si);
421 } 463 }
422 else 464 else
… …
425 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno)); 467 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno));
426 } 468 }
427 469
428 delete pkt; 470 delete pkt;
429 } 471 }
430 else if (revents & POLLHUP)
431 {
432 // this cannot ;) happen on udp sockets
433 slog (L_ERR, _("FATAL: POLLHUP on ipv4 fd, terminating."));
434 exit (1);
435 }
436 else 472 else
437 { 473 {
438 slog (L_ERR, 474 slog (L_ERR,
439 _("FATAL: unknown revents %08x in socket, terminating\n"), 475 _("FATAL: unknown revents %08x in socket, terminating\n"),
440 revents); 476 revents);
441 exit (1); 477 exit (EXIT_FAILURE);
442 } 478 }
443} 479}
444 480
445#if ENABLE_ICMP 481#if ENABLE_ICMP
446void 482void
447vpn::icmpv4_ev (io_watcher &w, short revents) 483vpn::icmpv4_ev (io_watcher &w, short revents)
448{ 484{
449 if (revents & (POLLIN | POLLERR)) 485 if (revents & EVENT_READ)
450 { 486 {
451 vpn_packet *pkt = new vpn_packet; 487 vpn_packet *pkt = new vpn_packet;
452 struct sockaddr_in sa; 488 struct sockaddr_in sa;
453 socklen_t sa_len = sizeof (sa); 489 socklen_t sa_len = sizeof (sa);
454 int len; 490 int len;
… …
479 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno)); 515 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno));
480 } 516 }
481 517
482 delete pkt; 518 delete pkt;
483 } 519 }
484 else if (revents & POLLHUP)
485 {
486 // this cannot ;) happen on udp sockets
487 slog (L_ERR, _("FATAL: POLLHUP on icmpv4 fd, terminating."));
488 exit (1);
489 }
490 else 520 else
491 { 521 {
492 slog (L_ERR, 522 slog (L_ERR,
493 _("FATAL: unknown revents %08x in socket, terminating\n"), 523 _("FATAL: unknown revents %08x in socket, terminating\n"),
494 revents); 524 revents);
495 exit (1); 525 exit (EXIT_FAILURE);
496 } 526 }
497} 527}
498#endif 528#endif
499 529
500void 530void
501vpn::udpv4_ev (io_watcher &w, short revents) 531vpn::udpv4_ev (io_watcher &w, short revents)
502{ 532{
503 if (revents & (POLLIN | POLLERR)) 533 if (revents & EVENT_READ)
504 { 534 {
505 vpn_packet *pkt = new vpn_packet; 535 vpn_packet *pkt = new vpn_packet;
506 struct sockaddr_in sa; 536 struct sockaddr_in sa;
507 socklen_t sa_len = sizeof (sa); 537 socklen_t sa_len = sizeof (sa);
508 int len; 538 int len;
… …
523 slog (L_DEBUG, _("%s: fd %d, %s"), (const char *)si, w.fd, strerror (errno)); 553 slog (L_DEBUG, _("%s: fd %d, %s"), (const char *)si, w.fd, strerror (errno));
524 } 554 }
525 555
526 delete pkt; 556 delete pkt;
527 } 557 }
528 else if (revents & POLLHUP)
529 {
530 // this cannot ;) happen on udp sockets
531 slog (L_ERR, _("FATAL: POLLHUP on udp v4 fd, terminating."));
532 exit (1);
533 }
534 else 558 else
535 { 559 {
536 slog (L_ERR, 560 slog (L_ERR,
537 _("FATAL: unknown revents %08x in socket, terminating\n"), 561 _("FATAL: unknown revents %08x in socket, terminating\n"),
538 revents); 562 revents);
539 exit (1); 563 exit (EXIT_FAILURE);
540 } 564 }
541} 565}
542 566
543void 567void
544vpn::tap_ev (io_watcher &w, short revents) 568vpn::tap_ev (io_watcher &w, short revents)
545{ 569{
546 if (revents & POLLIN) 570 if (revents & EVENT_READ)
547 { 571 {
548 /* process data */ 572 /* process data */
549 tap_packet *pkt; 573 tap_packet *pkt;
550 574
551 pkt = tap->recv (); 575 pkt = tap->recv ();
… …
558 int dst = mac2id (pkt->dst); 582 int dst = mac2id (pkt->dst);
559 int src = mac2id (pkt->src); 583 int src = mac2id (pkt->src);
560 584
561 if (src != THISNODE->id) 585 if (src != THISNODE->id)
562 { 586 {
563 slog (L_ERR, _("FATAL: tap packet not originating on current node received, exiting.")); 587 slog (L_ERR, _("FATAL: tap packet not originating on current node received (if-up script not working properly?), exiting."));
564 exit (1); 588 exit (EXIT_FAILURE);
565 } 589 }
566 590
567 if (dst == THISNODE->id) 591 if (dst == THISNODE->id)
568 { 592 {
569 slog (L_ERR, _("FATAL: tap packet destined for current node received, exiting.")); 593 slog (L_ERR, _("FATAL: tap packet destined for current node received, exiting."));
570 exit (1); 594 exit (EXIT_FAILURE);
571 } 595 }
572 596
573 if (dst > conns.size ()) 597 if (dst > conns.size ())
574 slog (L_ERR, _("tap packet for unknown node %d received, ignoring."), dst); 598 slog (L_ERR, _("tap packet for unknown node %d received, ignoring."), dst);
575 else 599 else
576 inject_data_packet (pkt, dst); 600 inject_data_packet (pkt, dst);
577 } 601 }
578 602
579 delete pkt; 603 delete pkt;
580 } 604 }
581 else if (revents & (POLLHUP | POLLERR))
582 {
583 slog (L_ERR, _("FATAL: POLLHUP or POLLERR on network device fd, terminating."));
584 exit (1);
585 }
586 else 605 else
587 abort (); 606 abort ();
588} 607}
589 608
590void 609void
… …
595 if (events & EVENT_SHUTDOWN) 614 if (events & EVENT_SHUTDOWN)
596 { 615 {
597 slog (L_INFO, _("preparing shutdown...")); 616 slog (L_INFO, _("preparing shutdown..."));
598 617
599 shutdown_all (); 618 shutdown_all ();
600
601 remove_pid (pidfilename); 619 remove_pid (conf.pidfilename);
602
603 slog (L_INFO, _("terminating")); 620 slog (L_INFO, _("terminating"));
604 621 exit (EXIT_SUCCESS);
605 exit (0);
606 } 622 }
607 623
608 if (events & EVENT_RECONNECT) 624 if (events & EVENT_RECONNECT)
609 { 625 {
610 slog (L_INFO, _("forced reconnect")); 626 slog (L_INFO, _("forced reconnect"));
… …
612 reconnect_all (); 628 reconnect_all ();
613 } 629 }
614 630
615 events = 0; 631 events = 0;
616 } 632 }
617
618 w.at = TSTAMP_CANCEL;
619} 633}
620 634
621void 635void
622vpn::shutdown_all () 636vpn::shutdown_all ()
623{ 637{
… …
636 connection_init (); 650 connection_init ();
637 651
638 for (configuration::node_vector::iterator i = conf.nodes.begin (); 652 for (configuration::node_vector::iterator i = conf.nodes.begin ();
639 i != conf.nodes.end (); ++i) 653 i != conf.nodes.end (); ++i)
640 { 654 {
641 connection *conn = new connection (this); 655 connection *conn = new connection (this, *i);
642
643 conn->conf = *i;
644 conns.push_back (conn); 656 conns.push_back (conn);
645
646 conn->establish_connection (); 657 conn->establish_connection ();
647 } 658 }
648} 659}
649 660
650connection *vpn::find_router () 661connection *vpn::find_router ()
… …
713, tcpv4_ev_watcher (this, &vpn::tcpv4_ev) 724, tcpv4_ev_watcher (this, &vpn::tcpv4_ev)
714#endif 725#endif
715#if ENABLE_ICMP 726#if ENABLE_ICMP
716, icmpv4_ev_watcher(this, &vpn::icmpv4_ev) 727, icmpv4_ev_watcher(this, &vpn::icmpv4_ev)
717#endif 728#endif
729#if ENABLE_DNS
730, dnsv4_ev_watcher (this, &vpn::dnsv4_ev)
731#endif
718, tap_ev_watcher (this, &vpn::tap_ev) 732, tap_ev_watcher (this, &vpn::tap_ev)
719{ 733{
720} 734}
721 735
722vpn::~vpn () 736vpn::~vpn ()

Diff Legend

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