summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakgw
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-10 00:33:11 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-10 00:33:11 +0000
commit1883acd25096f34779cce40ebba76c5860964f0d (patch)
tree8f977a481321620d53a4af0d9e48a1898d481397 /perl-install/standalone/drakgw
parent1bd398a1b3eae79192e9c0fce06173ec195caf69 (diff)
downloaddrakx-backup-do-not-use-1883acd25096f34779cce40ebba76c5860964f0d.tar
drakx-backup-do-not-use-1883acd25096f34779cce40ebba76c5860964f0d.tar.gz
drakx-backup-do-not-use-1883acd25096f34779cce40ebba76c5860964f0d.tar.bz2
drakx-backup-do-not-use-1883acd25096f34779cce40ebba76c5860964f0d.tar.xz
drakx-backup-do-not-use-1883acd25096f34779cce40ebba76c5860964f0d.zip
use standalone and standalone::pkgs_install
Diffstat (limited to 'perl-install/standalone/drakgw')
-rwxr-xr-xperl-install/standalone/drakgw14
1 files changed, 5 insertions, 9 deletions
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index f8e1a5cb3..ca4a75058 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -17,6 +17,7 @@ use lib qw(/usr/lib/libDrakX);
use common qw(:system :file);
use interactive;
+use standalone;
use log;
use c;
use netconnect;
@@ -29,7 +30,6 @@ local $_ = join '', @ARGV;
$::verbose = /-verbose/;
$::direct = /-direct/;
-$::isStandalone = 1;
my $in = vnew interactive('su');
@@ -86,13 +86,6 @@ sub stop_daemons()
close DRAKGW_SETUP;
}
-sub install_rpm($)
-{
- $in->suspend;
- system("urpmi --auto --best-output $_[0]");
- $in->resume;
-}
-
sub fatal_quit($)
{
log::l("[drakgw] FATAL: $_[0]\n");
@@ -322,7 +315,7 @@ my %bin2rpm = ( "/sbin/ipchains" => "ipchains",
"/var/named/named.local" => "caching-nameserver" );
-e $_ or $rpms_to_install .= "$bin2rpm{$_} " foreach (keys %bin2rpm);
-install_rpm($rpms_to_install);
+standalone::pkgs_install($rpms_to_install);
-e $_ or fatal_quit(_("Problems installing package $bin2rpm{$_}")) foreach (keys %bin2rpm);
@@ -549,6 +542,9 @@ $in->exit(0);
#-------------------------------------------------
#- $Log$
+#- Revision 1.19 2001/01/10 00:32:42 prigaux
+#- use standalone and standalone::pkgs_install
+#-
#- Revision 1.18 2000/12/16 16:13:34 prigaux
#- use ldetect-lst
#-