From b80bd744ad873f6fc43018bc4bfb90677de167bd Mon Sep 17 00:00:00 2001
From: Stefan Wintermeyer <stefan.wintermeyer@amooma.de>
Date: Mon, 17 Dec 2012 12:01:45 +0100
Subject: Start of GS5.

---
 misc/freeswitch/scripts/common/routing_tables.lua | 66 +++++++++++++++++++++++
 1 file changed, 66 insertions(+)
 create mode 100644 misc/freeswitch/scripts/common/routing_tables.lua

(limited to 'misc/freeswitch/scripts/common/routing_tables.lua')

diff --git a/misc/freeswitch/scripts/common/routing_tables.lua b/misc/freeswitch/scripts/common/routing_tables.lua
new file mode 100644
index 0000000..34d0143
--- /dev/null
+++ b/misc/freeswitch/scripts/common/routing_tables.lua
@@ -0,0 +1,66 @@
+-- Gemeinschaft 5 module: routing table functions
+-- (c) AMOOMA GmbH 2012
+-- 
+
+module(...,package.seeall)
+
+function expand_variables(line, variables_list)
+  variables_list = variables_list or {};
+
+  return (line:gsub('{([%a%d_]+)}', function(captured)
+    return variables_list[captured] or '';
+  end))
+end
+
+
+function match_route(entry, search_str, variables_list)
+  if not entry or not search_str then
+    return { error = 'No input values' };
+  end
+
+  local result = nil;
+  local success = nil;
+  success, result = pcall(string.find, search_str, entry[1]);
+  
+  if not success then
+    return { error = result, line = line }
+  elseif result then
+    local route = {
+      pattern = entry[1],
+      value = search_str:gsub(entry[1], expand_variables(entry[#entry], variables_list)),
+    }
+
+    for index = 2, #entry-1 do
+      local attribute = entry[index]:match('^(.-)%s*=');
+      if attribute then
+        route[attribute] = entry[index]:match('=%s*(.-)$');
+      end
+    end
+
+    return route;
+  end
+  
+  return {};
+end
+
+
+function match_caller_id(entry, search_str, variables_list)
+  if not entry or not search_str then
+    return { error = 'No input values' };
+  end
+  local result = nil;
+  local success = nil;
+  success, result = pcall(string.find, search_str, entry[1]);
+  if not success then
+    return { error = result, line = line }
+  elseif result then
+    return {
+      value = search_str:gsub(entry[1], expand_variables(entry[4], variables_list)),
+      class =  entry[2],
+      endpoint = entry[3],
+      pattern = entry[1],
+    }
+  end
+  
+  return {};
+end
-- 
cgit v1.2.3