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 () |