summaryrefslogtreecommitdiffstats
path: root/perl-install/network/ipsec.pm
diff options
context:
space:
mode:
authorFlorin Grad <florin@mandriva.com>2004-02-11 14:33:02 +0000
committerFlorin Grad <florin@mandriva.com>2004-02-11 14:33:02 +0000
commitca889fec9abf2c0223e705ab378f1c4043b0e3c0 (patch)
treecf331ec95665932627da85605cb80783fe913d2e /perl-install/network/ipsec.pm
parent55076ad3fd29fbe53dcb189031eb7201fa33a6d6 (diff)
downloaddrakx-backup-do-not-use-ca889fec9abf2c0223e705ab378f1c4043b0e3c0.tar
drakx-backup-do-not-use-ca889fec9abf2c0223e705ab378f1c4043b0e3c0.tar.gz
drakx-backup-do-not-use-ca889fec9abf2c0223e705ab378f1c4043b0e3c0.tar.bz2
drakx-backup-do-not-use-ca889fec9abf2c0223e705ab378f1c4043b0e3c0.tar.xz
drakx-backup-do-not-use-ca889fec9abf2c0223e705ab378f1c4043b0e3c0.zip
remove debugging print commands
Diffstat (limited to 'perl-install/network/ipsec.pm')
-rw-r--r--perl-install/network/ipsec.pm16
1 files 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/) {