;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Mathieu Othacehe <othacehe@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix 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 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix 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 GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu installer newt substitutes)
  #:use-module (gnu installer substitutes)
  #:use-module (gnu installer utils)
  #:use-module (guix i18n)
  #:use-module (newt)
  #:use-module (ice-9 match)
  #:export (run-substitutes-page))

(define* (run-substitutes-page)
  (match (current-clients)
    (()
     (case (choice-window
            (G_ "Substitute server discovery")
            (G_ "Enable") (G_ "Disable")
            (G_ " By turning this option on, you allow Guix to fetch \
substitutes (pre-built binaries) during installation from servers \
discovered on your local area network (LAN) in addition to the official \
server.  This can increase download throughput.

 There are no security risks: only genuine substitutes may be retrieved from \
those servers.  However, eavesdroppers on your LAN may be able to see what \
software you are installing."))
       ((1) (enable-discovery))
       ((2) (disable-discovery))))
    (_ #f)))
</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=e355848578d15fb8f76bc6cbe5c15d9a9b400acf'>root</a>/<a href='/guix/log/gnu?id=e355848578d15fb8f76bc6cbe5c15d9a9b400acf'>gnu</a>/<a href='/guix/log/gnu/tests?id=e355848578d15fb8f76bc6cbe5c15d9a9b400acf'>tests</a>/<a href='/guix/log/gnu/tests/docker.scm?id=e355848578d15fb8f76bc6cbe5c15d9a9b400acf'>docker.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/tests/docker.scm?id=e355848578d15fb8f76bc6cbe5c15d9a9b400acf&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-01-08 21:04:44 +0300'>2024-01-08</span></td><td><a href='/guix/commit/gnu/tests/docker.scm?id=bdf0ba4ca1c6596aac079a3eac61c01b99c13bec'>tests: docker-system: Increase image size.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/tests/docker.scm (run-docker-system-test)[vm]: Increase
'disk-image-size'.

Change-Id: If88588d8981efdfdc539460900f1cbb9a663f9cb
</span></span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2023-05-10 00:23:52 +0200'>2023-05-10</span></td><td><a href='/guix/commit/gnu/tests/docker.scm?id=1be5bf560459d32943a82c2d3f60a1fc2ca53437'>tests: docker-system: Add missing import.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to f51888272558d98cf5c196b93fb6c499056fbf6c.

* gnu/tests/docker.scm (run-docker-system-test)["load system image and
run it"]: Use (guix build utils).
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-05-06 17:12:45 +0200'>2023-05-06</span></td><td><a href='/guix/commit/gnu/tests/docker.scm?id=f51888272558d98cf5c196b93fb6c499056fbf6c'>tests: Add missing module imports for marionette-evaluated code.</a><span class='msg-avail'>...<span class='msg-tooltip'>This missing imports became apparent with commit
a09c7da8f8d8e732f969cf0a09aaa78f87032ab1, which runs the marionette
service in a fresh Guile process with fewer imports.

* gnu/tests/databases.scm (run-postgresql-test, run-timescaledb-test)
(run-mysql-test): Add missing module imports for code passed to
'marionette-eval'.
* gnu/tests/docker.scm (run-docker-test, run-docker-system-test): Likewise.
* gnu/tests/mail.scm (run-dovecot-test, run-getmail-test): Likewise.
* gnu/tests/monitoring.scm (run-zabbix-server-test): Likewise.
* gnu/tests/pam.scm (run-test-pam-limits): Likewise.
* gnu/tests/reconfigure.scm (run-switch-to-system-test)
(run-install-bootloader-test): Likewise.
* gnu/tests/security-token.scm (run-pcscd-test): Likewise.
* gnu/tests/install.scm (gui-test-program): Likewise.
* gnu/tests/telephony.scm (run-jami-test): Add modules to
the #:imported-modules argument of 'marionette-operating-system'.
[test]: Remove them from 'with-imported-modules'; remove
'with-extensions'.  Add "d-bus tooling loaded" test to set up %load-path
and %load-compiled-path so the marionette process can find
guile-ac-d-bus and guile-packrat.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-03-03 17:55:35 +0100'>2023-03-03</span></td><td><a href='/guix/commit/gnu/tests/docker.scm?id=2799ad44234be675f018115f99be98d2c9fd565d'>services: dbus: Deprecate 'dbus-service' procedure.</a><span class='msg-avail'>...<span class='msg-tooltip'>* doc/guix.texi (Desktop Services): Replace with 'dbus-root-service-type'.
Document dbus-configuration.
* gnu/services/dbus.scm (dbus-service): Define with 'define-deprecated'.
* gnu/services/desktop.scm (desktop-services-for-system): Replace with
dbus-root-service-type.
* gnu/system/install.scm (%installation-services): Ditto.
* gnu/tests/base.scm (%avahi-os): Ditto.
* gnu/tests/docker.scm (%docker-os): Ditto.
* gnu/tests/lightdm.scm (minimal-desktop-services): Ditto.
* gnu/tests/virtualization.scm (%libvirt-os): Ditto.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Bruno Victal</td></tr>
<tr><td><span title='2023-03-03 17:55:34 +0100'>2023-03-03</span></td><td><a href='/guix/commit/gnu/tests/docker.scm?id=ffc5d42fc2589c349579c00e9dd11fabdff2663b'>services: dbus: Deprecate 'polkit-service' procedure.</a><span class='msg-avail'>...<span class='msg-tooltip'>* doc/guix.texi (Desktop Services): Replace 'polkit-service' with 'polkit-service-type'.
* gnu/services/dbus.scm (polkit-service): Deprecate procedure.
* gnu/tests/docker.scm (%docker-os): Use polkit-service-type.
* gnu/tests/virtualization.scm (%libvirt-os): Ditto.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Bruno Victal</td></tr>
<tr><td><span title='2022-12-06 15:10:24 +0100'>2022-12-06</span></td><td><a href='/guix/commit/gnu/tests/docker.scm?id=6232959311b5717c19552e1116f6e4fea9797282'>tests: docker-system: Increase image size.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/tests/docker.scm (run-docker-system-test)[vm]: Increase
'disk-image-size'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-06-24 00:47:45 -0400'>2022-06-24</span></td><td><a href='/guix/commit/gnu/tests/docker.scm?id=14518fcc54b4172389a0c733a7b734e4bed94405'>tests: docker: Relax marionette timeout.</a><span class='msg-avail'>...<span class='msg-tooltip'>The tests would otherwise fail on an old desktop.

* gnu/tests/docker.scm (run-docker-test)
&lt;make-marionette&gt;: Specify a timeout of 60 s.
(run-docker-system-test) &lt;make-marionette&gt;: Likewise.
</span></span></td><td>Maxim Cournoyer</td></tr>