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');