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: | |