Disable git owner validation
scripts/gitile.in
3 | 3 | !# | |
4 | 4 | ||
5 | 5 | ;;;; Copyright (C) 2020 Julien Lepiller <julien@lepiller.eu> | |
6 | + | ;;;; Copyright (C) 2024 Evgeny Pisemsky <mail@pisemsky.site> | |
6 | 7 | ;;;; | |
7 | 8 | ;;;; SPDX-License-Identifier: AGPL-3.0-or-later | |
8 | 9 | ;;;; | |
… | |||
20 | 21 | ;;;; along with this program. If not, see <https://www.gnu.org/licenses/>. | |
21 | 22 | ;;;; | |
22 | 23 | ||
23 | - | (use-modules (fibers web server)) | |
24 | - | (use-modules (ice-9 match)) | |
25 | - | (use-modules (gitile config) (gitile handler)) | |
24 | + | (use-modules (ice-9 match) | |
25 | + | (fibers web server) | |
26 | + | (git settings) | |
27 | + | (gitile config) | |
28 | + | (gitile handler)) | |
26 | 29 | ||
27 | 30 | (define* (main #:optional (args (command-line))) | |
28 | 31 | (let ((config | |
… | |||
38 | 41 | (make-config port host database repositories git-base-url index-title | |
39 | 42 | intro footer))))) | |
40 | 43 | (_ (format #t "Usage: ~a [-c config-file]~%" (car args)))))) | |
44 | + | (set-owner-validation! #f) | |
41 | 45 | (run-server (gitile-handler config) | |
42 | 46 | #:port (config-port config)))) | |
47 | + | ||
48 | + | ;; Local Variables: | |
49 | + | ;; mode: scheme | |
50 | + | ;; End: |