[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/url-http-ntlm c2db685 28/42: url-http-ntlm: Add `url-de

From: Stefan Monnier
Subject: [elpa] externals/url-http-ntlm c2db685 28/42: url-http-ntlm: Add `url-debug' debugging messages
Date: Sat, 28 Nov 2020 17:19:47 -0500 (EST)

branch: externals/url-http-ntlm
commit c2db6858f15d5ca47a6d1f1e8b07ef96cb5c115b
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    url-http-ntlm: Add `url-debug' debugging messages
    * url-http-ntlm.el: Require url-util.
    (url-http-ntlm--get-stage, url-ntlm-auth): Add debugging messages.
 url-http-ntlm.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/url-http-ntlm.el b/url-http-ntlm.el
index 026a739..0ececf0 100644
--- a/url-http-ntlm.el
+++ b/url-http-ntlm.el
@@ -40,6 +40,7 @@
 ;;; Code:
 (require 'url-auth)
 (require 'url-http)
+(require 'url-util)
 (require 'mail-parse)
 (require 'cl-lib)
 (require 'ntlm)
@@ -146,9 +147,15 @@ response's \"WWW-Authenticate\" header, munged by
         (auth-header      (assoc "Authorization" url-http-extra-headers))
         (case-fold-search t)
+    (url-debug 'url-http-ntlm "Buffer: %s" (current-buffer))
+    (url-debug 'url-http-ntlm "Arguments: %s" args)
+    (url-debug 'url-http-ntlm "Previous arguments: %s" 
     (if (eq args (car url-http-ntlm--last-args))
        ;; multiple calls, return the same argument we returned last time
-       (cdr url-http-ntlm--last-args)
+       (progn
+         (url-debug 'url-http-ntlm "Returning previous result: %s"
+                    (cdr url-http-ntlm--last-args))
+         (cdr url-http-ntlm--last-args))
       (let ((stage
             (cond ((and auth-header (string-match response-rxp
                                                   (cdr auth-header)))
@@ -259,6 +266,7 @@ the server's last response.  These are used by
   (let* ((user-url (url-http-ntlm--ensure-user url))
         (stage (url-http-ntlm--get-stage args)))
+    (url-debug 'url-http-ntlm "Stage: %s" stage)
     (cl-case stage
       ;; NTLM Type 1 message: the request

reply via email to

[Prev in Thread] Current Thread [Next in Thread]