(open_urpmi_db,open_urpmi_db) add support for --rpm-root and --urpmi-root

(equivalent to urpmi --root and --urpmi-root options)

Rationale: --root option is already defined for another purpose by rpmdrake

1 files changed, 5 insertions, 1 deletions

diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 5cfa59eb..709fafba 100755
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -35,12 +35,14 @@ use Rpmdrake::formatting;
 use Rpmdrake::rpmnew;
 
 use rpmdrake;
+use urpm;
 use urpm::lock;
 use urpm::install;
 use urpm::signature;
 use urpm::get_pkgs;
 use urpm::select;
 use urpm::main_loop;
+use urpm::args qw();
 
 
 use Exporter;
@@ -156,7 +158,7 @@ sub open_rpm_db {
         }
         URPM::DB::open($dblocation) or die "Couldn't open RPM DB";
     } else {
-        URPM::DB::open or die "Couldn't open RPM DB";
+        URPM::DB::open($::options{'rpm-root'}->[0]) or die "Couldn't open RPM DB ($::options{'rpm-root'}->[0])";
     }
 }
 
@@ -232,6 +234,8 @@ sub open_urpmi_db() {
     $urpm->{options}{'allow-nodeps'}  = 1;
     $urpm->{options}{'no-verify-rpm'} = $::options{'no-verify-rpm'};
     $urpm->{options}{auto} = $::options{'auto'};
+    urpm::set_files($urpm, $::options{'urpmi-root'}->[0]) if $::options{'urpmi-root'}->[0];
+    urpm::args::set_root($urpm, $::options{'rpm-root'}->[0]) if $::options{'rpm-root'}->[0];
 
     $urpm->{fatal} = sub {
         $error_happened = 1;