summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry.Vignaud <thierry.vignaud@gmail.com>2014-05-27 22:04:12 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-05-27 22:11:00 +0200
commitfdf96905a6ab30552b1a0860743698103f2aec86 (patch)
tree581e63fd10166ccacf2eb91b5e42f6fc24d2436f /perl-install
parent369fce11f7d28a847e2d1bc6d68223ce574a2fc0 (diff)
downloaddrakx-fdf96905a6ab30552b1a0860743698103f2aec86.tar
drakx-fdf96905a6ab30552b1a0860743698103f2aec86.tar.gz
drakx-fdf96905a6ab30552b1a0860743698103f2aec86.tar.bz2
drakx-fdf96905a6ab30552b1a0860743698103f2aec86.tar.xz
drakx-fdf96905a6ab30552b1a0860743698103f2aec86.zip
(configure_hal) kill it
HAL has been obsoleted years ago...
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/lang.pm54
3 files changed, 4 insertions, 54 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index f01c4c215..45653e6d9 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -3,6 +3,8 @@
- fix detecting some UPS devices (mga#13424)
- drakbug:
o fix some package names after the mdv->mga fork
+- localedrake:
+ o stop configuring HAL
Version 16.28 - 28 April 2014
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index f4e72aaae..f4435ac1f 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,6 +1,8 @@
- add some POD documentation
- do not unavailable kernel-xbox
- drop (broken) support for Alpha, PPC, Sparc & IA64
+- locale setting
+ o stop configuring HAL
Version 16.29 - 3 May 2014
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 6429df1b1..28baa1cd9 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -1157,8 +1157,6 @@ sub write {
log::explanations(qq(Setting l10n configuration in "$file"));
setVarsInShMode($::prefix . $file, 0644, $h);
- configure_hal($locale) if !$b_user_only;
-
run_program::rooted($::prefix, 'grub-gfxmenu', '--quiet', '--lang', $locale->{lang}) if !$b_user_only;
my $charset = l2charset($locale->{lang});
@@ -1216,58 +1214,6 @@ sub write {
}
}
-sub configure_hal {
- my ($locale) = @_;
- my $option = sub {
- my ($cat, $val) = @_;
- qq(\t\t<merge key="$cat.policy.mount_option.$val" type="bool">true</merge>);
- };
- my %options = (fs_options($locale), utf8 => 1);
- my %known_options = (
- auto => [ 'iocharset', 'codepage' ],
- vfat => [ 'iocharset', 'codepage' ],
- msdos => [ 'iocharset', 'codepage' ],
- ntfs => [ 'iocharset', 'utf8' ],
- cdrom => [ 'iocharset', 'codepage', 'utf8' ],
- );
- my $options = sub {
- my ($cat, $name) = @_;
- join("\n", map {
- $option->($cat, $_ eq 'utf8' ? $_ : "$_=$options{$_}");
- } grep { $options{$_} } @{$known_options{$name}});
- };
- my $options_per_fs = join('', map {
- my $s = $options->('volume', $_);
- $s && sprintf(<<'EOF', $_, $s);
- <match key="volume.fstype" string="%s">
-%s
- </match>
-EOF
- } 'auto', 'vfat', 'msdos', 'ntfs');
-
- output_p("$::prefix/usr/share/hal/fdi/30osvendor/locale-policy.fdi",
- sprintf(<<'EOF', $options_per_fs, $options->('storage', 'cdrom')));
-<?xml version="1.0" encoding="UTF-8"?> <!-- -*- SGML -*- -->
-
-<deviceinfo version="0.2">
-
- <device>
- <match key="block.is_volume" bool="true">
- <match key="volume.fsusage" string="filesystem">
-
-%s
- </match>
- </match>
-
- <match key="storage.drive_type" string="cdrom">
-%s
- </match>
- </device>
-
-</deviceinfo>
-EOF
-}
-
sub configure_kdeglobals {
my ($locale, $confdir) = @_;
my $kdeglobals = "$confdir/kdeglobals";