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

Re: proxy authentication 

井上です。

Katsumi Yamaoka <yamaoka@jpl.org> writes:

> 
>   オプション `w3m-async-exec' を t に設定する。
>   関数 `w3m-exec-filter' をその authentication に対応させる。
> 
> ということで実現できると思います。生の w3m を使った場合の正確な
> セッションを教えていただければ、誰かが作業を始められると思います。

どういうことをやってみればいいでしょうか。

> (setq w3m-async-exec nil
>       w3m-command-arguments '("-o"
> 			      "http_proxy=http://proxy.argv.org:8080/"
> 			      "-pauth"
> 			      "Username:Password"))

これを適当に変更してEmacs-21.0.98上でやってみましたが、なんと、以下の
ようなエラーになってしまいます。
ここでは社外のサイトであるhttp://www.argv.orgを与えています。
この最後に/をつけるとまた動作が違い、なにもないバッファが表示されます。
# 深い・・・

Debugger entered--Lisp error: (error "Lisp nesting exceeds max-lisp-eval-depth")
  (apply (quote call-process) w3m-command nil t nil (mapcar (lambda ... ...) args))
  (if w3m-async-exec (unwind-protect nil (let nil ... ... ... ... ... ... ... ... ... ... ... ...) (setq w3m-process nil) (setq w3m-process-url url) (setq w3m-process-string nil) (setq w3m-process-user nil) (setq w3m-process-passwd nil) (setq w3m-process-user-counter 0) (setq buffer-read-only nil)) (apply (quote call-process) w3m-command nil t nil (mapcar ... args)))
  (let ((coding-system-for-read w3m-coding-system) (coding-system-for-write w3m-coding-system) (default-process-coding-system ...) (process-connection-type w3m-process-connection-type)) (if w3m-async-exec (unwind-protect nil ... ... ... ... ... ... ... ...) (apply ... w3m-command nil t nil ...)))
  (save-excursion (let (... ... ... ...) (if w3m-async-exec ... ...)))
  w3m-exec-process("http://www.argv.org" ("-dump_head" "-o" "http_proxy=http://proxy.src.ricoh.co.jp:8080" "-pauth" "proxyuser_hidden:pass_hidden"))
  (let ((args ...) (case-fold-search t) (ct ...)) (setq args (cons "-dump_head" ...)) (w3m-exec-process url args) (message "Dump header... done.") (goto-char (point-min)) (when (re-search-forward "^content-type: " nil t) (setq ct ...) (setq w3m-arrived-url-ct ...) ct))
  (save-excursion (message "Dump header...") (set-buffer (get-buffer-create " *w3m ctcheck*")) (buffer-disable-undo) (delete-region (point-min) (point-max)) (let (... ... ...) (setq args ...) (w3m-exec-process url args) (message "Dump header... done.") (goto-char ...) (when ... ... ... ct)))
  (or (cdr (assoc url w3m-arrived-url-ct)) (save-excursion (message "Dump header...") (set-buffer ...) (buffer-disable-undo) (delete-region ... ...) (let ... ... ... ... ... ...)))
  w3m-exec-w3m-ctcheck("http://www.argv.org")
  (w3m-exec url buffer (w3m-exec-w3m-ctcheck url))
  (cond ((w3m-backlog-request url) (w3m-exec-w3m url args buffer) nil) ((and ... ...) (w3m-exec-ftp url) t) ((or ... ... ...) (w3m-exec-w3m url args buffer) nil) ((or ... ...) (setq args ...) (w3m-exec-w3m url args buffer) nil) ((eq ct ...) (require ...) (w3-fetch url) t) ((eq ct ...) (require ...) (let ... ...) t) ((not ct) (w3m-exec url buffer ...)) (t (error "context-type check error.")))
  (let ((args ...)) (cond (... ... nil) (... ... t) (... ... nil) (... ... ... nil) (... ... ... t) (... ... ... t) (... ...) (t ...)))
  (if (let (...) (cond ... ... ... ... ... ... ... ...)) (progn cbuf))
  (when (let (...) (cond ... ... ... ... ... ... ... ...)) cbuf)
  (let ((cbuf ...)) (when (let ... ...) cbuf))
  w3m-exec("http://www.argv.org" nil nil)
  (cond ((w3m-backlog-request url) (w3m-exec-w3m url args buffer) nil) ((and ... ...) (w3m-exec-ftp url) t) ((or ... ... ...) (w3m-exec-w3m url args buffer) nil) ((or ... ...) (setq args ...) (w3m-exec-w3m url args buffer) nil) ((eq ct ...) (require ...) (w3-fetch url) t) ((eq ct ...) (require ...) (let ... ...) t) ((not ct) (w3m-exec url buffer ...)) (t (error "context-type check error.")))
  (let ((args ...)) (cond (... ... nil) (... ... t) (... ... nil) (... ... ... nil) (... ... ... t) (... ... ... t) (... ...) (t ...)))
  (if (let (...) (cond ... ... ... ... ... ... ... ...)) (progn cbuf))
  (when (let (...) (cond ... ... ... ... ... ... ... ...)) cbuf)
  (let ((cbuf ...)) (when (let ... ...) cbuf))
  w3m-exec("http://www.argv.org" nil nil)
  (cond ((w3m-backlog-request url) (w3m-exec-w3m url args buffer) nil) ((and ... ...) (w3m-exec-ftp url) t) ((or ... ... ...) (w3m-exec-w3m url args buffer) nil) ((or ... ...) (setq args ...) (w3m-exec-w3m url args buffer) nil) ((eq ct ...) (require ...) (w3-fetch url) t) ((eq ct ...) (require ...) (let ... ...) t) ((not ct) (w3m-exec url buffer ...)) (t (error "context-type check error.")))
  (let ((args ...)) (cond (... ... nil) (... ... t) (... ... nil) (... ... ... nil) (... ... ... t) (... ... ... t) (... ...) (t ...)))
  (if (let (...) (cond ... ... ... ... ... ... ... ...)) (progn cbuf))
  (when (let (...) (cond ... ... ... ... ... ... ... ...)) cbuf)
  (let ((cbuf ...)) (when (let ... ...) cbuf))
  w3m-exec("http://www.argv.org" nil nil)
  (cond ((w3m-backlog-request url) (w3m-exec-w3m url args buffer) nil) ((and ... ...) (w3m-exec-ftp url) t) ((or ... ... ...) (w3m-exec-w3m url args buffer) nil) ((or ... ...) (setq args ...) (w3m-exec-w3m url args buffer) nil) ((eq ct ...) (require ...) (w3-fetch url) t) ((eq ct ...) (require ...) (let ... ...) t) ((not ct) (w3m-exec url buffer ...)) (t (error "context-type check error.")))
  (let ((args ...)) (cond (... ... nil) (... ... t) (... ... nil) (... ... ... nil) (... ... ... t) (... ... ... t) (... ...) (t ...)))
  (if (let (...) (cond ... ... ... ... ... ... ... ...)) (progn cbuf))
  (when (let (...) (cond ... ... ... ... ... ... ... ...)) cbuf)
  (let ((cbuf ...)) (when (let ... ...) cbuf))
  w3m-exec("http://www.argv.org" nil nil)
  (cond ((w3m-backlog-request url) (w3m-exec-w3m url args buffer) nil) ((and ... ...) (w3m-exec-ftp url) t) ((or ... ... ...) (w3m-exec-w3m url args buffer) nil) ((or ... ...) (setq args ...) (w3m-exec-w3m url args buffer) nil) ((eq ct ...) (require ...) (w3-fetch url) t) ((eq ct ...) (require ...) (let ... ...) t) ((not ct) (w3m-exec url buffer ...)) (t (error "context-type check error.")))
