Как проверяет подлинность дескриптора пакета emacs?

Question

Я не видел действительно хорошего примера в Интернете. Как добавить аутентификацию в такой запрос:

(defun login-show-posts() 
    (interactive) 
    (let ((url-request-method "GET") 
     (url-request-extra-headers '(("Content-Type" . "application/xml")))) 
    (url-retrieve "http://localhost:3000/essay/1.xml" 
    (lambda (status) 
        (switch-to-buffer (current-buffer)) 
        )))) 

Если, например, пользователь и пароль являются admin: admin?

Answer 1

У меня создалось впечатление, что url.el был разработан в основном для интерактивных операций, т. Е. Вы звоните без авторизации, сервер отвечает 403 «необходимой авторизацией» (правильный код?), А url.el будет запрашивать у пользователя имя пользователя и пароль.

Вы можете посмотреть мой код на http://github.com/hdurer/fluiddb.el, где я пытаюсь сделать что-то программно.

В принципе, я сам создаю заголовок HTTP-конструирования (base64 кодирует правильно отформатированную строку и добавляет правильный заголовок в url-request-extra-headers). Затем на втором этапе мне нужно добавить совет к url-http-handle-authentication, чтобы он не просил пользователя, чтобы переданные учетные данные не были приемлемыми.

Это очень похоже на изнасилование url.el, но оно работает для меня, и это единственный способ заставить его работать.

---

Ваш код будет таким образом выглядеть примерно так:

(defvar xyz-user-name "admin") 
(defvar xyz-password "admin") 

(defvar xyz-block-authorisation nil 
    "Flag whether to block url.el's usual interactive authorisation procedure") 

(defadvice url-http-handle-authentication (around xyz-fix) 
    (unless xyz-block-authorisation 
     ad-do-it)) 
(ad-activate 'url-http-handle-authentication) 


(defun login-show-posts() 
    (interactive) 
    (let ((xyz-block-authorisation t) 
     (url-request-method "GET") 
     (url-request-extra-headers 
      `(("Content-Type" . "application/xml") 
      ("Authorization" . ,(concat "Basic " 
             (base64-encode-string 
             (concat xyz-user-name ":" xyz-password))))))) 
    (url-retrieve "http://localhost:3000/essay/1.xml" 
        (lambda (status) 
        (switch-to-buffer (current-buffer)) 
        )))) 

Answer 2

С twit.el, там было немного пердеж вокруг, чтобы заставить его работать. Информация об аутентификации хранится внутри alist. Этот список привязан к символу в переменной url-basic-auth-storage.

ELISP> (require 'url) 
ELISP> (pp url-basic-auth-storage) 
url-http-real-basic-auth-storage 

ELISP> (pp (symbol-value url-basic-auth-storage)) 
(("twitter.com:443" ("Twitter API" . "@uTh5tr!n6==")) 
("twitter.com:80" ("Twitter API" . "AnotherAuthString=="))) 
ELISP> 

Вы могли бы сделать что-то вроде этого:

(let ((my-temporary-auth '(("host.com:80" ("Auth Realm" . "@uTH5r!n6=="))))) 
     (url-basic-auth-storage 'my-temporary-auth)) 
    (do-gunk)) 

Это оставит данные аутентификации пользователей в одиночку (если они есть). Оглядываясь назад, возможно, это был более умный способ пойти с twit.el.