diff options
| author | Florin Grad <florin@mandriva.com> | 2004-02-11 14:33:02 +0000 |
|---|---|---|
| committer | Florin Grad <florin@mandriva.com> | 2004-02-11 14:33:02 +0000 |
| commit | ca889fec9abf2c0223e705ab378f1c4043b0e3c0 (patch) | |
| tree | cf331ec95665932627da85605cb80783fe913d2e /perl-install/network | |
| parent | 55076ad3fd29fbe53dcb189031eb7201fa33a6d6 (diff) | |
| download | drakx-ca889fec9abf2c0223e705ab378f1c4043b0e3c0.tar drakx-ca889fec9abf2c0223e705ab378f1c4043b0e3c0.tar.gz drakx-ca889fec9abf2c0223e705ab378f1c4043b0e3c0.tar.bz2 drakx-ca889fec9abf2c0223e705ab378f1c4043b0e3c0.tar.xz drakx-ca889fec9abf2c0223e705ab378f1c4043b0e3c0.zip | |
remove debugging print commands
Diffstat (limited to 'perl-install/network')
| -rw-r--r-- | perl-install/network/ipsec.pm | 16 |
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/) { |