From dcc721a95bef6f0d8e6d8775b8efe33e5aecd562 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Mon, 15 Apr 2024 18:28:20 +0200
Subject: Adding upstream version 8.2402.0.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 tests/omtcl.tcl | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 tests/omtcl.tcl

(limited to 'tests/omtcl.tcl')

diff --git a/tests/omtcl.tcl b/tests/omtcl.tcl
new file mode 100644
index 0000000..ff12251
--- /dev/null
+++ b/tests/omtcl.tcl
@@ -0,0 +1,9 @@
+proc doAction {msg} {
+  set fd [open $::env(RSYSLOG_OUT_LOG) a]
+  puts $fd "message processed:"
+  foreach {k v} $msg {
+    puts $fd "  $k: <<$v>>"
+  }
+  puts $fd "  uppercase message: <<[string toupper [dict get $msg message]]>>"
+  close $fd
+}
-- 
cgit v1.2.3