From 34099be3cf773eac19aa31657cf3d80f8bec7fb9 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 28 Feb 2006 16:49:42 +0000 Subject: symlink old home directory to new one when renaming user (#21384) --- perl-install/any.pm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index 11dc9fcf9..722c19828 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -69,6 +69,7 @@ sub create_user { } require authentication; + my $symlink_home_from = $u->{rename_from} && (getpwnam($u->{rename_from}))[7]; run_program::raw({ root => $::prefix, sensitive_arguments => 1 }, ($u->{rename_from} ? 'usermod' : 'adduser'), '-p', authentication::user_crypted_passwd($u, $isMD5), @@ -79,6 +80,7 @@ sub create_user { ($u->{rename_from} ? ('-l', $u->{name}, $u->{rename_from}) : $u->{name})); + symlink($u->{home}, $symlink_home_from) if $symlink_home_from; } my (undef, undef, $uid, $gid, undef, undef, undef, $home) = getpwnam($u->{name}); -- cgit v1.2.1