func return web url content

func return web url content

[Alex]

Hi, I need a function that return an url content.

If GET request to https://gnu.cat/text/rxy.txt return "Hi"

a func like:

  (defun wget-req (url)
   (...))

(wget-req "https://gnu.cat/text/rxy.txt") => "Hi"

pls help

Re: func return web url content

[Tassilo Horn]

Alex <project@gnuhacker.org> writes:

Hi Alex,

> Hi, I need a function that return an url content.
>
> If GET request to https://gnu.cat/text/rxy.txt return "Hi"
>
> a func like:
>
>   (defun wget-req (url)
>    (...))
>
> (wget-req "https://gnu.cat/text/rxy.txt") => "Hi"

This would do:

(defun th/url-retrieve-contents (url)
  (with-current-buffer (url-retrieve-synchronously url)
    (goto-char (point-min))
    (when (re-search-forward "\n\n" nil t)
      (buffer-substring (point) (point-max)))))

(th/url-retrieve-contents "https://gnu.cat/text/rxy.txt")

Bye,
Tassilo

Re: func return web url content

[Jai Vetrivelan]

On 2022-05-11, 13:57 +0200, Alex <project@gnuhacker.org> wrote:

> Hi, I need a function that return an url content.
>
> If GET request to https://gnu.cat/text/rxy.txt return "Hi"
>
> a func like:
>
>   (defun wget-req (url)
>    (...))
>
> (wget-req "https://gnu.cat/text/rxy.txt") => "Hi"
>
> pls help

I tried:

#+BEGIN_SRC elisp
(let ((url-request-method "GET"))
  (url-retrieve "https://gnu.cat/text/rxy.txt"
                (lambda (output)
                  (when-let (err (plist-get output :error))
	                (error "Failed to query: %S" err))
                  (with-current-buffer (current-buffer)
                    (message (buffer-substring (1+ url-http-end-of-headers) (point-max)))))))
#+END_SRC

-- 
Jai Vetrivelan

Re: func return web url content

[GH]

Tassilo Horn <tsdh@gnu.org> writes:

> Hi Alex,

hi tassilo, thanks

> (defun th/url-retrieve-contents (url)
>   (with-current-buffer (url-retrieve-synchronously url)
>     (goto-char (point-min))
>     (when (re-search-forward "\n\n" nil t)
>       (buffer-substring (point) (point-max)))))
>
> (th/url-retrieve-contents "https://gnu.cat/text/rxy.txt")

works!