From 3bc20c1ea1a306475ea8eab8e8e1973625ca785f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 15 Dec 1999 12:50:29 +0000
Subject: no_comment

---
 perl-install/install_steps.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index c650032dc..b1e439058 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -253,6 +253,9 @@ sub afterInstallPackages($) {
 
     $o->pcmciaConfig();
 
+    #- remove the nasty acon...
+    run_program::rooted($o->{prefix}, "chkconfig", "--del", "acon") unless $ENV{LANGUAGE} =~ /ar/;
+
     #- miscellaneous
     addToBeDone {
 	setVarsInSh("$o->{prefix}/etc/sysconfig/system", { 
@@ -263,6 +266,12 @@ sub afterInstallPackages($) {
 	install_any::fsck_option();
     } 'doInstallStep';
 
+    if ($o->{pcmcia}) {
+	substInFile { s/.*(TaskBarShowAPMStatus).*/$1=1/ } "$o->{prefix}/usr/lib/X11/icewm/preferences";
+	eval { commands::cp("$o->{prefix}/usr/share/applnk/System/kapm.kdelnk", 
+			    "$o->{prefix}/etc/skel/Desktop/Autostart/kapm.kdelnk") };
+    }
+
     my $p = $o->{packages}{urpmi};
     install_any::install_urpmi($o->{prefix}, $o->{method}) if $p && $p->{selected};
 }
-- 
cgit v1.2.1