From e8d8503b1ac5a9d48d0e6bf0dd192cd37114731d Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 25 Feb 2009 14:17:08 +0000
Subject: add finit support in finish-install (backport from trunk)

---
 perl-install/NEWS                      | 3 +++
 perl-install/standalone/finish-install | 5 +++++
 2 files changed, 8 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index c805a9051..6cd64c304 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- finish-install:
+  o finit support
+
 Version 11.71.8 - 25 February 2009
 
 - harddrake service:
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