From 25a532696b1a761d02d03bdbe7076258ca370fd3 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Tue, 19 Sep 2000 17:30:07 +0000
Subject: now compliant with "urpmi --best-output" to enable smooth behaviour
 with DrakConf/cdrom-install

---
 perl-install/standalone/drakgw | 29 +++++++++++++++++++++--------
 1 file changed, 21 insertions(+), 8 deletions(-)

(limited to 'perl-install/standalone/drakgw')

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));
 
 
-- 
cgit v1.2.1