BBS: Some more functionality.
authorlain <lain@soykaf.club>
Sun, 31 Mar 2019 16:01:16 +0000 (18:01 +0200)
committerlain <lain@soykaf.club>
Sun, 31 Mar 2019 16:01:16 +0000 (18:01 +0200)
lib/pleroma/bbs/authenticator.ex [new file with mode: 0644]
lib/pleroma/bbs/bbs.ex [deleted file]
lib/pleroma/bbs/handler.ex [new file with mode: 0644]
mix.exs
mix.lock

diff --git a/lib/pleroma/bbs/authenticator.ex b/lib/pleroma/bbs/authenticator.ex
new file mode 100644 (file)
index 0000000..a2c1537
--- /dev/null
@@ -0,0 +1,16 @@
+defmodule Pleroma.BBS.Authenticator do
+  use Sshd.PasswordAuthenticator
+  alias Comeonin.Pbkdf2
+  alias Pleroma.User
+
+  def authenticate(username, password) do
+    username = to_string(username)
+    password = to_string(password)
+
+    with %User{} = user <- User.get_by_nickname(username) do
+      Pbkdf2.checkpw(password, user.password_hash)
+    else
+      _e -> false
+    end
+  end
+end
diff --git a/lib/pleroma/bbs/bbs.ex b/lib/pleroma/bbs/bbs.ex
deleted file mode 100644 (file)
index 486ab91..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-defmodule Pleroma.BBS do
-  def start_daemon do
-    :ok = :ssh.start()
-
-    options = [
-      system_dir: 'ssh_keys',
-      auth_method_kb_interactive_data: fn (_, user, _) -> {
-        'Welcome to Pleroma BBS',
-        'Hello #{user}',
-        'Password: ',
-        false }
-      end,
-      auth_methods: 'keyboard-interactive,password',
-      pwdfun: fn(user, password) -> true end,
-      shell: &start_prompt/1
-    ]
-    :ssh.daemon(13121, options)
-  end
-
-  def start_prompt(user) do
-    spawn(__MODULE__, :prompt, [user])
-  end
-
-  def prompt(user) do
-    IO.puts("Hey #{user}.\n")
-    IO.puts("Here's your timeline:\n")
-
-    user = Pleroma.User.get_cached_by_nickname(to_string(user))
-    Pleroma.Web.TwitterAPI.TwitterAPI.fetch_friend_statuses(user)
-    |> Enum.each(fn (status) ->
-      IO.puts("#{status["user"]["name"]} (#{status["user"]["screen_name"]}): #{status["text"]}")
-    end)
-  end
-end
diff --git a/lib/pleroma/bbs/handler.ex b/lib/pleroma/bbs/handler.ex
new file mode 100644 (file)
index 0000000..010929e
--- /dev/null
@@ -0,0 +1,130 @@
+defmodule Pleroma.BBS.Handler do
+  @moduledoc """
+  An example implementation of `Sshd.ShellHandler`, implementing a very simple
+  Read-Eval-Loop, that does nothing.
+  """
+  use Sshd.ShellHandler
+  alias Pleroma.Web.CommonAPI
+  alias Pleroma.Web.ActivityPub.ActivityPub
+
+  def on_shell(username, _pubkey, _ip, _port) do
+    :ok = IO.puts "Welcome to #{Pleroma.Config.get([:instance, :name])}!"
+    user = Pleroma.User.get_by_nickname(to_string(username))
+    Logger.debug("#{inspect user}")
+    loop(run_state([user: user]))
+  end
+
+  def on_connect(username, ip, port, method) do
+    Logger.debug fn ->
+      """
+      Incoming SSH shell #{inspect self()} requested for #{username} from #{inspect ip}:#{inspect port} using #{inspect method}
+      """
+    end
+  end
+
+  def on_disconnect(username, ip, port) do
+    Logger.debug fn ->
+      "Disconnecting SSH shell for #{username} from #{inspect ip}:#{inspect port}"
+    end
+  end
+
+  defp loop(state) do
+    self_pid = self()
+    counter  = state.counter
+    prefix   = state.prefix
+    user     = state.user
+
+    input = spawn(fn -> io_get(self_pid, prefix, counter, user.nickname) end)
+    wait_input state, input
+  end
+
+  def puts_activity(activity) do
+    status = Pleroma.Web.MastodonAPI.StatusView.render("status.json", %{activity: activity})
+    IO.puts("#{status.id} by #{status.account.display_name} (#{status.account.acct}):")
+    IO.puts(HtmlSanitizeEx.strip_tags(status.content))
+    IO.puts("")
+  end
+
+  def handle_command(state, "help") do
+    IO.puts("Available commands:")
+    IO.puts("help - This help")
+    IO.puts("home - Show the home timeline")
+    IO.puts("p <text> - Post the given text")
+    IO.puts("quit - Quit")
+
+    state
+  end
+
+  def handle_command(%{user: user} = state, "p " <> text) do
+    text = String.trim(text)
+
+    with {:ok, _activity} <- CommonAPI.post(user, %{"status" => text}) do
+      IO.puts("Posted!")
+    else
+      _e -> IO.puts("Could not post...")
+    end
+    state
+  end
+
+  def handle_command(state, "home") do
+    user = state.user
+    params =
+      %{}
+      |> Map.put("type", ["Create", "Announce"])
+      |> Map.put("blocking_user", user)
+      |> Map.put("muting_user", user)
+      |> Map.put("user", user)
+
+    activities =
+      [user.ap_id | user.following]
+      |> ActivityPub.fetch_activities(params)
+      |> ActivityPub.contain_timeline(user)
+      |> Enum.reverse()
+
+    Enum.each(activities, fn (activity) ->
+      puts_activity(activity)
+    end)
+
+    state
+  end
+
+  def handle_command(_state, command) do
+    IO.puts("Unknown command '#{command}'")
+  end
+
+  defp wait_input(state, input) do
+    receive do
+      {:input, ^input, "quit\n"} ->
+        IO.puts "Exiting..."
+
+      {:input, ^input, code} when is_binary(code) ->
+        code = String.trim(code)
+
+        handle_command(state, code)
+
+        loop(%{state | counter: state.counter + 1})
+
+      {:error, :interrupted} ->
+        IO.puts "Caught Ctrl+C..."
+        loop(%{state | counter: state.counter + 1})
+
+      {:input, ^input, msg} ->
+        :ok = Logger.warn "received unknown message: #{inspect msg}"
+        loop(%{state | counter: state.counter + 1})
+    end
+  end
+
+  defp run_state(opts) do
+    %{prefix: "pleroma", counter: 1, user: opts[:user]}
+  end
+
+  defp io_get(pid, prefix, counter, username) do
+    prompt = prompt(prefix, counter, username)
+    send pid, {:input, self(), IO.gets(:stdio, prompt)}
+  end
+
+  defp prompt(prefix, counter, username) do
+    prompt = "#{username}@#{prefix}:#{counter}>"
+    prompt <> " "
+  end
+end
diff --git a/mix.exs b/mix.exs
index 333f21a914d71e24c5c30687aeb258e1324323ab..58b0db9a1eed44e03633fbc18be8b5b5e5cc54ab 100644 (file)
--- a/mix.exs
+++ b/mix.exs
@@ -41,7 +41,7 @@ defmodule Pleroma.Mixfile do
   def application do
     [
       mod: {Pleroma.Application, []},
-      extra_applications: [:logger, :runtime_tools, :comeonin],
+      extra_applications: [:logger, :runtime_tools, :comeonin, :esshd],
       included_applications: [:ex_syslogger]
     ]
   end
