From bb9aa2bfb3eb697ac43d9be3646a4a30b8a7bf44 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 16 Nov 1999 20:55:34 +0000
Subject: no_comment

---
 perl-install/install_steps.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install/install_steps.pm')

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index afc872b6b..0f58aacc8 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -228,6 +228,9 @@ sub afterInstallPackages($) {
     run_program::rooted($o->{prefix}, "kudzu", "-q"); # -q <=> fermetagueuleconnard
 
     $o->pcmciaConfig();
+
+    my $p = $o->{packages}{urpmi};
+    install_any::install_urpmi($o->{prefix}, $o->{method}) if $p && $p->{selected};
 }
 
 #------------------------------------------------------------------------------
@@ -412,6 +415,8 @@ sub addUser($) {
 	}
 	commands::chown_("-r", "$_->{uid}.$_->{gid}", "$p$_->{home}")
 	    if $_->{uid} != $_->{oldu} || $_->{gid} != $_->{oldg};
+
+	run_program::rooted($p, "usermod", "-G", "urpmi", $_->{name}) if $o->{security} < 3;
     }
 }
 
-- 
cgit v1.2.1