smeserver-openvpn-s2s/contribs8/smeserver-openvpn-s2s-0.1-check_multiple_networks.patch

diff -Nur -x '*.orig' -x '*.rej' smeserver-openvpn-s2s-0.1/root/etc/e-smith/events/actions/openvpn-s2s-delete-networks mezzanine_patched_smeserver-openvpn-s2s-0.1/root/etc/e-smith/events/actions/openvpn-s2s-delete-networks
--- smeserver-openvpn-s2s-0.1/root/etc/e-smith/events/actions/openvpn-s2s-delete-networks       2010-10-17 01:47:16.000000000 +0200
+++ mezzanine_patched_smeserver-openvpn-s2s-0.1/root/etc/e-smith/events/actions/openvpn-s2s-delete-networks     2010-10-17 01:43:34.000000000 +0200
@@ -33,9 +33,8 @@
 # buils a list of network used by a VPN daemon
 foreach my $vpn ($ovpndb->get_all_by_prop(type=>'server'),
                     $ovpndb->get_all_by_prop(type=>'client')){
-    $vpnnet = $vpn->prop('RemoteNetworks') || '';
-    if ($vpnnet ne ''){
-        my ($vpnnet,undef) = split(/\//, $vpnnet);
+    foreach (split(/[;,]/,($vpn->prop('RemoteNetworks') || ''))){
+        my ($vpnnet,undef) = split(/\//, $_);
         push @vpnnets, $vpnnet;
     }
     push @vpnnets, $vpn->prop('RemoteIP');
1	diff -Nur -x '.orig' -x '.rej' smeserver-openvpn-s2s-0.1/root/etc/e-smith/events/actions/openvpn-s2s-delete-networks mezzanine_patched_smeserver-openvpn-s2s-0.1/root/etc/e-smith/events/actions/openvpn-s2s-delete-networks
2	--- smeserver-openvpn-s2s-0.1/root/etc/e-smith/events/actions/openvpn-s2s-delete-networks 2010-10-17 01:47:16.000000000 +0200
3	+++ mezzanine_patched_smeserver-openvpn-s2s-0.1/root/etc/e-smith/events/actions/openvpn-s2s-delete-networks 2010-10-17 01:43:34.000000000 +0200
4	@@ -33,9 +33,8 @@
5	# buils a list of network used by a VPN daemon
6	foreach my $vpn ($ovpndb->get_all_by_prop(type=>'server'),
7	$ovpndb->get_all_by_prop(type=>'client')){
8	- $vpnnet = $vpn->prop('RemoteNetworks') \|\| '';
9	- if ($vpnnet ne ''){
10	- my ($vpnnet,undef) = split(/\//, $vpnnet);
11	+ foreach (split(/[;,]/,($vpn->prop('RemoteNetworks') \|\| ''))){
12	+ my ($vpnnet,undef) = split(/\//, $_);
13	push @vpnnets, $vpnnet;
14	}
15	push @vpnnets, $vpn->prop('RemoteIP');