@@ -94,7 +94,8 @@ defmodule Pleroma.Mixfile do
       {:auto_linker,
        git: "https://git.pleroma.social/pleroma/auto_linker.git",
        ref: "94193ca5f97c1f9fdf3d1469653e2d46fac34bcd"},
-      {:pleroma_job_queue, "~> 0.2.0"}
+      {:pleroma_job_queue, "~> 0.2.0"},
+      {:esshd, "~> 0.1.0"}
     ]
   end
 
index f401258e9de7bd253b154e76e1fd6d25115ec5c6..a8b06b43396d023bedc5b7d4a96bfb05c2c3f9e5 100644 (file)
--- a/mix.lock
+++ b/mix.lock
@@ -18,6 +18,7 @@
   "earmark": {:hex, :earmark, "1.3.0", "17f0c38eaafb4800f746b457313af4b2442a8c2405b49c645768680f900be603", [:mix], [], "hexpm"},
   "ecto": {:hex, :ecto, "3.0.7", "44dda84ac6b17bbbdeb8ac5dfef08b7da253b37a453c34ab1a98de7f7e5fec7f", [:mix], [{:decimal, "~> 1.6", [hex: :decimal, repo: "hexpm", optional: false]}, {:jason, "~> 1.0", [hex: :jason, repo: "hexpm", optional: true]}, {:poison, "~> 2.2 or ~> 3.0", [hex: :poison, repo: "hexpm", optional: true]}], "hexpm"},
   "ecto_sql": {:hex, :ecto_sql, "3.0.5", "7e44172b4f7aca4469f38d7f6a3da394dbf43a1bcf0ca975e958cb957becd74e", [:mix], [{:db_connection, "~> 2.0", [hex: :db_connection, repo: "hexpm", optional: false]}, {:ecto, "~> 3.0.6", [hex: :ecto, repo: "hexpm", optional: false]}, {:mariaex, "~> 0.9.1", [hex: :mariaex, repo: "hexpm", optional: true]}, {:postgrex, "~> 0.14.0", [hex: :postgrex, repo: "hexpm", optional: true]}, {:telemetry, "~> 0.3.0", [hex: :telemetry, repo: "hexpm", optional: false]}], "hexpm"},
