alterator-net-pppoe-0.9/000075500000000000000000000000001132417670100152645ustar00rootroot00000000000000alterator-net-pppoe-0.9/Makefile000064400000000000000000000001751132417670100167270ustar00rootroot00000000000000NAME=net-pppoe INSTALL=/usr/bin/install all: clean: install: install-module include /usr/share/alterator/build/module.mak alterator-net-pppoe-0.9/applications/000075500000000000000000000000001132417670100177525ustar00rootroot00000000000000alterator-net-pppoe-0.9/applications/net-pppoe.desktop000064400000000000000000000004471132417670100232610ustar00rootroot00000000000000[Desktop Entry] Type=Application Categories=X-Alterator-Network Icon=net-pppoe Terminal=false Name=PPPoE connections X-Alterator-URI=/net-pppoe X-Alterator-Help=net-pppoe Name[ru]=PPPoE-соединения Name[uk]=PPPoE-з'єднання Name[pt_BR]=PPPoE Conexões Name[es]=PPPoE conecciones alterator-net-pppoe-0.9/backend3/000075500000000000000000000000001132417670100167365ustar00rootroot00000000000000alterator-net-pppoe-0.9/backend3/net-pppoe000075500000000000000000000062571132417670100206050ustar00rootroot00000000000000#!/bin/sh -f wait_time=3 alterator_api_version=1 . alterator-sh-functions . alterator-net-functions . alterator-hw-functions ### shell file helpers read_connection() { local name="/etc/net/ifaces/$1" local info= netdev_is_up "$1" && info="`_ "connection established"`" || info="`_ "connection failed"`" write_string_param info "$info" local iface="$(read_iface_option "$name" HOST)" [ -n "$iface" ] || iface="$(list_eth|head -n1)" write_string_param iface "$iface" write_string_param login "$(read_ppp_option "$name" user)" write_bool_param 'mppe' "$(read_ppp_option1 "$name" 'require-mppe' 'nomppe')" } write_connection() { [ "$1" = "/" ] && return local name="/etc/net/ifaces/$1" [ -d "$name" ] || mkdir -- "$name" [ -n "$in_iface" ] && write_iface_option "$name" HOST "$in_iface" [ -n "$in_login" ] && write_ppp_option "$name" user "$in_login" [ -n "$in_password" ] && write_ppp_option "$name" password "$(echo "$in_password"|sed -e 's/["]/\\\\&/g')" test_bool "$in_mppe" write_ppp_option1 "$name" 'require-mppe' 'nomppe' "$?" } new_connection() { local name="/etc/net/ifaces/$1" mkdir -p -- "$name" write_iface_option "$name" TYPE ppp write_iface_option "$name" ONBOOT yes write_iface_option "$name" PPPTYPE pppoe write_iface_option "$name" PPPPERSIST on write_iface_option "$name" PPPMAXFAIL 0 # https://bugzilla.altlinux.org/show_bug.cgi?id=15603 cat>"$name/pppoptions"</dev/null for i in $(seq 0 "$n"); do netdev_is_up "$iface" && return 0 [ "$i" != "$n" ] || sleep 1 done return 1 } on_message() { case "$in_action" in list) case "$in__objects" in avail_connection) list_ppp 'pppoe'|write_enum ;; avail_iface) list_eth|write_enum ;; avail_state) write_enum_item "ignore" "`_ "don't change"`" #' write_enum_item "start" "`_ "start"`" write_enum_item "stop" "`_ "stop"`" write_enum_item "restart" "`_ "restart"`" ;; esac ;; read) local name="$in_name" [ -n "$in_new" ] && name="$in_new_name" [ -n "$name" ] || name="$(list_ppp 'pppoe'|head -n1)" write_string_param new_name "$(next_ppp)" write_string_param name "$name" write_string_param status "ignore" [ -n "$name" ] && read_connection "$name" ;; write) if [ -n "$in_new" -a -n "$in_new_name" ];then new_connection "$in_new_name" elif [ -n "$in_delete" -a -n "$in_name" ];then delete_connection "$in_name" elif [ -n "$in_commit" -a -n "$in_name" ];then write_connection "$in_name" case "$in_status" in start) iface_up_priv "$in_name" "$wait_time" ;; stop) iface_down "$in_name" "$wait_time" ;; restart) iface_down "$in_name" "$wait_time" iface_up "$in_name" "$wait_time" ;; esac fi ;; esac } message_loop alterator-net-pppoe-0.9/ui/000075500000000000000000000000001132417670100157015ustar00rootroot00000000000000alterator-net-pppoe-0.9/ui/net-pppoe/000075500000000000000000000000001132417670100176105ustar00rootroot00000000000000alterator-net-pppoe-0.9/ui/net-pppoe/ajax.scm000064400000000000000000000042451132417670100212440ustar00rootroot00000000000000(define-module (ui net-pppoe ajax) :use-module (alterator ajax) :use-module (alterator woo) :export (on-load)) (define (ui-update-activity) (let* ((name (form-value "name")) (active (and (string? name) (not (string=? "" name))))) (form-update-activity "info" active) (form-update-activity "status" active) (form-update-activity "iface" active) (form-update-activity "login" active) (form-update-activity "password" active) (form-update-activity "mppe" active) (form-update-activity "apply_button" active) (form-update-activity "reset_button" active) (form-update-activity "del_button" active))) (define (init-iface) (form-update-enum "iface" (woo-list "/net-pppoe/avail_iface")) (form-update-enum "status" (woo-list "/net-pppoe/avail_state" 'language (form-value "language")))) (define (read-current-iface) (read-iface (or (form-value "name") ""))) (define (read-iface name) (catch/message (lambda() (let ((data (woo-read-first "/net-pppoe/" 'name name 'language (form-value "language")))) (form-update-enum "name" (woo-list "/net-pppoe/avail_connection")) (form-update-value "password" "") (form-update-value-list '("name" "new_name" "info" "status" "iface" "login" "mppe") data))))) (define (write-iface) (catch/message (lambda() (apply woo-write "/net-pppoe" 'commit #t (form-value-list)) (read-iface (form-value "name"))))) (define (new-iface) (catch/message (lambda() (let ((new_name (form-value "new_name"))) (woo-write "/net-pppoe" 'new #t 'new_name new_name) (read-iface new_name) (ui-update-activity))))) (define (delete-iface) (catch/message (lambda() (woo-write "/net-pppoe/" 'delete #t 'name (or (form-value "name") "")) (read-iface "") (ui-update-activity)))) (define (on-load) (form-bind "new_button" "click" new-iface) (form-bind "del_button" "click" delete-iface) (form-bind "apply_button" "click" write-iface) (form-bind "reset_button" "click" read-current-iface) (form-bind "name" "change" read-current-iface) (init-iface) (read-current-iface) (ui-update-activity)) alterator-net-pppoe-0.9/ui/net-pppoe/index.html000064400000000000000000000030651132417670100216110ustar00rootroot00000000000000

Status:
Interface:
Account:
Password:
  MPPE encryption
 
    
alterator-net-pppoe-0.9/ui/net-pppoe/index.scm000064400000000000000000000020761132417670100214300ustar00rootroot00000000000000(document:surround "/std/frame") (edit visibility #f name "new_name") (gridbox columns "100" margin 10 (button text (_ "New connection...") align "left" name "new_button") (separator) (splitbox columns "30;70" (listbox name "name") (gridbox columns "0;100" ;; (label text (_ "Status:") align "right") (hbox align "left" (label name "info") (combobox name "status")) ;; (label text (_ "Interface:") align "right" name "iface") (combobox name "iface") ;; (label text (_ "Account:") align "right" name "login") (edit name "login") ;; (label text (_ "Password:") align "right" name "password") (edit echo "stars" name "password") ;; (spacer) (checkbox text (_ "MPPE encryption") name "mppe") ;; (label colspan 2) ;; (spacer) (hbox align "left" (button text (_ "Apply") name "apply_button") (button text (_ "Reset") name "reset_button") (label text " ") (button text (_ "Delete connection") name "del_button")))))