Packages

piazza_core

0.1.4
0.3.8 0.3.7 0.3.6 0.3.5 0.3.4 0.3.3 0.3.2 0.3.1 0.3.0 0.2.9 0.2.8 0.2.7 0.2.6 0.2.5 0.2.4 0.2.3 0.2.2 0.2.1 0.2.0 0.1.9 0.1.8 0.1.7 0.1.6 0.1.5 0.1.4 0.1.3 0.1.2 0.1.1 0.1.0

Simple building blocks for building elixir web apps

HexDocs

Current section

Files

Jump to
Readme
29 Versions
4 Dependencies
Dependants
Files
Activity
piazza_core lib crypto license.ex
Raw

lib/crypto/license.ex 

defmodule Piazza.Crypto.License do

  use GenServer

  alias Piazza.Crypto.RSA



  defmodule State, do: defstruct [:license, :on_failure, :on_verify, :public_key]

  @interval 60 * 1000



  def start_link(license, public_key, on_failure, on_verify \\ fn _ -> :ok end)

        when is_function(on_failure) and is_function(on_verify) do

    GenServer.start_link(__MODULE__, [license, public_key, on_failure, on_verify], name: __MODULE__)

  end



  def init([license, public_key, on_failure, on_verify]) do

    :timer.send_interval(@interval, :verify)

    send self(), :verify

    {:ok, %State{license: license, public_key: public_key, on_failure: on_failure, on_verify: on_verify}}

  end



  def handle_info(

    :verify,

    %State{license: license, on_failure: on_failure, on_verify: on_verify, public_key: pub} = state

  ) do

    case RSA.decrypt(license, pub) do

      {:ok, _} = res ->

        on_verify.(res)

        {:noreply, state}

      error ->

        on_failure.(error)

        {:noreply, state}

    end

  end

end