Hi all!
While improving and testing kerberos authentication,
now I get strange error when I'm going to
http:/<wiki-session-url>?*ID=$krblogin
!? (throw "http")
"http" -- Tag not found
The code is:
#----
(unless (setq *Url (ht:Pack @U))
(setq *Url (car *Home) @U (cdr *Home)) )
(out S
(ifn (or (n== *ID 'krblogin) *KrbPrinc) (! http401)) # <-- added code
(cond
((match '("-" @X "." "h" "t" "m" "l") @U)
#----
(de http401 ()
(httpStat 401 "Unauthorized" "WWW-Authenticate: Negotiate")
(throw "http") ) # <-- error occurs here
Best regards,
Mansur Mamkin
