# HG changeset patch
# User Mikael Berthe <mikael@lilotux.net>
# Date 1271541005 -7200
# Node ID 71bf91612a33620e9ce88a8c7c1799d7ed4a6064
# Parent  e5e20eed6c58354b194a67b989b991bf04924e8f
Add command rfc

diff -r e5e20eed6c58 -r 71bf91612a33 .hgignore
--- a/.hgignore	Sat Apr 17 23:35:13 2010 +0200
+++ b/.hgignore	Sat Apr 17 23:50:05 2010 +0200
@@ -2,4 +2,6 @@
 
 mcshell.lua
 
+rfc-index.txt
+
 *.sw?
diff -r e5e20eed6c58 -r 71bf91612a33 mcbot/cmds/rfc.lua
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mcbot/cmds/rfc.lua	Sat Apr 17 23:50:05 2010 +0200
@@ -0,0 +1,125 @@
+#! /usr/bin/env lua
+
+-- RFC index parser
+-- Mikael BERTHE, 2010-04-17
+
+-- TXT index database, retrieved from
+-- <ftp://ftp.rfc-editor.org/in-notes/rfc-index.txt>
+local indexfname = "/home/mikael/.mcabber/lua/mcbot/rfc-index.txt"
+
+local rfc = { ["desc"] = "Search RFC database" }
+
+local rfcdb = {}
+
+local function parse_file (fname)
+    local fh = io.open(fname)
+
+    if not fh then
+        print("Cannot open RFC database")
+        return 255
+    end
+
+    -- Skip header
+    local count = 0
+    for line in fh:lines() do
+        count = count + 1
+        if line:match("^%s+RFC INDEX%s*$") and count > 30 then
+            break
+        end
+    end
+
+    -- Skip 2 more lines
+    fh:read("*l")
+    fh:read("*l")
+
+    local contents = fh:read("*a")
+    fh:close()
+
+    for entry in contents:gfind("(%d%d%d%d .-)\n\n") do
+        entry = entry:gsub("\n     ", " ")
+        local n = entry:match("^(%d%d%d%d) ")
+        entry = entry:gsub("^(%d%d%d%d) ", "")
+
+        local data = {}
+        data.title = entry:match("^(.-)%. ")
+        entry = entry:gsub("^(.-)%. ", "")
+
+        data.date = entry:match("%. (.-)%. %(Format:")
+        data.obsoletes = entry:match("%(Obsoletes (.-)%)")
+        data.obsoleted_by = entry:match("%(Obsoleted by (.-)%)")
+        data.updates = entry:match("%(Updates (.-)%)")
+        data.updated_by = entry:match("%(Updated by (.-)%)")
+        data.also = entry:match("%(Also (.-)%)")
+        data.status = entry:match("%(Status: (.-)%)")
+
+        if data.title then
+            rfcdb[n] = data
+        end
+    end
+end
+
+local function rfc_lookup_string (rfcstring)
+    rfcstring = rfcstring:lower()
+    local r = ""
+    for id, data in pairs(rfcdb) do
+        if data.title:lower():find(rfcstring) then
+            r = r.."RFC"..id..": "..data.title.."\n"
+        end
+    end
+    r = r:gsub("\n$", "")
+    if r ~= "" then return r; end
+    return nil, "Sorry, I couldn't find any relevant RFC"
+end
+
+local function rfc_lookup_number (rfcnum)
+    rfcnum = tostring(rfcnum)
+    rfcnum = string.rep("0", 4 - rfcnum:len()) .. rfcnum
+
+    local data = rfcdb[rfcnum]
+    if not data then return nil, "Sorry, RFC not found" end
+
+    local r = "RFC"..rfcnum .. " is " .. data.title .. "\n"
+    if data.status then
+        r = r .. "Status:\t" .. data.status:lower() .. "\n"
+    end
+    if data.obsoletes then
+        r = r .. "Obsoletes:\t" .. data.obsoletes .. "\n"
+    end
+    if data.obsoleted_by then
+        r = r .. "Obsoleted by:\t" .. data.obsoleted_by .. "\n"
+    end
+    if data.updates then
+        r = r .. "Updates:\t" .. data.updates .. "\n"
+    end
+    if data.updated_by then
+        r = r .. "Updated by:\t" .. data.updated_by .. "\n"
+    end
+    if data.also then
+        r = r .. "Also:\t" .. data.also .. "\n"
+    end
+    r = r:gsub("\n$", "")
+    return r
+end
+
+function rfc.cmd (rfcnum)
+    local empty = true
+    for i,v in pairs(rfcdb) do empty = false; break end
+    if empty then parse_file(indexfname) end
+
+    if (rfcnum) then
+        rfcnum = rfcnum:gsub("^RFC[%s%-]*", "")
+        rfcnum = rfcnum:gsub("^rfc[%s%-]*", "")
+        rfcnum = rfcnum:gsub("[!%?%s:]+$", "")
+    end
+
+    if not rfcnum or rfcnum == "" then
+        return nil, "What RFC do you want?"
+    end
+
+    local n = tonumber(rfcnum)
+    if not n then return rfc_lookup_string(rfcnum) end
+
+    return rfc_lookup_number(n)
+end
+
+mcbot_register_command("rfc", rfc)
diff -r e5e20eed6c58 -r 71bf91612a33 mcbot/mcbot_engine.lua
--- a/mcbot/mcbot_engine.lua	Sat Apr 17 23:35:13 2010 +0200
+++ b/mcbot/mcbot_engine.lua	Sat Apr 17 23:50:05 2010 +0200
@@ -28,6 +28,7 @@
 require "cmds.dict"
 require "cmds.misc"
 require "cmds.xep"
+require "cmds.rfc"
 require "cmds.mcabber_bts"
 require "cmds.bofh"
 require "cmds.xmpp"