diff options
| author | Florin Grad <florin@mandriva.com> | 2004-02-11 14:54:07 +0000 |
|---|---|---|
| committer | Florin Grad <florin@mandriva.com> | 2004-02-11 14:54:07 +0000 |
| commit | ab818ec50d828b4f44d38ef7c494f3f7ad2bdf2b (patch) | |
| tree | e1cf1c1056fa7449a527f264dfea7bd58ef63f2b /perl-install/standalone | |
| parent | ca889fec9abf2c0223e705ab378f1c4043b0e3c0 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/standalone/drakvpn | 11 |
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.")); |