31 lines
809 B
Plaintext
31 lines
809 B
Plaintext
{
|
|
|
|
my $pushRoutes = ${'openvpn-routed'}{PushLocalNetworks} || 'enabled';
|
|
my $redirectGW = ${'openvpn-routed'}{RedirectGateway} || 'disabled';
|
|
|
|
use esmith::NetworksDB;
|
|
my $ndb = esmith::NetworksDB->open_ro() ||
|
|
die('Can not open Networks DB');
|
|
|
|
my @networks = $ndb->networks();
|
|
|
|
if ($redirectGW eq 'enabled'){
|
|
$OUT .= "push \"redirect-gateway def1\"\n";
|
|
}
|
|
elsif ($pushRoutes eq 'enabled'){
|
|
foreach my $network (@networks) {
|
|
my $route = '';
|
|
my $addr = $network->key;
|
|
my $mask = $network->prop('Mask');
|
|
my $gw = $network->prop('Router') || '';
|
|
my $vpn = $network->prop('VPN') || '';
|
|
if ($gw ne '') {
|
|
$route .= "push \"route $addr $mask";
|
|
$route .= " $gw" if ($vpn eq '');
|
|
$OUT .= "$route\"\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
}
|