summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-05-30 07:25:31 +0000
committerOlivier Blin <oblin@mandriva.org>2005-05-30 07:25:31 +0000
commit7055a1f668beb7c5fb8854069cb7ea0a27842369 (patch)
tree777797535a545ce92fc81f235cc79c41be47a103 /perl-install
parent9f3b3f4ce35f06fc506cf926fe99a19c612e25e0 (diff)
downloaddrakx-7055a1f668beb7c5fb8854069cb7ea0a27842369.tar
drakx-7055a1f668beb7c5fb8854069cb7ea0a27842369.tar.gz
drakx-7055a1f668beb7c5fb8854069cb7ea0a27842369.tar.bz2
drakx-7055a1f668beb7c5fb8854069cb7ea0a27842369.tar.xz
drakx-7055a1f668beb7c5fb8854069cb7ea0a27842369.zip
allow to ask for some configuration fields (useful for "device" in "rtc" category)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/thirdparty.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/network/thirdparty.pm b/perl-install/network/thirdparty.pm
index 23471aab2..e4a85b5f8 100644
--- a/perl-install/network/thirdparty.pm
+++ b/perl-install/network/thirdparty.pm
@@ -414,7 +414,8 @@ sub install_packages {
}
sub setup_device {
- my ($in, $category, $driver) = @_;
+ my ($in, $category, $driver, $o_config, $o_fields) = @_;
+
if (my $settings = find_settings($category, $driver)) {
log::explanations(qq(Found settings for driver "$driver" in category "$category"));
@@ -437,6 +438,10 @@ sub setup_device {
} else {
log::explanations(qq(No settings found for driver "$driver" in category "$category"));
}
+
+ #- assign requested settings, erase with undef if no settings have been found
+ $o_config->{$_} = $settings->{$_} foreach ($o_fields);
+
1;
}