smecontribs/smeserver-openvpn-routed
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

initial commit of file from CVS for smeserver-openvpn-routed on Thu 6 Mar 14:40:52 GMT 2025

Browse Source
This commit is contained in:
Brian Read
2025-03-06 14:40:52 +00:00
parent 08020c8369
commit 73d65d729e
38 changed files with 866 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
root/etc/e-smith/events/actions/openvpn-routed-delete-net Normal file
View File

@@ -0,0 +1,25 @@
#!/usr/bin/perl -w
use strict;
use esmith::ConfigDB;
use esmith::NetworksDB;
use esmith::event;
my $c = esmith::ConfigDB->open_ro || die "Couldn't open config db\n";
my $n = esmith::NetworksDB->open || die "Couldn't open netwoks db\n";
my @nets = $n->networks;
my $ovpn = $c->get('openvpn-routed');
my $net = $ovpn->prop('Network') || '192.168.29.0/255.255.255.0';
my ($vpnnet,$mask) = split /\//, $net;
foreach my $net (@nets){
my $key = $net->key;
my $vpn = $n->get_prop($key,"VPNRouted") || '';
if ($vpn eq 'yes'){
unless ($key eq $vpnnet){
$n->set_prop($key, type=>'network-deleted');
event_signal("network-delete","$key");
$n->get($key)->delete;
}
}
}