1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980 |
- (require 'url-parse)
- (autoload 'url-warn "url")
- (defun url-default-find-proxy-for-url (urlobj host)
- (cond
- ((or (and (assoc "no_proxy" url-proxy-services)
- (string-match
- (cdr
- (assoc "no_proxy" url-proxy-services))
- host))
- (equal "www" (url-type urlobj)))
- "DIRECT")
- ((cdr (assoc (url-type urlobj) url-proxy-services))
- (concat "PROXY " (cdr (assoc (url-type urlobj) url-proxy-services))))
-
-
-
- (t
- "DIRECT")))
- (defvar url-proxy-locator 'url-default-find-proxy-for-url)
- (defun url-find-proxy-for-url (url host)
- (let ((proxies (split-string (funcall url-proxy-locator url host) " *; *"))
- (proxy nil)
- (case-fold-search t))
-
-
-
- (if (listp proxies)
- (setq proxy (car proxies))
- (setq proxy proxies))
- (cond
- ((string-match "^direct" proxy) nil)
- ((string-match "^proxy +" proxy)
- (concat "http://" (substring proxy (match-end 0)) "/"))
- ((string-match "^socks +" proxy)
- (concat "socks://" (substring proxy (match-end 0))))
- (t
- (url-warn 'url (format "Unknown proxy directive: %s" proxy) 'critical)
- nil))))
- (defun url-proxy (url callback &optional cbargs)
-
-
- (setq url-using-proxy (url-generic-parse-url url-using-proxy))
- (cond
- ((string= (url-type url-using-proxy) "http")
- (url-http url callback cbargs))
- (t
- (error "Don't know how to use proxy `%s'" url-using-proxy))))
-
- (provide 'url-proxy)
|