View | Details | Raw Unified | Return to bug 11988
Collapse All | Expand All

(-)index.scm-orig (-2 / +10 lines)
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

Return to bug 11988