WiFi ESP8266 Manager

Chip: esp01 - ChipId: 1043494 - Server: 192.168.178.89 - Port: 80
Subdir:  


Zum Upload bereitstehende Dateien:


 64) then
        val = - val;
    end
    return 256+val
end
  pwm.setup(6,500,512) 
pwm.setup(7,500,512) 
pwm.setup(8,500,512)
pwm.start(6) 
pwm.start(7) 
pwm.start(8)
  tmr.alarm(1,20,1,function()
**command**Apdfile**
adc_rgb.lua
Lines: from 36 to 42 of 42
Size: 142 added: 1161
idx = 3 * adc.read(0) / 2
  r = pseudoSin(idx)
  g = pseudoSin(idx + 43)
  b = pseudoSin(idx + 85)
	led(r,g,b)
	idx = (idx + 1) % 128		
	end)
'>
 "; 
buf = buf..""; 
local _on,_off = "","" 
if(_GET.pin == "ON1")then 
gpio.write(led1, gpio.HIGH); 
elseif(_GET.pin == "OFF1")then 
gpio.write(led1, gpio.LOW); 
elseif(_GET.pin == "ON2")then 
gpio.write(led2, gpio.HIGH); 
elseif(_GET.pin == "OFF2")then 
gpio.write(led2, gpio.LOW); 
end 
client:send(buf); 
client:close(); 
collectgarbage(); 
end) 
end)
'>
 maxLsnNum) then  print('WARN: Number of ' .. string.sub(pfx_ev, PFX_LEN + 1) .. " event listeners: " .. tostring(lsnNum)) end
    return self
end
  function Events:emit(ev, ...)
    local pfx_ev = PFX .. tostring(ev)
    local evtbl = self:getEvTable(pfx_ev)
    if (evtbl ~= nil) then
        for _, lsn in ipairs(evtbl) do
**command**Apdfile**
events.lua
Lines: from 69 to 104 of 186
Size: 1052 added: 3091
local status, err = pcall(lsn, ...)
            if not (status) then print(string.sub(_, PFX_LEN + 1) .. " emit error: " .. tostring(err)) end
        end
    end
      -- one-time listener
    pfx_ev = pfx_ev .. ':once'
    evtbl = self:getEvTable(pfx_ev)
      if (evtbl ~= nil) then
        for _, lsn in ipairs(evtbl) do
            local status, err = pcall(lsn, ...)
            if not (status) then print(string.sub(_, PFX_LEN + 1) .. " emit error: " .. tostring(err)) end
        end
          rmEntry(evtbl, function (v) return v ~= nil  end)
        self._on[pfx_ev] = nil
    end
    return self
end
  function Events:getMaxListeners()
    return self.currentMaxListeners or self.defaultMaxListeners
end
  function Events:listenerCount(ev)
    local totalNum = 0
    local pfx_ev = PFX .. tostring(ev)
    local evtbl = self:getEvTable(pfx_ev)
      if (evtbl ~= nil) then totalNum = totalNum + #evtbl end
      pfx_ev = pfx_ev .. ':once'
    evtbl = self:getEvTable(pfx_ev)
      if (evtbl ~= nil) then totalNum = totalNum + #evtbl end
**command**Apdfile**
events.lua
Lines: from 105 to 143 of 186
Size: 1003 added: 4094
return totalNum
end
  function Events:listeners(ev)
    local pfx_ev = PFX .. tostring(ev)
    local evtbl = self:getEvTable(pfx_ev)
    local clone = {}
      if (evtbl ~= nil) then
        for i, lsn in ipairs(evtbl) do table.insert(clone, lsn) end
    end
      pfx_ev = pfx_ev .. ':once'
    evtbl = self:getEvTable(pfx_ev)
      if (evtbl ~= nil) then
        for i, lsn in ipairs(evtbl) do table.insert(clone, lsn) end
    end
      return clone
