Sisyphus repositório
Última atualização: 1 outubro 2023 | SRPMs: 18631 | Visitas: 37764849
en ru br
ALT Linux repositórios
S:1.3.11-alt1
5.0: 1.0-alt6
4.1: 0.8-alt3.M41.6
4.0: 0.5-alt2

Group :: Sistema/Configurações/Rede
RPM: alterator-sysconfig

 Main   Changelog   Spec   Patches   Sources   Download   Gear   Bugs e FR  Repocop 

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 <legion@altlinux.org>
# *
# * 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<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd">
<!-- simple system update interface -->
<html wf="form?backend-url=sysconfig-proxy">
  <body>
    <form method="POST">
    <table>
	<tr>
	    <td style="text-align:right"><span name="server" translate="_">Proxy server:</span></td>
	    <td><input type="text" class="text" name="server"/></td>
	    <td><span name="port" translate="_">Port:</span></td>
	    <td><input type="text" class="text" name="port"/></td>
	</tr>
	<tr>
	    <td colspan="4">&nbsp;</td>
	</tr>
	<tr>
	    <td style="text-align:right"><span translate="_">Account:</span></td>
	    <td colspan="3"><input type="text" class="text" name="login"/></td>
	</tr>
	<tr>
	    <td style="text-align:right"><span translate="_">Password:</span></td>
	    <td colspan="3"><input type="password" class="text" name="passwd"/></td>
	</tr>

	<tr>
	    <td colspan="4">&nbsp;</td>
	</tr>

	<tr>
	    <td>&nbsp;</td>
	    <td>
		<input type="submit" class="btn" value="Apply"/>
		&nbsp;
		<input type="reset" class="btn" value="Reset"/>
	    </td>
	</tr>
    </table>
    </form>
  </body>
</html>
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")))
 
projeto & código: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
mantenedor atual: Michael Shigorin
mantenedor da tradução: Fernando Martini aka fmartini © 2009