#!/bin/sh
# Copyright 1993, 1999 Patrick Volkerding, Moorhead, MN.
# Use and redistribution covered by the same terms as the "setup" script.
#
# Write /etc/rc.d/rc.keymap too, so it can be used by the next configuator
#

TMP=/var/log/setup/tmp
if [ ! -d $TMP ]; then
 mkdir -p $TMP
fi
RDIR=/dev/tty7


mk_rc_keymap()
{
KEYMAP=${MAPNAME%*.map}

cat <<EOF
#!/bin/sh
#
# /etc/rc.d/rc.keymap
#
# This file is called from: /etc/rc.d/rc.S
#
# Linux Sat Jun  1 2002

# You can load another keyboard keymap e.g. 'loadkeys fr' = french etc.
# The keymaps are in the /usr/lib/kbd/keymaps/i386 directory.

if [ -x /bin/loadkeys ]; then
  loadkeys $KEYMAP

  # This is so you can open other consoles using the left-[Alt] & [Up]-arrow key.
  echo "alt keycode 103 = Spawn_Console" | /bin/loadkeys
fi

EOF

}

while [ 0 ]; do
dialog --title "KEYBOARD MAP SELECTION" --menu "You may select one \
of the following keyboard maps. If you do not select a keyboard \
map, 'us.map' (the US keyboard map) is the default. Use the UP/DOWN \
arrow keys to scroll \
through the whole list of choices." \
20 55 9 \
"us.map" "USA" \
"be-latin1.map" "" \
"bg.map" "Bulgarian" \
"br-abnt2.map" "Brazilian" \
"cf.map" "French canadian" \
"croat.map" "" \
"cz-lat2-prog.map" "Czech" \
"cz-lat2.map" "" \
"cz-us-qwertz.map" "" \
"de-latin1-nodeadkeys.map" "German" \
"de-latin1.map" "" \
"de.map" "" \
"dk-latin1.map" "Danish" \
"dk.map" "" \
"es.map" "Spanish" \
"fi-latin1.map" "Finnish or swedish" \
"fi.map" "" \
"fr-latin0.map" "French" \
"fr-latin1.map" "" \
"fr-pc.map" "" \
"fr.map" "" \
"fr_CH-latin1.map" "" \
"fr_CH.map" "" \
"gr-pc.map" "Greek" \
"gr.map" "" \
"hebrew.map" "" \
"hu.map" "Hungarian" \
"hu101.map" "" \
"is-latin1.map" "Icelandic" \
"it-ibm.map" "Italian" \
"it.map" "" \
"it2.map" "" \
"jp106.map" "Japanese" \
"la-latin1.map" "Latin american" \
"lt.l4.map" "Lithuanian" \
"lt.map" "" \
"no-latin1.map" "Norway" \
"no.map" "" \
"pl.map" "Polish" \
"pt-latin1.map" "" \
"ru.map" "Russian" \
"ru1.map" "" \
"ru2.map" "" \
"se-latin1.map" "Swedish" \
"sg.map" "" \
"sk-qwertz.map" "Slovakian" \
"slovene.map" "" \
"trf.map" "Turkish" \
"trq.map" "" \
"uk.map" "United kingdom" \
"wangbe.map" "Belgium" \
 2> $TMP/SeTkeymap
 if [ ! $? = 0 ]; then
  rm -f $TMP/SeTkeymap
  exit
 fi

 MAPNAME="`cat $TMP/SeTkeymap`"
 gzip -dc /usr/share/keymaps/${MAPNAME}.gz | loadkmap 1> $RDIR 2> $RDIR

 while [ 0 ]; do
  dialog --title "KEYBOARD TEST" --inputbox \
  "OK, the new map is now installed. You may now test it by typing \
  anything you want. To quit testing the keyboard, enter 1 on a \
  line by itself to accept the map and go on, or 2 on a line by \
  itself to reject the current keyboard map and select a new one." \
  11 70 2> $TMP/keytest
  if [ $? = 1 ]; then
   REPLY="n"
   break;
  fi
  REPLY="`cat $TMP/keytest`"
  rm -f $TMP/keytest
  if [ "$REPLY" = "1" -o "$REPLY" = "2" ]; then
   break;
  fi
 done
 if [ "$REPLY" = "1" ]; then
  break;
 else
  rm -f $TMP/SeTkeymap
  gzip -dc /usr/share/keymaps/us.map.gz | loadkmap 1> $RDIR 2> $RDIR
 continue;
 fi
done

#### write the setting
mk_rc_keymap > /tmp/rc.keymap
chmod +x /tmp/rc.keymap