local args={...}
local sep="|"
local serv_id=167
rednet.open("top")
reader = peripheral.wrap("back")
rfid=peripheral.wrap("left")
writer=peripheral.wrap("right")

function on() rs.setOutput("bottom",true) end
function off() rs.setOutput("bottom",false) end

function check(data)
  if data:sub(1,7)=="CARD|OK" then
     local allow=false
    for door in string.gmatch(data:sub(9),"(.-),") do
      if door == ourdoor then allow=true break end
    end

    if not allow then return end
    on()
    os.sleep(1.5)
    off()
  else
    off()
  end
end

function checkrfid(data)
  if data:sub(1,7)=="CARD|OK" then
    on()
    valid=true
  else
    if not valid then
      off()
    end
  end
end

if args[1]=="writemag" then -- name,daat
  local s=table.concat({unpack(args,3)}," "):sub(1,79)
  reader.beginWrite(args[2]:sub(1,20)..sep..s,args[2].."'s ID card")
  rednet.send(serv_id,"CARD|ADD|"..args[2]:sub(1,20)..sep..s.."|"..args[3]..sep)
  print("Swipe a blank card!")
  os.pullEvent("mag_write_done")
elseif args[1]=="writerfid" then
  local s=table.concat({unpack(args,3)}," "):sub(1,79)
  writer.encode(args[2]:sub(1,20)..sep..s,args[2].."'s ID card")
  print("Writing..")
  rednet.send(serv_id,"CARD|ADD|"..args[2]:sub(1,20)..sep..s..sep..args[3]..sep)
  os.pullEvent("rfid_written")
else
  while true do
    reader.setInsertCardLight(true)
    local e,data=os.pullEvent()
    if e=="char" or e=="key" then
      on()
      os.sleep(3)
      off()
    elseif e=="mag_swipe" then
    reader.setInsertCardLight(false)
    data=data..sep
    rednet.send(serv_id,"CARD|CHECK|"..data)

    local id=0
    while id~=serv_id do
    local i,resp=rednet.receive()
    id=i
    data=resp
    end
    check(data)
    elseif e=="rfid_detected" then
      data=data..sep
      rednet.send(serv_id,"CARD|CHECK|"..data)
      local id=0
      while id~=serv_id do
        local i,resp=rednet.receive()
        id=i
        data=resp
      end

      checkrfid(data)

    elseif e=="rfid_scan_done" then if not valid then off() end valid=false
    end
    rfid.scan(3)
  end
end