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

initial commit of file from CVS for smeserver-openvpn-bridge on Sat Sep 7 19:57:25 AEST 2024

Browse Source
This commit is contained in:
Trevor Batley
2024-09-07 19:57:25 +10:00
parent d755aea606
commit 9dcb47db31
73 changed files with 14036 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
root/etc/e-smith/events/actions/openvpn-bridge-reload-ccd Normal file
View File

@@ -0,0 +1,39 @@
#!/usr/bin/perl -w
use esmith::ConfigDB;
my $config_db = esmith::ConfigDB->open_ro();
my $db_rules = esmith::ConfigDB->open_ro('openvpn-bridge');
my @rules = $db_rules->get_all_by_prop(type => 'rule');
my $netmask = $config_db->get('LocalNetmask')->value;
my $userAuth = ${'openvpn-bridge'}{userAuth};
my $ccd = "/etc/openvpn/bridge/ccd";
unlink <$ccd/*>;
foreach (@rules){
my $rule = $_->key;
my $rec_rule = $db_rules->get("$rule");
my $ip = $rec_rule->prop('ip') || '';
my $redirectGW = $rec_rule->prop('redirectGW') || 'disabled';
my $access = $rec_rule->prop('access') || 'allowed';
unless (open (CCD, ">$ccd/$rule")){
die "Error opening $ccd/$rule";
}
if ($ip ne ''){
print CCD "--ifconfig-push $ip $netmask\n";
}
else{
print CCD "# No fixed IP defined\n";
}
if ($access eq 'denied'){
print CCD "--disable\n";
}
if ($redirectGW eq 'enabled'){
print CCD "push \"redirect-gateway def1\"\n";
}
close CCD;
}