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

Diff Legend

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