From d201040ec77822f96a4a1cd6f9ba8cc424161376 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 4 Jun 2002 17:28:18 +0000
Subject: big move to perl-URPM, a lot of problem still exists enhanced
 algorithms must be done too.

---
 urpmq | 24 +++++-------------------
 1 file changed, 5 insertions(+), 19 deletions(-)

(limited to 'urpmq')

diff --git a/urpmq b/urpmq
index 533e8dfb..8cceb79f 100755
--- a/urpmq
+++ b/urpmq
@@ -113,25 +113,11 @@ for (@ARGV) {
 #- remove verbose if not asked.
 $query->{verbose} or $urpm->{log} = sub {};
 
-$urpm->read_config(nocheck_access => 1);
-if ($query->{media}) {
-    $urpm->select_media(split ',', $query->{media});
-    foreach (grep { !$_->{modified} } @{$urpm->{media} || []}) {
-	#- this is only a local ignore that will not be saved.
-	$_->{ignore} = 1;
-    }
-}
-foreach (grep { !$_->{ignore} && (!$query->{update} || $_->{update}) } @{$urpm->{media} || []}) {
-    $urpm->parse_synthesis($_);
-}
-
-if (@files) {
-    #- build closure with local package and return list of names.
-    push @names, $urpm->register_local_packages(@files);
-}
-
-#- relocate depslist.
-$urpm->relocate_depslist_provides();
+$urpm->configure(nocheck_access => 1,
+		 media => $query->{media},
+		 update => $query->{update}
+		 @files > 0 ? (files => [ @files ]) : (),
+		);
 
 #- search the packages according the selection given by the user,
 #- basesystem is added to the list so if it need to be upgraded, all its dependency
-- 
cgit v1.2.1