summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/drakvpn25
1 files changed, 13 insertions, 12 deletions
diff --git a/perl-install/standalone/drakvpn b/perl-install/standalone/drakvpn
index 0bb6b109b..ff5070d03 100644
--- a/perl-install/standalone/drakvpn
+++ b/perl-install/standalone/drakvpn
@@ -318,7 +318,7 @@ You can now :\n
- commit the changes
What would you like to do ?\n", $ipsec_conf),
- [ N_("display"), N_("add"), N_("edit"), N_("remove"), N_("commit") ]) or goto step_configuration;
+ [ N_("Display"), N_("Add"), N_("Edit"), N_("Remove"), N_("Commit") ]) or goto step_configuration;
my $existing_section = "";
@@ -326,7 +326,8 @@ my $existing_section = "";
step_display_ipsec_conf:
-if ($d eq "display $ipsec_conf" || $d eq "display") {
+# BUG: how can $d be "display $ipsec_conf":
+if ($d eq "display $ipsec_conf" || $d eq "Display") {
my $ipsec_exists = 0;
foreach my $key (keys %$ipsec) {
$ipsec_exists = 1 if $ipsec->{$key};
@@ -346,7 +347,7 @@ You'll have to go back and choose 'add'.\n", $ipsec_conf));
#- add ---------------------
-} elsif ($d eq "add") {
+} elsif ($d eq "Add") {
step_add_section:
@@ -566,7 +567,7 @@ or change the name of the section.\n"));
#- edit ---------------------
-} elsif ($d eq "edit") {
+} elsif ($d eq "Edit") {
step_edit_ipsec_conf:
$in->ask_from(N("Edit section"),
@@ -661,7 +662,7 @@ goto step_configure_ipsec_conf;
#- remove ---------------------
-} elsif ($d eq "remove") {
+} elsif ($d eq "Remove") {
$in->ask_from(N("Remove section"),
N("Your %s file has several or sections or connections.\n
You can choose here below the one you want to remove
@@ -676,7 +677,7 @@ and then click on next.\n", $ipsec_conf),
#- continue and write ---------------------
-} elsif ($d eq "commit") {
+} elsif ($d eq "Commit") {
log::l("[drakvpn] Modify the $ipsec_conf file");
network::ipsec::write_ipsec_conf($ipsec_conf, $ipsec,$kernel_version);
}
@@ -700,14 +701,14 @@ You can now :
- edit \t\t\t (modify parameters of an existing section)
- remove \t\t (remove an existing section)
- commit \t\t (writes the changes to the real file)"),
- [ N_("display"), N_("add"), N_("edit"), N_("remove"), N_("commit") ]) or goto step_configuration;
+ [ N_("Display"), N_("Add"), N_("Edit"), N_("Remove"), N_("Commit") ]) or goto step_configuration;
#- display $racoon_conf -------------------------
step_display_racoon_conf:
-if ($d eq "display") {
+if ($d eq "Display") {
my $racoon_exists = 0;
foreach my $key (keys %$racoon) {
@@ -728,7 +729,7 @@ You'll have to go back and choose configure.\n", $racoon_conf));
#- add $racoon_conf ------------------------------
-} elsif ($d eq "add") {
+} elsif ($d eq "Add") {
step_add_section_racoon:
@@ -863,7 +864,7 @@ goto step_configure_racoon_conf;
#- edit $racoon_conf -----------------------------
-} elsif ($d eq "edit") {
+} elsif ($d eq "Edit") {
$in->ask_from(N("Edit section"),
N("Your %s file has several sections or connections.
@@ -940,7 +941,7 @@ goto step_configure_racoon_conf;
#- remove $racoon_conf ---------------------------
-} elsif ($d eq "remove") {
+} elsif ($d eq "Remove") {
$in->ask_from(N("Remove section"),
N("Your %s file has several or sections or connections.\n
You can choose here below the one you want to remove
@@ -954,7 +955,7 @@ network::ipsec::remove_section_racoon_conf($choice,$racoon,$number);
goto step_configure_racoon_conf;
#- write $racoon_conf and continue ---------------
-} elsif ($d eq "commit") {
+} elsif ($d eq "Commit") {
log::l("[drakvpn] Modify the $racoon_conf file");
network::ipsec::write_racoon_conf($racoon_conf, $racoon);
}