From bab956404c309ea3ed486be3c522382798d92e70 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Thu, 27 Nov 2003 20:10:07 +0000
Subject: have only one /etc/passwd so that when user changes password on one
 host, change is seen on other hosts

---
 move/move.pm | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

(limited to 'move')

diff --git a/move/move.pm b/move/move.pm
index 5c46f9860..07b2b129f 100644
--- a/move/move.pm
+++ b/move/move.pm
@@ -251,6 +251,19 @@ sub key_installfiles {
     mkdir $key_sysconf;
     my $sysconf = "$key_sysconf/" . machine_ident();
 
+    my $copy_userinfo = sub {
+        my (@files) = @_;
+        my @etcpasswords = glob("$key_sysconf/*/etc/passwd");
+        if (@etcpasswords > 1) {
+            print "inconsistency: more than one /etc/passwd on key! can't proceed, please clean the key\n";
+            exit 1;
+        }
+        my ($path) = $etcpasswords[0] =~ m|(.*)/etc/passwd|;
+        run_program::run('cp', '-f', "$path$_", $_) foreach @files;
+        run_program::run('rm', '-f', $etcpasswords[0]);
+        return $etcpasswords[0];
+    };
+
     if (!-d $sysconf) {
         if ($mode eq 'full') {
             log::l("key_installfiles: installing config files in $sysconf");
@@ -271,13 +284,14 @@ sub key_installfiles {
         } else {
             #- not in full mode and no host directory, grab user config from first existing host directory if possible
             log::l("key_installfiles: only looking for user config files");
-            foreach (qw(/etc/passwd /etc/group /etc/sysconfig/i18n)) {
-                my $first_available = first(glob("$key_sysconf/*$_")) or next;
-                system("cp $first_available $_");
-            }
+            $copy_userinfo->(qw(/etc/passwd /etc/group /etc/sysconfig/i18n));
         }
     } else {
         log::l("key_installfiles: installing symlinks to key");
+        if (!-e "$sysconf/etc/passwd") {
+            log::l("key_installfiles: /etc/passwd not here, trying to copy from previous host boot");
+            $copy_userinfo->(qw(/etc/passwd /etc/group));
+        }
         foreach (chomp_(`find $sysconf -type f`)) {
             my ($path) = /^\Q$sysconf\E(.*)/;
             mkdir_p(dirname($path));
-- 
cgit v1.2.1