1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
/*
* tun-solaris.c
*
* Universal TUN/TAP driver
*
* Copyright (c) 2001 Dug Song <dugsong@monkey.org>
*
* $Id: tun-solaris.c 547 2005-01-25 21:30:40Z dugsong $
*/
#include "config.h"
#include <sys/ioctl.h>
#include <sys/socket.h>
#include <sys/sockio.h>
#include <net/if.h>
#include <net/if_tun.h>
#include <fcntl.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stropts.h>
#include <unistd.h>
#include "dnet.h"
#define DEV_TUN "/dev/tun"
#define DEV_IP "/dev/ip"
struct tun {
int fd;
int ip_fd;
int if_fd;
char name[16];
};
tun_t *
tun_open(struct addr *src, struct addr *dst, int mtu)
{
tun_t *tun;
char cmd[512];
int ppa;
if ((tun = calloc(1, sizeof(*tun))) == NULL)
return (NULL);
tun->fd = tun->ip_fd = tun->if_fd = -1;
if ((tun->fd = open(DEV_TUN, O_RDWR, 0)) < 0)
return (tun_close(tun));
if ((tun->ip_fd = open(DEV_IP, O_RDWR, 0)) < 0)
return (tun_close(tun));
if ((ppa = ioctl(tun->fd, TUNNEWPPA, ppa)) < 0)
return (tun_close(tun));
if ((tun->if_fd = open(DEV_TUN, O_RDWR, 0)) < 0)
return (tun_close(tun));
if (ioctl(tun->if_fd, I_PUSH, "ip") < 0)
return (tun_close(tun));
if (ioctl(tun->if_fd, IF_UNITSEL, (char *)&ppa) < 0)
return (tun_close(tun));
if (ioctl(tun->ip_fd, I_LINK, tun->if_fd) < 0)
return (tun_close(tun));
snprintf(tun->name, sizeof(tun->name), "tun%d", ppa);
snprintf(cmd, sizeof(cmd), "ifconfig %s %s/32 %s mtu %d up",
tun->name, addr_ntoa(src), addr_ntoa(dst), mtu);
if (system(cmd) < 0)
return (tun_close(tun));
return (tun);
}
const char *
tun_name(tun_t *tun)
{
return (tun->name);
}
int
tun_fileno(tun_t *tun)
{
return (tun->fd);
}
ssize_t
tun_send(tun_t *tun, const void *buf, size_t size)
{
struct strbuf sbuf;
sbuf.buf = buf;
sbuf.len = size;
return (putmsg(tun->fd, NULL, &sbuf, 0) >= 0 ? sbuf.len : -1);
}
ssize_t
tun_recv(tun_t *tun, void *buf, size_t size)
{
struct strbuf sbuf;
int flags = 0;
sbuf.buf = buf;
sbuf.maxlen = size;
return (getmsg(tun->fd, NULL, &sbuf, &flags) >= 0 ? sbuf.len : -1);
}
tun_t *
tun_close(tun_t *tun)
{
if (tun->if_fd >= 0)
close(tun->if_fd);
if (tun->ip_fd >= 0)
close(tun->ip_fd);
if (tun->fd >= 0)
close(tun->fd);
free(tun);
return (NULL);
}
|
