summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-05-30 12:00:56 +0000
committerOlivier Blin <oblin@mandriva.org>2005-05-30 12:00:56 +0000
commit122740543e33313c68fa7bdccd502d3a47bfd4e4 (patch)
tree924ab919e1e724232c95d35155b466e4923f993e /perl-install
parent4b4f9f315bc66a6ba4db04e8cdebcccee398f40b (diff)
downloaddrakx-122740543e33313c68fa7bdccd502d3a47bfd4e4.tar
drakx-122740543e33313c68fa7bdccd502d3a47bfd4e4.tar.gz
drakx-122740543e33313c68fa7bdccd502d3a47bfd4e4.tar.bz2
drakx-122740543e33313c68fa7bdccd502d3a47bfd4e4.tar.xz
drakx-122740543e33313c68fa7bdccd502d3a47bfd4e4.zip
add no_club option to specify that no club drivers are available (ECI)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/thirdparty.pm31
1 files changed, 17 insertions, 14 deletions
diff --git a/perl-install/network/thirdparty.pm b/perl-install/network/thirdparty.pm
index e4a85b5f8..6825b6d92 100644
--- a/perl-install/network/thirdparty.pm
+++ b/perl-install/network/thirdparty.pm
@@ -55,6 +55,8 @@ use log;
#- function to call if the package installation fails
#- o explanations:
#- additionnal text to display if the installation fails
+#- o no_club:
+#- 1 if the package isn't available on Mandriva club
my $hotplug_firmware_prefix = "$::prefix/lib/hotplug/firmware";
@@ -198,8 +200,11 @@ my %network_settings = (
{
matching => 'eciadsl',
- url => 'http://eciadsl.flashtux.org/',
name => 'eciadsl',
+ explanations => N_("The ECI Hi-Focus modem cannot be supported due to binary driver distribution problem.
+
+You can find a driver on http://eciadsl.flashtux.org/"),
+ no_club => 1,
tools => 1,
},
@@ -262,17 +267,14 @@ sub warn_not_installed {
sub warn_not_found {
my ($in, $settings, $option, @packages) = @_;
- my ($url, $expl);
- if (ref $settings->{$option}) {
- $url = $settings->{$option}{url};
- $expl = $settings->{$option}{explanations};
- }
- $url ||= $settings->{url};
+ my %opt;
+ $opt{$_} = $settings->{$option}{$_} || $settings->{$_} foreach qw(url explanations no_club);
$in->ask_warn(N("Error"),
- N("Some packages (%s) are required but aren't available. They can be found in Mandriva Club or in Mandriva commercial releases.", @packages) .
- if_($url, "\n\n" . N("The required files can also be installed from this URL:
-%s", $url)) .
- if_($expl, "\n\n" . translate($expl)));
+ N("Some packages (%s) are required but aren't available.", @packages) .
+ if_(!$opt{no_club}, N("These packages can be found in Mandriva Club or in Mandriva commercial releases.")) .
+ if_($opt{url}, "\n\n" . N("The required files can also be installed from this URL:
+%s", $opt{url})) .
+ if_($opt{explanations}, "\n\n" . translate($opt{explanations})));
}
sub is_file_installed {
@@ -414,9 +416,10 @@ sub install_packages {
}
sub setup_device {
- my ($in, $category, $driver, $o_config, $o_fields) = @_;
+ my ($in, $category, $driver, $o_config, @o_fields) = @_;
- if (my $settings = find_settings($category, $driver)) {
+ my $settings = find_settings($category, $driver);
+ if ($settings) {
log::explanations(qq(Found settings for driver "$driver" in category "$category"));
my $_w = $in->wait_message('', N("Looking for required software and drivers..."));
@@ -440,7 +443,7 @@ sub setup_device {
}
#- assign requested settings, erase with undef if no settings have been found
- $o_config->{$_} = $settings->{$_} foreach ($o_fields);
+ $o_config->{$_} = $settings->{$_} foreach @o_fields;
1;
}