defmodule Mobilizon.Service.WebFinger do @moduledoc """ # WebFinger Performs the WebFinger requests and responses (json only) """ alias Mobilizon.Actors alias Mobilizon.Service.XmlBuilder require Jason require Logger def host_meta do base_url = MobilizonWeb.Endpoint.url() { :XRD, %{xmlns: "http://docs.oasis-open.org/ns/xri/xrd-1.0"}, { :Link, %{ rel: "lrdd", type: "application/xrd+xml", template: "#{base_url}/.well-known/webfinger?resource={uri}" } } } |> XmlBuilder.to_doc() end def webfinger(resource, "JSON") do host = MobilizonWeb.Endpoint.host() regex = ~r/(acct:)?(?\w+)@#{host}/ with %{"name" => name} <- Regex.named_captures(regex, resource) do user = Actors.get_local_actor_by_name(name) {:ok, represent_user(user, "JSON")} else _e -> with user when not is_nil(user) <- Actors.get_actor_by_url!(resource) do {:ok, represent_user(user, "JSON")} else _e -> {:error, "Couldn't find user"} end end end def represent_user(user, "JSON") do %{ "subject" => "acct:#{user.preferred_username}@#{MobilizonWeb.Endpoint.host()}", "aliases" => [user.url], "links" => [ %{"rel" => "self", "type" => "application/activity+json", "href" => user.url}, %{ "rel" => "https://webfinger.net/rel/profile-page/", "type" => "text/html", "href" => user.url } ] } end defp webfinger_from_json(doc) do data = Enum.reduce(doc["links"], %{"subject" => doc["subject"]}, fn link, data -> case {link["type"], link["rel"]} do {"application/activity+json", "self"} -> Map.put(data, "url", link["href"]) _ -> Logger.debug(fn -> "Unhandled type: #{inspect(link["type"])}" end) data end end) {:ok, data} end def finger(actor) do actor = String.trim_leading(actor, "@") domain = with [_name, domain] <- String.split(actor, "@") do domain else _e -> URI.parse(actor).host end address = "http://#{domain}/.well-known/webfinger?resource=acct:#{actor}" Logger.debug(inspect(address)) with false <- is_nil(domain), {:ok, %HTTPoison.Response{} = response} <- HTTPoison.get( address, [Accept: "application/json, application/activity+json, application/jrd+json"], follow_redirect: true ), %{status_code: status_code, body: body} when status_code in 200..299 <- response, {:ok, doc} <- Jason.decode(body) do webfinger_from_json(doc) else e -> Logger.debug(fn -> "Couldn't finger #{actor}" end) Logger.debug(fn -> inspect(e) end) {:error, e} end end end