summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakvpn
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakvpn')
-rw-r--r--perl-install/standalone/drakvpn18
1 files changed, 10 insertions, 8 deletions
diff --git a/perl-install/standalone/drakvpn b/perl-install/standalone/drakvpn
index ff5070d03..4387dc889 100644
--- a/perl-install/standalone/drakvpn
+++ b/perl-install/standalone/drakvpn
@@ -183,7 +183,7 @@ This program is based on the following projects:
- the docs and man pages coming with the %s package
Please read AT LEAST the ipsec-howto docs
-before going any further."),$ipsec_package) or goto begin;
+before going any further.",$ipsec_package)) or goto begin;
$::direct or $in->ask_okcancel(N("Kernel module."),
N("The kernel need to have ipsec support.
@@ -281,14 +281,16 @@ step_configuration:
my $c;
+my %messages = (ipsec => N("configure %s", $ipsec_conf), racoon => N("configure %s", $racoon_conf));
+
if ($kernel_version > 2.5) {
- $c = $in->ask_from_list_(N("Configuration file"),
+ $in->ask_from(N("Configuration file"),
N("Welcome to the configuration files step !
You can now configure the sections of these files.
Which file would you like to configure ?\n"),
- [ N("configure %s", $ipsec_conf), N("configure %s", $racoon_conf) ]) or goto step_detectsetup;
+ [ { val => \$c, type => "list", list => [ keys %messages ], format => sub { $messages{$_[0]} } } ]) or goto step_detectsetup;
} else {
$in->ask_okcancel(N("Configuration file"),
@@ -303,7 +305,7 @@ Simply click on Next.\n", $ipsec_conf)) or goto step_detectsetup;
#---------------------- configure ipsec_conf -----------------------
#-------------------------------------------------------------------
-if ($c eq "configure $ipsec_conf" || $c eq "configure") {
+if ($c eq "ipsec" || $c eq "configure") {
step_configure_ipsec_conf:
@@ -685,7 +687,7 @@ and then click on next.\n", $ipsec_conf),
#---------------------- configure racoon_conf -----------------------
#-------------------------------------------------------------------
-} elsif ($c eq "configure $racoon_conf") {
+} elsif ($c eq "racoon") {
step_configure_racoon_conf:
@@ -741,7 +743,7 @@ Here below is the racoon.conf file skeleton :
\t'path'
\t'remote'
\t'sainfo' \n
-Choose the section you would like to add.\n", $racoon_conf),
+Choose the section you would like to add.\n"),
[ N_("path"), N_("remote"), N_("sainfo"), N_("dismiss") ]) or goto step_configure_racoon_conf;
if ($e eq "path") {
@@ -753,7 +755,7 @@ if ($e eq "path") {
N("The 'add path' section step.\n
The path sections have to be on top of your racoon.conf file.\n
Put your mouse over the certificate entry to obtain online help."),
- [{ label => N("path type"),
+ [ { label => N("path type"),
val => \$path_section->{1}[1],
list => [ 'certificate', 'pre_shared_key', 'include' ],
help =>
@@ -808,7 +810,7 @@ N("Make sure you already have the path sections
on the top of your racoon.conf file.
You can now choose the remote settings.
-Choose continue or previous when you are done.\n", $racoon_conf),
+Choose continue or previous when you are done.\n"),
[ { label => N("remote"), val => \$main_remote_section->{1}[1], type => 'entry' },
{ label => N("exchange_mode"), val => \$main_remote_section->{2}[1], type => 'entry' },
{ label => N("generate_policy"), val => \$main_remote_section->{3}[1], type => 'entry' },