summaryrefslogtreecommitdiffstats
path: root/docs
Commit message (Expand)AuthorAgeFilesLines
* fix requires (gtk+-1.x => gtk+-2.x)Thierry Vignaud2005-08-261-2/+2
* we need xfsdump for /sbin/dump.xfsThierry Vignaud2005-08-171-1/+1
* fixPascal Rigaux2005-08-091-1/+1
* replace mandrake with mandrivaPascal Rigaux2005-08-091-4/+4
* - updateThierry Vignaud2005-08-031-3/+3
* Document that dietlibc-devel is now required to build giRafael Garcia-Suarez2005-05-061-1/+1
* update package list regarding gtk+ bindingsThierry Vignaud2005-03-291-1/+1
* add another required package (dmraid)Thierry Vignaud2005-02-101-1/+1
* Add some more necessary RPMsRafael Garcia-Suarez2005-02-081-1/+2
* *** empty log message ***Pascal Rigaux2005-02-081-0/+22
* - drop oem & recovery code (which was broken)Pascal Rigaux2004-11-291-79/+0
* - no more kernel/all.modules, things are in kernel/all.kernelsPascal Rigaux2004-11-221-11/+4
* major switch from ramdisk to clpPascal Rigaux2004-11-161-46/+7
* adapt to new directories layout:Pascal Rigaux2004-07-261-23/+23
* replace "Mandrake Linux" with "Mandrakelinux"Pascal Rigaux2004-07-192-5/+5
* rename --test in --testing for install2 (more coherent with standalone tools)Pascal Rigaux2004-06-221-1/+1
* - perl-XML-Parser is needed at build stageDaouda Lo2004-05-261-1/+1
* quick update, not completePascal Rigaux2004-05-031-29/+9
* update netauto docGuillaume Cottenceau2004-02-041-1/+1
* wrong, "make" in kernel by hand is not even neededGuillaume Cottenceau2004-01-231-4/+3
* updateGuillaume Cottenceau2004-01-231-21/+34
* update (thanks to Sunny Dubey)Pascal Rigaux2004-01-201-10/+10
* update from sunny@opencurve.orgPascal Rigaux2004-01-121-42/+53
* remove some really obsolete docPascal Rigaux2003-07-291-10/+2
* some fixes and improvementsGuillaume Cottenceau2003-04-041-9/+52
* some updatesGuillaume Cottenceau2003-04-041-19/+13
* - mcc erratasThierry Vignaud2003-03-271-15/+31
* *** empty log message ***Thierry Vignaud2003-03-261-1/+2
* first drakxtools errataThierry Vignaud2003-03-261-0/+22
* update, sortThierry Vignaud2003-03-191-7/+62
* first errate: ntfs kernel bug (bug and fix reported by SzakacsitsThierry Vignaud2003-03-191-0/+27
* *** empty log message ***Thierry Vignaud2003-03-131-2/+3
* more stuffThierry Vignaud2003-03-131-0/+2
* more thoughtsThierry Vignaud2003-03-131-2/+4
* better embedded diskdrake hintThierry Vignaud2003-03-121-0/+1
* updateThierry Vignaud2003-03-111-1/+7
* updateThierry Vignaud2003-03-101-1/+19
* first bits of mdk9.2 specs (aka postponed bugs...) stuffThierry Vignaud2003-03-061-0/+43
* update to new partition_table schemeThierry Vignaud2003-02-051-6/+6
* new obsolete func (thanks drakcronat)Thierry Vignaud2003-02-031-0/+2
* add explained changes in hwdata and kudzu from redhat 8.0 to 8.1betaPascal Rigaux2003-01-121-0/+23
* add changes between anaconda 8.0 and currentPascal Rigaux2003-01-121-72/+156
* add a tool to ease gtk2 port.Thierry Vignaud2002-12-021-0/+46
* *** empty log message ***Pascal Rigaux2002-11-061-0/+1
* miaouThierry Vignaud2002-10-021-7/+7
* i810 crash when using XRender on vt switch (see fredc for furtherThierry Vignaud2002-10-021-0/+5
* kernel : snd-via686 is said to produce white noise; add workaroundThierry Vignaud2002-10-021-1/+4
* nforce audio bugThierry Vignaud2002-10-021-0/+5
* drakconf bug has been workaroundedThierry Vignaud2002-10-021-0/+2
* add 3 bugs:Thierry Vignaud2002-10-011-0/+26
class="hl str">"yu" ], ); #-###################################################################################### #- Functions #-###################################################################################### sub list { map { $_->[0] } values %keyboards } sub xmodmaps { map { $_->[2] } values %keyboards } sub keyboard2text { $keyboards{$_[0]} && $keyboards{$_[0]}[0] } sub text2keyboard { my ($t) = @_; while (my ($k, $v) = each %keyboards) { lc($v->[0]) eq lc($t) and return $k; } die "unknown keyboard $t"; } sub kmap($) { my ($keyboard) = @_; ($keyboards{$keyboard} || [])->[1]; } sub lang2keyboard($) { local ($_) = @_; $keyboards{$_} && $_ || $lang2keyboard{$_} || substr($_, 0, 2); } sub load($) { my ($keymap) = @_; my ($magic, @keymaps) = unpack "I i" . c::MAX_NR_KEYMAPS() . "a*", $keymap; $keymap = pop @keymaps; $magic != $KMAP_MAGIC and die "failed to read kmap magic"; local *F; sysopen F, "/dev/console", 2 or die "failed to open /dev/console: $!"; my $count = 0; foreach (0 .. c::MAX_NR_KEYMAPS() - 1) { $keymaps[$_] or next; my @keymap = unpack "s" . c::NR_KEYS() . "a*", $keymap; $keymap = pop @keymap; my $key = -1; foreach my $value (@keymap) { $key++; c::KTYP($value) != c::KT_SPEC() or next; ioctl(F, c::KDSKBENT(), pack("CCS", $_, $key, $value)) or die "keymap ioctl failed ($_ $key $value): $!"; } $count++; } log::l("loaded $count keymap tables"); } sub setup($) { my ($keyboard) = @_; my $o = $keyboards{$keyboard} or return; if (my $file = install_any::install_cpio("/usr/share/keymaps", "$o->[1].kmap")) { log::l("loading keymap $o->[1]"); load(cat_($file)) if -e $file; } if (my $file = install_any::install_cpio("/usr/share/xmodmap", "xmodmap.$o->[2]")) { eval { run_program::run('xmodmap', $file) } unless $::testing; } } sub write($$) { my ($prefix, $keyboard) = @_; setVarsInSh("$prefix/etc/sysconfig/keyboard", { KEYTABLE => kmap($keyboard) }); run_program::rooted($prefix, "dumpkeys > /etc/sysconfig/console/default.kmap") or die "dumpkeys failed"; } sub read($) { my ($file) = @_; local *F; open F, "$file" or die "failed to read keyboard configuration"; foreach (<F>) { ($_) = /^KEYTABLE=(.*)/ or log::l("unrecognized entry in keyboard configuration file ($_)"), next; s/^\s*"(.*)"\s*$/$1/; s/\.[^.]*//; #- remove extension return basename($_); } die "empty keyboard configuration file"; } #-###################################################################################### #- Wonderful perl :( #-###################################################################################### 1;