Stalker

args = {...}

os.pullEvent = os.pullEventRaw
local chatboxname = "chatbox_admin_0"
local mon = peripheral.wrap("monitor_4")
local logtophp = true
local phplog = "http://liqob.com/stalker"

local cbox = peripheral.wrap(chatboxname)

local function printUsage()
  print("Stalker is a stalking program that logs all chat when running!")
  print("Commands:")
  print("'stalk run'")
end

if args[1] == "help" then

  printUsage()

elseif args[1] == "ply" then

  print(snsr.getPlayerData("sethxia"))

elseif args[1] == "listadv" then

  print(textutils.serialize(snsr.getAdvancedMethodsData()))
  fl = fs.open("disk/stlkadvtxt", "w")
  fl.write(textutils.serialize(snsr.getAdvancedMethodsData()))
  fl.close()

elseif args[1] == "run" then

  if(cbox == nil) then
    print("You don't have a chatbox connected!")
    return
  end

  term.redirect(mon)

  term.clear()
  term.setCursorPos(1,1)

  print("Stalker is now running!")

  while true do

    local event, chatbox, username, message = os.pullEvent()

    if event == "chat_message" then

        local finalMessagePrinted = username..": "..message
        local finalMessage = message

        if(logtophp) then finalMessage = finalMessage:gsub(" ","%%20") end

        local deleteThese = {"<script>","</script>","<?php","<http>","<",">","&","&=","#"}

        for k, v in pairs(deleteThese) do
          finalMessage = finalMessage:gsub(v, "")
        end

        if(logtophp) then
          http.get(phplog .. "?usr=" .. username .. "&msg=" .. finalMessage)
        end

        print(finalMessagePrinted)

        h = fs.open("disk/.chatlog", "a")
          h.write(finalMessagePrinted.."\n")
        h.close()
      end
    end
else
  printUsage()
end