Code: Select all
(set 'hedr (append "Authorization: Basic " (base64-enc (append user ":" pass)) "\r\n\r\n"))
(set 'contents (get-url url 5000 hedr))
Code: Select all
(set 'hedr (append "Authorization: Basic " (base64-enc (append user ":" pass)) "\r\n\r\n"))
(set 'contents (get-url url 5000 hedr))