+  "esshd": {:hex, :esshd, "0.1.0", "6f93a2062adb43637edad0ea7357db2702a4b80dd9683482fe00f5134e97f4c1", [:mix], [], "hexpm"},
   "eternal": {:hex, :eternal, "1.2.0", "e2a6b6ce3b8c248f7dc31451aefca57e3bdf0e48d73ae5043229380a67614c41", [:mix], [], "hexpm"},
   "ex_aws": {:hex, :ex_aws, "2.1.0", "b92651527d6c09c479f9013caa9c7331f19cba38a650590d82ebf2c6c16a1d8a", [:mix], [{:configparser_ex, "~> 2.0", [hex: :configparser_ex, repo: "hexpm", optional: true]}, {:hackney, "1.6.3 or 1.6.5 or 1.7.1 or 1.8.6 or ~> 1.9", [hex: :hackney, repo: "hexpm", optional: true]}, {:jsx, "~> 2.8", [hex: :jsx, repo: "hexpm", optional: true]}, {:poison, ">= 1.2.0", [hex: :poison, repo: "hexpm", optional: true]}, {:sweet_xml, "~> 0.6", [hex: :sweet_xml, repo: "hexpm", optional: true]}, {:xml_builder, "~> 0.1.0", [hex: :xml_builder, repo: "hexpm", optional: true]}], "hexpm"},
   "ex_aws_s3": {:hex, :ex_aws_s3, "2.0.1", "9e09366e77f25d3d88c5393824e613344631be8db0d1839faca49686e99b6704", [:mix], [{:ex_aws, "~> 2.0", [hex: :ex_aws, repo: "hexpm", optional: false]}, {:sweet_xml, ">= 0.0.0", [hex: :sweet_xml, repo: "hexpm", optional: true]}], "hexpm"},