handle port, https in uri-for-action

jrockway · Nov 17, 2008 · e7f1918 · e7f1918
1 parent acb87d3
commit e7f1918
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/action-manager.lisp b/action-manager.lisp
@@ -24,6 +24,7 @@
     (if (not path)
         (error (format nil "~A is not in the path dispatch table!" action))
         (setf path (car path)))
-    (format nil "http://~A~A"
-            (if (boundp '*request*) (server-addr) "test")
-            path)))
+    (if (not (boundp '*request*))
+        (format nil "http://test~A" path) ; for tests
+      (let ((scheme (if (ssl-p) "https" "http")))
+        (format nil "~A://~A~A" scheme (host) path)))))