(configure_hal) kill it

HAL has been obsoleted years ago...

1 files changed, 0 insertions, 54 deletions

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";