From ea816801a9d73529bbf9eb3800fef8e85a18d6ca Mon Sep 17 00:00:00 2001
From: Kevin Smith <git@kismith.co.uk>
Date: Sat, 28 Jul 2012 10:56:04 +0100
Subject: URL grabber


diff --git a/Swiftob/scripts/urlGrabber.lua b/Swiftob/scripts/urlGrabber.lua
new file mode 100644
index 0000000..13fe182
--- /dev/null
+++ b/Swiftob/scripts/urlGrabber.lua
@@ -0,0 +1,30 @@
+function url_grabber(body, muc, nick, message)
+	url = body:match("http://.%S+")
+	print("Looking for URL")
+	print(url)
+	if url then
+		print ("found")
+		local http = require("socket.http")
+		http.TIMEOUT = 5
+		--r, c, h = http.request({method = "HEAD", url = url})
+		--clen = tonumber(h["content-length"])
+		--if clen and clen > 0 and clen < 1024 * 1024 then
+			b, c, h = http.request(url)
+			subjectish = b:match("<title>.+</title>")
+			print("subjectish")
+			print(subjectish)
+			if subjectish then 
+				subject = string.gsub(subjectish, "</?title>", "")
+				if subject then
+					swiftob_reply_to(message, url..":\n"..subject)
+				end
+			end
+		--else
+		--	print("Skipping because missing or too long:")
+		--	print(clen)
+		--end
+	end
+end
+
+swiftob_register_listener(url_grabber)
+
-- 
cgit v0.10.2-6-g49f6