Add scrumelo-host variable
This commit is contained in:
parent
2767104527
commit
8388100fdd
1 changed files with 6 additions and 1 deletions
|
@ -23,6 +23,11 @@
|
||||||
(defvar scrumelo-project-file "~/projects/scrumelo/aeos.org"
|
(defvar scrumelo-project-file "~/projects/scrumelo/aeos.org"
|
||||||
"The file containing the scrum backlog.")
|
"The file containing the scrum backlog.")
|
||||||
|
|
||||||
|
(defvar scrumelo-host "http://localhost:8028"
|
||||||
|
"The URL on which scrumelo is running.
|
||||||
|
|
||||||
|
Mozilla persona uses this to verify login requests.")
|
||||||
|
|
||||||
(defvar scrumelo--base-dir
|
(defvar scrumelo--base-dir
|
||||||
(if load-file-name
|
(if load-file-name
|
||||||
(file-name-directory load-file-name)
|
(file-name-directory load-file-name)
|
||||||
|
@ -261,7 +266,7 @@ saving the buffer."
|
||||||
(value ""))))
|
(value ""))))
|
||||||
(p (a (@ (href "javascript:login()")) "Login"))))))))
|
(p (a (@ (href "javascript:login()")) "Login"))))))))
|
||||||
(POST
|
(POST
|
||||||
(let* ((audience "http://localhost:8028")
|
(let* ((audience scrumelo-host)
|
||||||
(assertion (elnode-http-param httpcon "assertion"))
|
(assertion (elnode-http-param httpcon "assertion"))
|
||||||
(result (scrumelo--verify-credentials audience assertion)))
|
(result (scrumelo--verify-credentials audience assertion)))
|
||||||
(if (equal (cdr (assoc 'status result)) "okay")
|
(if (equal (cdr (assoc 'status result)) "okay")
|
||||||
|
|
Loading…
Reference in a new issue