summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm2
-rw-r--r--perl-install/install_any.pm1
-rw-r--r--perl-install/install_steps.pm17
3 files changed, 19 insertions, 1 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index fb6e66aae..80ec99f6b 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -377,6 +377,8 @@ sub main {
} elsif (/--g_auto_install/) {
$::testing = $::g_auto_install = 1;
$o->{partitioning}{auto_allocate} = 1;
+ } elsif (/--pcmcia/) {
+ $o->{pcmcia} = shift;
}
}
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index db06b9d89..e8008bd82 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -122,6 +122,7 @@ sub setPackages($$) {
$o->{compssListLevels} = pkgs::readCompssList($o->{packages});
$o->{compssListLevels} ||= $install_classes;
push @{$o->{base}}, "kernel-smp" if detect_devices::hasSMP();
+ push @{$o->{base}}, "kernel-pcmcia-cs" if $o->{pcmcia};
}
do {
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index cf13372b9..181c37099 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -154,7 +154,7 @@ sub afterInstallPackages($) {
#- why not? cuz weather is nice today :-) [pixel]
sync(); sync();
-# configPCMCIA($o->{rootPath}, $o->{pcmcia});
+ $o->pcmciaConfig();
}
#------------------------------------------------------------------------------
@@ -177,6 +177,21 @@ sub configureNetwork($) {
}
#------------------------------------------------------------------------------
+sub pcmciaConfig($) {
+ my ($o) = @_;
+ my $t = $o->{pcmcia};
+ my $f = "$o->{prefix}/etc/sysconfig/pcmcia";
+
+ # should be set after installing the package above else the file will be renamed.
+ setVarsInSh($f, {
+ PCMCIA => $t ? "yes" : "no",
+ PCIC => $t,
+ PCIC_OPTS => "",
+ CORE_OPTS => "",
+ });
+}
+
+#------------------------------------------------------------------------------
sub timeConfig {
my ($o, $f) = @_;
my $t = $o->{timezone};