From 46e89f1a659a034dc1057a087ae8e6afe454f01d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 6 Mar 2001 00:20:34 +0000
Subject: move inittab modifying to any::runlevel

---
 perl-install/any.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 34e51c442..eb6fe6418 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -781,4 +781,15 @@ sub write_passwd_user {
     } "$prefix/etc/passwd";
 }
 
+sub runlevel {
+    my ($prefix, $runlevel) = @_;
+    my $f = "$prefix/etc/inittab";
+    -r $f or log::l("missing inittab!!!"), return;
+    if ($runlevel) {
+	substInFile { s/^id:\d:initdefault:\s*$/id:$runlevel:initdefault:\n/ } $f;
+    } else {
+	cat_($f) =~ /^id:(\d):initdefault:\s*$/ && $1;
+    }
+}
+
 1;
-- 
cgit v1.2.1