From ee0e449bd2644dea09bd29565b9be54b0bf5636d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 27 Nov 2003 21:51:11 +0000 Subject: prevent altering system configuration in testing mode in optional steps --- perl-install/standalone/drakgw | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw index c8e17b083..0b2bc5b4f 100755 --- a/perl-install/standalone/drakgw +++ b/perl-install/standalone/drakgw @@ -129,7 +129,7 @@ It's currently enabled. What would you like to do?"), [ N_("disable"), N_("reconfigure"), N_("dismiss") ]) or quit_global($in, 0); if ($r eq "disable") { - { + if (!$::testing) { my $_wait_disabl = $in->wait_message('', N("Disabling servers...")); stop_daemons(); } @@ -153,15 +153,17 @@ It's currently disabled. What would you like to do?"), [ N_("enable"), N_("reconfigure"), N_("dismiss") ]); if ($r eq "enable") { + if (!$::testing) { foreach ($dhcpd_conf, $masq_file) { rename($_, "$_.old") if -f $_; rename("$_.drakgwdisable", $_) or die "Could not find configuration. Please reconfigure."; - } + }; { my $_wait_enabl = $in->wait_message('', N("Enabling servers...")); start_daemons(); } log::l("[drakgw] Enabled"); + } $::Wizard_finished = 1; $in->ask_okcancel('', N("Internet Connection Sharing is now enabled.")); quit_global($in, 0); @@ -349,7 +351,7 @@ $wait_configuring = $in->wait_message(N("Configuring..."), #- setup the /etc/sysconfig/network-script/ script -if ($reconf_dhcp_server_intf) { +if ($reconf_dhcp_server_intf && !$::testing) { log::explanations("Reconfiguring network parameters of $device"); my $network_scripts = "/etc/sysconfig/network-scripts"; my $ifcfg = "$network_scripts/ifcfg-$device"; @@ -391,17 +393,17 @@ put_in_hash($shorewall ||= {}, { masquerade => { interface => $device, subnet => "$lan_address.0/$netmask" }, }); -network::shorewall::write($shorewall); +network::shorewall::write($shorewall) if !$::testing; #- be sure that FORWARD_IPV4 is enabled in /etc/sysconfig/network log::explanations("Enabling IPV4 forwarding"); -substInFile { s/^FORWARD_IPV4.*\n//; $_ .= "FORWARD_IPV4=true\n" if eof } $sysconf_network; +substInFile { s/^FORWARD_IPV4.*\n//; $_ .= "FORWARD_IPV4=true\n" if eof } $sysconf_network if !$::testing; #- setup the DHCP server -if ($reconf_dhcp_server_intf) { +if ($reconf_dhcp_server_intf && !$::testing) { log::explanations("Configuring a DHCP server on $lan_address.0"); renamef($dhcpd_conf, "$dhcpd_conf.old"); output($dhcpd_conf, qq(subnet $lan_address.0 netmask $netmask { @@ -426,7 +428,7 @@ my $update_dhcp = '/usr/sbin/update_dhcp.pl'; #- put the interface for the dhcp server in the sysconfig-dhcp config, for the /etc/init.d script of dhcpd log::explanations("Update network interfaces list for dhcpd server"); -substInFile { s/^INTERFACES\n//; $_ .= qq(INTERFACES="$device"\n) if eof } $sysconf_dhcpd; +substInFile { s/^INTERFACES\n//; $_ .= qq(INTERFACES="$device"\n) if eof } $sysconf_dhcpd if !$::testing; #- Set up /etc/cups/cupsd.conf to make the broadcasting of the printer info @@ -453,7 +455,7 @@ substInFile { s/^INTERFACES\n//; $_ .= qq(INTERFACES="$device"\n) if eof } $sysc #- Modify the root location block in /etc/cups/cupsd.conf -if (-f $cups_conf) { +if (-f $cups_conf && !$::testing) { log::explanations("Updating CUPS configuration accordingly"); substInFile { -- cgit v1.2.1