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/printerdrake | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index cee224da9..0ad84058c 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -21,8 +21,9 @@
 use lib qw(/usr/lib/libDrakX);
 
 use interactive;
-use printer;
+use standalone;
 use printerdrake;
+use printer;
 use c;
 
 local $_ = join '', @ARGV;
@@ -35,7 +36,6 @@ $::auto = /-auto/;
 $::noauto = /-noauto/;
 $::skiptest = /-skiptest/;
 $::testing = /-testing/;
-$::isStandalone = 1;
 
 my $printer; eval { $printer = printer::getinfo('') };
 /-lpr/ and $printer->{mode} = 'lpr';
@@ -44,6 +44,6 @@ $printer->{mode} ||= 'CUPS'; #- assume this default if nothing found.
 
 my $in = vnew interactive('su');
 
-printerdrake::main($printer, $in, sub { $in->suspend; system("urpmi --auto --best-output " . join(' ', @_)); $in->resume; });
+printerdrake::main($printer, $in, sub { $in->standalone::pkgs_install(@_) });
 
 $in->exit(0);
-- 
cgit v1.2.1