summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakvpn
diff options
context:
space:
mode:
authorFlorin Grad <florin@mandriva.com>2004-02-11 14:54:07 +0000
committerFlorin Grad <florin@mandriva.com>2004-02-11 14:54:07 +0000
commitab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b (patch)
treee1cf1c1056fa7449a527f264dfea7bd58ef63f2b /perl-install/standalone/drakvpn
parentca889fec9abf2c0223e705ab378f1c4043b0e3c0 (diff)
downloaddrakx-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.tar
drakx-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.tar.gz
drakx-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.tar.bz2
drakx-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.tar.xz
drakx-ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b.zip
fix the perl_checker errors
Diffstat (limited to 'perl-install/standalone/drakvpn')
-rw-r--r--perl-install/standalone/drakvpn11
1 files changed, 8 insertions, 3 deletions
diff --git a/perl-install/standalone/drakvpn b/perl-install/standalone/drakvpn
index 5ff903fed..0f0192e40 100644
--- a/perl-install/standalone/drakvpn
+++ b/perl-install/standalone/drakvpn
@@ -333,7 +333,12 @@ my $existing_section = "";
step_display_ipsec_conf:
if ($d eq "display $ipsec_conf" || $d eq "display") {
- if (-e $ipsec_conf) {
+ my $ipsec_exists = 0;
+ foreach my $key (keys %$ipsec) {
+ $ipsec_exists = 1 if $ipsec->{$key};
+ };
+
+ if ($ipsec_exists) {
$in->ask_okcancel(N("Display configuration"),
network::ipsec::display_ipsec_conf($ipsec_conf,$ipsec,$kernel_version));
goto step_configure_ipsec_conf;
@@ -710,7 +715,7 @@ step_display_racoon_conf:
if ($d eq "display") {
my $racoon_exists = 0;
- foreach my $key (keys %{$racoon}) {
+ foreach my $key (keys %$racoon) {
$racoon_exists = 1 if $racoon->{$key};
};
@@ -948,7 +953,7 @@ $::Wizard_finished = 1;
$in->ask_okcancel(N("Congratulations!"),
N("Everything has been configured.\n
You may now share ressources through the Internet,
-in a secure way, using a VPN connection.\n
+in a secure way, using a VPN connection.
You should make sure that that the tunnels shorewall
section is configured."));