git.squeep.com Git - akkoma/blob - lib/pleroma/web/web_finger/web_finger.ex

   1 defmodule Pleroma.Web.WebFinger do
   2   alias Pleroma.XmlBuilder
   3   alias Pleroma.{Repo, User}
   4   alias Pleroma.Web.{XML, Salmon, OStatus}
   5   require Logger
   6
   7   def host_meta() do
   8     base_url  = Pleroma.Web.base_url
   9     {
  10       :XRD, %{ xmlns: "http://docs.oasis-open.org/ns/xri/xrd-1.0" },
  11       {
  12         :Link, %{ rel: "lrdd", type: "application/xrd+xml", template: "#{base_url}/.well-known/webfinger?resource={uri}"  }
  13       }
  14     }
  15     |> XmlBuilder.to_doc
  16   end
  17
  18   def webfinger(resource) do
  19     host = Pleroma.Web.Endpoint.host
  20     regex = ~r/(acct:)?(?<username>\w+)@#{host}/
  21     with %{"username" => username} <- Regex.named_captures(regex, resource) do
  22       user = User.get_by_nickname(username)
  23       {:ok, represent_user(user)}
  24     else _e ->
  25       with user when not is_nil(user) <- User.get_cached_by_ap_id(resource) do
  26         {:ok, represent_user(user)}
  27       else _e ->
  28         {:error, "Couldn't find user"}
  29       end
  30     end
  31   end
  32
  33   def represent_user(user) do
  34     {:ok, user} = ensure_keys_present(user)
  35     {:ok, _private, public} = Salmon.keys_from_pem(user.info["keys"])
  36     magic_key = Salmon.encode_key(public)
  37     {
  38       :XRD, %{xmlns: "http://docs.oasis-open.org/ns/xri/xrd-1.0"},
  39       [
  40         {:Subject, "acct:#{user.nickname}@#{Pleroma.Web.Endpoint.host}"},
  41         {:Alias, user.ap_id},
  42         {:Link, %{rel: "http://schemas.google.com/g/2010#updates-from", type: "application/atom+xml", href: OStatus.feed_path(user)}},
  43         {:Link, %{rel: "http://webfinger.net/rel/profile-page", type: "text/html", href: user.ap_id}},
  44         {:Link, %{rel: "salmon", href: OStatus.salmon_path(user)}},
  45         {:Link, %{rel: "magic-public-key", href: "data:application/magic-public-key,#{magic_key}"}}
  46       ]
  47     }
  48     |> XmlBuilder.to_doc
  49   end
  50
  51   # This seems a better fit in Salmon
  52   def ensure_keys_present(user) do
  53     info = user.info || %{}
  54     if info["keys"] do
  55       {:ok, user}
  56     else
  57       {:ok, pem} = Salmon.generate_rsa_pem
  58       info = Map.put(info, "keys", pem)
  59       Repo.update(Ecto.Changeset.change(user, info: info))
  60     end
  61   end
  62
  63   # FIXME: Make this call the host-meta to find the actual address.
  64   defp webfinger_address(domain) do
  65     "//#{domain}/.well-known/webfinger"
  66   end
  67
  68   defp webfinger_from_xml(doc) do
  69     magic_key = XML.string_from_xpath(~s{//Link[@rel="magic-public-key"]/@href}, doc)
  70     "data:application/magic-public-key," <> magic_key = magic_key
  71     topic = XML.string_from_xpath(~s{//Link[@rel="http://schemas.google.com/g/2010#updates-from"]/@href}, doc)
  72     subject = XML.string_from_xpath("//Subject", doc)
  73     salmon = XML.string_from_xpath(~s{//Link[@rel="salmon"]/@href}, doc)
  74     data = %{
  75       "magic_key" => magic_key,
  76       "topic" => topic,
  77       "subject" => subject,
  78       "salmon" => salmon
  79     }
  80     {:ok, data}
  81   end
  82
  83   def finger(account, getter \\ &HTTPoison.get/3) do
  84     domain = with [_name, domain] <- String.split(account, "@") do
  85                domain
  86              else _e ->
  87                URI.parse(account).host
  88              end
  89     address = webfinger_address(domain)
  90
  91     # try https first
  92     response = with {:ok, result} <- getter.("https:" <> address, ["Accept": "application/xrd+xml"], [params: [resource: account]]) do
  93                  {:ok, result}
  94                else _ ->
  95                  getter.("http:" <> address, ["Accept": "application/xrd+xml"], [params: [resource: account], follow_redirect: true])
  96                end
  97
  98     with {:ok, %{status_code: status_code, body: body}} when status_code in 200..299 <- response,
  99          doc <- XML.parse_document(body),
 100          {:ok, data} <- webfinger_from_xml(doc) do
 101       {:ok, data}
 102     else
 103       e ->
 104         Logger.debug("Couldn't finger #{account}.")
 105         Logger.debug(inspect(e))
 106         {:error, e}
 107     end
 108   end
 109 end