From c9e29640b3f81dbe39ec42625c98d0d0a9314289 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 11 Mar 2004 11:33:15 +0000 Subject: fix previous button on first step (robert.vojta@qcm.cz, anthill #387) --- perl-install/standalone/drakvpn | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakvpn b/perl-install/standalone/drakvpn index c87c3b03f..9e276ad7f 100644 --- a/perl-install/standalone/drakvpn +++ b/perl-install/standalone/drakvpn @@ -86,7 +86,7 @@ begin: #- ********************************** #- * 0th step: verify if we are already set up -if ($shorewall && -f "/etc/shorewall/tunnels") { +if (0 && $shorewall && -f "/etc/shorewall/tunnels") { $::Wizard_no_previous = 1; if (!$shorewall->{disabled}) { @@ -148,7 +148,7 @@ What would you like to do ?"), #- * 1st step: detect/setup step_ask_confirm: -undef $::Wizard_no_previous; +$::Wizard_no_previous = 1; $direct or $in->ask_okcancel(N("Simple VPN setup."), N("You are about to configure your computer to use a VPN connection. @@ -163,6 +163,8 @@ computers look as if they were on the same network. Make sure you have configured your Network/Internet access using drakconnect before going any further."), 1) or goto begin; +undef $::Wizard_no_previous; + if ($kernel_version < 2.5) { system("/sbin/modprobe ipsec") if -e "/sbin/modprobe"; $proc_version = cat_("/proc/net/ipsec_version") if -e "/proc/net/ipsec_version"; -- cgit v1.2.1