#!/usr/bin/tclsh

### Script de instalao para Xkb-br ver 0.5

set instcd [pwd]

cd "/usr/X11R6/lib/X11/"
set flist {xkb/geometry/pc xkb/keycodes/xfree86 xkb/keymap/xfree86 xkb/rules/xfree86 xkb/rules/xfree86.lst xkb/geometry.dir xkb/keycodes.dir xkb/keymap.dir xkb/symbols.dir locale/compose.dir locale/locale.dir locale/locale.alias locale/iso8859-1/Compose}

if {[catch {foreach arch $flist {
    eval [exec mv $arch $arch.xkbbr]
}}]} {
    puts stdout "Backups no puderam ser feitos."
} else {
    puts stdout "Backups completados."
}

cd $instcd
if {[catch {eval [exec cp -rf xkb locale /usr/X11R6/lib/X11/]}]} {
    puts stdout "Novos mapas no puderam ser instalados."
} else {
    puts stdout "Novos mapas instalados."
}