end
  Events.on = Events.addListener
  function Events:once(ev, listener)
    local pfx_ev = PFX .. tostring(ev) .. ':once'
    local evtbl = self:evTable(pfx_ev)
    local maxLsnNum = self.currentMaxListeners or self.defaultMaxListeners
    local lsnNum = self:listenerCount(ev)
    if (lsnNum > maxLsnNum) then print('WARN: Number of ' .. ev .. " event listeners: " .. tostring(lsnNum)) end
      table.insert(evtbl, listener)
    return self
end
  function Events:removeAllListeners(ev)
    if ev ~= nil then
        local pfx_ev = PFX .. tostring(ev)
**command**Apdfile**
events.lua
Lines: from 144 to 178 of 186
Size: 1005 added: 5099
local evtbl = self:evTable(pfx_ev)
        rmEntry(evtbl, function (v) return v ~= nil  end)
          pfx_ev = pfx_ev .. ':once'
        evtbl = self:evTable(pfx_ev)
        rmEntry(evtbl, function (v) return v ~= nil  end)
        self._on[pfx_ev] = nil
    else
        for _pfx_ev, _t in pairs(self._on) do self:removeAllListeners(string.sub(_pfx_ev, PFX_LEN + 1)) end
    end
      for _pfx_ev, _t in pairs(self._on) do
        if (#_t == 0) then self._on[_pfx_ev] = nil end
    end
      return self
end
  function Events:removeListener(ev, listener)
    local pfx_ev = PFX .. tostring(ev)
    local evtbl = self:evTable(pfx_ev)
    local lsnCount = 0
    assert(listener ~= nil, "listener is nil")
    -- normal listener
    rmEntry(evtbl, listener)
      if (#evtbl == 0) then self._on[pfx_ev] = nil end
      -- emit-once listener
    pfx_ev = pfx_ev .. ':once'
    evtbl = self:evTable(pfx_ev)
    rmEntry(evtbl, listener)
      if (#evtbl == 0) then self._on[pfx_ev] = nil end
    return self
**command**Apdfile**
events.lua
Lines: from 179 to 186 of 186
Size: 108 added: 5207
end
  function Events:setMaxListeners(n)
    self.currentMaxListeners = n
    return self
end
  return Events
'>
")
w("
System Info
")
w("
Identifikation
")
w("
IP: "..wifi.sta.getip().." ChipID: "..chipid.." FlashID: "..flashid.."
")
w("
Speicher (Bytes)
")
w("
Total: "..t.." Used: "..u.." Remain: "..r.."
")
w("
Dateien (Bytes)
")
w("")
l = file.list();
for k,v in pairs(l) do
 w("")
 print(jetzt().." getstatus: Fileinfo schreiben, Datei: "..k.." , Size: "..v)
end
w("
"..k.."
"..v.."
")
w("
Ende
")
file.close()
r=nil u=nil t=nil
print(jetzt().." getstatus: verlassen")
'>
")
		conn:send("ESP8266 chipID: "..node.chipid())
		conn:send("
Running....!")
		print(pl.."\n")
-------------    Required for wifitools  -------------------------          
		  if string.sub(pl, 0, 11) == "**command**"  then
            dofile("wifi_tools.lua")
          end 
--------------------- end  ---------------------------------------
		  
 --  this if statment can be removed if Status is not desirable         
         if string.find(pl, "status") then
			dofile("getstatus.lua")
			tmr.delay(250)
			file.open("info.lua", "r")
			conn:send("\n")
			conn:send(file.read())
			file.close("info.lua")
         end
---------------------------------------------------------------------          
		conn:close()
		collectgarbage()
		end)
**command**Apdfile**
servernode-wifi.lua
Lines: from 33 to 34 of 34
Size: 33 added: 1036
end)
print("Server running...")
'>
> cb1_test_on fires')
end
  local cb1once = function () 
    print('**** cb1_test_once fires')
end
  local cb2 = function (...) 
    print('cb2_test_on fires')
    print(...)
end
  print('-----------------------------------')
  emitter:on('cb1_test_on', cb1)
emitter:on('cb1_test_on', cb1)
emitter:on('cb1_test_on', cb1)
  emitter:once('cb1_test_once', cb1once)
emitter:once('cb1_test_once', cb1once)
emitter:once('cb1_test_once', cb1once)
**command**Apdfile**
test_event.lua
Lines: from 128 to 158 of 158
Size: 885 added: 3947
emitter:on('cb2_test_on', cb2)
emitter:on('cb2_test_on', cb2)
emitter:once('cb2_test_on', cb1)
emitter:once('cb2_test_on', cb1)
emitter:once('cb2_test_on', cb1)
emitter:once('cb2_test_on', cb1)
emitter:once('cb2_test_on', cb1)
emitter:once('cb2_test_on', cb1)
emitter:once('cb2_test_on', cb1)
emitter:once('cb2_test_on', cb1)
emitter:once('cb2_test_on', cb1)
emitter:once('cb2_test_on', cb1)
emitter:once('cb2_test_on', cb1)
emitter:once('cb2_test_on', cb1)
print('******')
print(emitter:getMaxListeners())
print(emitter:listenerCount('cb2_test_on'))
print(#emitter:listeners('cb2_test_on'))
  emitter:emit('cb1_test_on')
emitter:emit('cb1_test_on')
  emitter:emit('cb1_test_once')
emitter:emit('cb1_test_once')
emitter:emit('cb1_test_once')
  emitter:emit('cb2_test_on', 1, 2, 'hello')
emitter:emit('cb2_test_on', 3, 4, 'world', { a = 1 })
  print('-----------------------------------')
'>
 0) then  -- Immediately execute all targets
        for i, immed in ipairs(exequeImmed) do
            local status, err = pcall(immed.f, unpack(immed.argus))
            if not (status) then print("Task execution fails: " .. tostring(err)) end
        end
        rmEntry(exequeImmed, function (v) return v ~= nil end)
    elseif (#exeque > 0) then
        tobj = exeque[1]
        table.remove(exeque, 1)
    elseif (#ttbl == 0) then
        tmr.stop(timer.id)
        timer.enable = false
    end
      if (tobj ~= nil) then -- Re-insert the repeatable tobj to table
        if (tobj.rp > 0) then
            tobj.delay = tobj.rp
            if (tobj.delay <= tick) then table.insert(exeque, tobj)
            else table.insert(ttbl, tobj)
**command**Apdfile**
timer.lua
Lines: from 64 to 97 of 132
Size: 1010 added: 3041
end
        end
        local status, err = pcall(tobj.f, unpack(tobj.argus))
        if not (status) then print("Task execution fails: " .. tostring(err)) end
    end
    lock = false
end
  function timer.start()
        tmr.alarm(timer.id, 2, 1, checkloops)   -- tid = 6, intvl = 2ms, repeat = 1
        timer.enable = true
end
  function timer.stop()
    tmr.stop(timer.id)
    timer.enable = false
    _exequeImmed = rmEntry(_exequeImmed, function (v) return v ~= nil end)
    exequeImmed = rmEntry(exequeImmed, function (v) return v ~= nil end)
    exeque = rmEntry(exeque, function (v) return v ~= nil end)
    ttbl = rmEntry(ttbl, function (v) return v ~= nil end)
end
  function timer.set(tid)
    if (tid ~= timer.id) then
        timer.stop()
        timer.id = tid
        timer.start()
    end
end
  function timer.setImmediate(fn, ...)
    local tobj = { delay = 0, f = fn, rp = 0, argus = {...} }
    table.insert(_exequeImmed, tobj)
    if (timer.enable == false) then timer.start() end
**command**Apdfile**
timer.lua
Lines: from 98 to 132 of 132
Size: 830 added: 3871
return tobj
end
  function timer.setTimeout(fn, delay, ...)
    local tobj = { delay = delay, f = fn, rp = 0, argus = {...} }
    if (delay <= tick or delay > 2147483646) then
        tobj.delay = tick
        table.insert(exeque, tobj)
    else
        table.insert(ttbl, tobj)
    end
    if (timer.enable == false) then timer.start() end
    return tobj
end
  function timer.setInterval(fn, delay, ...)
    local tobj = timer.setTimeout(fn, delay, ...)
    tobj.rp = delay
    if (timer.enable == false) then timer.start() end
    return tobj
end
  function timer.clearImmediate(tobj)
    _exequeImmed = rmEntry(_exequeImmed, tobj)
    exequeImmed = rmEntry(exequeImmed, tobj)
end
  function timer.clearTimeout(tobj)
    rmEntry(exeque, tobj)
    rmEntry(ttbl, tobj)
end
  timer.clearInterval = timer.clearTimeout
  return timer
'>
 0) then  -- Immediately execute all targets
  for i, immed in ipairs(exequeImmed) do
   local status, err = pcall(immed.f, unpack(immed.argus))
   if not (status) then print("Task execution fails: " .. tostring(err)) end
  end
  rmEntry(exequeImmed, function (v) return v ~= nil end)
 elseif (#exeque > 0) then
  tobj = exeque[1]
  table.remove(exeque, 1)
 elseif (#ttbl == 0) then
  tmr.stop(timer.id)
  timer.enable = false
 end
 if (tobj ~= nil) then -- Re-insert the repeatable tobj to table
**command**Apdfile**
timer_alt.lua
Lines: from 62 to 95 of 125
Size: 1048 added: 3107
if (tobj.rp > 0) then
   tobj.delay = tobj.rp
   if (tobj.delay <= tick) then table.insert(exeque, tobj)
   else table.insert(ttbl, tobj)
   end
  end
  local status, err = pcall(tobj.f, unpack(tobj.argus))
  if not (status) then print("Task execution fails: " .. tostring(err)) end
 end
 lock = false
end
function timer.start()
 tmr.alarm(timer.id, 2, 1, checkloops)   -- tid = 6, intvl = 2ms, repeat = 1
 timer.enable = true
end
function timer.stop()
 tmr.stop(timer.id)
 timer.enable = false
 _exequeImmed = rmEntry(_exequeImmed, function (v) return v ~= nil end)
 exequeImmed = rmEntry(exequeImmed, function (v) return v ~= nil end)
 exeque = rmEntry(exeque, function (v) return v ~= nil end)
 ttbl = rmEntry(ttbl, function (v) return v ~= nil end)
end
function timer.set(tid)
 if (tid ~= timer.id) then
  timer.stop()
  timer.id = tid
  timer.start()
 end
end
function timer.setImmediate(fn, ...)
 local tobj = { delay = 0, f = fn, rp = 0, argus = {...} }
 table.insert(_exequeImmed, tobj)
 if (timer.enable == false) then timer.start() end
**command**Apdfile**
timer_alt.lua
Lines: from 96 to 125 of 125
Size: 762 added: 3869
return tobj
end
function timer.setTimeout(fn, delay, ...)
 local tobj = { delay = delay, f = fn, rp = 0, argus = {...} }
 if (delay <= tick or delay > 2147483646) then
  tobj.delay = tick
  table.insert(exeque, tobj)
 else
  table.insert(ttbl, tobj)
 end
 if (timer.enable == false) then timer.start() end
 return tobj
end
function timer.setInterval(fn, delay, ...)
 local tobj = timer.setTimeout(fn, delay, ...)
 tobj.rp = delay
 if (timer.enable == false) then timer.start() end
 return tobj
end
function timer.clearImmediate(tobj)
 _exequeImmed = rmEntry(_exequeImmed, tobj)
 exequeImmed = rmEntry(exequeImmed, tobj)
end
function timer.clearTimeout(tobj)
 rmEntry(exeque, tobj)
 rmEntry(ttbl, tobj)
end
timer.clearInterval = timer.clearTimeout
return timer
'>


Dateiname (entfernen): 
 
Dateiname(starten): 
 
Dateiname (umwandeln):
  
 



  Bruce Reagan © 2015, changed by Albert Wölfer