bettio/morse_encoder.ex

## morse_encoder.ex
  def handle_req('GET', [], conn) do
    body = """
      <html>
        <body>
          <h1>Morse Encoder</h1>
          <form method=\"post\">
            <p>Text: <input type=\"text\" name=\"text\"></p>
            <p>GPIO: <input type=\"text\" name=\"gpio\"></p>
            <input type=\"submit\" value=\"Submit\">
          </form>
        </body>
      </html>
    """

    :http_server.reply(200, body, conn)
  end

  def handle_req('POST', [], conn) do
    params_body = :proplists.get_value(:body_chunk, conn)
    params = :http_server.parse_query_string(params_body)

    gpio_string = :proplists.get_value('gpio', params)
    gpio_num = safe_list_to_integer(gpio_string)

    text = :proplists.get_value('text', params, 'off')
    morse_text = Encoder.morse_encode(text)

    spawn(fn -> blink_led(morse_text) end)

    body = [
      """
        <html>
          <body>
          <h1>Text Encoded</h1>
          <p>
      """,
      morse_text,
      """
          </p>
        </body>
      </html>
      """
    ]

    :http_server.reply(200, body, conn)
  end

  defp safe_list_to_integer(l) do
    try do
      :erlang.list_to_integer(l)
    catch
      _, _ -> nil
    end
  end

  defp blink_led(_morse_text) do
  end
	def handle_req('GET', [], conn) do
	body = """
	<html>
	<body>
	<h1>Morse Encoder</h1>
	<form method=\"post\">
	<p>Text: <input type=\"text\" name=\"text\"></p>
	<p>GPIO: <input type=\"text\" name=\"gpio\"></p>
	<input type=\"submit\" value=\"Submit\">
	</form>
	</body>
	</html>
	"""

	:http_server.reply(200, body, conn)
	end

	def handle_req('POST', [], conn) do
	params_body = :proplists.get_value(:body_chunk, conn)
	params = :http_server.parse_query_string(params_body)

	gpio_string = :proplists.get_value('gpio', params)
	gpio_num = safe_list_to_integer(gpio_string)

	text = :proplists.get_value('text', params, 'off')
	morse_text = Encoder.morse_encode(text)

	spawn(fn -> blink_led(morse_text) end)

	body = [
	"""
	<html>
	<body>
	<h1>Text Encoded</h1>
	<p>
	""",
	morse_text,
	"""
	</p>
	</body>
	</html>
	"""
	]

	:http_server.reply(200, body, conn)
	end

	defp safe_list_to_integer(l) do
	try do
	:erlang.list_to_integer(l)
	catch
	_, _ -> nil
	end
	end

	defp blink_led(_morse_text) do
	end