util.http: New module for HTTP helper functions

diff --git a/util/http.lua b/util/http.lua
new file mode 100644 (file)
index 0000000..5b49d1d
--- /dev/null
+++ b/util/http.lua
@@ -0,0 +1,15 @@
+-- Prosody IM
+-- Copyright (C) 2013 Florian Zeitz
+--
+-- This project is MIT/X11 licensed. Please see the
+-- COPYING file in the source package for more information.
+--
+
+local http = {};
+
+function http.contains_token(field, token)
+       field = ","..field:gsub("[ \t]", ""):lower()..",";
+       return field:find(","..token:lower()..",", 1, true) ~= nil;
+end
+
+return http;