http = require("socket.http") json = (loadfile "./bot/JSON.lua")() VERSION = 'v0.1' function on_msg_receive (msg) -- vardump(msg) -- mark_read(get_receiver(msg)) if msg.out then return end if msg.date < now then return end if msg.text == nil then return end if msg.unread == 0 then return end -- Check if command starts with ! eg !echo if msg.text:sub(0,1) == '!' then msg.text = msg.text:sub(2,-1) do_action(msg) end -- write_log_file(msg) end -- Where magic happens function do_action(msg) receiver = get_receiver(msg) if string.starts(msg.text, 'sh') then text = run_sh(msg) send_msg(receiver, text) end if string.starts(msg.text, 'torrent') then text = save_torrent(msg) send_msg(receiver, text) end if string.starts(msg.text, 'uc3m') then text = get_fortunes_uc3m() send_msg(receiver, text) end if string.starts(msg.text, '9gag') then url = get_infiniGAG() file_name = url:match("([^/]+)$") file = "/tmp/"..file_name sh = "curl -o '"..file.."' "..url run_bash(sh) send_photo(receiver, file) end if string.starts(msg.text, 'fortune') then text = run_bash('fortune') send_msg(receiver, text) end if string.starts(msg.text, 'forni') then text = msg.text:sub(7,-1) send_msg('Fornicio_2.0', text) end if string.starts(msg.text, 'hackers') then text = msg.text:sub(9,-1) send_msg('Juankers._Dios_existe_y_es_ ' .. msg.text write_to_file(config.log_file, ret) end -- Saves a string to file function write_to_file(filename, value) if (value) then local file = io.open(filename,"a") file:write(value, "\n") file:close() end end function get_name(msg) local name = msg.from.first_name if name == nil then name = msg.from.id end return name end function run_sh(msg) name = get_name(msg) text = '' if config.sh_enabled == false then text = '!sh command is disabled' else if is_sudo(msg) then bash = msg.text:sub(4,-1) text = run_bash(bash) else text = name .. ' you have no power here!' end end return text end function run_bash(str) local cmd = io.popen(str) local result = cmd:read('*all') cmd:close() return result end function readAll(file) local f = io.open(file, "rb") local content = f:read("*all") f:close() return content end function get_fortunes_uc3m() math.randomseed(os.time()) local i = math.random(0,178) -- max 178 local web = "http://www.gul.es/fortunes/f"..i b, c, h = http.request(web) return b end function get_infiniGAG() b, c, h = http.request("http://infinigag-us.aws.af.cm") local gag = json:decode(b) i = math.random(#gag.data) -- random max json table size (# is an operator o.O) local link_image = gag.data[i].images.normal print("9gag image"..link_image) return link_image end function get_weather(location) b, c, h = http.request("http://api.openweathermap.org/data/2.5/weather?q=" .. location .. "&units=metric") weather = json:decode(b) local city = weather.name local country = weather.sys.country temp = 'The temperature in ' .. city .. ' (' .. country .. ')' temp = temp .. ' is ' .. weather.main.temp .. '°C' conditions = 'Current conditions are: ' .. weather.weather[1].description if weather.weather[1].main == 'Clear' then conditions = conditions .. ' ☀' elseif weather.weather[1].main == 'Clouds' then conditions = conditions .. ' ☁☁' elseif weather.weather[1].main == 'Rain' then conditions = conditions .. ' ☔' elseif weather.weather[1].main == 'Thunderstorm' then conditions = conditions .. ' ☔☔☔☔' end return temp .. '\n' .. conditions end function sanitize_html(txt) local replacements = { ['&' ] = '&', ['<' ] = '<', ['>' ] = '>', ['\n'] = '
' } return txt :gsub('[&<>\n]', replacements) :gsub(' +', function(s) return ' '..(' '):rep(#s-1) end) end function string.random(length) math.randomseed(os.time()) local str = ""; for i = 1, length do math.random(97, 122) str = str..string.char(math.random(97, 122)); end return str; end function vardump(value, depth, key) local linePrefix = "" local spaces = "" if key ~= nil then linePrefix = "["..key.."] = " end if depth == nil then depth = 0 else depth = depth + 1 for i=1, depth do spaces = spaces .. " " end end if type(value) == 'table' then mTable = getmetatable(value) if mTable == nil then print(spaces ..linePrefix.."(table) ") else print(spaces .."(metatable) ") value = mTable end for tableKey, tableValue in pairs(value) do vardump(tableValue, depth, tableKey) end elseif type(value) == 'function' or type(value) == 'thread' or type(value) == 'userdata' or value == nil then print(spaces..tostring(value)) else print(spaces..linePrefix.."("..type(value)..") "..tostring(value)) end end -- Start and load values config = load_config() our_id = 0 now = os.time()