From ca889fec9abf2c0223e705ab378f1c4043b0e3c0 Mon Sep 17 00:00:00 2001
From: Florin Grad <florin@mandriva.com>
Date: Wed, 11 Feb 2004 14:33:02 +0000
Subject: remove debugging print commands

---
 perl-install/network/ipsec.pm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/perl-install/network/ipsec.pm b/perl-install/network/ipsec.pm
index 3cdd9a43f..3c17f0994 100644
--- a/perl-install/network/ipsec.pm
+++ b/perl-install/network/ipsec.pm
@@ -357,10 +357,9 @@ open(my $ADD, "> $racoon_conf") or die "Can't open the $racoon_conf file for wri
 }
 
 sub get_section_names_racoon_conf {
-  my ($racoon_conf, $racoon) = @_;
+  my ($racoon) = @_;
   my @section_names;
 
-  if (-e $racoon_conf) {
 	foreach my $key1 (ikeys %$racoon) {
 		if (!$racoon->{$key1}{1}) {
 			next;
@@ -381,7 +380,6 @@ sub get_section_names_racoon_conf {
 
 	@section_names;
 
-  }
 }
 
 sub add_section_racoon_conf {
@@ -450,11 +448,13 @@ sub remove_section_racoon_conf {
 	my ($section_name, $racoon, $k) = @_;
 	if ($section_name =~ /^remote/) {
 
-		delete $racoon->{$k};
-		my $proposal_removed = "n";
-		delete $racoon->{$k+1};
-		delete $racoon->{$k+2}; #- remove assoc } 
-		delete $racoon->{$k+3}; #- remove assoc } 
+		delete $racoon->{$k} if $k > 1 && !$racoon->{$k-1};
+		my $closing_curly_bracket = 0;
+		while ($closing_curly_bracket < 2) {
+			$closing_curly_bracket++ if $racoon->{$k} eq "}"; 
+			delete $racoon->{$k};
+			$k++;
+		}
 
 	} elsif ($section_name =~ /^path/) {
 
-- 
cgit v1.2.1