diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-10 00:33:11 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-10 00:33:11 +0000 |
commit | 1883acd25096f34779cce40ebba76c5860964f0d (patch) | |
tree | 8f977a481321620d53a4af0d9e48a1898d481397 /perl-install/standalone/drakgw | |
parent | 1bd398a1b3eae79192e9c0fce06173ec195caf69 (diff) | |
download | drakx-1883acd25096f34779cce40ebba76c5860964f0d.tar drakx-1883acd25096f34779cce40ebba76c5860964f0d.tar.gz drakx-1883acd25096f34779cce40ebba76c5860964f0d.tar.bz2 drakx-1883acd25096f34779cce40ebba76c5860964f0d.tar.xz drakx-1883acd25096f34779cce40ebba76c5860964f0d.zip |
use standalone and standalone::pkgs_install
Diffstat (limited to 'perl-install/standalone/drakgw')
-rwxr-xr-x | perl-install/standalone/drakgw | 14 |
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 #- |