Use env variable REPO_PATH.

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