local module = {}

function module.start()
  -- Turn off YL-69
  gpio.mode(config.YL69Power, gpio.OUTPUT)
  gpio.write(config.YL69Power, gpio.LOW)
  -- Start a simple http server
  print("Web Server Started")
  local srv = net.createServer(net.TCP)
  srv:listen(80, function(conn)
    conn:on("receive", function(conn, payload)
    led.flashRed()
    print(payload)
    gpio.write(config.YL69Power, gpio.HIGH)
    tmr.alarm(2, 90, tmr.ALARM_SINGLE, function()
      local moist_value = adc.readvdd33(config.YL69)
      moist_value = moist_value + adc.readvdd33(config.YL69)
      moist_value = moist_value + adc.readvdd33(config.YL69)
      moist_value = math.floor( moist_value/3 )
      
      gpio.write(config.YL69Power, gpio.LOW)
      local temp = -999
      local humi = -999
      local baro = -999
      local dew = -999
      local gdstring = ""

      if string.find(config.Model, "BME") then
        status, temp, humi, baro, dew = bme.read()
      else
        status, temp, humi, temp_dec, humi_dec = dht.read(config.DHT22)
      end

      --      print("Heap Available:" .. node.heap())
      if string.find(config.Model, "GD") then
        local green, red = gd.getDoorStatus()
        gdstring = ", \"Green\": \""..green.."\", \"Red\": \""..red.."\""
      end
      --      print("Heap Available:" .. node.heap())
      --      print("33")
      local majorVer, minorVer, devVer, chipid, flashid, flashsize, flashmode, flashspeed = node.info()
      --      print("35")
      print("Status: "..status.."\nTemp: "..temp.."\nHumi: "..humi.."\nMoisture: "..moist_value..
      "\nBaro: "..baro.."\nDew: "..dew.."\n")
      local response = { "HTTP/1.1 200 OK\n", "Server: ESP (nodeMCU) "..chipid.."\n",
        "Content-Type: application/json\n",
        "Access-Control-Allow-Origin: *\n\n",
        "{ \"Hostname\": \""..config.ID.."\", \"Model\": \""..config.Model.."\", \"Version\": \""..config.Version..
        "\", \"Data\": {\"Temperature\": "..temp..", \"Humidity\": "..humi..", \"Battery mV\": "..moist_value..", \"Status\": "..status.." }}\n" }
        local function sender (conn)
          if #response > 0 then conn:send(table.remove(response, 1))
          else conn:close()
          end
        end
        conn:on("sent", sender)
        sender(conn)
      end)
    end)
    conn:on("sent", function(conn) conn:close() end)
end)

end


return module