From 73ed362e73618785d83c9ef0340445d83f90aeba Mon Sep 17 00:00:00 2001
From: Victor Seva <linuxmaniac@torreviejawireless.org>
Date: Tue, 14 May 2013 10:33:56 +0200
Subject: [PATCH] Added ngcp.log_var function

---
 ngcp/ngcp.lua  | 30 ++++++++++++++++++++++++++++++
 tests/ngcp.lua |  7 +++++++
 2 files changed, 37 insertions(+)

diff --git a/ngcp/ngcp.lua b/ngcp/ngcp.lua
index 9f06014..501f2dd 100644
--- a/ngcp/ngcp.lua
+++ b/ngcp/ngcp.lua
@@ -356,6 +356,36 @@ NGCP_MT = { __index = NGCP }
         end
     end
 
+    function NGCP:_log_var(level, vtype, group)
+        local _, v, var, vars_index, avp
+        vars_index = vtype .. "_" .. group .. "_load"
+        if self.vars[vars_index] then
+            for _,v in pairs(self.vars[vars_index]) do
+                for _,var in pairs(v) do
+                    avp = NGCPAvp:new(var[1])
+                    avp:log(level)
+                end
+            end
+        end
+    end
+
+    function NGCP:log_var(level, vtype, group)
+        if not level then
+            level = "dbg"
+        end
+        if not vtype then
+            if group then
+                self:_log_var(level, "caller", group)
+                self:_log_var(level, "callee", group)
+            else
+                self:_log_var(level, "caller", "peer")
+                self:_log_var(level, "callee", "peer")
+                self:_log_var(level, "caller", "usr")
+                self:_log_var(level, "callee", "usr")
+            end
+        end
+    end
+
     function NGCP:clean_vars(vtype, group)
         local _, v, var, vars_index, avp
         vars_index = vtype .. "_" .. group .. "_load"
diff --git a/tests/ngcp.lua b/tests/ngcp.lua
index 94f0149..797b709 100644
--- a/tests/ngcp.lua
+++ b/tests/ngcp.lua
@@ -503,5 +503,12 @@ TestNGCP = {} --class
 
         assertEquals(sr.pv.get("$avp(s:caller_ip_header)"), nil)
     end
+
+    function TestNGCP:test_log_var()
+        self:test_caller_usr_load()
+        self.ngcp:log_var()
+        self.ngcp:log_var(nil, nil, "peer")
+        self.ngcp:log_var("info", "caller")
+    end
 -- class TestNGCP
 --EOF
\ No newline at end of file