From 32c3725a08462a65b695ae7d47c01be1265fda83 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 25 Feb 2009 14:13:21 +0000
Subject: add finit support in finish-install

---
 perl-install/standalone/finish-install | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
index 504399611..2f2317068 100755
--- a/perl-install/standalone/finish-install
+++ b/perl-install/standalone/finish-install
@@ -147,6 +147,11 @@ sub ask_users() {
     any::add_users($users, $authentication);
     any::set_autologin($in->do_pkgs, $users->[0]{name}, $autologin_first)
 	if $autologin_first;
+    my $finit_conf = "/etc/finit.conf";
+    substInFile {
+        s/^user .*//;
+        $_ .= "user $users->[0]{name}\n" if eof;
+    } $finit_conf if -e $finit_conf;
     if ($old_user) {
         #- replace home path in user config files
         my $old_home = "/home/$old_user";
-- 
cgit v1.2.1