From 1883acd25096f34779cce40ebba76c5860964f0d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 10 Jan 2001 00:33:11 +0000
Subject: use standalone and standalone::pkgs_install

---
 perl-install/standalone/draknet | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

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

diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index 38194c3dd..b663472d1 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -21,6 +21,7 @@
 use lib qw(/usr/lib/libDrakX);
 
 use interactive;
+use standalone;
 use netconnect;
 use c;
 
@@ -30,7 +31,6 @@ local $_ = join '', @ARGV;
 
 my $netcnx = {};
 
-$::isStandalone = 1;
 $::isWizard = 0;
 $::wizard_xpm = "/usr/share/pixmaps/internet.xpm";
 #$::force_xf3 = /-xf3/;
@@ -47,10 +47,6 @@ $::wizard_xpm = "/usr/share/pixmaps/internet.xpm";
 
 my $in = vnew interactive('su');
 
-$::isStandalone and my $wait=$in->wait_message('', "", 1);
-netconnect::intro('', $netcnx, $in, -e "/etc/pcmcia", sub {
-		      $in->suspend;
-		      system("urpmi --auto --best-output " . join(' ', @_));
-		      $in->resume;
-		  });
+my $wait = $in->wait_message('', '', 1);
+netconnect::intro('', $netcnx, $in, -e "/etc/pcmcia", \&standalone::pkgs_install);
 $in->exit(0);
-- 
cgit v1.2.1