Page Menu
Home
Phorge
Search
Configure Global Search
Log In
Files
F7687230
http.ex
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Award Token
Flag For Later
Size
3 KB
Referenced Files
None
Subscribers
None
http.ex
View Options
# Pleroma: A lightweight social networking server
# Copyright © 2017-2022 Pleroma Authors <https://pleroma.social/>
# SPDX-License-Identifier: AGPL-3.0-only
defmodule
Pleroma.HTTP
do
@moduledoc
"""
Wrapper for `Tesla.request/2`.
"""
alias
Pleroma.HTTP.AdapterHelper
alias
Pleroma.HTTP.Request
alias
Pleroma.HTTP.RequestBuilder
,
as
:
Builder
alias
Tesla.Client
alias
Tesla.Env
require
Logger
@type
t
::
__MODULE__
@type
method
()
::
:get
|
:post
|
:put
|
:delete
|
:head
@doc
"""
Performs GET request.
See `Pleroma.HTTP.request/5`
"""
@spec
get
(
Request
.
url
()
|
nil
,
Request
.
headers
(),
keyword
())
::
nil
|
{
:ok
,
Env
.
t
()}
|
{
:error
,
any
()}
def
get
(
url
,
headers
\\
[],
options
\\
[])
def
get
(
nil
,
_
,
_
),
do
:
nil
def
get
(
url
,
headers
,
options
),
do
:
request
(
:get
,
url
,
""
,
headers
,
options
)
@spec
head
(
Request
.
url
(),
Request
.
headers
(),
keyword
())
::
{
:ok
,
Env
.
t
()}
|
{
:error
,
any
()}
def
head
(
url
,
headers
\\
[],
options
\\
[]),
do
:
request
(
:head
,
url
,
""
,
headers
,
options
)
@doc
"""
Performs POST request.
See `Pleroma.HTTP.request/5`
"""
@spec
post
(
Request
.
url
(),
String
.
t
(),
Request
.
headers
(),
keyword
())
::
{
:ok
,
Env
.
t
()}
|
{
:error
,
any
()}
def
post
(
url
,
body
,
headers
\\
[],
options
\\
[]),
do
:
request
(
:post
,
url
,
body
,
headers
,
options
)
@doc
"""
Builds and performs http request.
#
Arguments:
`method` - :get, :post, :put, :delete, :head
`url` - full url
`body` - request body
`headers` - a keyworld list of headers, e.g. `[{"content-type", "text/plain"}]`
`options` - custom, per-request middleware or adapter options
#
Returns:
`{:ok, %Tesla.Env{}}` or `{:error, error}`
"""
@spec
request
(
method
(),
Request
.
url
(),
String
.
t
(),
Request
.
headers
(),
keyword
())
::
{
:ok
,
Env
.
t
()}
|
{
:error
,
any
()}
def
request
(
method
,
url
,
body
,
headers
,
options
)
when
is_binary
(
url
)
do
uri
=
URI
.
parse
(
url
)
adapter_opts
=
AdapterHelper
.
options
(
uri
,
options
||
[])
options
=
put_in
(
options
[
:adapter
],
adapter_opts
)
params
=
options
[
:params
]
||
[]
request
=
build_request
(
method
,
headers
,
options
,
url
,
body
,
params
)
adapter
=
Application
.
get_env
(
:tesla
,
:adapter
)
client
=
Tesla
.
client
(
adapter_middlewares
(
adapter
),
adapter
)
maybe_limit
(
fn
->
request
(
client
,
request
)
end
,
adapter
,
adapter_opts
)
end
@spec
request
(
Client
.
t
(),
keyword
())
::
{
:ok
,
Env
.
t
()}
|
{
:error
,
any
()}
def
request
(
client
,
request
),
do
:
Tesla
.
request
(
client
,
request
)
defp
build_request
(
method
,
headers
,
options
,
url
,
body
,
params
)
do
Builder
.
new
()
|>
Builder
.
method
(
method
)
|>
Builder
.
headers
(
headers
)
|>
Builder
.
opts
(
options
)
|>
Builder
.
url
(
url
)
|>
Builder
.
add_param
(
:body
,
:body
,
body
)
|>
Builder
.
add_param
(
:query
,
:query
,
params
)
|>
Builder
.
convert_to_keyword
()
end
@prefix
Pleroma.Gun.ConnectionPool
defp
maybe_limit
(
fun
,
Tesla.Adapter.Gun
,
opts
)
do
ConcurrentLimiter
.
limit
(
:"
#{
@prefix
}
.
#{
opts
[
:pool
]
||
:default
}
"
,
fun
)
end
defp
maybe_limit
(
fun
,
_
,
_
)
do
fun
.
()
end
defp
adapter_middlewares
(
Tesla.Adapter.Gun
)
do
[
Tesla.Middleware.FollowRedirects
,
Pleroma.Tesla.Middleware.ConnectionPool
]
end
defp
adapter_middlewares
({
Tesla.Adapter.Finch
,
_
})
do
[
Tesla.Middleware.FollowRedirects
]
end
defp
adapter_middlewares
(
_
)
do
if
Pleroma.Config
.
get
(
:env
)
==
:test
do
# Emulate redirects in test env, which are handled by adapters in other environments
[
Tesla.Middleware.FollowRedirects
]
else
[]
end
end
end
File Metadata
Details
Attached
Mime Type
text/x-ruby
Expires
Wed, Sep 3, 7:43 PM (1 d, 10 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
439210
Default Alt Text
http.ex (3 KB)
Attached To
Mode
rPUBE pleroma-upstream
Attached
Detach File
Event Timeline
Log In to Comment