/[emacs]/emacs/lisp/url/url-gw.el
ViewVC logotype

Diff of /emacs/lisp/url/url-gw.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3.4.1 by miles, Thu Oct 14 08:49:52 2004 UTC revision 1.3.4.2 by miles, Fri Oct 22 10:13:34 2004 UTC
# Line 1  Line 1 
1  ;;; url-gw.el --- Gateway munging for URL loading  ;;; url-gw.el --- Gateway munging for URL loading
2    
3    ;; Copyright (c) 1997, 1998, 2004 Free Software Foundation, Inc.
4    
5  ;; Author: Bill Perry <wmperry@gnu.org>  ;; Author: Bill Perry <wmperry@gnu.org>
6  ;; Keywords: comm, data, processes  ;; Keywords: comm, data, processes
7    
8  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;; This file is part of GNU Emacs.
9  ;;; Copyright (c) 1997, 1998, 2004 Free Software Foundation, Inc.  
10  ;;;  ;; GNU Emacs is free software; you can redistribute it and/or modify
11  ;;; This file is part of GNU Emacs.  ;; it under the terms of the GNU General Public License as published by
12  ;;;  ;; the Free Software Foundation; either version 2, or (at your option)
13  ;;; GNU Emacs is free software; you can redistribute it and/or modify  ;; any later version.
14  ;;; it under the terms of the GNU General Public License as published by  
15  ;;; the Free Software Foundation; either version 2, or (at your option)  ;; GNU Emacs is distributed in the hope that it will be useful,
16  ;;; any later version.  ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17  ;;;  ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18  ;;; GNU Emacs is distributed in the hope that it will be useful,  ;; GNU General Public License for more details.
19  ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of  
20  ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the  ;; You should have received a copy of the GNU General Public License
21  ;;; GNU General Public License for more details.  ;; along with GNU Emacs; see the file COPYING.  If not, write to the
22  ;;;  ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23  ;;; You should have received a copy of the GNU General Public License  ;; Boston, MA 02111-1307, USA.
24  ;;; along with GNU Emacs; see the file COPYING.  If not, write to the  
25  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,  ;;; Code:
26  ;;; Boston, MA 02111-1307, USA.  
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
27  (eval-when-compile (require 'cl))  (eval-when-compile (require 'cl))
28  (require 'url-vars)  (require 'url-vars)
29    
# Line 115  linked Emacs under SunOS 4.x" Line 117  linked Emacs under SunOS 4.x"
117        (let ((proc (start-process " *nslookup*" " *nslookup*"        (let ((proc (start-process " *nslookup*" " *nslookup*"
118                                   url-gateway-nslookup-program host))                                   url-gateway-nslookup-program host))
119              (res host))              (res host))
120          (process-kill-without-query proc)          (set-process-query-on-exit-flag proc nil)
121          (save-excursion          (save-excursion
122            (set-buffer (process-buffer proc))            (set-buffer (process-buffer proc))
123            (while (memq (process-status proc) '(run open))            (while (memq (process-status proc) '(run open))
# Line 186  linked Emacs under SunOS 4.x" Line 188  linked Emacs under SunOS 4.x"
188           proc (concat           proc (concat
189                 (or url-gateway-telnet-password                 (or url-gateway-telnet-password
190                     (setq url-gateway-telnet-password                     (setq url-gateway-telnet-password
191                           (funcall url-passwd-entry-func "Password: ")))                           (read-passwd "Password: ")))
192                 "\n"))                 "\n"))
193          (erase-buffer)          (erase-buffer)
194          (url-wait-for-string url-gateway-prompt-pattern proc)          (url-wait-for-string url-gateway-prompt-pattern proc)
# Line 266  Will not make a connexion if `url-gatewa Line 268  Will not make a connexion if `url-gatewa
268  (provide 'url-gw)  (provide 'url-gw)
269    
270  ;;; arch-tag: 1c4c0317-6d03-45b8-b3f3-838bd8f9d838  ;;; arch-tag: 1c4c0317-6d03-45b8-b3f3-838bd8f9d838
271    ;;; url-gw.el ends here

Legend:
Removed from v.1.3.4.1  
changed lines
  Added in v.1.3.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26