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

Diff of /erbot/erbc.el

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

revision 1.75 by pkazmier, Sat Jan 8 00:03:04 2005 UTC revision 1.76 by pkazmier, Sat Jan 8 04:08:55 2005 UTC
# Line 4120  See: http://www.w3.org/Security/faq/wwws Line 4120  See: http://www.w3.org/Security/faq/wwws
4120    
4121  (defalias 'fsi-shell-test 'erbnoc-shell-test)  (defalias 'fsi-shell-test 'erbnoc-shell-test)
4122    
 ;;; 2003-02-17 T18:55:09-0500 (Monday)    D. Goel  
4123  (defun fsi-wserver (&optional site &rest args)  (defun fsi-wserver (&optional site &rest args)
4124    (unless site (error (format "Syntax: %s wserver SITE" erbnoc-char)))    (unless site (error (format "Syntax: %s wserver SITE" erbnoc-char)))
4125    (setq site (format "%s" site))    (setq site (format "%s" site))
4126    (if (fs-shell-test site nil)    (let ((buffer (url-retrieve-synchronously site)))
4127        (error "No attacks please. "))      (save-excursion
4128    (erbnoc-shell-command-to-string        (set-buffer buffer)
4129     (format "w3m -dump_head %s" site)))        (goto-char (point-min))
4130          (prog1
4131              (buffer-substring (point-min)
4132                                (or (search-forward "\n\n" nil t)
4133                                    (point-max)))
4134            (kill-buffer buffer)))))
4135    
4136  (defalias 'fs-webserver 'fs-wserver)  (defalias 'fs-webserver 'fs-wserver)
4137    
 ;;; 2003-02-17 T18:55:09-0500 (Monday)    D. Goel  
4138  (defun fsi-web (&optional site &rest args)  (defun fsi-web (&optional site &rest args)
4139    "displays a website"    (unless site (error (format "Syntax: %s web SITE" erbnoc-char)))
   (unless site (error (format "Syntax: %s wserver SITE" erbnoc-char)))  
4140    (setq site (format "%s" site))    (setq site (format "%s" site))
4141    (if (fs-shell-test site nil)    (let ((buffer (url-retrieve-synchronously site)))
4142        (error "No attacks please. "))      (save-excursion
4143    (erbnoc-shell-command-to-string        (set-buffer buffer)
4144     (format "w3m -dump %s" site)))        (goto-char (point-min))
4145          (shell-command-on-region (or (search-forward "\n\n" nil t)
4146                                       (point-min))
4147                                   (point-max)
4148                                   "w3m -dump -T text/html" t t)
4149          (prog1
4150              (buffer-substring (point) (mark))
4151            (kill-buffer buffer)))))
4152    
4153  ;;;###autoload  ;;;###autoload
4154  (defun fsi-length-load-history ()  (defun fsi-length-load-history ()

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

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