32 |
system "sudo sysctl -w net.ipv4.ip_forward=1"; |
system "sudo sysctl -w net.ipv4.ip_forward=1"; |
33 |
my $network = ip::from_int( ip::to_int($server::ip) & ip::to_int($server::netmask) ); |
my $network = ip::from_int( ip::to_int($server::ip) & ip::to_int($server::netmask) ); |
34 |
warn "# network $network"; |
warn "# network $network"; |
35 |
system "sudo iptables -t nat -L POSTROUTING -n | grep $network || sudo iptables -t nat -A POSTROUTING -s $server::ip/$server::netmask -o wlan0 -j MASQUERADE"; |
system "sudo iptables -t nat -L POSTROUTING -n | grep $network || sudo iptables -t nat -A POSTROUTING -s $server::ip/$server::netmask -o $dev -j MASQUERADE"; |
36 |
warn "masquarade to $dev"; |
warn "masquarade to $dev"; |
37 |
} |
} |
38 |
} |
} |