Initial commit

Author: queer

.formatter.exs

@@ -0,0 +1,4 @@
+[
+  import_deps: [:phoenix],
+  inputs: ["*.{ex,exs}", "{config,lib,test}/**/*.{ex,exs}"]
+]

.gitignore

@@ -0,0 +1,28 @@
+# The directory Mix will write compiled artifacts to.
+/_build/
+
+# If you run "mix test --cover", coverage assets end up here.
+/cover/
+
+# The directory Mix downloads your dependencies sources to.
+/deps/
+
+# Where 3rd-party dependencies like ExDoc output generated docs.
+/doc/
+
+# Ignore .fetch files in case you like to edit your project deps locally.
+/.fetch
+
+# If the VM crashes, it generates a dump, let's ignore it too.
+erl_crash.dump
+
+# Also ignore archive artifacts (built via "mix archive.build").
+*.ez
+
+# Ignore package tarball (built via "mix hex.build").
+agma-*.tar
+
+# Since we are building assets from assets/,
+# we ignore priv/static. You may want to comment
+# this depending on your deployment strategy.
+/priv/static/

README.md

@@ -0,0 +1,3 @@
+# 악마
+
+A host stats daemon.

config/config.exs

@@ -0,0 +1,28 @@
+# This file is responsible for configuring your application
+# and its dependencies with the aid of the Mix.Config module.
+#
+# This configuration file is loaded before any dependency and
+# is restricted to this project.
+
+# General application configuration
+use Mix.Config
+
+# Configures the endpoint
+config :agma, AgmaWeb.Endpoint,
+  url: [host: "localhost"],
+  secret_key_base: "o46Y9nQPeuH+6pTrVWxbIcVIPHp7DlbVJziMjOg662aw7xEMsDuqh04UtmHjaVyd",
+  render_errors: [view: AgmaWeb.ErrorView, accepts: ~w(json), layout: false],
+  pubsub_server: Agma.PubSub,
+  live_view: [signing_salt: "TLbs89UN"]
+
+# Configures Elixir's Logger
+config :logger, :console,
+  format: "$time $metadata[$level] $message\n",
+  metadata: [:request_id]
+
+# Use Jason for JSON parsing in Phoenix
+config :phoenix, :json_library, Jason
+
+# Import environment specific config. This must remain at the bottom
+# of this file so it overrides the configuration defined above.
+import_config "#{Mix.env()}.exs"

config/dev.exs

@@ -0,0 +1,16 @@
+use Mix.Config
+
+config :agma, AgmaWeb.Endpoint,
+  http: [port: 4040],
+  debug_errors: true,
+  code_reloader: true,
+  check_origin: false,
+  watchers: []
+
+config :logger, :console,
+  format: "$time $metadata[$level] $message\n",
+  metadata: [:request_id]
+
+  config :phoenix, :stacktrace_depth, 20
+
+config :phoenix, :plug_init_mode, :runtime

config/prod.exs

@@ -0,0 +1,55 @@
+use Mix.Config
+
+# For production, don't forget to configure the url host
+# to something meaningful, Phoenix uses this information
+# when generating URLs.
+#
+# Note we also include the path to a cache manifest
+# containing the digested version of static files. This
+# manifest is generated by the `mix phx.digest` task,
+# which you should run after static files are built and
+# before starting your production server.
+config :agma, AgmaWeb.Endpoint,
+  url: [host: "example.com", port: 80],
+  cache_static_manifest: "priv/static/cache_manifest.json"
+
+# Do not print debug messages in production
+config :logger, level: :info
+
+# ## SSL Support
+#
+# To get SSL working, you will need to add the `https` key
+# to the previous section and set your `:url` port to 443:
+#
+#     config :agma, AgmaWeb.Endpoint,
+#       ...
+#       url: [host: "example.com", port: 443],
+#       https: [
+#         port: 443,
+#         cipher_suite: :strong,
+#         keyfile: System.get_env("SOME_APP_SSL_KEY_PATH"),
+#         certfile: System.get_env("SOME_APP_SSL_CERT_PATH"),
+#         transport_options: [socket_opts: [:inet6]]
+#       ]
+#
+# The `cipher_suite` is set to `:strong` to support only the
+# latest and more secure SSL ciphers. This means old browsers
+# and clients may not be supported. You can set it to
+# `:compatible` for wider support.
+#
+# `:keyfile` and `:certfile` expect an absolute path to the key
+# and cert in disk or a relative path inside priv, for example
+# "priv/ssl/server.key". For all supported SSL configuration
+# options, see https://hexdocs.pm/plug/Plug.SSL.html#configure/1
+#
+# We also recommend setting `force_ssl` in your endpoint, ensuring
+# no data is ever sent via http, always redirecting to https:
+#
+#     config :agma, AgmaWeb.Endpoint,
+#       force_ssl: [hsts: true]
+#
+# Check `Plug.SSL` for all available options in `force_ssl`.
+
+# Finally import the config/prod.secret.exs which loads secrets
+# and configuration from environment variables.
+import_config "prod.secret.exs"

