summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-03-01 21:14:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-03-01 21:14:12 +0000
commit628da666af9162874c079f40063af27aa5ed230a (patch)
tree3ae75943bf4a9861ab6d8e290f30e9491b315897 /perl-install/lang.pm
parent1cc063a242f4efe2b7023efee16cadaf50abd07a (diff)
downloaddrakx-628da666af9162874c079f40063af27aa5ed230a.tar
drakx-628da666af9162874c079f40063af27aa5ed230a.tar.gz
drakx-628da666af9162874c079f40063af27aa5ed230a.tar.bz2
drakx-628da666af9162874c079f40063af27aa5ed230a.tar.xz
drakx-628da666af9162874c079f40063af27aa5ed230a.zip
configure iocharset and codepage option for hal
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm31
1 files changed, 31 insertions, 0 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 713c86dbb..3596df6ff 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -1069,6 +1069,8 @@ sub write {
s!^function lang\b.*!function lang()="$h->{LANG}"!g;
} "$::prefix/etc/menu-methods/lang.h" if !$b_user_only;
}
+
+ configure_hal($locale) if !$b_user_only;
my $charset = l2charset($locale->{lang});
my $qtglobals = $b_user_only ? "$ENV{HOME}/.qt/qtrc" : "$::prefix/etc/qtrc";
@@ -1112,6 +1114,35 @@ sub write {
} if !$b_dont_touch_kde_files;
}
+sub configure_hal {
+ my ($locale) = @_;
+ my $options = join("\n", map_each {
+ if_($::b, qq(\t\t<merge key="volume.policy.mount_option.$::a=$::b" type="bool">true</merge>));
+ } fs_options($locale));
+
+ output_p("$::prefix/usr/share/hal/fdi/30osvendor/locale-policy.fdi", sprintf(<<'EOF', $options));
+<?xml version="1.0" encoding="ISO-8859-1"?> <!-- -*- SGML -*- -->
+
+<deviceinfo version="0.2">
+
+ <device>
+ <!-- Normal volumes; use volume label, uuid or drive_type -->
+ <match key="block.is_volume" bool="true">
+ <match key="volume.fsusage" string="filesystem">
+
+ <match key="volume.fstype" string="auto">
+%s
+ </match>
+
+ </match>
+ </match>
+
+ </device>
+
+</deviceinfo>
+EOF
+}
+
sub configure_kdeglobals {
my ($locale, $confdir) = @_;
my $kdeglobals = "$confdir/kdeglobals";