remind.lua

local filename='data/remind.lua'
local cronned = load_from_file(filename)

local function save_cron(msg, text,date)
  local origin = get_receiver(msg)
  if not cronned[date] then
    cronned[date] = {}
  end
  local arr = { origin,  text } ;
  table.insert(cronned[date], arr)
  serialize_to_file(cronned, filename)
  return 'Saved!'
end

local function delete_cron(date)
  for k,v in pairs(cronned) do
    if k == date then
	  cronned[k]=nil
    end
  end
  serialize_to_file(cronned, filename)
end

local function cron()
  for date, values in pairs(cronned) do
  	if date < os.time() then --time's up
	  	send_msg(values[1][1], "Time's up:"..values[1][2], ok_cb, false)
  		delete_cron(date) --TODO: Maybe check for something else? Like user
	end

  end
end

local function actually_run(msg, delay,text)
  if (not delay or not text) then
  	return "Usage: !remind [delay: 2h3m1s] text"
  end
  save_cron(msg, text,delay)
  return "I'll remind you on " .. os.date("%x at %H:%M:%S",delay) .. " about '" .. text .. "'"
end

local function run(msg, matches)
  local sum = 0
  for i = 1, #matches-1 do
    local b,_ = string.gsub(matches[i],"[a-zA-Z]","")
    if string.find(matches[i], "s") then
      sum=sum+b
    end
    if string.find(matches[i], "m") then
      sum=sum+b*60
    end
    if string.find(matches[i], "h") then
      sum=sum+b*3600
    end
  end

  local date=sum+os.time()
  local text = matches[#matches]

  local text = actually_run(msg, date, text)
  return text
end

return {
  description = "remind plugin",
  usage = {
  	"!remind [delay: 2hms] text",
  	"!remind [delay: 2h3m] text",
  	"!remind [delay: 2h3m1s] text"
  },
  patterns = {
    "^!remind ([0-9]+[hmsdHMSD]) (.+)$",
    "^!remind ([0-9]+[hmsdHMSD])([0-9]+[hmsdHMSD]) (.+)$",
    "^!remind ([0-9]+[hmsdHMSD])([0-9]+[hmsdHMSD])([0-9]+[hmsdHMSD]) (.+)$"
  }, 
  run = run,
  cron = cron
}