adapt settings

server/servlets/translator-servlet.rkt

@@ -48,10 +48,7 @@
 
             (generated-filename (format "~a.af.sbgn" filename))
             (file-url (str (get-settings 'root-url) "/generated/" generated-filename))
-            (file-path (case (where-am-i)
-                          ((xpolaris) (get-settings 'paths 'digitalocean))
-                          ((inwin-win7) (get-settings 'paths 'inwin-win7))
-                          (else (get-settings 'paths 'digitalocean))))
+            (file-path (get-settings 'paths 'lcsb))
             (_ (write-file (format "~a/~a" file-path generated-filename) af-xml))
             (resp (make-json-string `((af_filename ,generated-filename) (af_fileurl ,file-url)))))
       	(response/full

server/settings.rkt

@@ -5,7 +5,8 @@
 (define settings
 	(hash
 		; 'root-url "http://pd2af.me"
-		'root-url "http://188.166.159.222"
+		;'root-url "http://188.166.159.222"
+		'root-url "http://localhost:8080"
 		'paths
 			(hash
 				'inwin-win7 "../../../../../../../../denis_core/projects/pd2af/html/generated"
@@ -13,6 +14,7 @@
 				'digitalocean "/server/pd2af/html/generated"
 				; 'pd2af.me "/server/pd2af/static/generated"
 				; 'pd2af.org "/home/jpellet/pd2af/server/static/generated"
+				'lcsb "/srv/pd2af/html/generated"
 			)
 	)
 )