[snipped by inoue]
  (let ((cbuf ...)) (when (let ... ...) cbuf))
  w3m-exec("http://www.argv.org" nil nil)
  (cond ((w3m-backlog-request url) (w3m-exec-w3m url args buffer) nil) ((and ... ...) (w3m-exec-ftp url) t) ((or ... ... ...) (w3m-exec-w3m url args buffer) nil) ((or ... ...) (setq args ...) (w3m-exec-w3m url args buffer) nil) ((eq ct ...) (require ...) (w3-fetch url) t) ((eq ct ...) (require ...) (let ... ...) t) ((not ct) (w3m-exec url buffer ...)) (t (error "context-type check error.")))
  (let ((args ...)) (cond (... ... nil) (... ... t) (... ... nil) (... ... ... nil) (... ... ... t) (... ... ... t) (... ...) (t ...)))
  (if (let (...) (cond ... ... ... ... ... ... ... ...)) (progn cbuf))
  (when (let (...) (cond ... ... ... ... ... ... ... ...)) cbuf)
  (let ((cbuf ...)) (when (let ... ...) cbuf))
  w3m-exec("http://www.argv.org")
  (setq buff (w3m-exec url))
  (if (setq buff (w3m-exec url)) (w3m-refontify-anchor buff) (w3m-fontify) (setq buffer-read-only t) (set-buffer-modified-p nil) (or (and name ...) (goto-char ...)))
  (cond ((string-match "^mailto:\\(.*\\)" url) (w3m-mailto-url url)) (t (when ... ...) (w3m-save-position w3m-current-url) (or w3m-arrived-anchor-list ...) (w3m-arrived-list-add url) (if ... ... ... ... ... ...)))
  (let (name buff) (if reload (w3m-backlog-remove url)) (cond (... ...) (t ... ... ... ... ...)))
  w3m-goto-url("http://www.argv.org")
  (if (string= url "") (w3m-view-bookmark) (w3m-goto-url url))
  w3m("http://www.argv.org")
* call-interactively(w3m)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)

-- 
                    Koichi Inoue, ARGV
                    E-Mail: inoue@argv.org
                    ICQ UIN: 74900690