smeserver-openvpn-s2s/contribs7/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	slords	1.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');