summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakgw29
1 files changed, 21 insertions, 8 deletions
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index bd2a52e4f..535c9bbc4 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -57,7 +57,6 @@ sub start_daemons()
close DRAKGW_SETUP;
}
-
sub stop_daemons()
{
grep(/is running/, `/etc/rc.d/init.d/dhcpd status`) and ((system("/etc/rc.d/init.d/dhcpd stop") == 0) or die "Could not stop the dhcp server");
@@ -71,6 +70,20 @@ sub stop_daemons()
close DRAKGW_SETUP;
}
+sub install_rpm($)
+{
+ $in->suspend;
+ system("urpmi --auto --best-output $_[0]");
+ $in->resume;
+}
+
+sub fatal_quit($)
+{
+ (defined $wait_configuring) and (undef $wait_configuring);
+ $in->ask_warn('', $_[0]);
+ $in->exit(-1);
+}
+
#- **********************************
#- * 0nd step: verify if we are already set up
@@ -255,7 +268,7 @@ my @chain_rules;
#- **********************************
#- * 2nd step: configure
-my $wait_configuring = $in->wait_message('Configuring...', _("Configuring scripts, installing software, starting servers..."));
+$wait_configuring = $in->wait_message('Configuring...', _("Configuring scripts, installing software, starting servers..."));
#- setup the /etc/sysconfig/network-script/ script
@@ -278,8 +291,8 @@ close IFCFG;
#- install and setup the FORWARD and MASQ stuff with IPCHAINS
my $f = "/sbin/ipchains";
--e $f or system("urpmi --auto ipchains");
--e $f or ($in->ask_warn('', _("Could not install ipchains RPM with urpmi.")) and $in->exit(0));
+-e $f or install_rpm("ipchains");
+-e $f or fatal_quit(_("Could not install ipchains RPM with urpmi."));
if (-f "/etc/rc.d/rc.firewall")
{
@@ -428,7 +441,7 @@ close SYSCONF_NETWORK;
#- install and setup the DHCP server
$f = "/usr/sbin/dhcpd";
--e $f or system("urpmi --auto dhcp");
+-e $f or install_rpm("dhcp");
-e $f or ($in->ask_warn('', _("Could not install dhcp RPM with urpmi.")) and $in->exit(0));
-f $dhcpd_conf and rename($dhcpd_conf, "$dhcpd_conf.old");
@@ -452,7 +465,7 @@ close DHCPDCONF;
#- put the interface for the dhcp server in linuxconf config, for the /etc script of dhcpd
--f $conf_linuxconf or system("urpmi --auto linuxconf");
+-f $conf_linuxconf or install_rpm("linuxconf");
-f $conf_linuxconf or ($in->ask_warn('', _("Could not install linuxconf RPM with urpmi.")) and $in->exit(0));
open CONF_LINUXCONF, "$conf_linuxconf" or die "Can't open $conf_linuxconf";
@@ -468,11 +481,11 @@ close CONF_LINUXCONF;
#- install the BIND and caching nameserver stuff
$f = "/usr/sbin/named";
--e $f or system("urpmi --auto bind");
+-e $f or install_rpm("bind");
-e $f or ($in->ask_warn('', _("Could not install bind RPM with urpmi.")) and $in->exit(0));
$f = "/var/named/named.local";
--e $f or system("urpmi --auto caching-nameserver");
+-e $f or install_rpm("caching-nameserver");
-e $f or ($in->ask_warn('', _("Could not install caching-nameserver RPM with urpmi.")) and $in->exit(0));