diff -Nur -x '*.orig' -x '*.rej' smeserver-openvpn-s2s-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/openvpns2s.pm mezzanine_patched_smeserver-openvpn-s2s-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/openvpns2s.pm
--- smeserver-openvpn-s2s-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/openvpns2s.pm	2010-10-16 17:56:47.000000000 +0200
+++ mezzanine_patched_smeserver-openvpn-s2s-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/openvpns2s.pm	2010-10-16 23:35:27.000000000 +0200
@@ -376,6 +376,7 @@
 sub is_valid_vpn_ip{
     my ($fm,$ip) = @_;
     my $ret = 'OK';
+    my $conf = $fm->{cgi}->param('conf_name') || '';
 
     # Check it's a valid IP number
     return $fm->localise('NOT_A_VALID_IP_NUMBER') unless
@@ -384,6 +385,7 @@
     # Check it's not already used by another daemon
     foreach my $vpn ($ovpn_db->get_all_by_prop(type=>'client'),
                      $ovpn_db->get_all_by_prop(type=>'server')){
+        next if ($vpn->key eq $conf);
         $ret = $fm->localise('IP_ALREADY_IN_USED')
             if ((($vpn->prop('LocalIP') || '') eq $ip) ||
                 (($vpn->prop('RemoteIP') || '') eq $ip));