# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1560170286 -7200
# Node ID 5fe34e5f982968dc983593f07ff8bcbffcfa37dc
# Parent  f74444b0e1877e1df7cd4f549102331f641b44ed
mod_log_events_by_memory: Log events where Lua memory usage increased

diff -r f74444b0e187 -r 5fe34e5f9829 mod_log_events_by_memory/README.markdown
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mod_log_events_by_memory/README.markdown	Mon Jun 10 14:38:06 2019 +0200
@@ -0,0 +1,8 @@
+This module compares the memory usage reported by Lua before and after
+each event and reports it to the log if it exceeds the configuration
+setting `log_memory_threshold` (in bytes).
+
+``` lua
+log_memory_threshold = 20*1024
+```
+
diff -r f74444b0e187 -r 5fe34e5f9829 mod_log_events_by_memory/mod_log_events_by_memory.lua
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mod_log_events_by_memory/mod_log_events_by_memory.lua	Mon Jun 10 14:38:06 2019 +0200
@@ -0,0 +1,21 @@
+module:set_global();
+
+local treshold = module:get_option_number("log_memory_threshold", 20*1024);
+
+function event_wrapper(handlers, event_name, event_data)
+	local memory_before = collectgarbage("count")*1024;
+	local ret = handlers(event_name, event_data);
+	local memory_after = collectgarbage("count")*1024;
+	if (memory_after - memory_before) > treshold then
+		module:log("warn", "Memory increased by %g bytes while processing event '%s'", (memory_after - memory_before), event_name);
+	end
+	return ret;
+end
+
+local http_events = require "net.http.server"._events;
+module:wrap_object_event(http_events, false, event_wrapper);
+
+module:wrap_event(false, event_wrapper);
+function module.add_host(module)
+	module:wrap_event(false, event_wrapper);
+end