config/prod.secret.exs

@@ -0,0 +1,29 @@
+# In this file, we load production configuration and secrets
+# from environment variables. You can also hardcode secrets,
+# although such is generally not recommended and you have to
+# remember to add this file to your .gitignore.
+use Mix.Config
+
+secret_key_base =
+  System.get_env("SECRET_KEY_BASE") ||
+    raise """
+    environment variable SECRET_KEY_BASE is missing.
+    You can generate one by calling: mix phx.gen.secret
+    """
+
+config :agma, AgmaWeb.Endpoint,
+  http: [
+    port: String.to_integer(System.get_env("PORT") || "4000"),
+    transport_options: [socket_opts: [:inet6]]
+  ],
+  secret_key_base: secret_key_base
+
+# ## Using releases (Elixir v1.9+)
+#
+# If you are doing OTP releases, you need to instruct Phoenix
+# to start each relevant endpoint:
+#
+#     config :agma, AgmaWeb.Endpoint, server: true
+#
+# Then you can assemble a release by calling `mix release`.
+# See `mix help release` for more information.

config/test.exs

@@ -0,0 +1,10 @@
+use Mix.Config
+
+# We don't run a server during test. If one is required,
+# you can enable the server option below.
+config :agma, AgmaWeb.Endpoint,
+  http: [port: 4002],
+  server: false
+
+# Print only warnings and errors during test
+config :logger, level: :warn

lib/agma.ex

@@ -0,0 +1,9 @@
+defmodule Agma do
+  @moduledoc """
+  Agma keeps the contexts that define your domain
+  and business logic.
+
+  Contexts are also responsible for managing your data, regardless
+  if it comes from the database, an external API or others.
+  """
+end

lib/agma/application.ex

@@ -0,0 +1,25 @@
+defmodule Agma.Application do
+  @moduledoc false
+
+  use Application
+
+  def start(_type, _args) do
+    children = [
+      AgmaWeb.Telemetry,
+      {Phoenix.PubSub, name: Agma.PubSub},
+      AgmaWeb.Endpoint,
+      {Singyeong.Client, Singyeong.parse_dsn("singyeong://agma:password@localhost:4567")},
+      Singyeong.Producer,
+      Agma.Consumer,
+      Agma.Stats,
+    ]
+
+    opts = [strategy: :one_for_one, name: Agma.Supervisor]
+    Supervisor.start_link(children, opts)
+  end
+
+  def config_change(changed, _new, removed) do
+    AgmaWeb.Endpoint.config_change(changed, removed)
+    :ok
+  end
+end

lib/agma/consumer.ex

@@ -0,0 +1,12 @@
+defmodule Agma.Consumer do
+  use Singyeong.Consumer
+
+  def start_link do
+    Consumer.start_link __MODULE__
+  end
+
+  def handle_event(event) do
+    IO.inspect event, pretty: true
+    :ok
+  end
+end

lib/agma/stats.ex

