diff options
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 #- |