Как получить веб-страницу, требующую аутентификации в Emacs, не удается получить url.el для аутентификации - PullRequest
Новая
       14

Как получить веб-страницу, требующую аутентификации в Emacs, не удается получить url.el для аутентификации

2 голосов
/ 25 января 2011

Я использую следующий код: 

(defvar xyz-user-name "LOGIN")
(defvar xyz-password "PASS")
(defvar site "http://www.site.com/")
(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 
                      `(("Authorization" . ,(concat "Basic "
                                (base64-encode-string
                                 (concat xyz-user-name ":" xyz-password)))))))
     (url-retrieve site 
                   (lambda (status)
                   (switch-to-buffer (current-buffer))))))

Но я просто получаю текст веб-страницы без аутентификации, т.е. он не аутентифицируется.Как я могу сделать это аутентифицировать.Я ломал себе голову, читая все, что мог найти по url-request-extra-headers, но не могу это сделать.

Кто-нибудь?

Спасибо

JJ

...