@@ -0,0 +1,47 @@
+defmodule Agma.Stats do
+  use GenServer
+
+  def start_link(opts) do
+    GenServer.start_link __MODULE__, opts, name: __MODULE__
+  end
+
+  def init(opts) do
+    tick()
+    {:ok, opts}
+  end
+
+  def handle_info(:tick, state) do
+    cpus = :erlang.system_info :logical_processors
+    cpu_util = :cpu_sup.util()
+
+    %{
+      total_memory: mem_total,
+      free_memory: mem_free,
+    } = Map.new :memsup.get_system_memory_data()
+
+    Singyeong.Client.update_metadata %{
+      cpu_count: %{
+        type: "integer",
+        value: cpus,
+      },
+      cpu_util: %{
+        type: "float",
+        value: cpu_util,
+      },
+      mem_total: %{
+        type: "integer",
+        value: mem_total,
+      },
+      mem_free: %{
+        type: "integer",
+        value: mem_free,
+      },
+    }
+    tick()
+    {:noreply, state}
+  end
+
+  defp tick() do
+    Process.send_after self(), :tick, 100
+  end
+end

lib/agma_web.ex

@@ -0,0 +1,75 @@
+defmodule AgmaWeb do
+  @moduledoc """
+  The entrypoint for defining your web interface, such
+  as controllers, views, channels and so on.
+
+  This can be used in your application as:
+
+      use AgmaWeb, :controller
+      use AgmaWeb, :view
+
+  The definitions below will be executed for every view,
+  controller, etc, so keep them short and clean, focused
+  on imports, uses and aliases.
+
+  Do NOT define functions inside the quoted expressions
+  below. Instead, define any helper function in modules
+  and import those modules here.
+  """
+
+  def controller do
+    quote do
+      use Phoenix.Controller, namespace: AgmaWeb
+
+      import Plug.Conn
+      alias AgmaWeb.Router.Helpers, as: Routes
+    end
+  end
+
+  def view do
+    quote do
+      use Phoenix.View,
+        root: "lib/agma_web/templates",
+        namespace: AgmaWeb
+
+      # Import convenience functions from controllers
+      import Phoenix.Controller,
+        only: [get_flash: 1, get_flash: 2, view_module: 1, view_template: 1]
+
+      # Include shared imports and aliases for views
+      unquote(view_helpers())
+    end
+  end
+
+  def router do
+    quote do
+      use Phoenix.Router
+
+      import Plug.Conn
+      import Phoenix.Controller
+    end
+  end
+
+  def channel do
+    quote do
+      use Phoenix.Channel
+    end
+  end
+
+  defp view_helpers do
+    quote do
+      # Import basic rendering functionality (render, render_layout, etc)
+      import Phoenix.View
+
+      import AgmaWeb.ErrorHelpers
+      alias AgmaWeb.Router.Helpers, as: Routes
+    end
+  end
+
+  @doc """
+  When used, dispatch to the appropriate controller/view/etc.
+  """
+  defmacro __using__(which) when is_atom(which) do
+    apply(__MODULE__, which, [])
+  end
+end

lib/agma_web/channels/user_socket.ex

@@ -0,0 +1,35 @@
+defmodule AgmaWeb.UserSocket do
+  use Phoenix.Socket
+
+  ## Channels
+  # channel "room:*", AgmaWeb.RoomChannel
+
+  # Socket params are passed from the client and can
+  # be used to verify and authenticate a user. After
+  # verification, you can put default assigns into
+  # the socket that will be set for all channels, ie
+  #
+  #     {:ok, assign(socket, :user_id, verified_user_id)}
+  #
+  # To deny connection, return `:error`.
+  #
+  # See `Phoenix.Token` documentation for examples in
+  # performing token verification on connect.
+  @impl true
+  def connect(_params, socket, _connect_info) do
+    {:ok, socket}
+  end
+
+  # Socket id's are topics that allow you to identify all sockets for a given user:
+  #
+  #     def id(socket), do: "user_socket:#{socket.assigns.user_id}"
+  #
+  # Would allow you to broadcast a "disconnect" event and terminate
+  # all active sockets and channels for a given user:
+  #
+  #     AgmaWeb.Endpoint.broadcast("user_socket:#{user.id}", "disconnect", %{})
+  #
+  # Returning `nil` makes this socket anonymous.
+  @impl true
+  def id(_socket), do: nil
+end