alterator-sysconfig-1.0/000075500000000000000000000000001116637510300153525ustar00rootroot00000000000000alterator-sysconfig-1.0/Makefile000064400000000000000000000004761116637510300170210ustar00rootroot00000000000000NAME=sysconfig INSTALL=/usr/bin/install all: install: install-module install-data include /usr/share/alterator/build/module.mak install-data: $(INSTALL) -d $(sysconfdir)/alterator/sysconfig cp -a data/* $(sysconfdir)/alterator/sysconfig $(INSTALL) -d $(datadir)/install2 cp -a preinstall.d $(datadir)/install2 alterator-sysconfig-1.0/applications/000075500000000000000000000000001116637510300200405ustar00rootroot00000000000000alterator-sysconfig-1.0/applications/sysconfig-proxy.desktop000064400000000000000000000003671116637510300246240ustar00rootroot00000000000000[Desktop Entry] Type=Application Categories=X-Alterator-Network Icon=proxy Terminal=false Name=Proxy settings X-Alterator-URI=/sysconfig/proxy X-Alterator-Help=sysconfig-proxy Name[ru]=Настройки proxy Name[pt_BR]=Configurações do Proxy alterator-sysconfig-1.0/backend3/000075500000000000000000000000001116637510300170245ustar00rootroot00000000000000alterator-sysconfig-1.0/backend3/sysconfig-base000075500000000000000000000063751116637510300217010ustar00rootroot00000000000000#!/bin/sh # merge of all bakends (sysfont syskbd syslang) of alterator-sysconfig alterator_api_version=1 po_domain="alterator-sysconfig" . alterator-sh-functions . shell-config ALTCONFDIR=/etc/alterator/sysconfig/ KBDDIR=$ALTCONFDIR/kbd CONFIGDIR=/etc/sysconfig/ KBD_CONFIG=/etc/sysconfig/keyboard XKB_CONFIG=/etc/X11/xinit/Xkbmap i18n_conf="/etc/sysconfig/i18n" langmap_conf="/etc/sysconfig/langmap" rpm_conf="/etc/rpm/macros" langlist="/etc/alterator/sysconfig/lang/langlist" po_charset="UTF-8" # sysconfig-kbd stuff write_layout(){ case "$1" in alt_sh_toggle) echo "`_ "Alt+Shift key"`";; caps_toggle) echo "`_ "CapsLock key"`";; ctrl_shift_toggle) echo "`_ "Control+Shift keys"`";; ctrl_toggle) echo "`_ "Control key"`";; toggle) echo "`_ "Alt key"`";; ctrl_shift_toggle_ru_ua) echo "`_ "Control+Shift keys (UK,RU,EN)"`";; default) echo "`_ "Default"`";; nodeadkeys) echo "`_ "Without dead keys"`";; *) echo "$1";; esac } write_kbd(){ while read name;do name="${name##*/}" name="${name%%.xkb}" write_enum_item "$name" "$(write_layout "$name")" done } default_kbd(){ shell_config_get "$KBDDIR/kbdlist" ${in_language%%;*} '[[:space:]]\+' } # sysconfig-language stuff write_locale(){ local l="$1";shift [ "$l" != "POSIX" ] && echo "$l.$po_charset" || echo "$l" } ### initial actions shell_config_set "$CONFIGDIR/consolefont" SYSFONT UniCyrExt_8x16 ### message loop on_message(){ case $in__objects in kbd) case "$in_action" in read) write_string_param layout "$(default_kbd)" ;; list) local language="${in_language%%;*}" [ -d "$KBDDIR/$language" ] && find "$KBDDIR/$language" -name '*.xkb'|write_kbd ;; write) local language="${in_language%%;*}" if [ -n "$in_layout" ]; then local path="$KBDDIR/$language/$in_layout" install -Dpm644 "$path.xkb" "$XKB_CONFIG" && install -Dpm644 "$path.kbd" "$KBD_CONFIG" && /usr/bin/setxkbmap -option "" && /usr/bin/setxkbmap `cat "$XKB_CONFIG"` else rm -f "$KBD_CONFIG" "$XKB_CONFIG" fi ;; esac ;; language) case "$in_action" in list) local lang_file= if [ -n "$LANG" -a "$LANG" != "POSIX" -a "$LANG" != "C" ]; then lang_file="$langlist.$(printf %s "$LANG" | sed -r -e 's,[a-z]+_([^\.]+)(\..*)?,\1,' | tr '[:upper:]' '[:lower:]')" fi [ -s "$lang_file" ] || lang_file="$langlist.all" write_enum <"$lang_file" ;; write) mkdir -p -- "${i18n_conf%/*}" mkdir -p -- "${langmap_conf%/*}" mkdir -p -- "${rpm_conf%/*}" local firstlang="${in_lang%%;*}" printf 'LANG=%s\n' "$(write_locale "$firstlang")">"$i18n_conf" if echo "$in_language" | fgrep -qs ';'; then printf 'SUPPORTED=%s\n' "$(write_language "$in_language")">>"$i18n_conf" printf '%s\n' "$(write_language "$in_language")">"$langmap_conf" else printf 'SUPPORTED=%s\n' "$(write_locale "$firstlang")">>"$i18n_conf" fi sed 's,^%_install_langs[[:space:]].*,%_install_langs all,' -i "$rpm_conf" ;; esac ;; esac } message_loop alterator-sysconfig-1.0/backend3/sysconfig-proxy000075500000000000000000000027401116637510300221400ustar00rootroot00000000000000#!/bin/sh -ef alterator_api_version=1 po_domain="alterator-sysconfig" proxy_conf_file=/etc/sysconfig/network . alterator-sh-functions . shell-config on_message() { case "$in_action" in type) write_type_item server hostname write_type_item port tcp-port ;; read) local url="$(shell_config_get "$proxy_conf_file" HTTP_PROXY)" url="${url##http://}" local auth="${url%%@*}" [ "$auth" != "$url" ] || auth="" url="${url##*@}" local passwd="$(decode-url-component "${auth##*:}")" local login="$(decode-url-component "${auth%%:*}")" port="${url##*:}" [ "$port" != "$url" ] || port="" url="$(decode-url-component ${url%%:*})" write_string_param server "$url" write_string_param port "$port" write_string_param login "$login" write_string_param passwd "$passwd" ;; write) if [ -n "$in_server" ]; then local url="$in_server" [ -z "$in_login" -o -z "$in_passwd" ] || url="$(encode-url-component "$in_login"):$(encode-url-component "$in_passwd")@$url" [ -z "$in_port" ] || url="$url:$in_port" shell_config_set "$proxy_conf_file" HTTP_PROXY "http://$url" shell_config_set "$proxy_conf_file" HTTPS_PROXY "https://$url" shell_config_set "$proxy_conf_file" FTP_PROXY "ftp://$url" else shell_config_set "$proxy_conf_file" HTTP_PROXY "" shell_config_set "$proxy_conf_file" HTTPS_PROXY "" shell_config_set "$proxy_conf_file" FTP_PROXY "" fi ;; esac } message_loop alterator-sysconfig-1.0/data/000075500000000000000000000000001116637510300162635ustar00rootroot00000000000000alterator-sysconfig-1.0/data/kbd/000075500000000000000000000000001116637510300170235ustar00rootroot00000000000000alterator-sysconfig-1.0/data/kbd/be_BY/000075500000000000000000000000001116637510300200035ustar00rootroot00000000000000alterator-sysconfig-1.0/data/kbd/be_BY/ctrl_shift_toggle.kbd000064400000000000000000000000221116637510300241610ustar00rootroot00000000000000KEYTABLE=by-UTF-8 alterator-sysconfig-1.0/data/kbd/be_BY/ctrl_shift_toggle.xkb000064400000000000000000000000761116637510300242160ustar00rootroot00000000000000-layout us,by -option grp:ctrl_shift_toggle -variant ,winkeys alterator-sysconfig-1.0/data/kbd/de_DE/000075500000000000000000000000001116637510300177635ustar00rootroot00000000000000alterator-sysconfig-1.0/data/kbd/de_DE/default.kbd000064400000000000000000000000241116637510300220650ustar00rootroot00000000000000KEYTABLE=de-latin1 alterator-sysconfig-1.0/data/kbd/de_DE/default.xkb000064400000000000000000000000131116637510300221070ustar00rootroot00000000000000-layout de alterator-sysconfig-1.0/data/kbd/de_DE/nodeadkeys.kbd000064400000000000000000000000361116637510300225720ustar00rootroot00000000000000KEYTABLE=de-latin1-nodeadkeys alterator-sysconfig-1.0/data/kbd/de_DE/nodeadkeys.xkb000064400000000000000000000000371116637510300226170ustar00rootroot00000000000000-layout de -variant nodeadkeys alterator-sysconfig-1.0/data/kbd/fr_FR/000075500000000000000000000000001116637510300200215ustar00rootroot00000000000000alterator-sysconfig-1.0/data/kbd/fr_FR/default.kbd000064400000000000000000000000231116637510300221220ustar00rootroot00000000000000KEYTABLE=fr-latin1 alterator-sysconfig-1.0/data/kbd/fr_FR/default.xkb000064400000000000000000000000131116637510300221450ustar00rootroot00000000000000-layout fr alterator-sysconfig-1.0/data/kbd/kbdlist000064400000000000000000000001351116637510300204010ustar00rootroot00000000000000#default layouts #format:language keymap ru_RU ctrl_shift_toggle tt_RU ctrl_shift_toggle alterator-sysconfig-1.0/data/kbd/ru_RU/000075500000000000000000000000001116637510300200575ustar00rootroot00000000000000alterator-sysconfig-1.0/data/kbd/ru_RU/alt_sh_toggle.kbd000064400000000000000000000000431116637510300233510ustar00rootroot00000000000000KEYTABLE=ruwin-Corwin_alt_sh-UTF-8 alterator-sysconfig-1.0/data/kbd/ru_RU/alt_sh_toggle.xkb000064400000000000000000000000711116637510300233760ustar00rootroot00000000000000-layout us,ru -option grp:alt_shift_toggle,compose:menu alterator-sysconfig-1.0/data/kbd/ru_RU/caps_toggle.kbd000064400000000000000000000000321116637510300230230ustar00rootroot00000000000000KEYTABLE=ruwin_cplk-UTF-8 alterator-sysconfig-1.0/data/kbd/ru_RU/caps_toggle.xkb000064400000000000000000000000761116637510300230570ustar00rootroot00000000000000-layout us,ru -option grp:caps_toggle,grp:switch,compose:menu alterator-sysconfig-1.0/data/kbd/ru_RU/ctrl_shift_toggle.kbd000064400000000000000000000000331116637510300242370ustar00rootroot00000000000000KEYTABLE=ruwin_ct_sh-UTF-8 alterator-sysconfig-1.0/data/kbd/ru_RU/ctrl_shift_toggle.xkb000064400000000000000000000001051116637510300242630ustar00rootroot00000000000000-layout us,ru -option grp:ctrl_shift_toggle,grp:switch,compose:menu alterator-sysconfig-1.0/data/kbd/ru_RU/ctrl_toggle.kbd000064400000000000000000000000321116637510300230410ustar00rootroot00000000000000KEYTABLE=ruwin_ctrl-UTF-8 alterator-sysconfig-1.0/data/kbd/ru_RU/ctrl_toggle.xkb000064400000000000000000000001001116637510300230610ustar00rootroot00000000000000-layout us,ru -option grp:rctrl_toggle,grp:switch,compose:menu alterator-sysconfig-1.0/data/kbd/ru_RU/toggle.kbd000064400000000000000000000000311116637510300220140ustar00rootroot00000000000000KEYTABLE=ruwin_alt-UTF-8 alterator-sysconfig-1.0/data/kbd/ru_RU/toggle.xkb000064400000000000000000000000721116637510300220450ustar00rootroot00000000000000-layout us,ru -option grp:toggle,grp:switch,compose:menu alterator-sysconfig-1.0/data/kbd/ru_UA/000075500000000000000000000000001116637510300200365ustar00rootroot00000000000000alterator-sysconfig-1.0/data/kbd/ru_UA/ctrl_shift_toggle_ru_ua.kbd000064400000000000000000000000221116637510300254070ustar00rootroot00000000000000KEYTABLE=ua-UTF-8 alterator-sysconfig-1.0/data/kbd/ru_UA/ctrl_shift_toggle_ru_ua.xkb000064400000000000000000000001111116637510300254320ustar00rootroot00000000000000-layout us,ua,ru -option grp:ctrl_shift_toggle -variant ,winkeys,winkeys alterator-sysconfig-1.0/data/kbd/tt_RU/000075500000000000000000000000001116637510300200605ustar00rootroot00000000000000alterator-sysconfig-1.0/data/kbd/tt_RU/caps_toggle.kbd000064400000000000000000000000321116637510300230240ustar00rootroot00000000000000KEYTABLE=ttwin_cplk-UTF-8 alterator-sysconfig-1.0/data/kbd/tt_RU/caps_toggle.xkb000064400000000000000000000000631116637510300230540ustar00rootroot00000000000000-layout us,ru -option grp:caps_toggle -variant ,tt alterator-sysconfig-1.0/data/kbd/tt_RU/ctrl_shift_toggle.kbd000064400000000000000000000000331116637510300242400ustar00rootroot00000000000000KEYTABLE=ttwin_ct_sh-UTF-8 alterator-sysconfig-1.0/data/kbd/tt_RU/ctrl_shift_toggle.xkb000064400000000000000000000000721116637510300242670ustar00rootroot00000000000000-layout us,ru -option grp:ctrl_shift_toggle -variant ,tt alterator-sysconfig-1.0/data/kbd/tt_RU/ctrl_toggle.kbd000064400000000000000000000000321116637510300230420ustar00rootroot00000000000000KEYTABLE=ttwin_ctrl-UTF-8 alterator-sysconfig-1.0/data/kbd/tt_RU/ctrl_toggle.xkb000064400000000000000000000000641116637510300230730ustar00rootroot00000000000000-layout us,ru -option grp:ctrl_toggle -variant ,tt alterator-sysconfig-1.0/data/kbd/tt_RU/toggle.kbd000064400000000000000000000000311116637510300220150ustar00rootroot00000000000000KEYTABLE=ttwin_alt-UTF-8 alterator-sysconfig-1.0/data/kbd/tt_RU/toggle.xkb000064400000000000000000000000571116637510300220510ustar00rootroot00000000000000-layout us,ru -option grp:toggle -variant ,tt alterator-sysconfig-1.0/data/kbd/uk_UA/000075500000000000000000000000001116637510300200275ustar00rootroot00000000000000alterator-sysconfig-1.0/data/kbd/uk_UA/ctrl_shift_toggle.kbd000064400000000000000000000000221116637510300242050ustar00rootroot00000000000000KEYTABLE=ua-UTF-8 alterator-sysconfig-1.0/data/kbd/uk_UA/ctrl_shift_toggle.xkb000064400000000000000000000000761116637510300242420ustar00rootroot00000000000000-layout us,ua -option grp:ctrl_shift_toggle -variant ,winkeys alterator-sysconfig-1.0/data/lang/000075500000000000000000000000001116637510300172045ustar00rootroot00000000000000alterator-sysconfig-1.0/data/lang/langlist.all000064400000000000000000000002751116637510300215170ustar00rootroot00000000000000en_US English (USA) ru_RU Russian be_BY Belarusian uk_UA Ukrainian pt_BR Portuguese (Brazil) es_ES Spanish (Spain) es_VE Spanish (Venezuela) es_AR Spanish (Argentina) es_CL Spanish (Chile) alterator-sysconfig-1.0/data/lang/langlist.ru000064400000000000000000000001521116637510300213670ustar00rootroot00000000000000en_US Английский ru_RU Русский tt_RU:ru_RU Татарский uk_UA Украинский alterator-sysconfig-1.0/data/lang/langlist.ua000064400000000000000000000001171116637510300213470ustar00rootroot00000000000000uk_UA Українська ru_UA Російська en_US Англійська alterator-sysconfig-1.0/preinstall.d/000075500000000000000000000000001116637510300177515ustar00rootroot00000000000000alterator-sysconfig-1.0/preinstall.d/20-sysconfig.sh000075500000000000000000000026131116637510300225350ustar00rootroot00000000000000#!/bin/sh -efu # ***** BEGIN LICENSE BLOCK ***** # * Copyright (C) 2007 Alexey Gladkov # * # * This program is free software; you can redistribute it and/or modify # * it under the terms of the GNU General Public License as published by # * the Free Software Foundation; either version 2 of the License, or # * (at your option) any later version. # * # * This program is distributed in the hope that it will be useful, # * but WITHOUT ANY WARRANTY; without even the implied warranty of # * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # * GNU General Public License for more details. # * # * You should have received a copy of the GNU General Public License # * along with this program; if not, write to the Free Software # * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. # ***** END LICENSE BLOCK ***** . install2-init-functions [ ! -f "/etc/sysconfig/i18n" ] || cp -af "/etc/sysconfig/i18n" "$destdir/etc/sysconfig/" [ ! -f "/etc/sysconfig/langmap" ] || cp -af "/etc/sysconfig/langmap" "$destdir/etc/sysconfig/" [ ! -f "/etc/sysconfig/consolefont" ] || cp -af "/etc/sysconfig/consolefont" "$destdir/etc/sysconfig/" [ ! -f "/etc/sysconfig/keyboard" ] || cp -af "/etc/sysconfig/keyboard" "$destdir/etc/sysconfig/" [ ! -f "/etc/X11/xinit/Xkbmap" -o ! -d "$destdir/etc/X11/xinit" ] || cp -af "/etc/X11/xinit/Xkbmap" "$destdir/etc/X11/xinit/" alterator-sysconfig-1.0/templates/000075500000000000000000000000001116637510300173505ustar00rootroot00000000000000alterator-sysconfig-1.0/templates/sysconfig/000075500000000000000000000000001116637510300213545ustar00rootroot00000000000000alterator-sysconfig-1.0/templates/sysconfig/proxy/000075500000000000000000000000001116637510300225355ustar00rootroot00000000000000alterator-sysconfig-1.0/templates/sysconfig/proxy/index.html000064400000000000000000000021701116637510300245320ustar00rootroot00000000000000
Proxy server: Port:
 
Account:
Password:
 
   
alterator-sysconfig-1.0/ui/000075500000000000000000000000001116637510300157675ustar00rootroot00000000000000alterator-sysconfig-1.0/ui/sysconfig/000075500000000000000000000000001116637510300177735ustar00rootroot00000000000000alterator-sysconfig-1.0/ui/sysconfig/base/000075500000000000000000000000001116637510300207055ustar00rootroot00000000000000alterator-sysconfig-1.0/ui/sysconfig/base/index.scm000064400000000000000000000043211116637510300225200ustar00rootroot00000000000000(document:surround "/std/frame") (document:insert "/std/functions") ;;; language stuff (define (current-language) (and-let* ((l (langlist value))) (string-cut l #\:))) (define (label+icon x) (cons (woo-get-option x 'label) (woo-get-option x 'icon))) (define (change-translations) (define-operation set-lang) (set-lang (fluid-ref generic-session) (current-language)) ;;wizardface specific hacks (and-let* ((wizard-id (global 'frame:wizard)) (_ (make-translator "alterator-wizard" (session-language)))) (wizard-id steps-clear) (wizard-id steps (map label+icon (woo-list "/step-list"))) (wizard-id current-step 0) (wizard-id action-text 'help (_ "Help")) (wizard-id action-text 'forward (_ "Next"))) ;;common hacks (let ((_ (make-translator "alterator-sysconfig" (session-language)))) (label1 text (_ "Select your language:")) (label2 text (_ "Please select keyboard switch type:")))) (define (default-language) (define-operation get-lang) (string-join (get-lang (fluid-ref generic-session)) ":")) (define (update-lang) (change-translations) (keyboard-type enumref "/sysconfig-base/kbd") (and (positive? (keyboard-type count)) (default-keyboard))) ;;; keyboard stuff (define (default-keyboard) (keyboard-type value (woo-get-option (woo-read-first "/sysconfig-base/kbd") 'layout)) (or (positive? (keyboard-type current)) (keyboard-type current 0))) (define (write-sysconfig) (catch/message (lambda() (let ((lang (current-language)) (kbd (keyboard-type value))) (woo-write "/sysconfig-base/language" 'lang lang) (woo-write "/sysconfig-base/kbd" 'layout kbd) (simple-notify document:root 'action "language" 'value lang) #t)))) ;;;;;;;;;;;; (gridbox columns "100" margin 50 (document:id label1 (label text "Select your language:")) (document:id langlist (listbox (when selected (update-lang)))) (label) (document:id label2 (label text "Please select keyboard switch type:")) (document:id keyboard-type (listbox))) (frame:on-next (thunk (or (write-sysconfig) 'cancel))) (document:root (when loaded (catch/message (lambda() (langlist enumref "/sysconfig-base/language" value (default-language) selected))))) alterator-sysconfig-1.0/ui/sysconfig/proxy/000075500000000000000000000000001116637510300211545ustar00rootroot00000000000000alterator-sysconfig-1.0/ui/sysconfig/proxy/index.scm000064400000000000000000000014351116637510300227720ustar00rootroot00000000000000(document:surround "/std/frame") (gridbox columns "0;80;0;20" margin 40 (label (_ "Proxy server:") align "right" name "server") (edit name "server") (label (_ "Port:") name "port") (edit name "port") (label colspan 4) (label (_ "Account:") align "right" name "login") (edit colspan 3 name "login") (label (_ "Password:") align "right" name "passwd") (edit colspan 3 name "passwd" echo "stars") (label colspan 4) (label) (hbox colspan 3 align "left" (button (_ "Apply") (when clicked (form-write/message "/sysconfig-proxy") (form-read/message "/sysconfig-proxy"))) (button (_ "Reset") (when clicked (form-read/message "/sysconfig-proxy"))))) (document:root (when loaded (form-read/message "/sysconfig-proxy")))