summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-02-17 18:01:54 +0000
committerOlivier Blin <oblin@mandriva.org>2005-02-17 18:01:54 +0000
commit72cf6289b4b6f6a254ad9e5f58b0ddf869b98618 (patch)
treef891477b2cda257339db6db32ce6065281699bec
parenteb5d27d42fd65ab6995c05a4de738c4e1228ac6c (diff)
downloaddrakx-backup-do-not-use-72cf6289b4b6f6a254ad9e5f58b0ddf869b98618.tar
drakx-backup-do-not-use-72cf6289b4b6f6a254ad9e5f58b0ddf869b98618.tar.gz
drakx-backup-do-not-use-72cf6289b4b6f6a254ad9e5f58b0ddf869b98618.tar.bz2
drakx-backup-do-not-use-72cf6289b4b6f6a254ad9e5f58b0ddf869b98618.tar.xz
drakx-backup-do-not-use-72cf6289b4b6f6a254ad9e5f58b0ddf869b98618.zip
perl_checker fixes
-rw-r--r--perl-install/standalone/drakvpn36
1 files changed, 18 insertions, 18 deletions
diff --git a/perl-install/standalone/drakvpn b/perl-install/standalone/drakvpn
index 1f7a8dce4..7ad344465 100644
--- a/perl-install/standalone/drakvpn
+++ b/perl-install/standalone/drakvpn
@@ -64,7 +64,7 @@ if ($kernel_version > 2.5) {
$ipsec_conf = "/etc/ipsec.conf";
} else {
$ipsec_conf = "/etc/freeswan/ipsec.conf";
-};
+}
my $ipsec = network::ipsec::read_ipsec_conf($ipsec_conf,$kernel_version);
my $racoon = network::ipsec::read_racoon_conf($racoon_conf);
@@ -106,7 +106,7 @@ What would you like to do?"),
network::ipsec::stop_daemons();
}
foreach ($ipsec_conf, $tunnels_file) {
- if (-f $_) { rename($_, "$_.drakvpndisable") or die "Could not rename $_ to $_.drakvpndisable" };
+ if (-f $_) { rename($_, "$_.drakvpndisable") or die "Could not rename $_ to $_.drakvpndisable" }
}
network::ipsec::sys("/etc/init.d/shorewall restart >/dev/null");
log::l("[drakvpn] Disabled");
@@ -130,7 +130,7 @@ What would you like to do?"),
foreach ($ipsec_conf, $tunnels_file) {
rename($_, "$_.old") if -f $_;
rename("$_.drakvpndisable", $_) or die "Could not find configuration. Please reconfigure.";
- };
+ }
{
my $_wait_enabl = $in->wait_message('', N("Enabling VPN..."));
network::ipsec::start_daemons();
@@ -249,7 +249,7 @@ if (!$::testing && $ipsec_package =~ /super/i && $kernel_version < 2.5) {
$in->do_pkgs->remove("freeswan") if -e "/etc/freeswan/ipsec.d/policies/clear";
$in->do_pkgs->remove("super-freeswan-doc") if -e "/usr/sbin/ipsec";
$in->do_pkgs->remove("super-freeswan") if -e "/usr/lib/ipsec/auto.advroute";
-};
+}
#- install and setup the RPM packages, if needed
@@ -262,7 +262,7 @@ if (!$::testing && $ipsec_package =~ /ipsec-tools/i) {
} else {
%rpm2file = ($ipsec_package => '/usr/sbin/ipsec',
shorewall => '/sbin/shorewall');
-};
+}
#- first: try to install all in one step, if needed
if (! ($ipsec_package =~ /super/i && -e "/usr/lib/ipsec/auto.advroute" ||
@@ -309,7 +309,7 @@ N("Next, we will configure the %s file.\n
Simply click on Next.\n", $ipsec_conf)) or goto step_detectsetup;
$c = "configure";
-};
+}
#-------------------------------------------------------------------
#---------------------- configure ipsec_conf -----------------------
@@ -321,7 +321,7 @@ step_configure_ipsec_conf:
@section_names = network::ipsec::get_section_names_ipsec_conf($ipsec,$kernel_version) if $ipsec;
-my $choice = $section_names[0] if $section_names[0];
+my $choice = $section_names[0];
my $d = $in->ask_from_list(N("%s entries", $ipsec_conf),
N("The %s file contents
is divided into sections.\n
@@ -342,7 +342,7 @@ if ($d eq "display $ipsec_conf" || $d eq "_:display here is a verb\nDisplay") {
my $ipsec_exists = 0;
foreach my $key (keys %$ipsec) {
$ipsec_exists = 1 if $ipsec->{$key};
- };
+ }
if ($ipsec_exists) {
$in->ask_okcancel(N("_:display here is a verb\nDisplay configuration"),
network::ipsec::display_ipsec_conf($ipsec,$kernel_version));
@@ -385,7 +385,7 @@ The section names have to be unique.\n
You'll have to go back and add another section
or change its name.\n"));
goto step_add_section;
-};
+}
my $config_setup = {
1 => [ "config", "setup" ],
@@ -426,7 +426,7 @@ The section names have to be unique.\n
You'll have to go back and add another section
or change its name.\n"));
goto step_add_section;
-};
+}
my $conn_default = {
1 => [ "conn", "%default" ],
@@ -513,7 +513,7 @@ The section names have to be unique.\n
You'll have to go back and add another section
or change the name of the section.\n"));
goto step_add_normal_conn;
-};
+}
network::ipsec::add_section_ipsec_conf($normal_conn, $ipsec);
@@ -559,14 +559,14 @@ Choose continue when you are done to write the data.\n"), $section) or goto ste
put_in_hash($ipsec, { max(keys %$ipsec) + 1 => "#!/sbin/setkey -f" });
put_in_hash($ipsec, { max(keys %$ipsec) + 1 => "flush;" });
put_in_hash($ipsec, { max(keys %$ipsec) + 1 => "spdflush;" });
- };
+ }
network::ipsec::add_section_ipsec_conf($section, $ipsec);
@section_names = network::ipsec::get_section_names_ipsec_conf($ipsec,$kernel_version);
goto step_configure_ipsec_conf;
-};
+}
#- edit ---------------------
@@ -635,7 +635,7 @@ Choose continue when you are done to write the data.\n", $ipsec_conf),
goto step_configure_ipsec_conf;
-};
+}
#- edit ---- kernel 2.6 part -------------------------------
@@ -648,7 +648,7 @@ Choose continue when you are done to write the data.\n"), $ipsec->{$number}) or
goto step_configure_ipsec_conf;
-};
+}
#- remove ---------------------
@@ -681,7 +681,7 @@ step_configure_racoon_conf:
@section_names = network::ipsec::get_section_names_racoon_conf($racoon) if $racoon;
-my $choice = $section_names[0] if $section_names[0];
+my $choice = $section_names[0];
my $d = $in->ask_from_list_(N("%s entries", $racoon_conf),
N("The racoon.conf file configuration.\n
The contents of this file is divided into sections.
@@ -703,7 +703,7 @@ if ($d eq "_:display here is a verb\nDisplay") {
my $racoon_exists = 0;
foreach my $key (keys %$racoon) {
$racoon_exists = 1 if $racoon->{$key};
- };
+ }
if ($racoon_exists) {
$in->ask_okcancel(N("_:display here is a verb\nDisplay configuration"),
@@ -913,7 +913,7 @@ quit_global($in, 0);
sub quit_global {
my ($in, $exitcode) = @_;
$in->exit($exitcode);
- goto begin
+ goto begin;
}