# HG changeset patch
# User Mikael Berthe <mikael@lilotux.net>
# Date 1271665228 -7200
# Node ID a51ddbce247b61f8b44740ccaece45d21995557c
# Parent  9d7f19e4e4fe7207068e855b3fafd9989cfedd09
Add regex support to tvcal

diff -r 9d7f19e4e4fe -r a51ddbce247b mcbot/cmds/tvcal.lua
--- a/mcbot/cmds/tvcal.lua	Mon Apr 19 00:31:05 2010 +0200
+++ b/mcbot/cmds/tvcal.lua	Mon Apr 19 10:20:28 2010 +0200
@@ -71,23 +71,24 @@
     return r
 end
 
-local function tvcal_by_name (name)
+local function tvcal_by_name (name, plain)
+    local action = plain and "contain" or "match"
     local r = ""
     name = name:lower()
 
     for day, obj in pairsByKeys(tvcaldata) do
         for i,j in ipairs(obj) do
-            if j.name:lower():find(name, 1, true) then
+            if j.name:lower():find(name, 1, plain) then
                 r = r .. day .. "\t" .. j.name .. " (" ..j.ep .. ")\n"
             end
         end
     end
 
     if r == "" then
-        return "No episode found containing this string"
+        return "No episode found "..action.."ing this string"
     end
     r = r:gsub("\n+$", "")
-    return "Episodes containing \""..name.."\":\n" .. r
+    return "Episodes "..action.."ing \""..name.."\":\n" .. r
 end
 
 function tvcal.cmd (arg)
@@ -117,7 +118,15 @@
         return tvcal_by_date(arg)
     end
 
-    return tvcal_by_name(arg)
+    -- Is it a pattern? (string surrounded by quotes)
+    local plain = arg:match('^"(.*)"$')
+    if plain then
+        arg = plain
+        plain = false
+    else
+        plain = true
+    end
+    return tvcal_by_name(arg, plain)
 end
 
 mcbot_register_command("tvcal", tvcal)