|
Lines 39-47
Link Here
|
| 39 |
(spacer) |
39 |
(spacer) |
| 40 |
;; |
40 |
;; |
| 41 |
(spacer) |
41 |
(spacer) |
| 42 |
(label (_ "Walk throw interface") align "right") |
42 |
(label (_ "Walk through interface") align "right") |
| 43 |
(document:id iface (combobox widget-name "iface")) |
43 |
(document:id iface (combobox widget-name "iface")) |
| 44 |
(spacer)) |
44 |
(spacer) |
|
|
45 |
;; |
| 46 |
(spacer) |
| 47 |
(label (_ "MPPE encryption") align "right") |
| 48 |
(document:id mppe (checkbox "" widget-name "mppe")) |
| 49 |
(spacer)) |
| 45 |
|
50 |
|
| 46 |
(hbox |
51 |
(hbox |
| 47 |
align "center" |
52 |
align "center" |
|
Lines 70-75
Link Here
|
| 70 |
(define (update-connection name) |
75 |
(define (update-connection name) |
| 71 |
(let ((data (woo-read-first (string-append "/net-pptp/" name)))) |
76 |
(let ((data (woo-read-first (string-append "/net-pptp/" name)))) |
| 72 |
(server text (woo-get-option data 'server)) |
77 |
(server text (woo-get-option data 'server)) |
|
|
78 |
(mppe state (woo-get-option data 'mppe)) |
| 73 |
(login text (woo-get-option data 'login)) |
79 |
(login text (woo-get-option data 'login)) |
| 74 |
(password text "") |
80 |
(password text "") |
| 75 |
(iface current (or (string-list-index (woo-get-option data 'iface) gates) 0)))) |
81 |
(iface current (or (string-list-index (woo-get-option data 'iface) gates) 0)))) |
|
Lines 86-91
Link Here
|
| 86 |
(apply woo-write/constraints (string-append "/net-pptp/" name) |
92 |
(apply woo-write/constraints (string-append "/net-pptp/" name) |
| 87 |
'server (server text) |
93 |
'server (server text) |
| 88 |
'iface (iface text) |
94 |
'iface (iface text) |
|
|
95 |
'mppe (mppe state) |
| 89 |
'login (login text) |
96 |
'login (login text) |
| 90 |
(if (not-empty-string? pwd) (list 'password pwd) '())))))) |
97 |
(if (not-empty-string? pwd) (list 'password pwd) '())))))) |
| 91 |
|
98 |
|
|
Lines 98-103
Link Here
|
| 98 |
'name name |
105 |
'name name |
| 99 |
'server (server text) |
106 |
'server (server text) |
| 100 |
'iface (iface text) |
107 |
'iface (iface text) |
|
|
108 |
'mppe (mppe state) |
| 101 |
'login (login text) |
109 |
'login (login text) |
| 102 |
'password (password text)) |
110 |
'password (password text)) |
| 103 |
(connections append-row name |
111 |
(connections append-row name |
|
Lines 126-131
Link Here
|
| 126 |
((widgets name server login password) |
134 |
((widgets name server login password) |
| 127 |
text "") |
135 |
text "") |
| 128 |
(iface current 0) |
136 |
(iface current 0) |
|
|
137 |
(mppe state #f) |
| 129 |
(name text (first-available))) |
138 |
(name text (first-available))) |
| 130 |
|
139 |
|
| 131 |
;;;;;;;;;;;;;;;;;;;;;;; |
140 |
;;;;;;;;;;;;;;;;;;;;;;; |
