(set_env) extract it so that rpmdrake can support the --env option

1 files changed, 1 insertions, 14 deletions

diff --git a/urpmi b/urpmi
index 200a3251..f6e34ff4 100755
--- a/urpmi
+++ b/urpmi
@@ -261,20 +261,7 @@ if ($bug) {
 }
 
 if ($env) {
-    -d $env or $urpm->{fatal}(8, N("Environment directory %s does not exist", $env));
-    print N("using specific environment on %s\n", $env);
-    #- setting new environment.
-    $urpm->{config} = "$env/urpmi.cfg";
-    if (cat_($urpm->{config}) =~ /^\s*virtual\s*$/m) {
-	print "dropping virtual from $urpm->{config}\n";
-	system(q(perl -pi -e 's/^\s*virtual\s*$//' ) . $urpm->{config});
-    }
-    $urpm->{configs_dir} = "$env/media.d";
-    $urpm->{skiplist} = "$env/skip.list";
-    $urpm->{instlist} = "$env/inst.list";
-    $urpm->{prefer_list} = "$env/prefer.list";
-    $urpm->{prefer_vendor_list} = "$env/prefer.vendor.list";
-    $urpm->{statedir} = $env;
+    urpm::set_env($urpm, $env);
 } else {
     if ($< != 0 && !$options{debug__do_not_install}) {
 	#- need to be root if binary rpms are to be installed