local modem = peripheral.wrap("back")
modem.open( 1 )

os.pullEvent = os.pullEventRaw

local event, modemSide, senderChannel, replyChannel, message, senderDistance = os.pullEvent("modem_message")


function string:split( inSplitPattern, outResults )
  if not outResults then
    outResults = { }
  end
  local theStart = 1
  local theSplitStart, theSplitEnd = string.find( self, inSplitPattern, theStart )
  while theSplitStart do
    table.insert( outResults, string.sub( self, theStart, theSplitStart-1 ) )
    theStart = theSplitEnd + 1
    theSplitStart, theSplitEnd = string.find( self, inSplitPattern, theStart )
  end
  table.insert( outResults, string.sub( self, theStart ) )
  return outResults
end

local vartable = message:split(", ")

if vartable[0] == "login" then
local login = http.get("https://mistaken.pl/barwa/cc/login.php?login="..vartable[1].."&passwd="..vartable[2])
if not login then
  print("Error")
else
  local content = login.readAll()
  modem.transmit(replyChannel, 1, content)
  end
end

elseif vartable[0] == "auth" then
local login = http.get("https://mistaken.pl/barwa/cc/auth.php?hash="..vartable[1])
if not login then
  print("Error")
else
  local content = login.readAll()
  modem.transmit(replyChannel, 1, content)
  end
end