14 |
|
|
15 |
sub tap { |
sub tap { |
16 |
|
|
17 |
|
if ( my $dev = $ENV{DEV} ) { |
18 |
|
warn "W: running under device $dev, not configuring tap0\n"; |
19 |
|
return; |
20 |
|
} |
21 |
|
|
22 |
|
if ( $server::ip !~ m{^172} ) { |
23 |
|
warn "W: server ip mismetch, not configuring tap0\n"; |
24 |
|
return; |
25 |
|
} |
26 |
|
|
27 |
my $interfaces = read_file '/etc/network/interfaces'; |
my $interfaces = read_file '/etc/network/interfaces'; |
28 |
|
|
29 |
if ( $interfaces !~ m{tap0}s ) { |
if ( $interfaces !~ m{tap0}s ) { |
37 |
address $server::ip |
address $server::ip |
38 |
netmask $server::netmask |
netmask $server::netmask |
39 |
vde2-switch - |
vde2-switch - |
40 |
|
# setup NAT for vde network |
41 |
|
post-up sysctl -w net.ipv4.ip_forward=1 |
42 |
|
post-up iptables -t nat -A POSTROUTING -s $server::ip/$server::netmask -o wlan0 -j MASQUERADE |
43 |
|
|
44 |
}; |
}; |
45 |
|
|