From bcdd5687dea9696dde9c390e4e6ac4b8833b7506 Mon Sep 17 00:00:00 2001
From: Flummi <git@srv.fail>
Date: Sat, 8 Jul 2023 21:23:18 +0000
Subject: [PATCH] =?UTF-8?q?=E2=80=9Epokerschmoker.pl=E2=80=9C=20hinzuf?=
 =?UTF-8?q?=C3=BCgen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 pokerschmoker.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 pokerschmoker.pl

diff --git a/pokerschmoker.pl b/pokerschmoker.pl
new file mode 100644
index 0000000..5cebc86
--- /dev/null
+++ b/pokerschmoker.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl -w
+use strict;
+use utf8;
+
+sub pokerschmoker_cb {
+	my($data, $mod, $mod_data, $msg) = @_;
+	
+	if($msg =~ /^pj/) {
+		$msg = "poker join";
+  }
+  elsif($msg =~ /^pl/) {
+    $msg = "poker leave";
+  }
+  elsif($msg =~ /^ca$/) {
+    $msg = "call";
+  }
+  elsif($msg =~ /^c$/) {
+    $msg = "check";
+  }
+
+	return $msg;
+}
+
+weechat::register("pokerschmoker.pl", "flummi", "1.0", "MIT", "pokerschmoker", "", "");
+weechat::hook_modifier("input_text_for_buffer", "pokerschmoker_cb", "");