[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/22: installer: Fix incorrect host in ping task.
From: |
John Darrington |
Subject: |
02/22: installer: Fix incorrect host in ping task. |
Date: |
Tue, 27 Dec 2016 06:02:08 +0000 (UTC) |
jmd pushed a commit to branch wip-installer
in repository guix.
commit b574581df42fe46619908f991ccba15fd0ae52d3
Author: John Darrington <address@hidden>
Date: Fri Dec 23 20:45:23 2016 +0100
installer: Fix incorrect host in ping task.
* gnu/system/installer/ping.scm (ping-page-key-handler): Use host part of
uri
only. Commit cd6fd079e61c07135902b673991164ba705c037c inadvertently
introduced
this bug.
---
gnu/system/installer/ping.scm | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/gnu/system/installer/ping.scm b/gnu/system/installer/ping.scm
index fb00292..2adee6f 100644
--- a/gnu/system/installer/ping.scm
+++ b/gnu/system/installer/ping.scm
@@ -24,7 +24,7 @@
#:use-module (guix store)
#:use-module (gurses buttons)
#:use-module (ncurses curses)
-
+ #:use-module (web uri)
#:export (ping-page-refresh)
#:export (ping-page-key-handler))
@@ -45,10 +45,10 @@
(cond
((eqv? (buttons-selected nav) (1- (buttons-n-buttons nav)))
(buttons-unselect-all nav))
-
+
(else
(buttons-select-next nav))))
-
+
((eq? ch KEY_LEFT)
(buttons-select-prev nav))
@@ -62,17 +62,20 @@
(delwin (page-datum page 'test-window))
(set! page-stack (cdr page-stack))
)
-
- ((buttons-key-matches-symbol? nav ch 'test)
- (let* ();;(windowp (make-window-port test-window)))
+ ((buttons-key-matches-symbol? nav ch 'test)
+ (let* ()
(if (zero?
- (window-pipe test-window "ping" "ping" "-c" "3" (car
%default-substitute-urls)))
+ (window-pipe test-window "ping" "ping" "-c" "3"
+ (uri-host
+ (string->uri
+ (car %default-substitute-urls)))))
+
(addstr test-window
(gettext "Test successful. Network is working."))
(addstr test-window
(gettext "Test failed. No servers reached.")))
-
+
(refresh test-window)))) #f))
(define (ping-page-refresh page)
@@ -113,6 +116,3 @@
(buttons-post buttons button-window)
(refresh text-window)
(refresh button-window)))
-
-
-
- branch wip-installer updated (704f546 -> d654694), John Darrington, 2016/12/27
- 01/22: installer: Return slurped lines in their correct order., John Darrington, 2016/12/27
- 15/22: installer: Remove ad-hoc completed predicate and use standard one., John Darrington, 2016/12/27
- 02/22: installer: Fix incorrect host in ping task.,
John Darrington <=
- 06/22: installer: Connect ethernet interfaces on selection., John Darrington, 2016/12/27
- 14/22: installer: Make minumum-store-size variable global., John Darrington, 2016/12/27
- 04/22: installer: Use a cleaner way of generating the lspci information., John Darrington, 2016/12/27
- 16/22: installer: Improve dependencies on the final task., John Darrington, 2016/12/27
- 22/22: gnu: Add guix to the path environment for the guix-installer service., John Darrington, 2016/12/27
- 09/22: installer: Add a variable to represent the minimum recommended store size., John Darrington, 2016/12/27
- 17/22: installer: Replace some instances of "car"., John Darrington, 2016/12/27
- 20/22: install: Define new procedure pipe-cmd and use it to implement window-pipe., John Darrington, 2016/12/27
- 03/22: installer: Make "interfaces" return an alist., John Darrington, 2016/12/27
- 13/22: installer: Add path to mount/umount commands in installer service., John Darrington, 2016/12/27