View difference between Paste ID: rXL3ZRYw and y68mc6pM

---[[
+--[[To activate the kitsunemod script run the following:
 	!kitsunebot MOD.KitsuneMod="rXL3ZRYw"; MOD.Save(); MOD.Reload();
-Available standard functions:
+
 
-    _VERSION
+local domains = [[.ac.ad.ae.aero.af.ag.ai.al.am.an.ao.aq.ar.arpa.as.asia.at.au
-    assert
+   .aw.ax.az.ba.bb.bd.be.bf.bg.bh.bi.biz.bj.bm.bn.bo.br.bs.bt.bv.bw.by.bz.ca
-    error
+   .cat.cc.cd.cf.cg.ch.ci.ck.cl.cm.cn.co.com.coop.cr.cs.cu.cv.cx.cy.cz.dd.de
-    ipairs
+   .dj.dk.dm.do.dz.ec.edu.ee.eg.eh.er.es.et.eu.fi.firm.fj.fk.fm.fo.fr.fx.ga
-    next
+   .gb.gd.ge.gf.gh.gi.gl.gm.gn.gov.gp.gq.gr.gs.gt.gu.gw.gy.hk.hm.hn.hr.ht.hu
-    pairs
+   .id.ie.il.im.in.info.int.io.iq.ir.is.it.je.jm.jo.jobs.jp.ke.kg.kh.ki.km.kn
-    pcall
+   .kp.kr.kw.ky.kz.la.lb.lc.li.lk.lr.ls.lt.lu.lv.ly.ma.mc.md.me.mg.mh.mil.mk
-    select
+   .ml.mm.mn.mo.mobi.mp.mq.mr.ms.mt.mu.museum.mv.mw.mx.my.mz.na.name.nato.nc
-    tonumber
+   .ne.net.nf.ng.ni.nl.no.nom.np.nr.nt.nu.nz.om.org.pa.pe.pf.pg.ph.pk.pl.pm
-    tostring
+   .pn.post.pr.pro.ps.pt.pw.py.qa.re.ro.ru.rw.sa.sb.sc.sd.se.sg.sh.si.sj.sk
-    type
+   .sl.sm.sn.so.sr.ss.st.store.su.sv.sy.sz.tc.td.tel.tf.tg.th.tj.tk.tl.tm.tn
-    unpack
+   .to.tp.tr.travel.tt.tv.tw.tz.ua.ug.uk.um.us.uy.va.vc.ve.vg.vi.vn.vu.web.wf
-    xpcall
+   .ws.xxx.ye.yt.yu.za.zm.zr.zw]]
-    coroutine.create
+local tlds = {}
-    coroutine.resume
+for tld in domains:gmatch'%w+' do
-    coroutine.running
+   tlds[tld] = true
-    coroutine.status
+
-    coroutine.wrap
+
-    coroutine.yield
+local function IsURLBlackListed(prot, subd, tld, colon, port, slash, path)
-    math.abs
+
-    math.acos
+	if ( prot and prot ~= "" ) or tlds[tld:lower()] then
-    math.asin
+
-    math.atan
+		if type(MOD.URLWhiteList)~="table"then
-    math.atan2
+			MOD.URLWhiteList = {};
-    math.ceil
+			return true;
-    math.cos
+
-    math.cosh
+
-    math.deg
+		subd = subd:lower();
-    math.exp
+		subd = subd:gsub("www.","");
-    math.fmod
+		subd = subd:sub(0,subd:len()-1);
-    math.floor
+
-    math.frexp
+		local website = subd.."."..tld;
-    math.huge
+
-    math.ldexp
+		website = website:lower();
-    math.log
+
-    math.log10
+		if MOD.URLWhiteList[website] then
-    math.max
+			return false;
-    math.min
+
-    math.modf
+
-    math.pi
+		return true;
-    math.pow
+
-    math.rad
+
-    math.random
+	return false;
-    math.sin
+
-    math.sinh
+
-    math.sqrt
+local function GetHasBlacklistedURLs(msg)
-    math.tan
+
-    math.tanh
+	local urls = {};
-    os.clock
+
-    os.difftime
+	for pos, url, prot, subd, tld, colon, port, slash, path in msg:gmatch
-    os.time
+	   '()(([%w_.~!*:@&+$/?%%#-]-)(%w[-.%w]*%.)(%w+)(:?)(%d*)(/?)([%w_.~!*:@&+$/?%%#=-]*))'
-    string.byte
+	do
-    string.char
+
-    string.find
+		if IsURLBlackListed(prot, subd, tld, colon, port, slash, path)then
-    string.format
+			return true;
-    string.gmatch
+
-    string.gsub
+
-    string.len
+
-    string.lower
+	return false;
-    string.match
+
-    string.reverse
+
-    string.sub
+local function IsUserWhitelisted(user)
-    string.upper
+
-    table.insert
+	if UserStatus(user) == 2 then
-    table.maxn
+		return true;
-    table.remove
+	elseif type(MOD.UserWhiteList)~="table"then
-    table.sort
+		MOD.UserWhiteList = {};
 		return false;
-Custom functions
+	elseif MOD.UserWhiteList[user:lower()] then
 		return true;
-	ME(); -> returns the current user
+
-	Channel(); -> returns the name of the channel we're in
+		return false;
-	print(string); -> adds string to the response
+
-	GetUsers(); -> returns an array containing all the users in the channel
+
-	UserStatus(string) -> returns 0 if the user isnt here, 1 if the user is here and 2 if the user is here and is a mod. If the user is present it returns a second result which is a string containing the title
+
-	GetCommands() -> returns an array containing the available commands
+
-	GetMsg(user) -> return the last message sent by the user, returns nil if none
+
-	JSONEncode(tbl) -> returns the table as json encoded
+
-	JSONDecode(data) -> decodes a json string into a table
+
-	Timestamp() -> timestamp in CET
+
-	Date(formatting,time) -> wrapper around os.date, if time is nil it takes the current time
+
-	HTML(html) -> decodes html to a lua table (https://github.com/luaforge/html/tree/master/html) as html.parsestr
+local function Join(user)
 
-	(MOD is only available to moderators in the channel)
+
 
-	The timer functions are defined within this script!
+local function Leave(user)
-	MOD.Timer(name,seconds,event) -> runs the event after seconds has elapsed (fire&forget), event can be a string or a function, if seconds is 0 or nil the timer is deleted. If the timer already exists its overwritten/restarted.
+
 end
-	he timer functions are defined within this script!
+
-	MOD.GetTimers() -> returns an array containing the names of all running timers
+
 
-	Get stream is defined inside of this script!
+	if UserStatus("kitsunebot") == 2 then
-	MOD.GetStream(nameofstream) -> returns a table or nil if the stream is live or not
+		if IsUserWhitelisted(user) then
 			return;
-	MOD.GetVar(key,channel) -> returns a value from the database
+		elseif( GetHasBlacklistedURLs(msg) )then
-	MOD.SetVar(key,value,arrayid) -> Sets or updates a value in the database, arrayid is optional
+			MOD.Timer("to_"..user,0,function() MOD.Timeout(user); end);
-	MOD.DelVar(key) -> delete a value from the database
+			print("@"..user.." purged link");
-	MOD.GetArray(arrayid, chan, descending,limit, offset) -> returns a table containing key:values as set by SetVar with arrayid
+
-	MOD.DelArray(arrayid) -> deletes all records with the arrayid
+
 	end
-	MOD.GetGlobalVar(key) -> returns a value from the database, shared across all channels
+
-	MOD.SetGlobalVar(key,value) -> Sets or updates a value in the database, shared across all channels
+
-	MOD.DelGlobalVar(key) -> delete a value from the database, shared across all channels
+
 
-	MOD.Commercial(sec) -> runs a commercial for sec (30|60|90|120|150|180) default is 30
+
-	MOD.ResetCD(user) -> resets the cooldown, if a user is supplied it resets it for the user too
+
-	MOD.HTTPGet(url) -> returns content and status, content is nil on failure
+MOD = MOD or {};
-	MOD.HTTPSGet(url) -> Same as above but HTTPS, returns body, code, headers, status in that order
+--These are called from the http://pastebin.com/y68mc6pM script
 MOD.EventJoin = Join;
-	MOD.HTTPPost(url,headers,request_body) -> sends a post request, headers should be a table, request_body should be a string
+MOD.EventLeave = Leave;
-	MOD.HTTPSPost(url,headers,request_body) -> same as above but https/ssl
+MOD.EventMsg = Message;
-	-> POST functions returns string resource, number code, table response_headers, table response_body
+MOD.EventTick = Tick;
 
-	MOD.StartupScript(pastebintag*) -> Sets the channel's startup script
+--Commands
-	MOD.Save() -> Saves your commands and the saveable content in the MOD table
+MOD.AddCom("reg",function(msg,usr,chan)
-	MOD.Reload() -> Reloads/Resets the channel environment and reruns the startup script
+
 	if not msg or msg == "" or UserStatus(usr)~=2 then
-	MOD.AddCom(string,value); -> creates a command where string is the command without the !.
+
-	if value is a function it must be defined beforehand or within the same chunk as AddCom, IE:
+
-	AddCom("Test", function(msg,usr,channel) print("cat"); end); AddCom additionally runs MOD.Save automatically.
+
 	if type(MOD.UserWhiteList)~="table"then
-	AddCom passes the message, user and channel name in that order to its calling function.
+		MOD.UserWhiteList = {};
 	end
-	MOD.PasteBin(pastebintag*) -> runs a script off pastebin as if it was a local script, returns the result and a status boolean, if the status boolean is false the result will be an error message.
+
 	MOD.UserWhiteList[msg:lower()]=true;
-	MOD.Timeout(user,time) -> Timesout a user, if time isnt provided the timeout is 1 second (Kitsunebot must be a mod)
+
-	MOD.Ban(user) -> perma bans user (Kitsunebot must be a mod)
+	print("@"..usr.. " user " .. msg .. " has been added to the regulars");
-	MOD.Unban(user) -> unbans a previously banned user (Kitsunebot must be a mod)
+
 	MOD.Save();
-	MOD.TimestampToSec(stamp) -> Convert a "yyyy-mm-ddThh:mm:ssZ" timestamp to unix
+
-	MOD.SecondToSpan(unixtimestamp) -> Converts a unixtimestamp to timespan DD:HH:MM:SS
+end);
 
-	Additional notes:
+MOD.AddCom("unreg",function(msg,usr,chan)
 
-	pastebintag* = this is the last letters in a pastebin
+	if not msg or msg == "" or UserStatus(usr)~=2 then
-	for example the link to this script is http://pastebin.com/y68mc6pM
+
-	the tag is as thus y68mc6pM
+
 
-	The MOD table is only available for moderators and its contents (strings, numbers, tables)
+	if type(MOD.UserWhiteList)~="table"then
-	are saved when MOD.Save is called.
+		MOD.UserWhiteList = {};
 	end
-	MOD.MODONLY (default false) if true kitsunebot will only respond to mods (custom commands included).
+
 	MOD.UserWhiteList[msg:lower()]=nil;
-	IE: !kitsunebot MOD.MODONLY=true (or false) to toggle it on or off.
+
 	print("@"..usr.. " user " .. msg .. " has been removed from the regulars");
-	MOD.COOLDOWN (default 15) The cooldown of which kitsunebot will respond to commands, channel mods are exempt from this cooldown
+
 	MOD.Save();
-	MOD.INDIVIDUAL_CD (default 20) same as above but for the individual user
+
 end);
 
---Upvalue function
+MOD.AddCom("regurl",function(msg,usr,chan)
-local function Meow(msg,usr,chan)
+
 	if not msg or msg == "" or UserStatus(usr)~=2 then
-	--No param supplied
+
-	if msg == "" then
+
-
+
-		local stream = MOD.GetStream(chan:sub(2));
+	if type(MOD.URLWhiteList)~="table"then
-		local streamstatus ="";
+		MOD.URLWhiteList = {};
-
+
-		if stream == nil then
+
-			streamstatus = "Stream not online";
+	if not GetHasBlacklistedURLs(msg) then
-		else
+		print("URL already whitelisted or the format is invalid. Format should be: google.com");
-			streamstatus = "Stream is online with " .. tostring(stream.viewers) .. " viewers";
+
-		end
+
 
-		print("MEOW! " .. usr .. " you are in " .. chan .. " there are " .. #GetUsers() .. " users in the chat! " .. streamstatus );
+	local pos, url, prot, subd, tld, colon, port, slash, path = msg:match('()(([%w_.~!*:@&+$/?%%#-]-)(%w[-.%w]*%.)(%w+)(:?)(%d*)(/?)([%w_.~!*:@&+$/?%%#=-]*))');
 
 	subd = subd:lower();
-		--Special dumb cases
+	subd = subd:gsub("www.","");
-		if msg:lower() == usr:lower() then
+	subd = subd:sub(0,subd:len()-1);
-			print("MEOW! " .. usr .. " 4Head");
+
 	local website = subd.."."..tld;
-		elseif msg:lower() == "kitsunebot" then
+
-			print("MEOW! " .. usr .. " Kreygasm" );
+	MOD.URLWhiteList[website:lower()]=true;
 
 	print("@"..usr.. " URL " .. msg .. " has been whitelisted");
 
-		--Get the status 1 here, 2 mod, 0 not here
+	MOD.Save();
-		local status,title = UserStatus(msg);
+
 end);
-		if status == 1 then
+
-			print("MEOW! " .. usr .. " " .. msg .. " is here!");
+MOD.AddCom("unregurl",function(msg,usr,chan)
-		elseif status == 2 then
+
-			print("MEOW! " .. usr .. " " .. msg .. " is here as a "..title:lower().."!");
+	if not msg or msg == "" or UserStatus(usr)~=2 then
-		else
+
-			print("MEOW! " .. usr .. " " .. msg .. " is not here!");
+
 
 	if type(MOD.URLWhiteList)~="table"then
 		MOD.URLWhiteList = {};
 	end
---Helper function
+
 	local pos, url, prot, subd, tld, colon, port, slash, path = msg:match('()(([%w_.~!*:@&+$/?%%#-]-)(%w[-.%w]*%.)(%w+)(:?)(%d*)(/?)([%w_.~!*:@&+$/?%%#=-]*))');
 
 	subd = subd:lower();
 	subd = subd:gsub("www.","");
 	subd = subd:sub(0,subd:len()-1);
---Turn seconds into a span IE "hh:mm:ss"
+
-local function SecondToSpan(sec)
+	local website = subd.."."..tld;
 
-        --Break out the components from the seconds
+	MOD.URLWhiteList[website:lower()]=nil;
-        local days = math.floor((sec/3600)/24);
+
-                local hours = math.floor((sec/3600));
+	print("@"..usr.. " URL " .. msg .. " has been removed from the whitelist");
-        local mins = math.floor((sec-(hours*3600))/60);
+
-        local seconds = math.floor(sec%60);
+	MOD.Save();
 
-        --Pad out the span with 0 when necessary
+end);