diff options
Diffstat (limited to 'web/webserver.scm')
| -rwxr-xr-x | web/webserver.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/web/webserver.scm b/web/webserver.scm index 8ecf3fb..bb07afd 100755 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -176,7 +176,9 @@ otherwise search for set/group data" (lambda (key . args) (let ((msg (car args))) (build-json-response 400 `(("error" . ,key) ("msg" . ,msg)))) ))) -(define global-repo "/home/kabui/test_repo") ;; todo ;; fix this + +(define global-repo (getenv "REPO_PATH")) ;; handle this better way + (define (is-invalid-data? data target) (if (string? (assoc-ref data target)) (if (string-null? (assoc-ref data target)) @@ -187,9 +189,6 @@ otherwise search for set/group data" )) (define (commit-file-handler repo request body) - ;; TODO add validations for is email ;; maybe send a request to gn-auth - ;;call gn-auth to validate token - ;; TODO add validation for valid markdown (catch 'system-error (lambda () (let* ((post-data |