/[erbot]/erbot/erbc.el
ViewVC logotype

Diff of /erbot/erbc.el

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

revision 1.83 by pkazmier, Sun Jan 9 01:10:42 2005 UTC revision 1.84 by pkazmier, Sun Jan 23 05:14:33 2005 UTC
# Line 4159  See: http://www.w3.org/Security/faq/wwws Line 4159  See: http://www.w3.org/Security/faq/wwws
4159    
4160  (defalias 'fsi-shell-test 'erbn-shell-test)  (defalias 'fsi-shell-test 'erbn-shell-test)
4161    
4162    (defcustom fs-internal-web-page-time 10
4163      "" :group 'erbc)
4164    
4165  (defmacro erbn-with-web-page-buffer (site &rest body)  (defmacro erbn-with-web-page-buffer (site &rest body)
4166    (let ((buffer (make-symbol "web-buffer")))    (let ((buffer (make-symbol "web-buffer")))
4167      `(let ((,buffer (url-retrieve-synchronously ,site)))      `(with-timeout (fs-internal-web-page-time "HTTP time out")
4168         (when (null ,buffer)         (let ((,buffer (url-retrieve-synchronously ,site)))
4169           (error "Invalid URL %s" site))           (when (null ,buffer)
4170         (save-excursion             (error "Invalid URL %s" site))
4171           (set-buffer ,buffer)           (save-excursion
4172           (goto-char (point-min))             (set-buffer ,buffer)
4173           (prog1             (goto-char (point-min))
4174               (progn             (prog1
4175                 ,@body)                 (progn
4176             (kill-buffer ,buffer))))))                   ,@body)
4177                 (kill-buffer ,buffer)))))))
4178    
4179  (defun fsi-web-page-title (&optional site &rest args)  (defun fsi-web-page-title (&optional site &rest args)
4180    (unless site (error (format "Syntax: %s web-page-title SITE" erbn-char)))    (unless site (error (format "Syntax: %s web-page-title SITE" erbn-char)))

Legend:
Removed from v.1.83  
changed lines
  Added in v.1.84

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