summaryrefslogtreecommitdiffstats
path: root/perl-install/network/ipsec.pm
diff options
context:
space:
mode:
authorFlorin Grad <florin@mandriva.com>2004-02-17 00:00:05 +0000
committerFlorin Grad <florin@mandriva.com>2004-02-17 00:00:05 +0000
commit949edba55bb75742dec814d45971f024a6ef69da (patch)
tree0050dfefb38b49e50f3c2d425e7d64adaddb108b /perl-install/network/ipsec.pm
parent675cf17f8beed48c3fe929b719fea31529d36a1c (diff)
downloaddrakx-949edba55bb75742dec814d45971f024a6ef69da.tar
drakx-949edba55bb75742dec814d45971f024a6ef69da.tar.gz
drakx-949edba55bb75742dec814d45971f024a6ef69da.tar.bz2
drakx-949edba55bb75742dec814d45971f024a6ef69da.tar.xz
drakx-949edba55bb75742dec814d45971f024a6ef69da.zip
fix the ";" mark in the Security Policies Section
Diffstat (limited to 'perl-install/network/ipsec.pm')
-rw-r--r--perl-install/network/ipsec.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/network/ipsec.pm b/perl-install/network/ipsec.pm
index 8e4afdf4d..c2f5f4526 100644
--- a/perl-install/network/ipsec.pm
+++ b/perl-install/network/ipsec.pm
@@ -544,6 +544,7 @@ sub read_ipsec_conf {
chomp($_);
$myline = $_;
$myline =~ s/^\s+//;
+ $myline =~ s/;$//;
if ($myline =~ /^spdadd/) {
@mylist = split /\s+/,$myline;
$in_a_conn = "y";
@@ -756,7 +757,7 @@ sub already_existing_section_ipsec_conf {
#- returns the reference to the dynamical list for editing
sub dynamic_list {
my ($number, $ipsec) = @_;
- my @list = map { { label => "$ipsec->{$number}{$_}[0]" . "=",
+ my @list = map { { label => $ipsec->{$number}{$_}[0] . "=",
val => \$ipsec->{$number}{$_}[1] } } ikeys %{$ipsec->{$number}};
@list;