Adding upstream version 8.2402.0.upstream/8.2402.0

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 9 insertions, 0 deletions

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
+}